Searched defs:ramg_gauss (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_smoother.f | 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
[all …]
|