/**
 * Measurement wrapper for MPI_Graph_create
 * @note Auto-generated by wrapgen from template: comm_mgnt.w
 * @note C interface
 * @note Introduced with MPI 1.0
 * @ingroup topo
 */
int MPI_Graph_create(MPI_Comm  comm_old,
                     int       nnodes,
                     int*      index,
                     int*      edges,
                     int       reorder,
                     MPI_Comm* newcomm)
{
  const int event_gen_active = IS_EVENT_GEN_ON_FOR(TOPO);
  int       return_val;

  if (event_gen_active)
  {
    EVENT_GEN_OFF();
    esd_enter(epk_mpi_regid[EPK__MPI_GRAPH_CREATE]);
  }

  return_val = PMPI_Graph_create(comm_old,
                                 nnodes,
                                 index,
                                 edges,
                                 reorder,
                                 newcomm);
  if (*newcomm != MPI_COMM_NULL)
  {
    epk_comm_create(*newcomm);
  }

  if (event_gen_active)
  {
    esd_exit(epk_mpi_regid[EPK__MPI_GRAPH_CREATE]);
    EVENT_GEN_ON();
  }

  return return_val;
}
Beispiel #2
0
int MPI_Graph_create(MPI_Comm comm_old, int nnodes, int* index, int* edges, int reorder, MPI_Comm* comm_graph) {
  return PMPI_Graph_create(comm_old, nnodes, index, edges, reorder, comm_graph);
}