Lines Matching refs:level
106 & sol,rhs,level, argument
113 integer,intent(in) :: level local
114 real(kind=8),intent(in),dimension(amg_nshg(level)) :: rhs
115 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: sol
129 real(kind=8),dimension(amg_nshg(level)) :: cgP,cgQ,cgZ,cgR
135 call ramg_L2_norm_p(level,cgR,1,norm_0)
141 call ramg_dot_p(level,cgZ,cgR,1,rz)
149 call ramg_calcAv_g(level,cgQ,cgP,colm,rowp,lhsK,lhsP,
151 call ramg_dot_p(level,cgP,cgQ,1,pq)
155 call ramg_L2_norm_p(level,cgR,1,tmp)
159 call ramg_dot_p(level,cgZ,cgR,1,rz)