3 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(smpi_comm, smpi,
4 "Logging specific to SMPI (comm)");
6 typedef struct s_smpi_mpi_communicator {
8 } s_smpi_mpi_communicator_t;
10 MPI_Comm smpi_comm_new(MPI_Group group) {
13 comm = xbt_new(s_smpi_mpi_communicator_t, 1);
15 smpi_group_use(comm->group);
19 void smpi_comm_destroy(MPI_Comm comm) {
20 smpi_group_destroy(comm->group);
24 MPI_Group smpi_comm_group(MPI_Comm comm) {
28 int smpi_comm_size(MPI_Comm comm) {
29 return smpi_group_size(smpi_comm_group(comm));
32 int smpi_comm_rank(MPI_Comm comm) {
33 return smpi_group_rank(smpi_comm_group(comm), smpi_process_index());