Home
last modified time | relevance | path

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

/phasta/phSolver/AMG/
H A Dramg_coarse.f593 real(kind=8),dimension(anshg) :: rowmax,prowmax local
615 prowmax(i) = -1e+10
621 if ((cfilter.eq.afmap(k)).and.(alhs(j).gt.prowmax(i))) then
622 prowmax(i) = alhs(j)
626 prowmax(i) = eps_str*prowmax(i)
647 if (alhs(j) .gt. prowmax(i)) then
650 if (alhs(j) .gt. prowmax(k)) then