Searched refs:Anshg (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_smoother.f | 58 subroutine ramg_jacobi(Acolm,Arowp,Alhs,Anshg,Annz_tot,!A argument
62 integer,intent(in) :: Anshg,Annz_tot local
63 integer,intent(in),dimension(Anshg+1) :: Acolm
66 real(kind=8),intent(in),dimension(Anshg) :: v,r
67 real(kind=8),intent(inout),dimension(Anshg) :: u
78 do i=1,Anshg
259 subroutine ramg_direct_LU(Acolm,Arowp,Alhs,Anshg,Annz_tot) argument
262 integer,intent(in) :: Anshg,Annz_tot local
263 integer,intent(in),dimension(Anshg+1) :: Acolm
280 allocate(cmtxA(Anshg,Anshg))
[all …]
|