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

Fix return value

Browse Source
This commit is contained in:
Marco Feder
2026-03-18 10:48:38 +01:00
parent 176596a17f
commit 303edfedc7
4 changed files with 8 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
@@ -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
base/modules/serial/psb_d_base_vect_mod.F90
+2
View File
@@ -434,6 +434,8 @@ contains
logical, intent(in), optional :: clear
logical :: clear_
info = 0
if (present(clear)) then
clear_ = clear
else
base/modules/serial/psb_s_base_vect_mod.F90
+2
View File
@@ -434,6 +434,8 @@ contains
logical, intent(in), optional :: clear
logical :: clear_
info = 0
if (present(clear)) then
clear_ = clear
else
base/modules/serial/psb_z_base_vect_mod.F90
+2
View File
@@ -427,6 +427,8 @@ contains
logical, intent(in), optional :: clear
logical :: clear_
info = 0
if (present(clear)) then
clear_ = clear
else