integer ilev_1
do ilev_1 = 1,nchklev_1
iloop = (ilev_2 - 1)*nchklev_1 + ilev_1
ikey_dynamics = ilev_1
do ilev_1 = 0, uCheckLev4-1
do ilev_1 = 0,uCheckLev1-1
iloop = ilev_1