58       subroutine ramg_jacobi(Acolm,Arowp,Alhs,Anshg,Annz_tot,!A  argument
62       integer,intent(in)                   :: Anshg,Annz_tot  local
64       integer,intent(in),dimension(Annz_tot) :: Arowp
65       real(kind=8),intent(in),dimension(Annz_tot) :: Alhs
259       subroutine ramg_direct_LU(Acolm,Arowp,Alhs,Anshg,Annz_tot)  argument
262       integer,intent(in)                   :: Anshg,Annz_tot  local
264       integer,intent(in),dimension(Annz_tot) :: Arowp
265       real(kind=8),intent(in),dimension(Annz_tot) :: Alhs
286       call ramg_sparse2dense(Acolm,Arowp,Alhs,Anshg,Annz_tot,cmtxA)
298       subroutine ramg_sparse2dense(Acolm,Arowp,Alhs,Anshg,Annz_tot,
301       integer,intent(in)                   :: Anshg,Annz_tot  variable
303       integer,intent(in),dimension(Annz_tot) :: Arowp
304       real(kind=8),intent(in),dimension(Annz_tot) :: Alhs