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

Fixes for memory leaks in the C interface

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-02 15:44:12 +01:00
parent 3e6fdd39e4
commit 81fc75a091
11 changed files with 42 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/prec/psb_cprec_cbind_mod.f90
+2 -2
View File
@@ -111,9 +111,9 @@ contains
end if
call psb_precfree(precp, info)
res = min(info,0)
deallocate(precp,stat=info)
ph%item = c_null_ptr
end function psb_c_cprecfree
cbind/prec/psb_dprec_cbind_mod.f90
+2 -2
View File
@@ -111,9 +111,9 @@ contains
end if
call psb_precfree(precp, info)
res = min(info,0)
deallocate(precp,stat=info)
ph%item = c_null_ptr
end function psb_c_dprecfree
cbind/prec/psb_sprec_cbind_mod.f90
+2 -2
View File
@@ -111,9 +111,9 @@ contains
end if
call psb_precfree(precp, info)
res = min(info,0)
deallocate(precp,stat=info)
ph%item = c_null_ptr
end function psb_c_sprecfree
cbind/prec/psb_zprec_cbind_mod.f90
+2 -2
View File
@@ -111,9 +111,9 @@ contains
end if
call psb_precfree(precp, info)
res = min(info,0)
deallocate(precp,stat=info)
ph%item = c_null_ptr
end function psb_c_zprecfree