Fix intent on base_vect%reinit

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_

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_

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_

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_

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_

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_