MPI_Start (&aReq[j]);
}
}
-
+
/* complete the sends */
if (k < 2)
/* use MPI_Wait */
for (j = 0; j < 2; j++)
MPI_Wait (&aReq[j], &aStatus[j]);
- else
+ else
/* use MPI_Waitall */
MPI_Waitall (2, aReq, aStatus);
}
else if (rank == 1) {
/* set up receives for all of the sends */
for (j = 0; j < 2; j++) {
- MPI_Irecv (&buf[j * BUF_SIZE], BUF_SIZE,
+ MPI_Irecv (&buf[j * BUF_SIZE], BUF_SIZE,
MPI_INT, 0, j, comm, &aReq[j]);
}
/* complete all of the receives... */