niter_bulk = 5
do iter=1,niter_bulk
integer niter_bulk, iter
do iter = 1,niter_bulk
& + niter_bulk*(i-1)
& + niter_bulk*sNx*(j-1)
& + niter_bulk*sNx*sNy*act1
& + niter_bulk*sNx*sNy*max1*act2
& + niter_bulk*sNx*sNy*max1*max2*act3
& + niter_bulk*sNx*sNy*max1*max2*max3*act4
integer niter_bulk
parameter ( niter_bulk = 2 )