rleader = ((rank + nprocs) % 2) ? nprocs - 2 : nprocs - 1;
if ((trank == 0) && (rank % 2)) {
- MPI_Recv (buf0, buf_size, MPI_INT,
+ MPI_Recv (buf0, buf_size, MPI_INT,
rleader, 0, MPI_COMM_WORLD, &status);
}
}
MPI_Comm_free (&temp);
-
+
if (intercomm != MPI_COMM_NULL) {
MPI_Comm_size (intercomm, &dnprocs);
MPI_Comm_rank (intercomm, &drank);
MPI_Comm_remote_size (intercomm, &rnprocs);
-
+
if (rnprocs > drank) {
if (rank % 2) {
memset (buf1, 1, buf_size);
memset (buf0, 0, buf_size);
MPI_Send (buf0, buf_size, MPI_INT, drank, 0, intercomm);
-
+
MPI_Recv (buf1, buf_size, MPI_INT, drank, 0, intercomm, &status);
}
}