Lines Matching refs:clevel
16 & ramg_sol,ramg_rhs,clevel, argument
25 integer, intent(in) :: clevel local
26 real(kind=8),intent(inout),dimension(amg_nshg(clevel))
39 real(kind=8),dimension(amg_nshg(clevel)) :: myvF,myvE
45 if (clevel.ne.1) then
46 ramg_rhs = ramg_rhs*amg_ppeDiag(clevel)%p
49 if (ramg_levelx-clevel .eq. 0) then
57 else if (ramg_levelx-clevel .gt. 0) then
58 allocate(myvC(amg_nshg(clevel+1)))
59 allocate(myvCS(amg_nshg(clevel+1)))
63 call ramg_smoother(clevel,ramg_sol,myvF,ramg_rhs,
68 call ramg_calcAv_g(clevel,myvF,ramg_sol,colm,rowp,lhsK,lhsP,
71 call ramg_calcIvFC(clevel,clevel+1,myvF,myvC)
74 call ramg_V_cycle(myvCS,myvC,clevel+1,
77 call ramg_calcIvCF(clevel,clevel+1,myvCS,myvF,
82 call ramg_smoother(clevel,myvF,ramg_sol,ramg_rhs,
92 if (clevel.ne.1) then
93 ramg_sol = ramg_sol * amg_ppeDiag(clevel)%p