Searched refs:cgR (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
134 cgR = rhs
135 call ramg_L2_norm_p(level,cgR,1,norm_0)
139 cgZ = cgR
141 call ramg_dot_p(level,cgZ,cgR,1,rz)
154 cgR = cgR - alpha*cgQ
155 call ramg_L2_norm_p(level,cgR,1,tmp)
157 cgZ = cgR
159 call ramg_dot_p(level,cgZ,cgR,1,rz)
189 real(kind=8),dimension(amg_nshg(1)) :: cgP,cgQ,cgZ,cgR variable
[all …]
|