Fix info in %reinit

2 months ago · c990dc6840
parent ca458870b1
commit c990dc6840
6 changed files with 12 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,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
--- a/base/modules/serial/psb_d_base_vect_mod.F90
+++ b/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
--- a/base/modules/serial/psb_i_base_vect_mod.F90
+++ b/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
--- a/base/modules/serial/psb_l_base_vect_mod.F90
+++ b/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
--- a/base/modules/serial/psb_s_base_vect_mod.F90
+++ b/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
--- a/base/modules/serial/psb_z_base_vect_mod.F90
+++ b/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