Searched refs:ramg_rhs (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_driver.f | 16 & ramg_sol,ramg_rhs,clevel, argument
27 & :: ramg_sol,ramg_rhs local
46 ramg_rhs = ramg_rhs*amg_ppeDiag(clevel)%p
51 call ramg_direct_solve(ramg_rhs,ramg_sol,
63 call ramg_smoother(clevel,ramg_sol,myvF,ramg_rhs,
70 myvF = myvF - ramg_rhs! r2
82 call ramg_smoother(clevel,myvF,ramg_sol,ramg_rhs,
|
| H A D | ramg_ggb.f | 294 real(kind=8),dimension(asize) :: ramg_sol,ramg_rhs local
296 call ramg_ggb_G2A(ramg_rhs,gramg_rhs,asize,nsize,1,gmap,grevmap)
300 call ramg_calcAv_g(clevel,vF,ramg_rhs,colm,rowp,lhsK,lhsP,
305 ramg_sol = ramg_rhs-ramg_sol
314 & ramg_sol,ramg_rhs, argument
325 & :: ramg_sol,ramg_rhs local
348 ggberr = ggberr - ramg_rhs
|