+/* 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_allgatherv_intra_neighborexchange
*/
#include "colls_private.h"
- #define MCA_COLL_BASE_TAG_ALLGATHERV 444
int
smpi_coll_tuned_allgatherv_ompi_neighborexchange(void *sbuf, int scount,
tmprecv = (char*)rbuf + rdispls[neighbor[0]] * rext;
tmpsend = (char*)rbuf + rdispls[rank] * rext;
smpi_mpi_sendrecv(tmpsend, rcounts[rank], rdtype,
- neighbor[0], MCA_COLL_BASE_TAG_ALLGATHERV,
+ neighbor[0], COLL_TAG_ALLGATHERV,
tmprecv, rcounts[neighbor[0]], rdtype,
- neighbor[0], MCA_COLL_BASE_TAG_ALLGATHERV,
+ neighbor[0], COLL_TAG_ALLGATHERV,
comm, MPI_STATUS_IGNORE);
/* Sendreceive */
smpi_mpi_sendrecv(tmpsend, 1, new_sdtype, neighbor[i_parity],
- MCA_COLL_BASE_TAG_ALLGATHERV,
+ COLL_TAG_ALLGATHERV,
tmprecv, 1, new_rdtype, neighbor[i_parity],
- MCA_COLL_BASE_TAG_ALLGATHERV,
+ COLL_TAG_ALLGATHERV,
comm, MPI_STATUS_IGNORE);
send_data_from = recv_data_from[i_parity];