exchange_sendrecv_replace.c
No OneTemporary
Actions

Subscribers

None

File Metadata

	#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();
	}