diff --git a/base/modules/serial/psb_c_base_vect_mod.F90 b/base/modules/serial/psb_c_base_vect_mod.F90
index 3fc0b87b..2ac4c414 100644
--- a/base/modules/serial/psb_c_base_vect_mod.F90
+++ b/base/modules/serial/psb_c_base_vect_mod.F90
@@ -426,6 +426,8 @@ contains
     integer(psb_ipk_), intent(out)              :: info
     logical, intent(in), optional               :: clear
     logical :: clear_
+  
+    info = 0
 
     if (present(clear)) then
       clear_ = clear
diff --git a/base/modules/serial/psb_d_base_vect_mod.F90 b/base/modules/serial/psb_d_base_vect_mod.F90
index 22e57cd8..e3deaa60 100644
--- a/base/modules/serial/psb_d_base_vect_mod.F90
+++ b/base/modules/serial/psb_d_base_vect_mod.F90
@@ -434,6 +434,8 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info = 0
+    
     if (present(clear)) then
       clear_ = clear
     else
diff --git a/base/modules/serial/psb_s_base_vect_mod.F90 b/base/modules/serial/psb_s_base_vect_mod.F90
index b448d54e..7311225f 100644
--- a/base/modules/serial/psb_s_base_vect_mod.F90
+++ b/base/modules/serial/psb_s_base_vect_mod.F90
@@ -434,6 +434,8 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info = 0
+    
     if (present(clear)) then
       clear_ = clear
     else
diff --git a/base/modules/serial/psb_z_base_vect_mod.F90 b/base/modules/serial/psb_z_base_vect_mod.F90
index 79d45a9c..ba5b996d 100644
--- a/base/modules/serial/psb_z_base_vect_mod.F90
+++ b/base/modules/serial/psb_z_base_vect_mod.F90
@@ -427,6 +427,8 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info = 0
+
     if (present(clear)) then
       clear_ = clear
     else