16      &               ramg_sol,ramg_rhs,clevel,  argument
27      &               :: ramg_sol,ramg_rhs  local
51           call ramg_direct_solve(ramg_rhs,ramg_sol,
63           call ramg_smoother(clevel,ramg_sol,myvF,ramg_rhs,
68           call ramg_calcAv_g(clevel,myvF,ramg_sol,colm,rowp,lhsK,lhsP,
79           ramg_sol = ramg_sol - myvF
82           call ramg_smoother(clevel,myvF,ramg_sol,ramg_rhs,
85           ramg_sol =  myvF
93       ramg_sol = ramg_sol * amg_ppeDiag(clevel)%p
355      &           ramg_sol,n_sol,  argument
382       real(kind=8),intent(inout),dimension(nshg,n_sol) :: ramg_sol  local
398          call ramg_V_cycle(ramg_sol,pperhs,1,
400          call ramg_G_cycle(ramg_sol,pperhs,1,
406           call ramg_PCG(ramg_sol,pperhs,1,