Home
last modified time | relevance | path

Searched refs:afmap (Results 1 – 2 of 2) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_coarse.f562 & 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)
[all …]
H A Damgread.txt89 every "if (afmap....)" in ramg_CFsplit you will see that.