if (rank == 0) {
memset (buf0, 0, buf_size*sizeof(int));
-
+
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD);
}
}
else {
memset (buf0, 0, buf_size*sizeof(int));
-
+
MPI_Send (buf0, buf_size, MPI_INT, drank, 0, intercomm);
-
+
MPI_Recv (buf1, buf_size, MPI_INT, drank, 0, intercomm, &status);
}
}