Lines Matching refs:cgZ
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,
223 cgZ = cgR
226 call ramg_dot_p(1,cgZ,cgR,1,rz)
229 cgP = cgZ
251 call ramg_V_cycle(cgZ,cgR,1,
254 call ramg_G_cycle(cgZ,cgR,1,
258 cgZ = cgR
262 call ramg_dot_p(1,cgZ,cgR,1,rz)
264 cgP = beta*cgP + cgZ