483       subroutine ramg_dot_p(level,v,u,redun,norm)  argument
491       real(kind=8),intent(inout)    :: norm  local
501       call MPI_AllReduce(normt,norm,1,MPI_DOUBLE_PRECISION,MPI_SUM,
504           norm=normt
512       subroutine ramg_L2_norm(nshg,v,norm)  argument
516       real(kind=8),intent(inout)    :: norm  local
518       norm = 0
520          norm = norm + v(i)*v(i)
522       norm = sqrt(norm)
525       subroutine ramg_L2_norm_p(level,v,vflow,norm)  argument
533       real(kind=8),intent(inout)    :: norm  local
543       call MPI_AllReduce(normt,norm,1,MPI_DOUBLE_PRECISION,MPI_SUM,
546           norm = normt
548       norm = sqrt(norm)