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

Fix bug in psb_check_error()

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 17:34:14 +01:00
parent 69b1678f6b
commit 8bc575d319
1 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_cpenv_mod.f90
+1 -7
View File
@@ -140,13 +140,7 @@ contains
type(psb_ctxt_type), pointer :: ctxt
integer :: info
if (c_associated(cctxt%item)) then
call c_f_pointer(cctxt%item,ctxt)
deallocate(ctxt,stat=info)
if (info /= 0) return
end if
allocate(ctxt,stat=info)
if (info /= 0) return
ctxt => psb_c2f_ctxt(cctxt)
call psb_check_error(ctxt,abrt=.true.)
end subroutine psb_c_check_error