Searched refs:ramg_sol (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
51 call ramg_direct_solve(ramg_rhs,ramg_sol,
63 call ramg_smoother(clevel,ramg_sol,myvF,ramg_rhs,
68 call ramg_calcAv_g(clevel,myvF,ramg_sol,colm,rowp,lhsK,lhsP,
79 ramg_sol = ramg_sol - myvF
82 call ramg_smoother(clevel,myvF,ramg_sol,ramg_rhs,
85 ramg_sol = myvF
93 ramg_sol = ramg_sol * amg_ppeDiag(clevel)%p
355 & ramg_sol,n_sol, argument
[all …]
|
| H A D | ramg_ggb.f | 294 real(kind=8),dimension(asize) :: ramg_sol,ramg_rhs local
303 call ramg_V_cycle(ramg_sol,vF,1,
305 ramg_sol = ramg_rhs-ramg_sol
307 call ramg_ggb_A2G(ramg_sol,gramg_sol,asize,nsize,1,
314 & ramg_sol,ramg_rhs, argument
325 & :: ramg_sol,ramg_rhs local
346 call ramg_calcAv_g(clevel,ggberr,ramg_sol,colm,rowp,lhsK,lhsP,
378 ramg_sol = ramg_sol - ggberr
|