+int MPI_Bcast(void *buf, int count, MPI_Datatype datatype, int root, MPI_Comm comm) {
+
+ int retval = MPI_SUCCESS;
+ int rank;
+ smpi_mpi_request_t request;
+
+ smpi_bench_end();
+
+ rank = smpi_mpi_comm_rank(comm);
+
+ if (rank == root) {
+ retval = smpi_create_request(buf, count, datatype, root, (root + 1) % comm->size, 0, comm, &request);
+ request->forward = comm->size - 1;
+ smpi_mpi_isend(request);
+ } else {
+ retval = smpi_create_request(buf, count, datatype, MPI_ANY_SOURCE, rank, 0, comm, &request);
+ smpi_mpi_irecv(request);
+ }
+
+ smpi_mpi_wait(request, MPI_STATUS_IGNORE);
+ xbt_mallocator_release(smpi_global->request_mallocator, request);
+
+ smpi_bench_begin();
+
+ return retval;
+}
+