Searched refs:pq (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_driver.f | 130 real(kind=8) :: rz,rz_0,pq,alpha,beta local
151 call ramg_dot_p(level,cgP,cgQ,1,pq)
152 alpha = rz/pq
190 real(kind=8) :: rz,rz_0,pq,alpha,beta variable
241 call ramg_dot_p(1,cgP,cgQ,1,pq)
242 alpha = rz/pq
|