5 int main(int argc, char **argv) {
8 double a[SIZE][SIZE] = {{0}};
10 MPI_Datatype columntype;
12 MPI_Init(&argc,&argv);
13 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
15 MPI_Type_hvector(SIZE, 1, SIZE*sizeof(double), MPI_DOUBLE, &columntype);
16 MPI_Type_commit(&columntype);
25 /* only one column is send
26 * this is an exemple for non-contignous data*/
27 MPI_Bcast(a, 1, columntype, 0, MPI_COMM_WORLD);
29 for(i=0; i<SIZE; i++){
30 for (j=0; j < SIZE; j++) {
31 printf("rank= %d, a[%d][%d]=%f\n",