INTEGER MaxTsf
PARAMETER ( MaxTsf = 20 )
IF ( nitMaxTsf .GT. MaxTsf ) THEN
& + sNx*sNy*MaxTsf*act1
& + sNx*sNy*MaxTsf*max1*act2
& + sNx*sNy*MaxTsf*max1*max2*act3
& + sNx*sNy*MaxTsf*max1*max2*max3*act4
& + niter_bulk*sNx*sNy*MaxTsf*act1
& + niter_bulk*sNx*sNy*MaxTsf*max1*act2
& + niter_bulk*sNx*sNy*MaxTsf*max1*max2*act3
& + niter_bulk*sNx*sNy*MaxTsf*max1*max2*max3*act4
kkey = (ticekey-1)*MaxTsf + k