Searched refs:cgQ (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_driver.f | 129 real(kind=8),dimension(amg_nshg(level)) :: cgP,cgQ,cgZ,cgR local
149 call ramg_calcAv_g(level,cgQ,cgP,colm,rowp,lhsK,lhsP,
151 call ramg_dot_p(level,cgP,cgQ,1,pq)
154 cgR = cgR - alpha*cgQ
189 real(kind=8),dimension(amg_nshg(1)) :: cgP,cgQ,cgZ,cgR variable
239 call ramg_calcAv_g(1,cgQ,cgP,colm,rowp,lhsK,lhsP,
241 call ramg_dot_p(1,cgP,cgQ,1,pq)
244 cgR = cgR - alpha*cgQ
|