Home
last modified time | relevance | path

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

/phasta/phSolver/AMG/
H A Dramg_coarse.f45 integer :: cfilter local
217 cfilter = amg_paramap(level1)%p(i)
237 if (cfilter.eq.amg_paramap(level1)%p(j)) then
595 integer :: flagS,nheaps,cfilter 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)
633 p = iabs(cfilter)
637 if (cfilter.eq.afmap(k)) then ! same subset
[all …]