diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 1593c35e..b0503e4e 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -216,7 +216,7 @@ module psb_const_mod integer(psb_ipk_), parameter :: psb_dupl_ovwrt_ = 0 integer(psb_ipk_), parameter :: psb_dupl_add_ = 1 integer(psb_ipk_), parameter :: psb_dupl_err_ = 2 - integer(psb_ipk_), parameter :: psb_dupl_def_ = psb_dupl_ovwrt_ + integer(psb_ipk_), parameter :: psb_dupl_def_ = psb_dupl_add_ ! Matrix update mode integer(psb_ipk_), parameter :: psb_upd_srch_ = 98764 integer(psb_ipk_), parameter :: psb_upd_perm_ = 98765