Lines Matching refs:v
496 subroutine ramg_mls_calcPAv(level,u,v,colm,rowp,lhsK,lhsP, argument
512 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v local
518 call ramg_calcAv_g(level,aux,v,colm,rowp,lhsK,lhsP,
563 subroutine ramg_mls_apply(u,v,r,level,colm,rowp,lhsK,lhsP, argument
580 real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r local
592 call ramg_calcAv_g(level,aux,v,colm,rowp,lhsK,lhsP,
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
627 real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r local
651 subroutine ramg_mls_apply_post(u,v,r,level,colm,rowp,lhsK,lhsP, argument
668 real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r local
676 call ramg_mls_apply_fwd(y1,v,r,level,colm,rowp,lhsK,lhsP,
691 subroutine ramg_mls_sandw_pre(u,v,level,colm,rowp,lhsK,lhsP, argument
708 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v local
716 u = v
727 subroutine ramg_mls_sandw_post(u,v,level,colm,rowp,lhsK,lhsP, argument
744 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v local
752 u = v