Lines Matching refs:cgP
129 real(kind=8),dimension(amg_nshg(level)) :: cgP,cgQ,cgZ,cgR local
143 cgP = cgZ
149 call ramg_calcAv_g(level,cgQ,cgP,colm,rowp,lhsK,lhsP,
151 call ramg_dot_p(level,cgP,cgQ,1,pq)
153 sol = sol + alpha*cgP
161 cgP = beta*cgP+cgZ
189 real(kind=8),dimension(amg_nshg(1)) :: cgP,cgQ,cgZ,cgR variable
229 cgP = cgZ
239 call ramg_calcAv_g(1,cgQ,cgP,colm,rowp,lhsK,lhsP,
241 call ramg_dot_p(1,cgP,cgQ,1,pq)
243 sol = sol + alpha*cgP
264 cgP = beta*cgP + cgZ