Searched refs:cl (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_smoother.f | 346 integer :: titer,cl local
350 cl = ramg_levelx
353 call ramg_L2_norm_p(cl,Arhs,1,mres_i)
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,
380 mres_n=sqrt(flesDot1(myV,amg_nshg(cl),1))
384 call ramg_CG(Asol,Arhs,cl,
[all …]
|