48#include "fc_feature_defs.inc"
50 USE mpi, orig_mpi_address_kind => mpi_address_kind
51 use,
INTRINSIC :: iso_c_binding, only: c_int, c_long, c_short, c_long_long
54 INTEGER,
PARAMETER :: xt_mpi_fint_kind = xt_mpi_fint_fc_kind
55 INTEGER,
PARAMETER :: mpi_address_kind = xt_mpi_aint_kind
58 bind(c, name=
'xt_mpi_comm_mark_exclusive_f2c')
59 IMPORT :: xt_mpi_fint_kind
60 INTEGER(xt_mpi_fint_kind),
INTENT(inout) :: comm
void xt_mpi_comm_mark_exclusive(MPI_Comm comm)