MPI_Aint rextent, rlb, rtrue_lb, rtrue_extent;
- size = smpi_comm_size(comm);
- rank = smpi_comm_rank(comm);
+ size = comm->size();
+ rank = comm->rank();
XBT_DEBUG(
"smpi_coll_tuned_gather_ompi_binomial rank %d", rank);
MPI_Aint lb;
int first_segment_size=0;
- size = smpi_comm_size(comm);
- rank = smpi_comm_rank(comm);
+ size = comm->size();
+ rank = comm->rank();
size_t dsize, block_size;
if (rank == root) {
MPI_Aint extent;
MPI_Aint lb;
- size = smpi_comm_size(comm);
- rank = smpi_comm_rank(comm);
+ size = comm->size();
+ rank = comm->rank();
/* Everyone but root sends data and returns. */
XBT_DEBUG(