Lines Matching refs:cgR
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
203 cgR = rhs
204 call ramg_L2_norm_p(1,cgR,1,norm_0)
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)
244 cgR = cgR - alpha*cgQ
245 call ramg_L2_norm_p(1,cgR,1,tmp)
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)