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.

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')