From d6c232c676847b4b67af17c9e407174a79030a6c Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Thu, 31 Mar 2022 16:14:26 +0200
Subject: [PATCH] Default to psb_dupl_add_ in vector

---
 base/modules/serial/psb_c_vect_mod.F90 | 1 +
 base/modules/serial/psb_d_vect_mod.F90 | 1 +
 base/modules/serial/psb_i_vect_mod.F90 | 1 +
 base/modules/serial/psb_l_vect_mod.F90 | 1 +
 base/modules/serial/psb_s_vect_mod.F90 | 1 +
 base/modules/serial/psb_z_vect_mod.F90 | 1 +
 6 files changed, 6 insertions(+)

diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90
index 2166cf13..6cb54e60 100644
--- a/base/modules/serial/psb_c_vect_mod.F90
+++ b/base/modules/serial/psb_c_vect_mod.F90
@@ -46,6 +46,7 @@ module psb_c_vect_mod
     class(psb_c_base_vect_type), allocatable :: v
     integer(psb_ipk_) :: nrmv = 0
     integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
     complex(psb_spk_), allocatable :: rmtv(:)
     integer(psb_lpk_), allocatable :: rmidx(:)
   contains
diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90
index b419ae6a..ec96a8e1 100644
--- a/base/modules/serial/psb_d_vect_mod.F90
+++ b/base/modules/serial/psb_d_vect_mod.F90
@@ -46,6 +46,7 @@ module psb_d_vect_mod
     class(psb_d_base_vect_type), allocatable :: v
     integer(psb_ipk_) :: nrmv = 0
     integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
     real(psb_dpk_), allocatable :: rmtv(:)
     integer(psb_lpk_), allocatable :: rmidx(:)
   contains
diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90
index 6cebf62a..b3700203 100644
--- a/base/modules/serial/psb_i_vect_mod.F90
+++ b/base/modules/serial/psb_i_vect_mod.F90
@@ -45,6 +45,7 @@ module psb_i_vect_mod
     class(psb_i_base_vect_type), allocatable :: v
     integer(psb_ipk_) :: nrmv = 0
     integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
     integer(psb_ipk_), allocatable :: rmtv(:)
     integer(psb_lpk_), allocatable :: rmidx(:)
   contains
diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90
index df5691f4..03436d48 100644
--- a/base/modules/serial/psb_l_vect_mod.F90
+++ b/base/modules/serial/psb_l_vect_mod.F90
@@ -46,6 +46,7 @@ module psb_l_vect_mod
     class(psb_l_base_vect_type), allocatable :: v
     integer(psb_ipk_) :: nrmv = 0
     integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
     integer(psb_lpk_), allocatable :: rmtv(:)
     integer(psb_lpk_), allocatable :: rmidx(:)
   contains
diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90
index 52380007..a62d3234 100644
--- a/base/modules/serial/psb_s_vect_mod.F90
+++ b/base/modules/serial/psb_s_vect_mod.F90
@@ -46,6 +46,7 @@ module psb_s_vect_mod
     class(psb_s_base_vect_type), allocatable :: v
     integer(psb_ipk_) :: nrmv = 0
     integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
     real(psb_spk_), allocatable :: rmtv(:)
     integer(psb_lpk_), allocatable :: rmidx(:)
   contains
diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90
index bd02ed62..2789e58b 100644
--- a/base/modules/serial/psb_z_vect_mod.F90
+++ b/base/modules/serial/psb_z_vect_mod.F90
@@ -46,6 +46,7 @@ module psb_z_vect_mod
     class(psb_z_base_vect_type), allocatable :: v
     integer(psb_ipk_) :: nrmv = 0
     integer(psb_ipk_) :: remote_build=psb_matbld_noremote_
+    integer(psb_ipk_) :: dupl = psb_dupl_add_
     complex(psb_dpk_), allocatable :: rmtv(:)
     integer(psb_lpk_), allocatable :: rmidx(:)
   contains