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

main( argc, argv ) 
int argc; 
char **argv; 
{ 
    int myrank; 

    int a[10000];
    int i, j;
    int x[800], y[800];
    int n;
    double after, before;

MPI_Status  status;

    MPI_Init( &argc, &argv ); 
    MPI_Comm_rank( MPI_COMM_WORLD, &myrank ); 
    MPI_Comm_size( MPI_COMM_WORLD, &n ); 

    for (i=0; i<800; i++){
      x[i]=myrank+i;
    }
before = MPI_Wtime();
    if (myrank == 0){
      for (j=0; j<800; j++) a[j] = x[j]; /* self send/recv */
      for (i=1; i<n; i++){
	MPI_Recv(y, 800, MPI_INT, i, 0, MPI_COMM_WORLD, &status);
	for (j=0; j<800; j++) a[i*800+j] = y[j];    
      }
    } else {
      MPI_Send(x, 800, MPI_INT, 0, 0, MPI_COMM_WORLD);
    }
after = MPI_Wtime();
    if (myrank == 0){
      printf("time = %5f\n", (float)(after - before));
/*
      for (i=0; i<n; i++){
	for (j=0; j<800; j++) printf("%2d ", a[800*i+j]);
	printf("\n");
      }
      printf("\n");
*/
    }
      
    MPI_Finalize(); 
  }