17 #define _a 0.446948490915965
18 #define _b 0.091576213509771
19 #define _p1 0.11169079483905
20 #define _p2 0.0549758718227661
36 #define MODE_ACCES MED_ACC_RDWR
38 #define MODE_ACCES MED_ACC_RDEXT
40 #define MODE_ACCES MED_ACC_CREAT
43 #ifndef USER_INTERLACE
44 #define USER_INTERLACE MED_FULL_INTERLACE
47 #define USER_MODE MED_COMPACT_STMODE
49 #ifdef DEF_MED_FLOAT32
50 #define FTYPECHA MED_FLOAT32
51 #define ftypecha med_float32
52 #define filename_ "test10_f32"
54 #define FTYPECHA MED_DOUBLE
55 #define ftypecha med_double
56 #define filename_ "test10"
60 #define ITYPECHA MED_INT32
61 #define itypecha med_int32
62 #define filename__ filename_ "_i32"
64 #define ITYPECHA MED_INT64
65 #define itypecha med_int64
66 #define filename__ filename_ "_i64"
68 #define ITYPECHA MED_INT
69 #define itypecha med_int
70 #define filename__ filename_
74 #define filename filename__ ".med"
76 int main (
int argc,
char **argv)
89 char * lien_maa2 =
"./testfoo.med";
102 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 };
112 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};
116 med_float gscoo1_2[6] = { -2.0/3,1.0/3, -2.0/3,-2.0/3, 1.0/3,-2.0/3 };
117 med_float wg1_2[3] = { 2.0/3, 2.0/3, 2.0/3 };
120 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};
121 ftypecha valr1_2p[2*3*2] = { 12.0,13.0, 20.0,21.0, 22.0,23.0};
125 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};
126 ftypecha valr1_3p[2*2*2] = { 2.0,3.0, 10.0,11.0 };
135 itypecha valr2[5*3 ] = {0,1,2, 10,11,12, 20,21,22, 30,31,32, 40,41,42};
137 itypecha valr2_[5*3 ] = {2147483647, -2147483648, 4294967296, 10,11,12, 20,21,22, 30,31,32, 40,41,42};
138 itypecha valr2p[3*3 ] = {0,1,2, 20,21,22, 40,41,42};
145 med_int profil2[3] = { 1, 3, 5 };
157 itypecha valr3[5*4*2] = {0,1, 10,11, 20,21, 30,31,
158 40,41, 50,51, 60,61, 70,71,
159 80,81, 90,91, 100,101, 110,111,
160 120,121, 130,131, 140,141, 150,151,
161 160,161, 170,171, 180,181, 190,191};
162 itypecha valr3p[3*4*2] = {0,1, 10,11, 20,21, 30,31,
163 80,81, 90,91, 100,101, 110,111,
164 160,161, 170,171, 180,181, 190,191};
210 MESSAGE(
"Erreur à l'ouverture du fichier : ");
224 MESSAGE(
"Impossible de lire le nombre de champs : ");
ISCRUTE(ncha);
226 printf(
"Nombre de champs : "IFORMAT" \n",ncha);
230 MESSAGE(
"Erreur à la création du champ : ");
SSCRUTE(
"Ajout Complémentaire");
272 ngauss1_1, gscoo1_1, wg1_1,
274 MESSAGE(
"Erreur à la création du modèle n° 1 : ");
SSCRUTE(gauss1_1);
280 ngauss1_2, gscoo1_2, wg1_2,
282 MESSAGE(
"Erreur à la création du modèle n° 1 : ");
SSCRUTE(gauss1_2);
290 gauss1_1,
USER_INTERLACE, 2, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
291 MESSAGE(
"Erreur à l'écriture du champ : ");
302 gauss1_1,
USER_INTERLACE, 1, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
303 MESSAGE(
"Erreur à l'écriture du champ : ");
313 gauss1_2,
USER_INTERLACE, 1, _nent1_2, (
unsigned char*)valr1_2 ) < 0) {
314 MESSAGE(
"Erreur à l'écriture du champ : ");
326 gauss1_1,
USER_INTERLACE, 2, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
327 MESSAGE(
"Erreur à l'écriture du champ : ");
338 gauss1_2,
USER_INTERLACE, 1, _nent1_2, (
unsigned char*)valr1_2 ) < 0) {
339 MESSAGE(
"Erreur à l'écriture du champ : ");
348 MESSAGE(
"Erreur à l'écriture du profil : ");
355 MESSAGE(
"Erreur à l'écriture du profil : ");
367 MESSAGE(
"Erreur à l'écriture du champ : ");
378 MESSAGE(
"Erreur à l'écriture du champ : ");
387 MESSAGE(
"Erreur à l'écriture du champ : ");
400 MESSAGE(
"Erreur à l'écriture du champ : ");
409 MESSAGE(
"Erreur à l'écriture du champ : ");
418 MESSAGE(
"Erreur à l'écriture du champ : ");
427 MESSAGE(
"Erreur à l'écriture du profil : ");
435 MESSAGE(
"Erreur à l'écriture du champ : ");
451 MESSAGE(
"Erreur à l'écriture du champ : ");
459 MESSAGE(
"Erreur à l'écriture du champ : ");
467 MESSAGE(
"Erreur à l'écriture du champ : ");
478 MESSAGE(
"Erreur à la fermeture du fichier ");
487 MESSAGE(
"Erreur à l'ouverture du fichier : ");
495 MESSAGE(
"Impossible de lire le nombre de champs : ");
ISCRUTE(ncha);
497 printf(
"Nombre de champs : "IFORMAT" \n",ncha);
502 if (
MEDfieldCr(fid,
"Ajout Complémentaire 2",
FTYPECHA,ncomp1,comp1,unit1,dtunit,maa1 ) < 0) {
503 MESSAGE(
"Erreur à la création du champ : Complémentaire 2");
510 if (
MEDmeshInfo( fid, 1, _maa, &_sdim, &_mdim, &_type, _desc, __dtunit, &_sort,
511 &_nstep, &_rep, _nomcoo,_unicoo) < 0 ) {
512 MESSAGE(
"Erreur a la lecture des informations sur le maillage : ");
SSCRUTE(_maa);
515 printf(
"Maillage de nom : |%s| , de dimension : "IFORMAT" , et de type %d\n",_maa,_mdim,_type);
516 printf(
"\t -Dimension de l'espace : "IFORMAT"\n",_sdim);
517 printf(
"\t -Description du maillage : %s\n",_desc);
518 printf(
"\t -Noms des axes : |%s|\n",_nomcoo);
519 printf(
"\t -Unités des axes : |%s|\n",_unicoo);
520 printf(
"\t -Type de repère : %d\n",_rep);
521 printf(
"\t -Nombre d'étapes de calcul : "IFORMAT"\n",_nstep);
522 printf(
"\t -Unité des dates : |%s|\n",__dtunit);
527 MESSAGE(
"Impossible de lire le nombre de champs : ");
ISCRUTE(ncha);
529 printf(
"Nombre de champs : "IFORMAT" \n",ncha);
533 MESSAGE(
"Erreur à la fermeture du fichier ");
538 free(memfile[0].app_image_ptr);