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

void main(int argc, char *argv[]) 
{ 
    int rank, size, i; 
    double param[16], mine; 
    MPI_Init(&argc, &argv); 
    MPI_Comm_rank(MPI_COMM_WORLD,&rank); 
    MPI_Comm_size(MPI_COMM_WORLD,&size); 

    mine = 23.0 + rank; 
    MPI_Gather(&mine, 1, MPI_DOUBLE, param, 1, MPI_DOUBLE, 0, MPI_COMM_WORLD); 

    if(rank == 0) 
        for(i=0; i < size; i++) printf("PE:%d param[%d] is %f \n", rank, i, param[i]); 
    MPI_Finalize(); 
}