MPI_Irecv (buf1, buf_size, MPI_INT, 1, 0, MPI_COMM_WORLD, &reqs[1]);
- while (!flag)
+ while (!flag)
MPI_Testall (2, reqs, &flag, statuses);
MPI_Send (buf1, buf_size, MPI_INT, 1, 1, MPI_COMM_WORLD);
}
else if (rank == 1)
{
- memset (buf0, 0, buf_size);
+ memset (buf0, 0, buf_size*sizeof(int));
MPI_Isend (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD, &reqs[0]);
MPI_Isend (buf0, buf_size, MPI_INT, 2, 1, MPI_COMM_WORLD, &reqs[1]);
- while (!flag)
+ while (!flag)
MPI_Testall (2, reqs, &flag, statuses);
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);