42       integer :: p,q,nsize,step,asize,gsize  local
58       call MPI_AllReduce(nsize,gsize,1,MPI_INTEGER,MPI_MAX,
63       allocate(resid(gsize))
64       allocate(workd(3*gsize))
382       subroutine ramg_ggb_G2A(avec,gvec,asize,gsize,redun,  argument
384       integer,intent(in) :: asize, gsize  local
388       real(kind=8),intent(in),dimension(gsize,redun) :: gvec
392       do i=1,gsize
399       subroutine ramg_ggb_A2G(avec,gvec,asize,gsize,redun,  argument
401       integer,intent(in) :: asize, gsize  local
405       real(kind=8),intent(inout),dimension(gsize,redun) :: gvec