42       integer :: p,q,nsize,step,asize,gsize  local
56       call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,1)
58       call MPI_AllReduce(nsize,gsize,1,MPI_INTEGER,MPI_MAX,
92       allocate(tramg_ev(nsize,maxncv))
104      &               ido,bmat,nsize,which,nev,tol,resid,ncv,
106      &               nsize,iparam,ipntr,workd,workl,lworkl,
110      &                     asize,nsize,gmap,grevmap,
114      &               ido,bmat,nsize,which,nev,tol,resid,ncv,
116      &               nsize,iparam,ipntr,workd,workl,lworkl,
127      &         tramg_ev,nsize,
128      &         sigmar,sigmai,workev,bmat,nsize,which,nev,tol,
130      &         nsize,iparam,ipntr,workd,workl,
138      &                    asize,nsize,1,gmap,grevmap)
193       subroutine ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,  argument
201       integer,intent(inout) :: nsize  local
217           nsize = asize
256       nsize = k-1
268      &               asize,nsize,gmap,grevmap,  argument
277       integer, intent(in)         :: asize,nsize  local
279       real(kind=8),intent(inout),dimension(nsize)
281       real(kind=8),intent(in),dimension(nsize) :: gramg_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,