Lines Matching defs:ramg_gauss
167 subroutine ramg_gauss(acolm,arowp,alhs,anshg,annz_tot,!A subroutine
175 integer,intent(in) :: anshg,annz_tot
176 integer,intent(in),dimension(anshg+1) :: acolm
177 integer,intent(in),dimension(annz_tot) :: arowp
178 real(kind=8),intent(in),dimension(annz_tot) :: alhs
179 real(kind=8),intent(in),dimension(anshg) :: v,r
180 real(kind=8),intent(inout),dimension(anshg) :: u local
181 integer,intent(in) :: fwdbck!1=fwd,2=bck
182 integer,intent(in) :: clevel
183 integer,intent(in),dimension(nlwork) :: ilwork
184 integer,intent(in),dimension(nshg) :: iBC,iper
185 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
188 real(kind=8) :: tmp