mld2p4-2:

mlprec/impl/level/mld_c_base_onelev_build.f90 mlprec/impl/level/mld_d_base_onelev_build.f90 mlprec/impl/level/mld_s_base_onelev_build.f90 mlprec/impl/level/mld_z_base_onelev_build.f90 mlprec/impl/mld_cmlprec_aply.f90 mlprec/impl/mld_dmlprec_aply.f90 mlprec/impl/mld_smlprec_aply.f90 mlprec/impl/mld_zmlprec_aply.f90 mlprec/mld_base_prec_type.F90 First major tep in restructuring MLPREC_APLY.
9 years ago · 436f3e49f7
parent a9b9ea958d
commit 436f3e49f7
5 changed files with 2684 additions and 2717 deletions
--- a/mlprec/impl/mld_cmlprec_aply.f90
+++ b/mlprec/impl/mld_cmlprec_aply.f90
--- a/mlprec/impl/mld_dmlprec_aply.f90
+++ b/mlprec/impl/mld_dmlprec_aply.f90
--- a/mlprec/impl/mld_smlprec_aply.f90
+++ b/mlprec/impl/mld_smlprec_aply.f90
--- a/mlprec/impl/mld_zmlprec_aply.f90
+++ b/mlprec/impl/mld_zmlprec_aply.f90
--- a/mlprec/mld_base_prec_type.F90
+++ b/mlprec/mld_base_prec_type.F90
@ -227,6 +227,7 @@ module mld_base_prec_type
  integer(psb_ipk_), parameter :: mld_kcycle_ml_    = 5
  integer(psb_ipk_), parameter :: mld_kcyclesym_ml_ = 6
  integer(psb_ipk_), parameter :: mld_new_ml_prec_  = 7
+  integer(psb_ipk_), parameter :: mld_mult_dev_ml_  = 7
  integer(psb_ipk_), parameter :: mld_max_ml_type_  = 8
  !
  ! Legal values for entry: mld_smoother_pos_
@ -424,6 +425,8 @@ contains
      val = mld_diag_scale_
    case('ADD')
      val = mld_add_ml_
+    case('MULT_DEV')
+      val = mld_mult_dev_ml_
    case('MULT')
      val = mld_mult_ml_
    case('VCYCLE')