integer ilev_4
do ilev_4 = 1,nchklev_4
if(ilev_4.le.max_lev4) then
& + (ilev_4 - 1)*nchklev_3*nchklev_2*nchklev_1
CALL THE_FOURTH_LEVEL_LOOP( ilev_4,
CALL THE_THIRD_LEVEL_PLAIN( ilev_4,
SUBROUTINE THE_FOURTH_LEVEL_LOOP(ilev_4,
print *, 'JU: THE_FOURTH_LEVEL_LOOP(',ilev_4,')'
CALL THE_THIRD_LEVEL_LOOP( ilev_4, iLev_3,
& + (ilev_4)*uCheckLev3*uCheckLev2*uCheckLev1