40       integer,allocatable,dimension(:) :: gmap,grevmap  local
54       allocate(grevmap(asize))
56       call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,1)
110      &                     asize,nsize,gmap,grevmap,
138      &                    asize,nsize,1,gmap,grevmap)
184       deallocate(grevmap)
193       subroutine ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,  argument
204       integer,intent(inout),dimension(asize) :: gmap,grevmap  local
213          grevmap(i) = i
252             grevmap(k) = i
268      &               asize,nsize,gmap,grevmap,  argument
282       integer, intent(in),dimension(asize) :: gmap,grevmap  local
296       call ramg_ggb_G2A(ramg_rhs,gramg_rhs,asize,nsize,1,gmap,grevmap)
308      &                  gmap,grevmap)
383      &                           gmap,grevmap)  argument
386       integer,intent(in),dimension(asize) :: gmap,grevmap  local
393          avec(grevmap(i),:) = gvec(i,:)
400      &           gmap,grevmap)  argument
403       integer,intent(in),dimension(asize) :: gmap,grevmap  local