void ompi_op_create_f(ompi_op_fortran_handler_fn_t* function, ompi_fortran_logical_t *commute,
MPI_Fint *op, MPI_Fint *ierr)
{
int c_ierr;
MPI_Op c_op;
/* See the note in src/mpi/fortran/mpif-h/prototypes_mpi.h about
the use of (void*) for function pointers in this function */
c_ierr = PMPI_Op_create((MPI_User_function *) function,
OMPI_LOGICAL_2_INT(*commute),
&c_op);
if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
if (MPI_SUCCESS == c_ierr) {
c_op->o_flags |= OMPI_OP_FLAGS_FORTRAN_FUNC;
*op = PMPI_Op_c2f(c_op);
}
}
/*==========================================================================*/
int MPI_Op_create( MPI_User_function* function, int commute, MPI_Op* op)
{
_MPI_COVERAGE();
return PMPI_Op_create(function, commute, op);
}
int MPI_Op_create(MPI_User_function * function, int commute, MPI_Op * op)
{
return PMPI_Op_create(function, commute, op);
}
