Searched refs:Acolm (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
63 integer,intent(in),dimension(Anshg+1) :: Acolm local
79 do k = Acolm(i)+1,Acolm(i+1)-1
85 u(i) = u(i)/Alhs(Acolm(i))
259 subroutine ramg_direct_LU(Acolm,Arowp,Alhs,Anshg,Annz_tot) argument
263 integer,intent(in),dimension(Anshg+1) :: Acolm local
286 call ramg_sparse2dense(Acolm,Arowp,Alhs,Anshg,Annz_tot,cmtxA)
298 subroutine ramg_sparse2dense(Acolm,Arowp,Alhs,Anshg,Annz_tot,
302 integer,intent(in),dimension(Anshg+1) :: Acolm variable
311 do j= Acolm(i),Acolm(i+1)-1
|