if((nTimeSteps/uCheckLev1)+1 .le. uCheckLev2 ) then
uCheckLev2=(nTimeSteps/uCheckLev1)+1
if((nTimeSteps/uCheckLev1) .le. uCheckLev2 ) then
uCheckLev2=(nTimeSteps/uCheckLev1)
uCheckLev2 = 0
if (MOD(nTimeSteps,uCheckLev1*uCheckLev2).gt.0) then
if((nTimeSteps/(uCheckLev1*uCheckLev2))+1
uCheckLev3=(nTimeSteps/(uCheckLev1*uCheckLev2))+1
if((nTimeSteps/(uCheckLev1*uCheckLev2)) .le. uCheckLev3 )then
uCheckLev3=(nTimeSteps/(uCheckLev1*uCheckLev2))
if (MOD(nTimeSteps,uCheckLev1*uCheckLev2*uCheckLev3)
if((nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))+1
+ (nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))+1
if((nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))
+ (nTimeSteps/(uCheckLev1*uCheckLev2*uCheckLev3))
+', 2nd:', uCheckLev2,
integer uCheckLev1, uCheckLev2, uCheckLev3,uCheckLev4
uCheckLev2=0
uCheckLev2=nCheckLev2
+ uCheckLev2,
if ( uCheckLev3*uCheckLev2*uCheckLev1 .eq. 0) then
if ( uCheckLev2*uCheckLev1 .eq. 0) then
if (uCheckLev2 .gt. 0 ) then