496       subroutine ramg_mls_calcPAv(level,u,v,colm,rowp,lhsK,lhsP,  argument
513       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u  local
522       call ramg_mls_sandw_post(u,aux2,level,colm,rowp,lhsK,lhsP,
563       subroutine ramg_mls_apply(u,v,r,level,colm,rowp,lhsK,lhsP,  argument
581       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u  local
598           call ramg_mls_apply_fwd(u,v,aux,level,colm,rowp,lhsK,lhsP,
601           call ramg_mls_apply_post(u,v,aux,level,colm,rowp,lhsK,lhsP,
605       u = v-1.1*u
610       subroutine ramg_mls_apply_fwd(u,v,r,level,colm,rowp,lhsK,lhsP,  argument
628       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u  local
639       u = cf*pAux
646          u = u+cf*res
651       subroutine ramg_mls_apply_post(u,v,r,level,colm,rowp,lhsK,lhsP,  argument
669       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u  local
687       u = smlsOm(level,1)*y+y1
691       subroutine ramg_mls_sandw_pre(u,v,level,colm,rowp,lhsK,lhsP,  argument
709       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u  local
716       u = v
720          call ramg_calcAv_g(level,res,u,colm,rowp,lhsK,lhsP,
722          u = u-mlsOm(level,i)*res
727       subroutine ramg_mls_sandw_post(u,v,level,colm,rowp,lhsK,lhsP,  argument
745       real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u  local
752       u = v
756          call ramg_calcAv_g(level,res,u,colm,rowp,lhsK,lhsP,
758          u = u-mlsOm(level,i)*res