-/* Copyright (c) 2013-2020. The SimGrid Team.
+/* Copyright (c) 2013-2021. The SimGrid Team.
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
/* for too small number of processes, use default implementation */
if (comm_size <= num_core) {
- XBT_WARN("MPI_allgather_SMP_NTS use default MPI_allgather.");
+ XBT_INFO("MPI_allgather_SMP_NTS: comm_size <= num_core, use default MPI_allgather.");
allgather__default(sbuf, scount, stype, rbuf, rcount, rtype, comm);
return MPI_SUCCESS;
}
// root of each SMP
if (intra_rank == 0) {
- MPI_Request* rrequest_array = new MPI_Request[inter_comm_size - 1];
- MPI_Request* srequest_array = new MPI_Request[inter_comm_size - 1];
+ auto* rrequest_array = new MPI_Request[inter_comm_size - 1];
+ auto* srequest_array = new MPI_Request[inter_comm_size - 1];
src = ((inter_rank - 1 + inter_comm_size) % inter_comm_size) * num_core;
dst = ((inter_rank + 1) % inter_comm_size) * num_core;