107      &                         u,v,gcomm)
113       real(kind=8),intent(in),dimension(gnshg) :: v  local
123             u(i) = u(i)+glhs(k)*v(j)
137       subroutine ramg_calcAv_g(level,u,v,colm,rowp,lhsK,lhsP,  argument
153       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v  local
164       call ramg_PPEAp(u,v,colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)    
167       call ramg_commOut(v,level,ilwork,1,iper,iBC,BC)
176                 u(i) = u(i)+amg_A_lhs(level)%p(k,1)*v(j)
199       subroutine ramg_calcAv_b(level,u,v,
211       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v  variable
223       call ramg_commOut(v,level,ilwork,1,iper,iBC,BC)
234                 u(i) = u(i)+amg_A_lhs(level)%p(k,1)*v(j)
238              u(i) = v(i)
483       subroutine ramg_dot_p(level,v,u,redun,norm)  argument
490       real(kind=8),intent(in),dimension(amg_nshg(level),redun) ::v,u  local
497          normt = normt + v(i,k)*u(i,k)
512       subroutine ramg_L2_norm(nshg,v,norm)  argument
515       real(kind=8),intent(in),dimension(nshg) :: v  local
520          norm = norm + v(i)*v(i)
525       subroutine ramg_L2_norm_p(level,v,vflow,norm)  argument
532       real(kind=8),intent(in),dimension(amg_nshg(level),vflow) :: v  local
539          normt = normt + v(i,k)*v(i,k)
1004       subroutine ramg_print_time(str,v)  argument
1011       real(kind=8) :: v,vave,vmax  local
1014           call MPI_AllReduce(v,vmax,1,
1016           call MPI_AllReduce(v,vave,1,
1020           vave = v
1021           vmax = v