(*request) = new Request( nullptr, 0, MPI_BYTE,
rank,rank, system_tag, comm, MPI_REQ_PERSISTENT);
if (rank > 0) {
- MPI_Request* requests = new MPI_Request[2];
+ auto* requests = new MPI_Request[2];
requests[0] = Request::isend (nullptr, 0, MPI_BYTE, 0,
system_tag,
comm);
(*request)->set_nbc_requests(requests, 2);
}
else {
- MPI_Request* requests = new MPI_Request[(size - 1) * 2];
+ auto* requests = new MPI_Request[(size - 1) * 2];
for (int i = 1; i < 2 * size - 1; i += 2) {
requests[i - 1] = Request::irecv(nullptr, 0, MPI_BYTE, MPI_ANY_SOURCE, system_tag, comm);
requests[i] = Request::isend(nullptr, 0, MPI_BYTE, (i + 1) / 2, system_tag, comm);
(*request) = new Request( nullptr, 0, MPI_BYTE,
rank,rank, system_tag, comm, MPI_REQ_PERSISTENT);
if (rank != root) {
- MPI_Request* requests = new MPI_Request[1];
+ auto* requests = new MPI_Request[1];
requests[0] = Request::irecv (buf, count, datatype, root,
system_tag,
comm);
(*request)->set_nbc_requests(requests, 1);
}
else {
- MPI_Request* requests = new MPI_Request[size - 1];
+ auto* requests = new MPI_Request[size - 1];
int n = 0;
for (int i = 0; i < size; i++) {
if(i!=root){
Datatype::copy(sendbuf, sendcount, sendtype, static_cast<char *>(recvbuf) + rank * recvcount * recvext, recvcount,
recvtype);
// Send/Recv buffers to/from others;
- MPI_Request* requests = new MPI_Request[2 * (size - 1)];
+ auto* requests = new MPI_Request[2 * (size - 1)];
int index = 0;
for (int other = 0; other < size; other++) {
if(other != rank) {
(*request) = new Request( nullptr, 0, MPI_BYTE,
rank,rank, system_tag, comm, MPI_REQ_PERSISTENT);
if(rank != root) {
- MPI_Request* requests = new MPI_Request[1];
+ auto* requests = new MPI_Request[1];
// Recv buffer from root
requests[0] = Request::irecv(recvbuf, recvcount, recvtype, root, system_tag, comm);
(*request)->set_nbc_requests(requests, 1);
sendcount, sendtype, recvbuf, recvcount, recvtype);
}
// Send buffers to receivers
- MPI_Request* requests = new MPI_Request[size - 1];
+ auto* requests = new MPI_Request[size - 1];
int index = 0;
for(int dst = 0; dst < size; dst++) {
if(dst != root) {
Datatype::copy(sendbuf, sendcount, sendtype,
static_cast<char *>(recvbuf) + displs[rank] * recvext,recvcounts[rank], recvtype);
// Send buffers to others;
- MPI_Request *requests = new MPI_Request[2 * (size - 1)];
+ auto* requests = new MPI_Request[2 * (size - 1)];
int index = 0;
for (int other = 0; other < size; other++) {
if(other != rank) {
static_cast<char *>(recvbuf) + rank * recvcount * recvext, recvcount, recvtype);
if (err == MPI_SUCCESS && size > 1) {
/* Initiate all send/recv to/from others. */
- MPI_Request* requests = new MPI_Request[2 * (size - 1)];
+ auto* requests = new MPI_Request[2 * (size - 1)];
/* Post all receives first -- a simple optimization */
int count = 0;
for (int i = (rank + 1) % size; i != rank; i = (i + 1) % size) {
static_cast<char *>(recvbuf) + recvdisps[rank] * recvext, recvcounts[rank], recvtype);
if (err == MPI_SUCCESS && size > 1) {
/* Initiate all send/recv to/from others. */
- MPI_Request* requests = new MPI_Request[2 * (size - 1)];
+ auto* requests = new MPI_Request[2 * (size - 1)];
int count = 0;
/* Create all receives that will be posted first */
for (int i = 0; i < size; ++i) {
static_cast<char *>(recvbuf) + recvdisps[rank], recvcounts[rank], recvtypes[rank]): MPI_SUCCESS;
if (err == MPI_SUCCESS && size > 1) {
/* Initiate all send/recv to/from others. */
- MPI_Request* requests = new MPI_Request[2 * (size - 1)];
+ auto* requests = new MPI_Request[2 * (size - 1)];
int count = 0;
/* Create all receives that will be posted first */
for (int i = 0; i < size; ++i) {
rank,rank, system_tag, comm, MPI_REQ_PERSISTENT);
if(rank != root) {
// Send buffer to root
- MPI_Request* requests = new MPI_Request[1];
+ auto* requests = new MPI_Request[1];
requests[0]=Request::isend(sendbuf, sendcount, sendtype, root, system_tag, comm);
(*request)->set_nbc_requests(requests, 1);
} else {
Datatype::copy(sendbuf, sendcount, sendtype, static_cast<char*>(recvbuf) + root * recvcount * recvext,
recvcount, recvtype);
// Receive buffers from senders
- MPI_Request* requests = new MPI_Request[size - 1];
+ auto* requests = new MPI_Request[size - 1];
int index = 0;
for (int src = 0; src < size; src++) {
if(src != root) {
rank,rank, system_tag, comm, MPI_REQ_PERSISTENT);
if (rank != root) {
// Send buffer to root
- MPI_Request* requests = new MPI_Request[1];
+ auto* requests = new MPI_Request[1];
requests[0]=Request::isend(sendbuf, sendcount, sendtype, root, system_tag, comm);
(*request)->set_nbc_requests(requests, 1);
} else {
Datatype::copy(sendbuf, sendcount, sendtype, static_cast<char*>(recvbuf) + displs[root] * recvext,
recvcounts[root], recvtype);
// Receive buffers from senders
- MPI_Request* requests = new MPI_Request[size - 1];
+ auto* requests = new MPI_Request[size - 1];
int index = 0;
for (int src = 0; src < size; src++) {
if(src != root) {
rank,rank, system_tag, comm, MPI_REQ_PERSISTENT);
if(rank != root) {
// Recv buffer from root
- MPI_Request* requests = new MPI_Request[1];
+ auto* requests = new MPI_Request[1];
requests[0]=Request::irecv(recvbuf, recvcount, recvtype, root, system_tag, comm);
(*request)->set_nbc_requests(requests, 1);
} else {
sendtype, recvbuf, recvcount, recvtype);
}
// Send buffers to receivers
- MPI_Request *requests = new MPI_Request[size - 1];
+ auto* requests = new MPI_Request[size - 1];
int index = 0;
for (int dst = 0; dst < size; dst++) {
if (dst != root) {
if(rank != root) {
// Send buffer to root
- MPI_Request* requests = new MPI_Request[1];
+ auto* requests = new MPI_Request[1];
requests[0] = Request::isend(real_sendbuf, count, datatype, root, system_tag, comm);
(*request)->set_nbc_requests(requests, 1);
} else {
if (real_sendbuf != nullptr && recvbuf != nullptr)
Datatype::copy(real_sendbuf, count, datatype, recvbuf, count, datatype);
// Receive buffers from senders
- MPI_Request *requests = new MPI_Request[size - 1];
+ auto* requests = new MPI_Request[size - 1];
int index = 0;
for (int src = 0; src < size; src++) {
if (src != root) {
// Local copy from self
Datatype::copy(sendbuf, count, datatype, recvbuf, count, datatype);
// Send/Recv buffers to/from others;
- MPI_Request* requests = new MPI_Request[2 * (size - 1)];
+ auto* requests = new MPI_Request[2 * (size - 1)];
int index = 0;
for (int other = 0; other < size; other++) {
if(other != rank) {
Datatype::copy(sendbuf, count, datatype, recvbuf, count, datatype);
// Send/Recv buffers to/from others
- MPI_Request *requests = new MPI_Request[size - 1];
+ auto* requests = new MPI_Request[size - 1];
int index = 0;
for (int other = 0; other < rank; other++) {
requests[index] = Request::irecv_init(smpi_get_tmp_sendbuffer(count * dataext), count, datatype, other, system_tag, comm);
memset(recvbuf, 0, count*dataext);
// Send/Recv buffers to/from others
- MPI_Request *requests = new MPI_Request[size - 1];
+ auto* requests = new MPI_Request[size - 1];
int index = 0;
for (int other = 0; other < rank; other++) {
requests[index] = Request::irecv_init(smpi_get_tmp_sendbuffer(count * dataext), count, datatype, other, system_tag, comm);
datatype->extent(&lb, &dataext);
// Send/Recv buffers to/from others;
- MPI_Request* requests = new MPI_Request[2 * (size - 1)];
+ auto* requests = new MPI_Request[2 * (size - 1)];
int index = 0;
int recvdisp=0;
for (int other = 0; other < size; other++) {