Searched refs:myvF (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_driver.f | 39 real(kind=8),dimension(amg_nshg(clevel)) :: myvF,myvE local
62 myvF = 0 ! initial guess is zero
63 call ramg_smoother(clevel,ramg_sol,myvF,ramg_rhs,
68 call ramg_calcAv_g(clevel,myvF,ramg_sol,colm,rowp,lhsK,lhsP,
70 myvF = myvF - ramg_rhs! r2
71 call ramg_calcIvFC(clevel,clevel+1,myvF,myvC)
77 call ramg_calcIvCF(clevel,clevel+1,myvCS,myvF,
79 ramg_sol = ramg_sol - myvF
82 call ramg_smoother(clevel,myvF,ramg_sol,ramg_rhs,
85 ramg_sol = myvF
|