/* MPI_Scatterv.c */ 
/* This program is used to demonstrate the use of MPI_Scatterv.  */

/* mpicc scatterv MPI_scatterv.c */ 
/* mpirun -np 4 scatterv */ 

#include <stdio.h>
#include <mpi.h>
 
void main(int argv,char** argc)
{
    int np,pid,*sbuf,stride; 
    int rbuf[10], i, *lena, *loca; 


    MPI_Init(&argv, &argc); 
    MPI_Comm_size(MPI_COMM_WORLD, &np); 
    MPI_Comm_rank(MPI_COMM_WORLD, &pid); 

if (np != 4) {
        printf("Error! # of processors must be equal to 4. \n" );
	MPI_Finalize();
	exit(0);
}

if (pid==0) {
	stride= 10;
	sbuf = (int *)malloc(np*stride*sizeof(int));
	loca = (int *)malloc(np*sizeof(int)); 
	lena = (int *)malloc(np*sizeof(int)); 

	for (i=0; i<np*stride; i++) 
        	sbuf[i]=i+1;
	for (i=0; i<np; i++) 
	{ 
		loca[i] = i*stride; 
		lena[i] = i+4; 
	}
}
for (i=0; i<10; i++) 
        rbuf[i]=0;

MPI_Scatterv(sbuf,lena,loca,MPI_INT,rbuf,10,MPI_INT,0,MPI_COMM_WORLD);

printf("(%d) rbuf[0:9]=",pid);
for (i=0;i<10;i++)
	printf("%d ",rbuf[i]);
printf("\n");

MPI_Finalize();
}