X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/bb7bb3965052aa05a4be5a7983c13c902481ae5c..a2896352972149a8e2c7c014c3413c5c7c686227:/teshsuite/smpi/hvector_test.c

diff --git a/teshsuite/smpi/hvector_test.c b/teshsuite/smpi/hvector_test.c
new file mode 100644
index 0000000000..86d1a403d3
--- /dev/null
+++ b/teshsuite/smpi/hvector_test.c
@@ -0,0 +1,42 @@
+#include <stdio.h>
+#include "mpi.h"
+#define SIZE 4
+
+int main(int argc, char **argv) {
+
+  int rank, i, j;
+  double a[SIZE][SIZE];
+
+  MPI_Datatype columntype;
+
+  MPI_Init(&argc,&argv);
+  MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+
+  MPI_Type_hvector(SIZE, 1, SIZE*sizeof(double), MPI_DOUBLE, &columntype);
+  MPI_Type_commit(&columntype);
+
+
+    if (rank == 0) {
+      for(i=0; i <SIZE;i++)
+        for(j=0; j <SIZE;j++)
+          a[i][j] = i*SIZE+j;
+    }
+
+    /* only one column is send
+     * this is an exemple for non-contignous data*/
+    MPI_Bcast(a, 1, columntype, 0, MPI_COMM_WORLD);
+
+    for(i=0; i<SIZE; i++){
+      for (j=0; j < SIZE; j++) {
+        printf("rank= %d, a[%d][%d]=%f\n",
+               rank, i, j, a[i][j]);
+      }
+      printf("\n");
+    }
+
+
+
+  MPI_Finalize();
+  return 0;
+}
+