96      &                      anshg,annz_tot,!A  argument
104       integer,intent(in)                   :: anshg,annz_tot  local
105       integer,intent(in),dimension(anshg+1) :: acolm
108       real(kind=8),intent(in),dimension(anshg) :: v,r
109       real(kind=8),intent(inout),dimension(anshg) :: u
114       logical,dimension(anshg),intent(inout) :: pflag
117       real(kind=8),dimension(anshg)    :: tmp,v2,aux
143       do i=1,anshg
167       subroutine ramg_gauss(acolm,arowp,alhs,anshg,annz_tot,!A  argument
175       integer,intent(in)                   :: anshg,annz_tot  local
176       integer,intent(in),dimension(anshg+1) :: acolm
179       real(kind=8),intent(in),dimension(anshg) :: v,r
180       real(kind=8),intent(inout),dimension(anshg) :: u
189       real(kind=8),dimension(anshg) :: u2
193       logical,dimension(anshg) :: pflag
202           iend = anshg
205           istr = anshg
213           call ramg_boundary_mls1(acolm,arowp,alhs,anshg,annz_tot,
242           call ramg_boundary_mls1(acolm,arowp,alhs,anshg,annz_tot,