Exemplo n.º 1
0
/**
 * Measurement wrapper for MPI_Group_range_excl
 * @note Auto-generated by wrapgen from template: group_mgnt.w
 * @note C interface
 * @note Introduced with MPI 1.0
 * @ingroup cg
 */
int MPI_Group_range_excl(MPI_Group  group,
                         int        n,
                         int        ranges[][3],
                         MPI_Group* newgroup)
{
  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_GROUP_RANGE_EXCL]);
  }

  return_val = PMPI_Group_range_excl(group, n, ranges, newgroup);
  if (*newgroup != MPI_GROUP_NULL)
  {
    epk_group_create(*newgroup);
  }

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

  return return_val;
}
Exemplo n.º 2
0
int MPI_Group_range_excl(MPI_Group group, int n, int ranges[][3],
                         MPI_Group * newgroup)
{
  return PMPI_Group_range_excl(group, n, ranges, newgroup);
}