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