MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
MPI_Send (buf0, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
{
MPI_Recv (buf0, buf_size, MPI_INT, 0, 2, MPI_COMM_WORLD, statuses);
{
MPI_Recv (buf0, buf_size, MPI_INT, 0, 2, MPI_COMM_WORLD, statuses);
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}
MPI_Send (buf1, buf_size, MPI_INT, 0, 0, MPI_COMM_WORLD);
}