Searched refs:Alhs (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
65 real(kind=8),intent(in),dimension(Annz_tot) :: Alhs local
81 tmp = Alhs(k)*v(j)
85 u(i) = u(i)/Alhs(Acolm(i))
259 subroutine ramg_direct_LU(Acolm,Arowp,Alhs,Anshg,Annz_tot) argument
265 real(kind=8),intent(in),dimension(Annz_tot) :: Alhs local
286 call ramg_sparse2dense(Acolm,Arowp,Alhs,Anshg,Annz_tot,cmtxA)
298 subroutine ramg_sparse2dense(Acolm,Arowp,Alhs,Anshg,Annz_tot,
304 real(kind=8),intent(in),dimension(Annz_tot) :: Alhs variable
313 mtxA(i,k) = Alhs(j)
|