MPI_Datatype dtype, MPI_Op op,
int root, MPI_Comm comm)
{
- int i, tag = 4321;
+ int i, tag = COLL_TAG_REDUCE;
int size;
int rank;
MPI_Aint extent;
}
/* Call reduction function. */
- star_reduction(op, inbuf, rbuf, &count, &dtype);
+ smpi_op_apply(op, inbuf, rbuf, &count, &dtype);
}