rank, msg, dst);
err = MPI_Send(&msg, 1, MPI_INT, dst, tag1, MPI_COMM_WORLD);
err = MPI_Recv(&msg, 1, MPI_INT, dst, tag2, MPI_COMM_WORLD, &status); /* Receive a message */
rank, msg, dst);
err = MPI_Send(&msg, 1, MPI_INT, dst, tag1, MPI_COMM_WORLD);
err = MPI_Recv(&msg, 1, MPI_INT, dst, tag2, MPI_COMM_WORLD, &status); /* Receive a message */