Searched refs:nr (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 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
[all …]
|