Fix return value

3 months ago · 303edfedc7
parent 176596a17f
commit 303edfedc7
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
@ -427,6 +427,8 @@ contains
    logical, intent(in), optional               :: clear
    logical :: clear_
    info = 0
    if (present(clear)) then
      clear_ = clear
    else
--- 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