Lines Matching refs:m
38 integer :: i,j,k,m,n,p,q local
261 m = aLoc(jj)
262 if (m.eq.0) then
263 m = n+1
264 aLoc(jj) = m
265 amg_Fn(m) = jj
266 amg_Fp(m) = 0
267 amg_la(m) = 0
270 amg_la(m) = amg_la(m) - rtp*amg_A_lhs(level1)%p(kj,1)
272 amg_Fp(m) = 1
274 amg_Fp(m) = 0
589 integer :: i,j,k,n,m local
722 m = i
732 m = aheap(1)+1
733 if (amg_CF(m).ne.0) then
734 amg_L(m) = 0
736 & ainvheap(m),anshg)
739 Lmax = amg_L(m)-iabs(afmap(m))-m*MSCALE ! reuse Lmax
741 k = iabs(afmap(m))
743 amg_CF(m) = 1
745 amg_CF(m) = 2
747 oneck(iabs(afmap(m)))=oneck(iabs(afmap(m)))-1
749 amg_L(m) = 0!afmap(m)+m*MSCALE
751 & ainvheap(m),anshg)
755 amg_CF(m) = 1 ! mark coarse
756 amg_L(m) = 0!afmap(m)+m*MSCALE!0 !floor(amg_L(m))
757 call ramg_popheap(aheap,ainvheap,amg_L,nheaps,ainvheap(m),
760 do j=acolm(m),acolm(m+1)-1
762 if (afmap(k).eq.afmap(m)) then
831 m = arowp(j)
832 if (amg_CF(m).eq.1) then ! two coarse connected