CALL THE_THIRD_LEVEL_LOOP( 0, iLev_3,
CALL THE_THIRD_LEVEL_LOOP( ilev_4, iLev_3,
CALL THE_SECOND_LEVEL_PLAIN( iLev_4, iLev_3,
SUBROUTINE THE_THIRD_LEVEL_LOOP(iLev_4, iLev_3,
integer iLev_3
print *, 'JU: THE_THIRD_LEVEL_LOOP(',iLev_4,',',iLev_3,')'
CALL THE_SECOND_LEVEL_LOOP( iLev_4, iLev_3, iLev_2,
SUBROUTINE THE_SECOND_LEVEL_PLAIN(iLev_4, iLev_3,
print *, 'JU: THE_SECOND_LEVEL_PLAIN(',iLev_4,',',iLev_3,')'
SUBROUTINE THE_SECOND_LEVEL_LOOP(iLev_4, iLev_3, iLev_2,
print *, 'JU: THE_SECOND_LEVEL_LOOP(',iLev_4,',',iLev_3,',',iLev_2,')'