integer i,iter,init,n,LL,L,Lp,Lp1,lmin,lminq,lminq1,ibit
integer i,iter
DO iter = 1,niter_bulk
ikey_2 = iter
INTEGER iter
INTEGER niter_bulk, iter
do iter=1,niter_bulk
DO iter=1,blk_nIter
integer niter_bulk,iter
DO iter=1,niter_bulk
& + sNx*sNy*(iter-1)