fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 12:22:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix info in %reinit

Browse Source
This commit is contained in:
sfilippone
2026-03-20 13:55:33 +01:00
parent ca458870b1
commit c990dc6840
6 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_base_vect_mod.F90
+2
View File
@@ -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
+2
View File
@@ -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
+2
View File
@@ -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
+2
View File
@@ -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
+2
View File
@@ -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
+2
View File
@@ -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