+/* Copyright (c) 2013-2014. The SimGrid Team.
+ * All rights reserved. */
+
+/* This program is free software; you can redistribute it and/or modify it
+ * under the terms of the license (GNU LGPL) which comes with this package. */
+
/*
* ompi_coll_tuned_allgather_intra_neighborexchange
*
*/
#include "colls_private.h"
- #define MCA_COLL_BASE_TAG_ALLGATHER 555
int
smpi_coll_tuned_allgather_ompi_neighborexchange(void *sbuf, int scount,
MPI_Datatype sdtype,
tmpsend = (char*)rbuf + rank * rcount * rext;
/* Sendreceive */
smpi_mpi_sendrecv(tmpsend, rcount, rdtype, neighbor[0],
- MCA_COLL_BASE_TAG_ALLGATHER,
+ COLL_TAG_ALLGATHER,
tmprecv, rcount, rdtype, neighbor[0],
- MCA_COLL_BASE_TAG_ALLGATHER,
+ COLL_TAG_ALLGATHER,
comm, MPI_STATUS_IGNORE);
/* Determine initial sending location */
/* Sendreceive */
smpi_mpi_sendrecv(tmpsend, 2 * rcount, rdtype,
neighbor[i_parity],
- MCA_COLL_BASE_TAG_ALLGATHER,
+ COLL_TAG_ALLGATHER,
tmprecv, 2 * rcount, rdtype,
neighbor[i_parity],
- MCA_COLL_BASE_TAG_ALLGATHER,
+ COLL_TAG_ALLGATHER,
comm, MPI_STATUS_IGNORE);
send_data_from = recv_data_from[i_parity];