Default to psb_dupl_add_ in vector

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

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

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

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

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

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