Lines Matching refs:cl

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,
389           call lubksb(cmtxA,amg_nshg(cl),amg_nshg(cl),cindx,Asol)