/** * Measurement wrapper for MPI_Comm_connect * @note Auto-generated by wrapgen from template: comm_mgnt.w * @note C interface * @note Introduced with MPI 2.0 * @ingroup spawn */ int MPI_Comm_connect(char* port_name, MPI_Info info, int root, MPI_Comm comm, MPI_Comm* newcomm) { const int event_gen_active = IS_EVENT_GEN_ON_FOR(SPAWN); int return_val; if (event_gen_active) { EVENT_GEN_OFF(); esd_enter(epk_mpi_regid[EPK__MPI_COMM_CONNECT]); } return_val = PMPI_Comm_connect(port_name, info, root, comm, newcomm); if (*newcomm != MPI_COMM_NULL) { epk_comm_create(*newcomm); } if (event_gen_active) { esd_exit(epk_mpi_regid[EPK__MPI_COMM_CONNECT]); EVENT_GEN_ON(); } return return_val; }
int MPI_Comm_connect(char *portname, MPI_Info info, int root, MPI_Comm comm, MPI_Comm *newcomm) { int g2g = 1; char call[COLLCHK_SM_STRLEN]; sprintf(call, "COMM_CONNECT"); /* Check if init has been called */ g2g = CollChk_is_init(); if(g2g) { /* check for call consistancy */ CollChk_same_call(comm, call); /* check for root consistancy */ CollChk_same_root(comm, root, call); /* make the call */ return PMPI_Comm_connect(portname, info, root, comm, newcomm); } else { /* init not called */ return CollChk_err_han("MPI_Init() has not been called!", COLLCHK_ERR_NOT_INIT, call, comm); } }
int MPI_Comm_connect( char *port_name, MPI_Info info, int root, MPI_Comm comm, MPI_Comm *newcomm){ return PMPI_Comm_connect( port_name, info, root, comm, newcomm); }