Searched refs:cgZ (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
139 cgZ = cgR
141 call ramg_dot_p(level,cgZ,cgR,1,rz)
143 cgP = cgZ
157 cgZ = cgR
159 call ramg_dot_p(level,cgZ,cgR,1,rz)
161 cgP = beta*cgP+cgZ
189 real(kind=8),dimension(amg_nshg(1)) :: cgP,cgQ,cgZ,cgR variable
216 call ramg_V_cycle(cgZ,cgR,1,
219 call ramg_G_cycle(cgZ,cgR,1,
[all …]
|