MPI_Datatype datatype, MPI_Op op,
MPI_Comm comm)
{
- smpi_mpi_reduce(buf, buf2, count, datatype, op, 0, comm);
- smpi_mpi_bcast(buf2, count, datatype, 0, comm);
+ mpi_coll_reduce_fun(buf, buf2, count, datatype, op, 0, comm);
+ mpi_coll_bcast_fun(buf2, count, datatype, 0, comm);
return MPI_SUCCESS;
}