C++ (Cpp) PMPI_Dist_graph_neighbors_count示例

示例#1

文件： epk_mpiwrap_topo.c 项目： linearregression/scalasca

/**
 * Measurement wrapper for MPI_Dist_graph_neighbors_count
 * @note Auto-generated by wrapgen from template: std.w
 * @note C interface
 * @note Introduced with MPI 2.2
 * @ingroup topo
 */
int MPI_Dist_graph_neighbors_count(MPI_Comm comm,
                                   int*     indegree,
                                   int*     outdegree,
                                   int*     weighted)
{
  int return_val;

  if (IS_EVENT_GEN_ON_FOR(TOPO))
  {
    EVENT_GEN_OFF();
    esd_enter(epk_mpi_regid[EPK__MPI_DIST_GRAPH_NEIGHBORS_COUNT]);

    return_val = PMPI_Dist_graph_neighbors_count(comm,
                                                 indegree,
                                                 outdegree,
                                                 weighted);

    esd_exit(epk_mpi_regid[EPK__MPI_DIST_GRAPH_NEIGHBORS_COUNT]);
    EVENT_GEN_ON();
  }
  else
  {
    return_val = PMPI_Dist_graph_neighbors_count(comm,
                                                 indegree,
                                                 outdegree,
                                                 weighted);
  }

  return return_val;
}

示例#2

文件： dist_graph_neighbors_count_f.c 项目： 00datman/ompi

void ompi_dist_graph_neighbors_count_f(MPI_Fint *comm, MPI_Fint *inneighbors,
                                       MPI_Fint *outneighbors, ompi_fortran_logical_t *weighted,
                                       MPI_Fint *ierr)
{
    MPI_Comm c_comm;
    OMPI_SINGLE_NAME_DECL(inneighbors);
    OMPI_SINGLE_NAME_DECL(outneighbors);
    OMPI_LOGICAL_NAME_DECL(weighted);

    c_comm = PMPI_Comm_f2c(*comm);

    *ierr = OMPI_INT_2_FINT(PMPI_Dist_graph_neighbors_count(c_comm,
                                                            OMPI_SINGLE_NAME_CONVERT(inneighbors),
                                                            OMPI_SINGLE_NAME_CONVERT(outneighbors),
                                                            OMPI_LOGICAL_SINGLE_NAME_CONVERT(weighted)));
    OMPI_SINGLE_INT_2_LOGICAL(weighted);
    if (OMPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
          OMPI_SINGLE_INT_2_FINT(inneighbors);
          OMPI_SINGLE_INT_2_FINT(outneighbors);
    }
}