/** * Measurement wrapper for MPI_Comm_free_keyval * @note Auto-generated by wrapgen from template: std.w * @note C interface * @note Introduced with MPI 2.0 * @ingroup cg_ext */ int MPI_Comm_free_keyval(int* comm_keyval) { int return_val; if (IS_EVENT_GEN_ON_FOR(CG_EXT)) { EVENT_GEN_OFF(); esd_enter(epk_mpi_regid[EPK__MPI_COMM_FREE_KEYVAL]); return_val = PMPI_Comm_free_keyval(comm_keyval); esd_exit(epk_mpi_regid[EPK__MPI_COMM_FREE_KEYVAL]); EVENT_GEN_ON(); } else { return_val = PMPI_Comm_free_keyval(comm_keyval); } return return_val; }
void ompi_comm_free_keyval_f(MPI_Fint *comm_keyval, MPI_Fint *ierr) { int c_ierr; OMPI_SINGLE_NAME_DECL(comm_keyval); OMPI_SINGLE_FINT_2_INT(comm_keyval); c_ierr = PMPI_Comm_free_keyval(OMPI_SINGLE_NAME_CONVERT(comm_keyval)); if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr); if (MPI_SUCCESS == c_ierr) { OMPI_SINGLE_INT_2_FINT(comm_keyval); } }
int MPI_Comm_free_keyval(int* keyval) { return PMPI_Comm_free_keyval( keyval); }