Searched refs:ggberr (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ggb.f | 337 real(kind=8),dimension(amg_nshg(clevel)) :: ggberr local
346 call ramg_calcAv_g(clevel,ggberr,ramg_sol,colm,rowp,lhsK,lhsP,
348 ggberr = ggberr - ramg_rhs
354 vR(i) = vR(i)+ramg_ggb_eV(j,i)*ggberr(j)
371 ggberr = 0
374 ggberr(j) = ggberr(j)+ramg_ggb_eV(j,i)*vR(i)
378 ramg_sol = ramg_sol - ggberr
|