From 8695f9bcdd94b064ed171b69ce2a4ed99c006158 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 17 Jun 2019 08:45:08 +0100 Subject: [PATCH] Make ADD default action for replicated entries. --- base/modules/psb_const_mod.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 50e90da2..92d0a5ac 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -154,10 +154,10 @@ module psb_const_mod ! Duplicate coefficients handling ! These are usually set while calling spcnv as one of its ! optional arugments. - integer(psb_ipk_), parameter :: psb_dupl_ovwrt_ = 0 - integer(psb_ipk_), parameter :: psb_dupl_add_ = 1 + integer(psb_ipk_), parameter :: psb_dupl_add_ = 0 + integer(psb_ipk_), parameter :: psb_dupl_ovwrt_ = 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