Searched refs:rmapmax (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 772 rmapmax = 1
778 rmapmax = nr+1
790 reducemap(i,mj) = rmapmax
791 reducemap(mj,i) = -rmapmax
792 write(*,*)'mcheck reducemap,',i,mj,rmapmax
793 rmap1d(1,rmapmax) = i
794 rmap1d(2,rmapmax) = mj
795 rmapmax = rmapmax + 1
801 call ramg_dump_ic(rmap1d,2,rmapmax,'rmap1d ')
|
| H A D | ramg_data.f | 110 integer :: rmapmax variable
|
| H A D | ramg_control.f | 178 numtask = rmapmax-1
|
| H A D | ramg_coarse.f | 92 numtask = rmapmax-1
|