Merge pull request #41 from fdrmrc/fix_info_reinit

Fix status value in reinit function
2 months ago · 88afb55498
parent eadf81547a 303edfedc7
commit 88afb55498
4 changed files with 8 additions and 0 deletions
--- 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
--- 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
--- 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
--- 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