+ .le. uCheckLev4 ) then
uCheckLev4=
uCheckLev4 = 0
+', 4th:', uCheckLev4
integer uCheckLev1, uCheckLev2, uCheckLev3,uCheckLev4
uCheckLev4=0
uCheckLev4=nCheckLev4
if (uCheckLev4 .gt. 0 ) then
+ uCheckLev4 )