-/* Copyright (c) 2013-2021. The SimGrid Team.
+/* Copyright (c) 2013-2022. The SimGrid Team.
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
size = comm->size();
rextent = rtype->get_extent();
sextent = stype->get_extent();
- auto* rrequest_array = new MPI_Request[size];
- auto* srequest_array = new MPI_Request[size];
- // irregular case use default MPI functions
if (scount * sextent != rcount * rextent) {
- XBT_WARN("MPI_allgather_NTSLR_NB use default MPI_allgather.");
+ XBT_INFO("MPI_allgather_NTSLR_NB: irregular case, use default MPI_allgather.");
allgather__default(sbuf, scount, stype, rbuf, rcount, rtype, comm);
return MPI_SUCCESS;
}
//start sending logical ring message
int increment = scount * sextent;
+ auto* rrequest_array = new MPI_Request[size];
+ auto* srequest_array = new MPI_Request[size];
+
//post all irecv first
for (i = 0; i < size - 1; i++) {
recv_offset = ((rank - i - 1 + size) % size) * increment;