17 #define _a 0.446948490915965
18 #define _b 0.091576213509771
19 #define _p1 0.11169079483905
20 #define _p2 0.0549758718227661
35 #define MODE_ACCES MED_ACC_RDWR
37 #define MODE_ACCES MED_ACC_RDEXT
39 #define MODE_ACCES MED_ACC_CREAT
42 #ifndef USER_INTERLACE
43 #define USER_INTERLACE MED_FULL_INTERLACE
46 #define USER_MODE MED_COMPACT_STMODE
48 #ifdef DEF_MED_FLOAT32
49 #define FTYPECHA MED_FLOAT32
50 #define ftypecha med_float32
51 #define filename_ "test10_f32"
53 #define FTYPECHA MED_DOUBLE
54 #define ftypecha med_double
55 #define filename_ "test10"
59 #define ITYPECHA MED_INT32
60 #define itypecha med_int32
61 #define filename__ filename_ "_i32"
63 #define ITYPECHA MED_INT64
64 #define itypecha med_int64
65 #define filename__ filename_ "_i64"
67 #define ITYPECHA MED_INT
68 #define itypecha med_int
69 #define filename__ filename_
73 #define filename filename__ ".med"
75 int main (
int argc,
char **argv)
88 char * lien_maa2 =
"./testfoo.med";
101 med_float refcoo1[12] = { -1.0,1.0, -1.0,-1.0, 1.0,-1.0, -1.0,0.0, 0.0,-1.0, 0.0,0.0 };
111 ftypecha valr1_1[1*6*2] = {0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0, 20.0,21.0, 22.0,23.0};
115 med_float gscoo1_2[6] = { -2.0/3,1.0/3, -2.0/3,-2.0/3, 1.0/3,-2.0/3 };
116 med_float wg1_2[3] = { 2.0/3, 2.0/3, 2.0/3 };
119 ftypecha valr1_2[2*3*2] = {0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0, 20.0,21.0, 22.0,23.0};
120 ftypecha valr1_2p[2*3*2] = { 12.0,13.0, 20.0,21.0, 22.0,23.0};
124 ftypecha valr1_3[2*3*2] = {0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0, 20.0,21.0, 22.0,23.0};
125 ftypecha valr1_3p[2*2*2] = { 2.0,3.0, 10.0,11.0 };
134 itypecha valr2[5*3 ] = {0,1,2, 10,11,12, 20,21,22, 30,31,32, 40,41,42};
136 itypecha valr2_[5*3 ] = {2147483647, -2147483648, 4294967296, 10,11,12, 20,21,22, 30,31,32, 40,41,42};
137 itypecha valr2p[3*3 ] = {0,1,2, 20,21,22, 40,41,42};
144 med_int profil2[3] = { 1, 3, 5 };
156 itypecha valr3[5*4*2] = {0,1, 10,11, 20,21, 30,31,
157 40,41, 50,51, 60,61, 70,71,
158 80,81, 90,91, 100,101, 110,111,
159 120,121, 130,131, 140,141, 150,151,
160 160,161, 170,171, 180,181, 190,191};
161 itypecha valr3p[3*4*2] = {0,1, 10,11, 20,21, 30,31,
162 80,81, 90,91, 100,101, 110,111,
163 160,161, 170,171, 180,181, 190,191};
174 MESSAGE(
"Erreur à l'ouverture du fichier : ");
216 ngauss1_1, gscoo1_1, wg1_1,
218 MESSAGE(
"Erreur à la création du modèle n°1 : ");
SSCRUTE(gauss1_1);
224 ngauss1_2, gscoo1_2, wg1_2,
226 MESSAGE(
"Erreur à la création du modèle n°1 : ");
SSCRUTE(gauss1_2);
234 gauss1_1,
USER_INTERLACE, 2, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
235 MESSAGE(
"Erreur à l'écriture du champ : ");
246 gauss1_1,
USER_INTERLACE, 1, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
247 MESSAGE(
"Erreur à l'écriture du champ : ");
257 gauss1_2,
USER_INTERLACE, 1, _nent1_2, (
unsigned char*)valr1_2 ) < 0) {
258 MESSAGE(
"Erreur à l'écriture du champ : ");
270 gauss1_1,
USER_INTERLACE, 2, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
271 MESSAGE(
"Erreur à l'écriture du champ : ");
282 gauss1_2,
USER_INTERLACE, 1, _nent1_2, (
unsigned char*)valr1_2 ) < 0) {
283 MESSAGE(
"Erreur à l'écriture du champ : ");
292 MESSAGE(
"Erreur à l'écriture du profil : ");
299 MESSAGE(
"Erreur à l'écriture du profil : ");
311 MESSAGE(
"Erreur à l'écriture du champ : ");
323 MESSAGE(
"Erreur à l'écriture du champ : ");
332 MESSAGE(
"Erreur à l'écriture du champ : ");
345 MESSAGE(
"Erreur à l'écriture du champ : ");
354 MESSAGE(
"Erreur à l'écriture du champ : ");
363 MESSAGE(
"Erreur à l'écriture du champ : ");
372 MESSAGE(
"Erreur à l'écriture du profil : ");
380 MESSAGE(
"Erreur à l'écriture du champ : ");
396 MESSAGE(
"Erreur à l'écriture du champ : ");
404 MESSAGE(
"Erreur à l'écriture du champ : ");
412 MESSAGE(
"Erreur à l'écriture du champ : ");