Fix info in %reinit

base/modules/serial/psb_c_base_vect_mod.F90

@@ -427,6 +427,7 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info =  0
     if (present(clear)) then
       clear_ = clear
     else
@@ -2728,6 +2729,7 @@ contains
     class(psb_c_base_multivect_type), intent(out)    :: x
     integer(psb_ipk_), intent(out)              :: info
 
+    info = 0
     if (allocated(x%v)) then 
       call x%sync()
       x%v(:,:) = czero

base/modules/serial/psb_d_base_vect_mod.F90

@@ -434,6 +434,7 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info =  0
     if (present(clear)) then
       clear_ = clear
     else
@@ -2907,6 +2908,7 @@ contains
     class(psb_d_base_multivect_type), intent(out)    :: x
     integer(psb_ipk_), intent(out)              :: info
 
+    info = 0
     if (allocated(x%v)) then 
       call x%sync()
       x%v(:,:) = dzero

base/modules/serial/psb_i_base_vect_mod.F90

@@ -360,6 +360,7 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info =  0
     if (present(clear)) then
       clear_ = clear
     else
@@ -1653,6 +1654,7 @@ contains
     class(psb_i_base_multivect_type), intent(out)    :: x
     integer(psb_ipk_), intent(out)              :: info
 
+    info = 0
     if (allocated(x%v)) then 
       call x%sync()
       x%v(:,:) = izero

base/modules/serial/psb_l_base_vect_mod.F90

@@ -361,6 +361,7 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info =  0
     if (present(clear)) then
       clear_ = clear
     else
@@ -1654,6 +1655,7 @@ contains
     class(psb_l_base_multivect_type), intent(out)    :: x
     integer(psb_ipk_), intent(out)              :: info
 
+    info = 0
     if (allocated(x%v)) then 
       call x%sync()
       x%v(:,:) = lzero

base/modules/serial/psb_s_base_vect_mod.F90

@@ -434,6 +434,7 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info =  0
     if (present(clear)) then
       clear_ = clear
     else
@@ -2907,6 +2908,7 @@ contains
     class(psb_s_base_multivect_type), intent(out)    :: x
     integer(psb_ipk_), intent(out)              :: info
 
+    info = 0
     if (allocated(x%v)) then 
       call x%sync()
       x%v(:,:) = szero

base/modules/serial/psb_z_base_vect_mod.F90

@@ -427,6 +427,7 @@ contains
     logical, intent(in), optional               :: clear
     logical :: clear_
 
+    info =  0
     if (present(clear)) then
       clear_ = clear
     else
@@ -2728,6 +2729,7 @@ contains
     class(psb_z_base_multivect_type), intent(out)    :: x
     integer(psb_ipk_), intent(out)              :: info
 
+    info = 0
     if (allocated(x%v)) then 
       call x%sync()
       x%v(:,:) = zzero