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))
281       allocate(cindx(Anshg))
286       call ramg_sparse2dense(Acolm,Arowp,Alhs,Anshg,Annz_tot,cmtxA)
290       call ludcmp(cmtxA,Anshg,Anshg,cindx,d)
298       subroutine ramg_sparse2dense(Acolm,Arowp,Alhs,Anshg,Annz_tot,
301       integer,intent(in)                   :: Anshg,Annz_tot  variable
302       integer,intent(in),dimension(Anshg+1) :: Acolm
305       real(kind=8),intent(inout),dimension(Anshg,Anshg) :: mtxA
310       do i=1,Anshg