Lines Matching refs:afmap
562 & alhs,afmap,ilwork,BC,iBC,iper, argument
577 integer,intent(in),dimension(anshg) :: afmap local
611 cfilter = afmap(i) ! each row only deal with its own group
618 if ((cfilter.eq.afmap(k)).and.(alhs(j).lt.rowmax(i))) then
621 if ((cfilter.eq.afmap(k)).and.(alhs(j).gt.prowmax(i))) then
632 cfilter = afmap(i)
637 if (cfilter.eq.afmap(k)) then ! same subset
662 cfilter = afmap(i)
666 if ((amg_S(j).ne.0).and.(afmap(k).eq.cfilter)) then
696 cfilter = afmap(i)
702 if ((afmap(k).eq.cfilter).and.(amg_S(j).ge.2)) then ! in S^T
739 Lmax = amg_L(m)-iabs(afmap(m))-m*MSCALE ! reuse Lmax
741 k = iabs(afmap(m))
747 oneck(iabs(afmap(m)))=oneck(iabs(afmap(m)))-1
762 if (afmap(k).eq.afmap(m)) then