C++ (Cpp) PMPI_Group_rank Beispiele

Beispiel #1

Datei: epk_mpiwrap_cg.c Projekt: linearregression/scalasca

/**
 * Measurement wrapper for MPI_Group_rank
 * @note Auto-generated by wrapgen from template: std.w
 * @note C interface
 * @note Introduced with MPI 1.0
 * @ingroup cg
 */
int MPI_Group_rank(MPI_Group group,
                   int*      rank)
{
  int return_val;

  if (IS_EVENT_GEN_ON_FOR(CG))
  {
    EVENT_GEN_OFF();
    esd_enter(epk_mpi_regid[EPK__MPI_GROUP_RANK]);

    return_val = PMPI_Group_rank(group, rank);

    esd_exit(epk_mpi_regid[EPK__MPI_GROUP_RANK]);
    EVENT_GEN_ON();
  }
  else
  {
    return_val = PMPI_Group_rank(group, rank);
  }

  return return_val;
}

Beispiel #2

Datei: group_rank_f.c Projekt: 00datman/ompi

void ompi_group_rank_f(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr)
{
  int c_ierr;
  ompi_group_t *c_group;
  OMPI_SINGLE_NAME_DECL(rank);

  /* Make the fortran to c representation conversion */
  c_group = PMPI_Group_f2c(*group);

  c_ierr = PMPI_Group_rank(c_group, OMPI_SINGLE_NAME_CONVERT(rank));
  if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

  if (MPI_SUCCESS == c_ierr) {
      OMPI_SINGLE_INT_2_FINT(rank);
  }
}

Beispiel #3

Datei: smpi_mpi.c Projekt: FlorianPO/simgrid

int MPI_Group_rank(MPI_Group group, int *rank)
{
  return PMPI_Group_rank(group, rank);
}