MPI_Datatype dtype, MPI_Op op,
MPI_Comm comm)
{
- int nprocs, rank, tag = 543;
+ int nprocs, rank, tag = COLL_TAG_ALLREDUCE;
int mask, dst, pof2, newrank, rem, newdst, i,
send_idx, recv_idx, last_idx, send_cnt, recv_cnt, *cnts, *disps;
MPI_Aint extent;