X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/8006a03b1ef66a0ddd4a4983ef170781a87a7225..684cdb5583dacd359d0a1e6a47db259dbc82713b:/teshsuite/smpi/mpich3-test/datatype/struct-verydeep.c diff --git a/teshsuite/smpi/mpich3-test/datatype/struct-verydeep.c b/teshsuite/smpi/mpich3-test/datatype/struct-verydeep.c index f8bf884e85..222a0a3792 100644 --- a/teshsuite/smpi/mpich3-test/datatype/struct-verydeep.c +++ b/teshsuite/smpi/mpich3-test/datatype/struct-verydeep.c @@ -16,11 +16,10 @@ 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