src/smpi/colls/allgather-GB.c

   1 #include "colls_private.h"
   2
   3 // Allgather - gather/bcast algorithm
   4 int smpi_coll_tuned_allgather_GB(void *send_buff, int send_count,
   5                                  MPI_Datatype send_type, void *recv_buff,
   6                                  int recv_count, MPI_Datatype recv_type,
   7                                  MPI_Comm comm)
   8 {
   9   int num_procs;
  10   num_procs = smpi_comm_size(comm);
  11   smpi_mpi_gather(send_buff, send_count, send_type, recv_buff, recv_count, recv_type,
  12              0, comm);
  13   mpi_coll_bcast_fun(recv_buff, (recv_count * num_procs), recv_type, 0, comm);
  14
  15   return MPI_SUCCESS;
  16 }