INTERCOMM_CREATE_TAG, &intercomm);
if (tnprocs > 1) {
- if (trank == 0) {
- memset (buf0, 0, buf_size);
-
+ if (trank == 0) {
+ memset (buf0, 0, buf_size*sizeof(int));
+
MPI_Send (buf0, buf_size, MPI_INT, 1, 0, temp);
}
}
if (rnprocs > drank) {
if (rank % 2) {
- memset (buf1, 1, buf_size);
+ memset (buf1, 1, buf_size*sizeof(int));
MPI_Recv (buf0, buf_size, MPI_INT, drank, 0, intercomm, &status);
MPI_Send (buf1, buf_size, MPI_INT, drank, 0, intercomm);
}
else {
- memset (buf0, 0, buf_size);
-
+ 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);
}
}