2 c=======================================================================
3 c declaration de variables du format MED
4 c cet include est deduit de l'include med.h de la bibliotheque med 4.0
6 c MED_FULL_INTERLACE/edfuin :
7 c Exemple avec 3 composantes X,Y,Z : X1Y1Z1X2Y2Z2X3Y3Z3...
8 c Exemple avec 3 MED_TRIA3 T1,T2,T3 : N11N12N13 N21N22N23 N31N32N33
9 c MED_NO_INTERLACE/ednoin :
10 c Exemple avec 3 composantes X,Y,Z : X1X2X3Y1Y2Y3Z1Z2Z3...
11 c Exemple avec 3 MED_TRIA3 T1,T2,T3 : N11N21N31 N12N22N32 N13N23N33
13 integer edfuin, ednoin
19 c Indique le mode de stockage utilise par l'application.
20 c MED_UNDEF_STMODE/edstmo :
21 c Mode de stockage en memoire non initialise
22 c MED_GLOBAL_STMODE/edstgl :
23 c Le stockage utilise contient en memoire toutes les valeurs
24 c relatives a toutes les entites d'un meme type
25 c MED_COMPACT_STMODE/edstco :
26 c Le stockage utilise contient en memoire contigüe un sous-ensemble
27 c de valeurs relatives a un sous-ensemble d'entites d'un meme type.
29 integer edstmo, edstgl, edstco
36 c MED_ACC_RDONLY/edlect : Ouverture en lecture seule
37 c MED_ACC_RDWR/edrdwr : Ouverture en lecture/ecriture
38 c . si un element existe, il est ecrase
39 c MED_ACC_RDEXT/edrdex : Ouverture en lecture/ecriture
40 c . l'ecriture d'un objet existant provoque une erreur
41 c MED_ACC_CREAT/edcrea : Cree le fichier s'il n'existe pas, l'ecrase
44 integer edlect, edrdwr, edrdex, edcrea
52 c MED_NON_STRUCTURE/ednost : maillage non structure
53 c MED_STRUCTURE/edmast : maillage structure
55 integer ednost, edmast
65 c MED_NOEU_MAILLE/ednoma
66 integer edmail, edface, edaret, ednoeu, ednoma
80 integer edcoor, edconn, ednom, ednum, edfam
93 integer edfl64, edin32, edin64, edint
101 c MED_NBR_GEOMETRIE_MAILLE/edgema
102 c MED_NBR_GEOMETRIE_FACE/edgefa
103 c MED_NBR_GEOMETRIE_ARETE/edgear
104 integer edgema, edgefa, edgear
115 c MED_TRIA3, MED_QUAD4
116 c MED_TRIA6, MED_QUAD8
117 c MED_TETRA4, MED_PYRA5, MED_PENTA6, MED_HEXA8
118 c MED_TETRA10, MED_PYRA13, MED_PENTA15, MED_HEXA20
119 c MED_POLYGONE, MED_POLYEDRE
122 > edseg2, edseg3, edseg4,
123 > edtri3, edtri6, edtri7,
124 > edqua4, edqua8, edqua9,
127 > edpen6, edpe15, edpe18,
128 > edhex8, edhe20, edhe27
154 integer ednoda, eddesc
163 integer edcart, edcyli, edsphe
172 integer edcomp, eddtyp
181 integer edgrou, edattr, edfami
188 c MED_HDF_VERSION/edhdve
190 c MED_FICH_DES/edfide
191 integer edhdve, ededve, edfide
200 c MED_GAUSS_ELNO/edngen
205 character*64 ednoga, edngen, ednopl
206 integer ednopg, ednopf, ednonr, edall
218 c 1234567890123456789012345678901234567890123456789012345678901234
222 c MED_UNDEF_DT/edundt
223 integer ednodt, ednoit
224 double precision edundt
228 > edundt = 1.7921958d15
231 c MED_SORT_DTIT/edsodi
232 c MED_SORT_ITDT/edsoid
233 c MED_SORT_UNDEF/edsoun
234 integer edsodi, edsoid, edsoun
241 c MED_COORDINATE/edda00
242 c MED_CONNECTIVITY/edda01
245 c MED_FAMILY_NUMBER/edda04
246 c MED_COORDINATE_AXIS1
247 c MED_COORDINATE_AXIS2
248 c MED_COORDINATE_AXIS3
251 c MED_GLOBAL_STMODE_NUMBER/edda10
252 c MED_VARIABLE_ATTRIBUTE
253 c MED_COORDINATE_TRSF
254 c MED_UNDEF_DATATYPE/eddaty
255 integer edda00, edda01, edda03, edda04, edda10
268 integer edfals, edtrue
274 c MED_RETERREUR/edreer
276 integer edreer, edexit