DO iter = 1,niter_bulk
INTEGER niter_bulk, iter
niter_bulk = 5
do iter=1,niter_bulk
integer niter_bulk,iter
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