Searched refs:pAux (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_cheby.f | 31 real(kind=8),dimension(amg_nshg(level)) :: pAux local
53 call ramg_calcAv_g(level,pAux,v,colm,rowp,lhsK,lhsP,
55 cy1 = v-1.1*3.0/beta*(pAux-r)
58 call ramg_calcAv_g(level,pAux,cy1,colm,rowp,lhsK,lhsP,
60 cz1 = r-pAux
82 call ramg_calcAv_g(level,pAux,v,colm,rowp,lhsK,lhsP,
84 epdk = r-pAux
90 call ramg_calcAv_g(level,pAux,epx,colm,rowp,lhsK,lhsP,
96 epdk = dtemp1*epdk+dtemp2*(r-pAux)
|
| H A D | ramg_mls.f | 631 real(kind=8),dimension(amg_nshg(level)) :: pAux,res local
635 pAux = r
639 u = cf*pAux
642 call ramg_calcAv_g(level,res,pAux,colm,rowp,lhsK,lhsP,
644 pAux = res
672 real(kind=8),dimension(amg_nshg(level)) :: pAux,y,res,y1 local
679 call ramg_calcAv_g(level,pAux,y1,colm,rowp,lhsK,lhsP,
681 res = b-pAux!b-pAux ! rhs to feed in post smoothing, keep y
683 call ramg_mls_sandw_post(pAux,res,level,colm,rowp,lhsK,lhsP,
685 call ramg_mls_sandw_pre(y,pAux,level,colm,rowp,lhsK,lhsP,
|