42       integer :: p,q,nsize,step,asize,gsize  local
52       asize = amg_nshg(1)
53       allocate(gmap(asize))
54       allocate(grevmap(asize))
56       call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,1)
93       allocate(tv(asize))
94       allocate(tw(asize))
110      &                     asize,nsize,gmap,grevmap,
135       allocate(ramg_ggb_ev(asize,maxnev))
138      &                    asize,nsize,1,gmap,grevmap)
145       allocate(teA(asize,maxnev))
157                do p=1,asize
193       subroutine ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,  argument
203       integer,intent(in) :: asize  local
204       integer,intent(inout),dimension(asize) :: gmap,grevmap
211       do i=1,asize
217           nsize = asize
248       do i=1,asize
268      &               asize,nsize,gmap,grevmap,  argument
277       integer, intent(in)         :: asize,nsize  local
282       integer, intent(in),dimension(asize) :: gmap,grevmap
294       real(kind=8),dimension(asize) :: ramg_sol,ramg_rhs
296       call ramg_ggb_G2A(ramg_rhs,gramg_rhs,asize,nsize,1,gmap,grevmap)
307       call ramg_ggb_A2G(ramg_sol,gramg_sol,asize,nsize,1,
382       subroutine ramg_ggb_G2A(avec,gvec,asize,gsize,redun,  argument
384       integer,intent(in) :: asize, gsize  local
386       integer,intent(in),dimension(asize) :: gmap,grevmap
387       real(kind=8),intent(inout),dimension(asize,redun) :: avec
399       subroutine ramg_ggb_A2G(avec,gvec,asize,gsize,redun,  argument
401       integer,intent(in) :: asize, gsize  local
403       integer,intent(in),dimension(asize) :: gmap,grevmap
404       real(kind=8),intent(in),dimension(asize,redun) :: avec
409       do i=1,asize