INTEGER niter_bulk
PARAMETER ( niter_bulk = 2 )
DO iter=1,niter_bulk
& + sNx*sNy*niter_bulk*act1
& + sNx*sNy*niter_bulk*max1*act2
& + sNx*sNy*niter_bulk*max1*max2*act3
& + sNx*sNy*niter_bulk*max1*max2*max3*act4
DO iter = 1,niter_bulk
& + niter_bulk*(i-1)
& + niter_bulk*sNx*(j-1)
& + niter_bulk*sNx*sNy*(it2-1)
& + 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
INTEGER niter_bulk, iter
niter_bulk = 5
do iter=1,niter_bulk
INTEGER niter_bulk,iter