Searched refs:mi (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_tools.f | 157 integer :: i,j,k,p,mi,mj local
171 mi = amg_paramap(level)%p(i)
175 if (.not.( (mi.eq.mj).and.(mi.lt.0) )) then
217 integer :: i,j,k,p,mi,mj,mk variable
227 mi = amg_paramap(level)%p(i)
233 if (.not.( (mi.eq.mj).and.(mi.lt.0) )) then
|
| H A D | ramg_paratools.f | 757 integer :: i,j,k,lenseg,nr,nj,mi,mj variable
788 read(264,*)mi,mj
810 read(264,*)mi,mj
|