Lines Matching defs:ramg_CG
105 subroutine ramg_CG( subroutine
113 integer,intent(in) :: level
114 real(kind=8),intent(in),dimension(amg_nshg(level)) :: rhs
115 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: sol
117 integer,intent(in),dimension(nshg+1) :: colm
118 integer,intent(in),dimension(nnz_tot) :: rowp
120 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
121 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
123 integer,intent(in),dimension(nlwork) :: ilwork
124 integer,intent(in),dimension(nshg) :: iBC,iper
125 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
126 integer,intent(inout) :: iterNum
129 real(kind=8),dimension(amg_nshg(level)) :: cgP,cgQ,cgZ,cgR
130 real(kind=8) :: rz,rz_0,pq,alpha,beta
131 real(kind=8) :: tmp,norm_0,norm_1,norm_e,norm_c
132 real(kind=8) :: mres_0,mres_n