A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't suppose anythin on privatization when threads/ucontextes are not found
[simgrid.git]
/
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 f8bf884e85bc77fd9cc4f5e56ac2dde09949ec24..222a0a37928cc7e13193ea80c4a6345671b50651 100644
(file)
--- 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);
*/
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];
int b[3];
MPI_Aint d[3];
@@
-30,37
+29,57
@@
int makeHDF5type0(MPI_Datatype *type)
MPI_Type_vector(1, 5, 1, ctg, &vect);
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);
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);
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);
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);
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);
MPI_Type_create_struct(3, b, d, t, type);
MPI_Type_free(&ctg);
@@
-78,11
+97,10
@@
int makeHDF5type0(MPI_Datatype *type)
return 0;
}
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];
int b[3];
MPI_Aint d[3];
@@
-92,37
+110,57
@@
int makeHDF5type1(MPI_Datatype *type)
MPI_Type_vector(1, 5, 1, ctg, &vect);
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);
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);
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);
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);
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);
MPI_Type_create_struct(3, b, d, t, type);
MPI_Type_free(&ctg);
@@
-140,8
+178,8
@@
int makeHDF5type1(MPI_Datatype *type)
return 0;
}
return 0;
}
-int makeHDF5type(MPI_Datatype *type);
-int makeHDF5type(MPI_Datatype *type)
+int makeHDF5type(MPI_Datatype *
type);
+int makeHDF5type(MPI_Datatype *
type)
{
int i;
{
int i;
@@
-154,7
+192,7
@@
int makeHDF5type(MPI_Datatype *type)
makeHDF5type0(&(types[0]));
makeHDF5type1(&(types[1]));
makeHDF5type0(&(types[0]));
makeHDF5type1(&(types[1]));
- for (i
=0; i
< NTYPES; i++) {
+ for (i
= 0; i
< NTYPES; i++) {
blocklens[i] = 1;
disps[i] = 0;
}
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);
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;
MPI_Type_free(&(types[i]));
}
return 0;
@@
-175,7
+213,7
@@
int main(int argc, char **argv)
MPI_Init(&argc, &argv);
makeHDF5type(&hdf5type);
MPI_Init(&argc, &argv);
makeHDF5type(&hdf5type);
- /*MPIDU_Datatype_debug(hdf5type, 32);*/
+ /*MPIDU_Datatype_debug(hdf5type, 32);
*/
MPI_Type_free(&hdf5type);
MPI_Finalize();
MPI_Type_free(&hdf5type);
MPI_Finalize();
@@
-184,4
+222,3
@@
int main(int argc, char **argv)
return 0;
}
return 0;
}
-