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

Added missing cbind directive

Browse Source
This commit is contained in:
Cirdans-Home
2020-12-22 09:17:16 +01:00
parent 411d2dcdf0
commit fedfa46ef6
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_cpenv_mod.f90
+2 -2
View File
@@ -78,7 +78,7 @@ contains
end subroutine
function psb_c_cmp_ctxt(cctxt1, cctxt2) result(res)
function psb_c_cmp_ctxt(cctxt1, cctxt2) bind(c,name="psb_c_cmp_ctxt") result(res)
implicit none
type(psb_c_object_type), value :: cctxt1, cctxt2
logical(c_bool) :: res
@@ -93,7 +93,7 @@ contains
res = equal
end
end function
subroutine psb_c_exit_ctxt(cctxt) bind(c)
use psb_base_mod, only : psb_exit, psb_ctxt_type