/** * Measurement wrapper for MPI_Intercomm_create * @note Auto-generated by wrapgen from template: comm_mgnt.w * @note C interface * @note Introduced with MPI 1.0 * @ingroup cg */ int MPI_Intercomm_create(MPI_Comm local_comm, int local_leader, MPI_Comm peer_comm, int remote_leader, int tag, MPI_Comm* newcomm) { const int event_gen_active = IS_EVENT_GEN_ON_FOR(CG); int return_val; if (event_gen_active) { EVENT_GEN_OFF(); esd_enter(epk_mpi_regid[EPK__MPI_INTERCOMM_CREATE]); } return_val = PMPI_Intercomm_create(local_comm, local_leader, peer_comm, remote_leader, tag, newcomm); if (*newcomm != MPI_COMM_NULL) { epk_comm_create(*newcomm); } if (event_gen_active) { esd_exit(epk_mpi_regid[EPK__MPI_INTERCOMM_CREATE]); EVENT_GEN_ON(); } return return_val; }
int MPI_Intercomm_create(MPI_Comm local_comm, int local_leader, MPI_Comm peer_comm, int remote_leader, int tag, MPI_Comm* comm_out) { return PMPI_Intercomm_create(local_comm, local_leader, peer_comm, remote_leader, tag, comm_out); }