Searched refs:myV (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_smoother.f | 345 real(kind=8),dimension(amg_nshg(ramg_levelx)) :: myV local
361 call ramg_smoother(cl,myV,Asol,Arhs,
364 call ramg_smoother(cl,Asol,myV,Arhs,
371 call ramg_smoother(cl,myV,Asol,Arhs,
374 call ramg_smoother(cl,Asol,myV,Arhs,
377 call ramg_calcAv_g(cl,myV,Asol,colm,rowp,lhsK,lhsP,
379 myV = myV-Arhs
380 mres_n=sqrt(flesDot1(myV,amg_nshg(cl),1))
|