Searched refs:norm_0 (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_driver.f | 131 real(kind=8) :: tmp,norm_0,norm_1,norm_e,norm_c local
135 call ramg_L2_norm_p(level,cgR,1,norm_0)
136 norm_c = norm_0
137 norm_e = norm_0*1e-7
191 real(kind=8) :: tmp,norm_0,norm_p,norm_e,norm_c variable
204 call ramg_L2_norm_p(1,cgR,1,norm_0)
205 norm_c = norm_0
206 norm_e = norm_0 * epstol(2)
207 write(*,*)'norm_0 ', norm_0
275 & iterNum,norm_c/norm_0,rconv(iterNum),cflagv,cflagg
|