|
|
@ -222,7 +222,8 @@ subroutine mld_dmlprec_aply(alpha,baseprecv,x,beta,y,desc_data,trans,work,info)
|
|
|
|
! Multiplicative multilevel (multiplicative among the levels, additive inside
|
|
|
|
! Multiplicative multilevel (multiplicative among the levels, additive inside
|
|
|
|
! each level)
|
|
|
|
! each level)
|
|
|
|
!
|
|
|
|
!
|
|
|
|
! Pre/post-smoothing versions
|
|
|
|
! Pre/post-smoothing versions.
|
|
|
|
|
|
|
|
! Note that transpose switches pre <-> post.
|
|
|
|
!
|
|
|
|
!
|
|
|
|
|
|
|
|
|
|
|
|
select case(baseprecv(2)%iprcparm(mld_smooth_pos_))
|
|
|
|
select case(baseprecv(2)%iprcparm(mld_smooth_pos_))
|
|
|
|