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

Fix uninitialized info

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 13:57:21 +01:00
parent 76900aedff
commit 4f1b568b99
4 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_c_tools_cbind_mod.F90
+1
View File
@@ -116,6 +116,7 @@ contains
integer(psb_c_ipk_) :: ixb, info
res = -1
info = 0
if (c_associated(cdh%item)) then
call c_f_pointer(cdh%item,descp)
else
cbind/base/psb_d_tools_cbind_mod.F90
+1
View File
@@ -116,6 +116,7 @@ contains
integer(psb_c_ipk_) :: ixb, info
res = -1
info = 0
if (c_associated(cdh%item)) then
call c_f_pointer(cdh%item,descp)
else
cbind/base/psb_s_tools_cbind_mod.F90
+1
View File
@@ -116,6 +116,7 @@ contains
integer(psb_c_ipk_) :: ixb, info
res = -1
info = 0
if (c_associated(cdh%item)) then
call c_f_pointer(cdh%item,descp)
else
cbind/base/psb_z_tools_cbind_mod.F90
+1
View File
@@ -116,6 +116,7 @@ contains
integer(psb_c_ipk_) :: ixb, info
res = -1
info = 0
if (c_associated(cdh%item)) then
call c_f_pointer(cdh%item,descp)
else