exchange_sendrecv_replace.c
77c593baa272solutions

exchange_sendrecv_replace.c
View Options

			#include <stdio.h>
			#include <mpi.h>

			int main(int argc, char *argv[]) {
			int rank;
			int buf1[100];
			int buf2[100];
			MPI_Request request;
			MPI_Status status;
			MPI_Init(&argc, &argv);
			MPI_Comm_rank(MPI_COMM_WORLD, &rank);

			if (rank == 0){
			MPI_Sendrecv_replace(buf1, 10, MPI_INT, 1, 0, 1, 0, MPI_COMM_WORLD, MPI_STATUS_IGNORE);
			} else if (rank == 1) {
			MPI_Sendrecv_replace(buf1, 10, MPI_INT, 0, 0, 0, 0, MPI_COMM_WORLD, MPI_STATUS_IGNORE);
			}

			MPI_Finalize();
			}