if (comm == MPI_COMM_NULL) {
retval = MPI_ERR_COMM;
} else {
- smpi_mpi_barrier(comm);
+ mpi_coll_barrier_fun(comm);
retval = MPI_SUCCESS;
}
#ifdef HAVE_TRACING
|| recvtype == MPI_DATATYPE_NULL) {
retval = MPI_ERR_TYPE;
} else {
- smpi_mpi_scatter(sendbuf, sendcount, sendtype, recvbuf, recvcount,
+ mpi_coll_scatter_fun(sendbuf, sendcount, sendtype, recvbuf, recvcount,
recvtype, root, comm);
retval = MPI_SUCCESS;
}
MPI_Datatype datatype, MPI_Op op, MPI_Comm comm)
{
int retval;
- int rank = comm != MPI_COMM_NULL ? smpi_process_index() : -1;
smpi_bench_end();
#ifdef HAVE_TRACING
+ int rank = comm != MPI_COMM_NULL ? smpi_process_index() : -1;
TRACE_smpi_computing_out(rank);
TRACE_smpi_collective_in(rank, -1, __FUNCTION__);
#endif