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

Added C interface to psb_cmp_ctxt

Browse Source
This commit is contained in:
Cirdans-Home
2020-12-21 21:08:58 +01:00
parent 734041d90f
commit 411d2dcdf0
2 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_c_base.h
+1
View File
@@ -66,6 +66,7 @@ extern "C" {
void psb_c_barrier(psb_c_ctxt cctxt);
void psb_c_info(psb_c_ctxt cctxt, psb_i_t *iam, psb_i_t *np);
void psb_c_get_i_ctxt(psb_c_ctxt cctxt, psb_i_t *ictxt, psb_i_t *info);
bool psb_c_cmp_ctxt(psb_c_ctxt cctxt1, psb_c_ctxt cctxt2);
psb_d_t psb_c_wtime();
psb_i_t psb_c_get_errstatus();
cbind/base/psb_cpenv_mod.f90
+17
View File
@@ -78,6 +78,23 @@ contains
end subroutine
function psb_c_cmp_ctxt(cctxt1, cctxt2) result(res)
implicit none
type(psb_c_object_type), value :: cctxt1, cctxt2
logical(c_bool) :: res
logical :: equal
type(psb_ctxt_type), pointer :: ctxt1, ctxt2
ctxt1 => psb_c2f_ctxt(cctxt1)
ctxt2 => psb_c2f_ctxt(cctxt2)
equal = psb_cmp_ctxt(ctxt1, ctxt2)
res = equal
end
subroutine psb_c_exit_ctxt(cctxt) bind(c)
use psb_base_mod, only : psb_exit, psb_ctxt_type
type(psb_c_object_type), value :: cctxt