Ejemplo n.º 1
0
/**
 * Measurement wrapper for MPI_Group_f2c
 * @note Auto-generated by wrapgen from template: std.w
 * @note C interface
 * @note Introduced with MPI 2.0
 * @ingroup cg_misc
 */
MPI_Group MPI_Group_f2c(MPI_Fint group)
{
  MPI_Group return_val;

  if (IS_EVENT_GEN_ON_FOR(CG_MISC))
  {
    EVENT_GEN_OFF();
    esd_enter(epk_mpi_regid[EPK__MPI_GROUP_F2C]);

    return_val = PMPI_Group_f2c(group);

    esd_exit(epk_mpi_regid[EPK__MPI_GROUP_F2C]);
    EVENT_GEN_ON();
  }
  else
  {
    return_val = PMPI_Group_f2c(group);
  }

  return return_val;
}
Ejemplo n.º 2
0
void ompi_win_post_f(MPI_Fint *group, MPI_Fint *assert,
                     MPI_Fint *win, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_Win c_win = PMPI_Win_f2c(*win);
    MPI_Group c_grp = PMPI_Group_f2c(*group);

    c_ierr = PMPI_Win_post(c_grp,
                           OMPI_FINT_2_INT(*assert),
                           c_win);
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
}
Ejemplo n.º 3
0
void ompi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr)
{
    int c_ierr;
    MPI_Comm c_newcomm;
    MPI_Comm c_comm = PMPI_Comm_f2c (*comm);
    MPI_Group c_group = PMPI_Group_f2c(*group);

    c_ierr = PMPI_Comm_create(c_comm, c_group, &c_newcomm);
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    if (MPI_SUCCESS == c_ierr) {
        *newcomm = PMPI_Comm_c2f (c_newcomm);
    }
}
Ejemplo n.º 4
0
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);
  }
}
Ejemplo n.º 5
0
void ompi_group_excl_f(MPI_Fint *group, MPI_Fint *n,
                       MPI_Fint *ranks, MPI_Fint *newgroup,
                       MPI_Fint *ierr)
{
    int c_ierr;
    ompi_group_t *c_group, *c_newgroup;
    OMPI_ARRAY_NAME_DECL(ranks);

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

    OMPI_ARRAY_FINT_2_INT(ranks, *n);
    c_ierr = PMPI_Group_excl(c_group,
                             OMPI_FINT_2_INT(*n),
                             OMPI_ARRAY_NAME_CONVERT(ranks),
                             &c_newgroup);
    if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);

    /* translate the results from c to fortran */
    if (MPI_SUCCESS == c_ierr) {
        *newgroup = c_newgroup->grp_f_to_c_index;
    }
}
Ejemplo n.º 6
0
MPI_Group MPI_Group_f2c(MPI_Fint group){
  return PMPI_Group_f2c( group);
}