Searched refs:mj (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 757 integer :: i,j,k,lenseg,nr,nj,mi,mj variable
788 read(264,*)mi,mj
789 if (mj.gt.0) then
790 reducemap(i,mj) = rmapmax
791 reducemap(mj,i) = -rmapmax
792 write(*,*)'mcheck reducemap,',i,mj,rmapmax
794 rmap1d(2,rmapmax) = mj
810 read(264,*)mi,mj
811 if (flag(mj).eq.0) then
812 flag(mj) = i
[all …]
|
| H A D | ramg_tools.f | 157 integer :: i,j,k,p,mi,mj local
174 mj = amg_paramap(level)%p(j)
175 if (.not.( (mi.eq.mj).and.(mi.lt.0) )) then
217 integer :: i,j,k,p,mi,mj,mk variable
232 mj = amg_paramap(level)%p(j)
233 if (.not.( (mi.eq.mj).and.(mi.lt.0) )) then
|