/** * 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; }
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); }
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); } }
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); } }
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; } }
MPI_Group MPI_Group_f2c(MPI_Fint group){ return PMPI_Group_f2c( group); }