diff --git a/base/modules/serial/psb_c_base_vect_mod.F90 b/base/modules/serial/psb_c_base_vect_mod.F90
index a30e2547..3fc0b87b 100644
--- a/base/modules/serial/psb_c_base_vect_mod.F90
+++ b/base/modules/serial/psb_c_base_vect_mod.F90
@@ -422,7 +422,7 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    class(psb_c_base_vect_type), intent(out)    :: x
+    class(psb_c_base_vect_type), intent(inout)    :: x
     integer(psb_ipk_), intent(out)              :: info
     logical, intent(in), optional               :: clear
     logical :: clear_
diff --git a/base/modules/serial/psb_d_base_vect_mod.F90 b/base/modules/serial/psb_d_base_vect_mod.F90
index 1e6f4575..22e57cd8 100644
--- a/base/modules/serial/psb_d_base_vect_mod.F90
+++ b/base/modules/serial/psb_d_base_vect_mod.F90
@@ -429,7 +429,7 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    class(psb_d_base_vect_type), intent(out)    :: x
+    class(psb_d_base_vect_type), intent(inout)    :: x
     integer(psb_ipk_), intent(out)              :: info
     logical, intent(in), optional               :: clear
     logical :: clear_
diff --git a/base/modules/serial/psb_i_base_vect_mod.F90 b/base/modules/serial/psb_i_base_vect_mod.F90
index 21413168..e4e19a9d 100644
--- a/base/modules/serial/psb_i_base_vect_mod.F90
+++ b/base/modules/serial/psb_i_base_vect_mod.F90
@@ -355,7 +355,7 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    class(psb_i_base_vect_type), intent(out)    :: x
+    class(psb_i_base_vect_type), intent(inout)    :: x
     integer(psb_ipk_), intent(out)              :: info
     logical, intent(in), optional               :: clear
     logical :: clear_
diff --git a/base/modules/serial/psb_l_base_vect_mod.F90 b/base/modules/serial/psb_l_base_vect_mod.F90
index 874c097c..91ed2968 100644
--- a/base/modules/serial/psb_l_base_vect_mod.F90
+++ b/base/modules/serial/psb_l_base_vect_mod.F90
@@ -356,7 +356,7 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    class(psb_l_base_vect_type), intent(out)    :: x
+    class(psb_l_base_vect_type), intent(inout)    :: x
     integer(psb_ipk_), intent(out)              :: info
     logical, intent(in), optional               :: clear
     logical :: clear_
diff --git a/base/modules/serial/psb_s_base_vect_mod.F90 b/base/modules/serial/psb_s_base_vect_mod.F90
index ef35fc8a..b448d54e 100644
--- a/base/modules/serial/psb_s_base_vect_mod.F90
+++ b/base/modules/serial/psb_s_base_vect_mod.F90
@@ -429,7 +429,7 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    class(psb_s_base_vect_type), intent(out)    :: x
+    class(psb_s_base_vect_type), intent(inout)    :: x
     integer(psb_ipk_), intent(out)              :: info
     logical, intent(in), optional               :: clear
     logical :: clear_
diff --git a/base/modules/serial/psb_z_base_vect_mod.F90 b/base/modules/serial/psb_z_base_vect_mod.F90
index 14197408..79d45a9c 100644
--- a/base/modules/serial/psb_z_base_vect_mod.F90
+++ b/base/modules/serial/psb_z_base_vect_mod.F90
@@ -422,7 +422,7 @@ contains
     use psi_serial_mod
     use psb_realloc_mod
     implicit none
-    class(psb_z_base_vect_type), intent(out)    :: x
+    class(psb_z_base_vect_type), intent(inout)    :: x
     integer(psb_ipk_), intent(out)              :: info
     logical, intent(in), optional               :: clear
     logical :: clear_