107      &                         u,v,gcomm)
114       real(kind=8),intent(inout),dimension(gnshg) :: u  local
119       u = 0
123             u(i) = u(i)+glhs(k)*v(j)
137       subroutine ramg_calcAv_g(level,u,v,colm,rowp,lhsK,lhsP,  argument
154       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u  local
164       call ramg_PPEAp(u,v,colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)    
169       u = 0
176                 u(i) = u(i)+amg_A_lhs(level)%p(k,1)*v(j)
181       call ramg_commIn(u,level,ilwork,1,iper,iBC,BC)
199       subroutine ramg_calcAv_b(level,u,v,
212       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u  variable
225       u = 0
234                 u(i) = u(i)+amg_A_lhs(level)%p(k,1)*v(j)
238              u(i) = v(i)
242       call ramg_commIn(u,level,ilwork,1,iper,iBC,BC)
306       subroutine ramg_zeroOut(u,ilwork,BC,iBC,iper)  argument
311       real(kind=8),dimension(nshg),intent(inout)  :: u  local
332             u(isgbeg:isgend) = 0
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)