MPI_Datatype datatype, MPI_Op op, int root,
MPI_Comm comm)
{
- int tag = 50;
+ int tag = COLL_TAG_REDUCE;
MPI_Status status;
MPI_Request *send_request_array;
MPI_Request *recv_request_array;
MPI_Aint extent;
extent = smpi_datatype_get_extent(datatype);
- rank = smpi_comm_rank(MPI_COMM_WORLD);
- size = smpi_comm_size(MPI_COMM_WORLD);
+ rank = smpi_comm_rank(comm);
+ size = smpi_comm_size(comm);
/* source node and destination nodes (same through out the functions) */
int to = (rank - 1 + size) % size;