Lines Matching refs:nr

757       integer   :: i,j,k,lenseg,nr,nj,mi,mj  variable
767               nr = iamg_reduce
768               allocate(reducemap(nr,nr))
769               allocate(rmap1d(2,nr*nr)) ! rmap1d(master,slave,rankid)
773               do i=1,nr
778               rmapmax = nr+1
779               write(fname,"((I1)(A))")nr,'-procs_case/neimap.dat'
782               do i=1,nr
803               write(fname,"((I1)(A))")nr,'-procs_case/map_nproc.dat'
805               do i=nr,1,-1
813                     else if (flag(mj).le.nr) then