integer ilev_2
do ilev_2 = 1,nchklev_2
if(ilev_2.le.max_lev2) then
iloop = (ilev_2 - 1)*nchklev_1 + ilev_1
do ilev_2 = 0,uCheckLev2 - 1
& + (ilev_2)*uCheckLev1