+ .le. uCheckLev3 ) then
uCheckLev3=(nTimeSteps/(uCheckLev1*uCheckLev2))+1
if((nTimeSteps/(uCheckLev1*uCheckLev2)) .le. uCheckLev3 )then
uCheckLev3=(nTimeSteps/(uCheckLev1*uCheckLev2))
uCheckLev3 = 0
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))
+', 3rd:', uCheckLev3,
integer uCheckLev1, uCheckLev2, uCheckLev3,uCheckLev4
uCheckLev3=0
uCheckLev3=nCheckLev3
+ uCheckLev3,
if ( uCheckLev3*uCheckLev2*uCheckLev1 .eq. 0) then
if (uCheckLev3 .gt. 0 ) then