*/
#include "colls_private.h"
-#include "src/smpi/smpi_group.hpp"
#define MPIR_Gather_MV2_Direct smpi_coll_tuned_gather_ompi_basic_linear
#define MPIR_Gather_MV2_two_level_Direct smpi_coll_tuned_gather_ompi_basic_linear
}
if ((local_rank == 0) && (root != rank)
&& (leader_of_root == rank)) {
- smpi_mpi_send(leader_gather_buf,
+ Request::send(leader_gather_buf,
nbytes * comm_size, MPI_BYTE,
root, COLL_TAG_GATHER, comm);
}
if (rank == root && local_rank != 0) {
/* The root of the gather operation is not the node leader. Receive
y* data from the node leader */
- smpi_mpi_recv(recvbuf, recvcnt * comm_size, recvtype,
+ Request::recv(recvbuf, recvcnt * comm_size, recvtype,
leader_of_root, COLL_TAG_GATHER, comm,
&status);
}