/*
   file: scatter.c
   compile: cc -64 scatter.c -lmpi
   run: mpirun -np 2 ./a.out

   rank=1 : 4 5 6 7 
   rank=2 : 8 9 10 11 
   rank=3 : 12 13 14 15 
*/

#include "mpi.h" 
main( argc, argv ) 
int argc; 
char **argv; 
{ 
    int myrank; 

    int a[100];
    int i;
    int x[8];
    int n;

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

    for (i=0; i<100; i++){
      a[i]=i;
    }
    MPI_Scatter(a, n, MPI_INT, x, n, MPI_INT, 0, MPI_COMM_WORLD);

    if (myrank != 0){
      printf("rank=%d : ", myrank);
      for (i=0; i<n; i++) printf("%d ", x[i]);
      printf("\n");
    }
      
    MPI_Finalize(); 
  }