/*
 * example for send and recv
*/

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

#define N 8

int main(int argc, char *argv[])
{
  	int myid, np, src, dest, n, i;
  	double a[N], b[N];
  	MPI_Status status;
  
  	MPI_Init(&argc, &argv);
  	MPI_Comm_rank(MPI_COMM_WORLD, &myid);
  	MPI_Comm_size(MPI_COMM_WORLD, &np);

  	for (i=0; i<N; i++) a[i] = (double)myid;

  	printf("Before communication: Process %d: a[0]=%.2f\n", myid, a[0]); 

  	src = myid-1;  if (src==-1) src=np-1;
  	dest = myid+1; if (dest==np) dest=0;

  	MPI_Send(&a, 1, MPI_DOUBLE, dest, 111, MPI_COMM_WORLD);
  	MPI_Recv(&b, 1, MPI_DOUBLE, src, 111, MPI_COMM_WORLD, &status);
  
  	printf("After communication: Process %d: b[0]=%.2f, b[1]=%.2f\n", myid, b[0], b[1]);

  	MPI_Finalize();
  	return 0;
}