integer ilev_3
do ilev_3 = 1,nchklev_3
if(ilev_3.le.max_lev3) then
& + (ilev_3 - 1)*nchklev_2*nchklev_1
do ilev_3 = 0,uCheckLev3-1
& + (ilev_3)*uCheckLev2*uCheckLev1