Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Smpi privatization is already enabled by default.
[simgrid.git] / teshsuite / smpi / mpich3-test / datatype / struct-verydeep.c
index f8bf884..222a0a3 100644 (file)
 extern int MPIDU_Datatype_debug(MPI_Datatype type, int depth);
 */
 
-int makeHDF5type0(MPI_Datatype *type);
-int makeHDF5type0(MPI_Datatype *type)
+int makeHDF5type0(MPI_Datatype * type);
+int makeHDF5type0(MPI_Datatype * type)
 {
-    MPI_Datatype ctg, vect, structype, vec2, structype2,
-                 vec3, structype3, vec4, structype4, vec5;
+    MPI_Datatype ctg, vect, structype, vec2, structype2, vec3, structype3, vec4, structype4, vec5;
 
     int b[3];
     MPI_Aint d[3];
@@ -30,37 +29,57 @@ int makeHDF5type0(MPI_Datatype *type)
 
     MPI_Type_vector(1, 5, 1, ctg, &vect);
 
-    b[0] =         b[1] =       b[2] = 1;
-    d[0] = 0;      d[1] = 0;    d[2] = 40;
-    t[0] = MPI_LB; t[1] = vect; t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 0;
+    d[2] = 40;
+    t[0] = MPI_LB;
+    t[1] = vect;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, &structype);
 
     MPI_Type_vector(1, 5, 1, structype, &vec2);
 
-    b[0] =         b[1] =        b[2] = 1;
-    d[0] = 0;      d[1] = 2000;  d[2] = 400;
-    t[0] = MPI_LB; t[1] = vec2;  t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 2000;
+    d[2] = 400;
+    t[0] = MPI_LB;
+    t[1] = vec2;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, &structype2);
 
     MPI_Type_vector(1, 5, 1, structype2, &vec3);
 
-    b[0] =         b[1] =        b[2] = 1;
-    d[0] = 0;      d[1] = 0;     d[2] = 4000;
-    t[0] = MPI_LB; t[1] = vec3;  t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 0;
+    d[2] = 4000;
+    t[0] = MPI_LB;
+    t[1] = vec3;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, &structype3);
 
     MPI_Type_vector(1, 5, 1, structype3, &vec4);
 
-    b[0] =         b[1] =        b[2] = 1;
-    d[0] = 0;      d[1] = 0;     d[2] = 40000;
-    t[0] = MPI_LB; t[1] = vec4;  t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 0;
+    d[2] = 40000;
+    t[0] = MPI_LB;
+    t[1] = vec4;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, &structype4);
 
     MPI_Type_vector(1, 1, 1, structype4, &vec5);
 
-    b[0] =         b[1] =         b[2] = 1;
-    d[0] = 0;      d[1] = 160000; d[2] = 200000;
-    t[0] = MPI_LB; t[1] = vec5;   t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 160000;
+    d[2] = 200000;
+    t[0] = MPI_LB;
+    t[1] = vec5;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, type);
 
     MPI_Type_free(&ctg);
@@ -78,11 +97,10 @@ int makeHDF5type0(MPI_Datatype *type)
     return 0;
 }
 
-int makeHDF5type1(MPI_Datatype *type);
-int makeHDF5type1(MPI_Datatype *type)
+int makeHDF5type1(MPI_Datatype * type);
+int makeHDF5type1(MPI_Datatype * type)
 {
-    MPI_Datatype ctg, vect, structype, vec2, structype2,
-                 vec3, structype3, vec4, structype4, vec5;
+    MPI_Datatype ctg, vect, structype, vec2, structype2, vec3, structype3, vec4, structype4, vec5;
 
     int b[3];
     MPI_Aint d[3];
@@ -92,37 +110,57 @@ int makeHDF5type1(MPI_Datatype *type)
 
     MPI_Type_vector(1, 5, 1, ctg, &vect);
 
-    b[0] =         b[1] =       b[2] = 1;
-    d[0] = 0;      d[1] = 20;    d[2] = 40;
-    t[0] = MPI_LB; t[1] = vect; t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 20;
+    d[2] = 40;
+    t[0] = MPI_LB;
+    t[1] = vect;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, &structype);
 
     MPI_Type_vector(1, 5, 1, structype, &vec2);
 
-    b[0] =         b[1] =        b[2] = 1;
-    d[0] = 0;      d[1] = 0;     d[2] = 400;
-    t[0] = MPI_LB; t[1] = vec2; t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 0;
+    d[2] = 400;
+    t[0] = MPI_LB;
+    t[1] = vec2;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, &structype2);
 
     MPI_Type_vector(1, 5, 1, structype2, &vec3);
 
-    b[0] =         b[1] =        b[2] = 1;
-    d[0] = 0;      d[1] = 0;     d[2] = 4000;
-    t[0] = MPI_LB; t[1] = vec3; t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 0;
+    d[2] = 4000;
+    t[0] = MPI_LB;
+    t[1] = vec3;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, &structype3);
 
     MPI_Type_vector(1, 5, 1, structype3, &vec4);
 
-    b[0] =         b[1] =        b[2] = 1;
-    d[0] = 0;      d[1] = 0;     d[2] = 40000;
-    t[0] = MPI_LB; t[1] = vec4; t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 0;
+    d[2] = 40000;
+    t[0] = MPI_LB;
+    t[1] = vec4;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, &structype4);
 
     MPI_Type_vector(1, 1, 1, structype4, &vec5);
 
-    b[0] =         b[1] =         b[2] = 1;
-    d[0] = 0;      d[1] = 160000; d[2] = 200000;
-    t[0] = MPI_LB; t[1] = vec5; t[2] = MPI_UB;
+    b[0] = b[1] = b[2] = 1;
+    d[0] = 0;
+    d[1] = 160000;
+    d[2] = 200000;
+    t[0] = MPI_LB;
+    t[1] = vec5;
+    t[2] = MPI_UB;
     MPI_Type_create_struct(3, b, d, t, type);
 
     MPI_Type_free(&ctg);
@@ -140,8 +178,8 @@ int makeHDF5type1(MPI_Datatype *type)
     return 0;
 }
 
-int makeHDF5type(MPI_Datatype *type);
-int makeHDF5type(MPI_Datatype *type)
+int makeHDF5type(MPI_Datatype * type);
+int makeHDF5type(MPI_Datatype * type)
 {
     int i;
 
@@ -154,7 +192,7 @@ int makeHDF5type(MPI_Datatype *type)
     makeHDF5type0(&(types[0]));
     makeHDF5type1(&(types[1]));
 
-    for (i=0; i< NTYPES; i++) {
+    for (i = 0; i < NTYPES; i++) {
         blocklens[i] = 1;
         disps[i] = 0;
     }
@@ -162,7 +200,7 @@ int makeHDF5type(MPI_Datatype *type)
     MPI_Type_create_struct(NTYPES, blocklens, disps, types, type);
     MPI_Type_commit(type);
 
-    for(i=0; i<NTYPES; i++) {
+    for (i = 0; i < NTYPES; i++) {
         MPI_Type_free(&(types[i]));
     }
     return 0;
@@ -175,7 +213,7 @@ int main(int argc, char **argv)
     MPI_Init(&argc, &argv);
     makeHDF5type(&hdf5type);
 
-    /*MPIDU_Datatype_debug(hdf5type, 32);*/
+    /*MPIDU_Datatype_debug(hdf5type, 32); */
 
     MPI_Type_free(&hdf5type);
     MPI_Finalize();
@@ -184,4 +222,3 @@ int main(int argc, char **argv)
 
     return 0;
 }
-