src/tool/Includes_Generaux/meddc0.h

   1 c
   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
   5 c
   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
  12 c
  13       integer edfuin, ednoin
  14       parameter (
  15      >            edfuin = 0,
  16      >            ednoin = 1
  17      > )
  18 c
  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.
  28 c
  29       integer edstmo, edstgl, edstco
  30       parameter (
  31      >            edstmo = 0,
  32      >            edstgl = 1,
  33      >            edstco = 2
  34      > )
  35 c
  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
  42 c                            sinon
  43 c
  44       integer edlect, edrdwr, edrdex, edcrea
  45       parameter (
  46      >            edlect = 0,
  47      >            edrdwr = 1,
  48      >            edrdex = 2,
  49      >            edcrea = 3
  50      > )
  51 c
  52 c     MED_NON_STRUCTURE/ednost : maillage non structure
  53 c     MED_STRUCTURE/edmast : maillage  structure
  54 c
  55       integer ednost, edmast
  56       parameter (
  57      >            ednost = 0,
  58      >            edmast = 1
  59      > )
  60 c
  61 c     MED_MAIL/edmail
  62 c     MED_FACE/edface
  63 c     MED_ARET/edaret
  64 c     MED_NOEU/ednoeu
  65 c     MED_NOEU_MAILLE/ednoma
  66       integer edmail, edface, edaret, ednoeu, ednoma
  67       parameter (
  68      >            edmail = 0,
  69      >            edface = 1,
  70      >            edaret = 2,
  71      >            ednoeu = 3,
  72      >            ednoma = 4
  73      > )
  74 c
  75 c     MED_COOR/edcoor
  76 c     MED_CONN/edconn
  77 c     MED_NOM/ednom
  78 c     MED_NUM/ednum
  79 c     MED_FAM/edfam
  80       integer edcoor, edconn, ednom, ednum, edfam
  81       parameter (
  82      >            edcoor = 0,
  83      >            edconn = 1,
  84      >            ednom  = 2,
  85      >            ednum  = 3,
  86      >            edfam  = 4
  87      > )
  88 c
  89 c     MED_FLOAT64/edfl64
  90 c     MED_INT32/edin32
  91 c     MED_INT64/edin64
  92 c     MED_INT/edint
  93       integer edfl64, edin32, edin64, edint
  94       parameter (
  95      >            edfl64 = 6,
  96      >            edin32 = 24,
  97      >            edin64 = 26,
  98      >            edint  = 28
  99      > )
 100 c
 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
 105       parameter (
 106      >            edgema = 15,
 107      >            edgefa = 4,
 108      >            edgear = 2
 109      > )
 110 c
 111 c     MED_POINT1
 112 c     MED_SEG2
 113 c     MED_SEG3
 114 c     MED_SEG4
 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
 120 c
 121       integer edpoi1,
 122      >        edseg2, edseg3, edseg4,
 123      >        edtri3, edtri6, edtri7,
 124      >        edqua4, edqua8, edqua9,
 125      >        edtet4, edte10,
 126      >        edpyr5, edpy13,
 127      >        edpen6, edpe15, edpe18,
 128      >        edhex8, edhe20, edhe27
 129       parameter (
 130      >            edpoi1 = 1,
 131      >            edseg2 = 102,
 132      >            edseg3 = 103,
 133      >            edseg4 = 104,
 134      >            edtri3 = 203,
 135      >            edtri6 = 206,
 136      >            edtri7 = 207,
 137      >            edqua4 = 204,
 138      >            edqua8 = 208,
 139      >            edqua9 = 209,
 140      >            edtet4 = 304,
 141      >            edte10 = 310,
 142      >            edpyr5 = 305,
 143      >            edpy13 = 313,
 144      >            edpen6 = 306,
 145      >            edpe15 = 315,
 146      >            edpe18 = 318,
 147      >            edhex8 = 308,
 148      >            edhe20 = 320,
 149      >            edhe27 = 327
 150      > )
 151 c
 152 c     MED_NOD/ednoda
 153 c     MED_DESC/eddesc
 154       integer ednoda, eddesc
 155       parameter (
 156      >            ednoda = 0,
 157      >            eddesc = 1
 158      > )
 159 c
 160 c     MED_CART/edcart
 161 c     MED_CYL/edcyli
 162 c     MED_SPHER/edsphe
 163       integer edcart, edcyli, edsphe
 164       parameter (
 165      >            edcart = 0,
 166      >            edcyli = 1,
 167      >            edsphe = 2
 168      > )
 169 c
 170 c     MED_COMP/edcomp
 171 c     MED_DTYPE/eddtyp
 172       integer edcomp, eddtyp
 173       parameter (
 174      >            edcomp = 0,
 175      >            eddtyp = 1
 176      > )
 177 c
 178 c     MED_GROUPE/edgrou
 179 c     MED_ATTR/edattr
 180 c     MED_FAMILLE/edfami
 181       integer edgrou, edattr, edfami
 182       parameter (
 183      >            edgrou = 0,
 184      >            edattr = 1,
 185      >            edfami = 2
 186      > )
 187 c
 188 c     MED_HDF_VERSION/edhdve
 189 c     MED_VERSION/ededve
 190 c     MED_FICH_DES/edfide
 191       integer edhdve, ededve, edfide
 192       parameter (
 193      >            edhdve = 0,
 194      >            ededve = 1,
 195      >            edfide = 2
 196      > )
 197 c
 198 c     MED_NOPG/ednopg
 199 c     MED_NOGAUSS/ednoga
 200 c     MED_GAUSS_ELNO/edngen
 201 c     MED_NOPF/ednopf
 202 c     MED_NOPFL/ednopl
 203 c     MED_NONOR/ednonr
 204 c     MED_ALL/edall
 205       character*64 ednoga, edngen, ednopl
 206       integer ednopg, ednopf, ednonr, edall
 207       parameter (
 208      >            ednopg = 1,
 209      >            ednoga = blan64,
 210      >            edngen =
 211      >'MED_GAUSS_ELNO                                                  '
 212      >            ,
 213      >            ednopf = 0,
 214      >            ednopl = blan64,
 215      >            ednonr = -1,
 216      >            edall  = 0
 217      > )
 218 c      1234567890123456789012345678901234567890123456789012345678901234
 219 c
 220 c     MED_NO_DT/ednodt
 221 c     MED_NO_IT/ednoit
 222 c     MED_UNDEF_DT/edundt
 223       integer ednodt, ednoit
 224       double precision edundt
 225       parameter (
 226      >            ednodt = -1,
 227      >            ednoit = -1,
 228      >            edundt = 1.7921958d15
 229      > )
 230 c
 231 c     MED_SORT_DTIT/edsodi
 232 c     MED_SORT_ITDT/edsoid
 233 c     MED_SORT_UNDEF/edsoun
 234       integer edsodi, edsoid, edsoun
 235       parameter (
 236      >            edsodi =  0,
 237      >            edsoid =  1,
 238      >            edsoun = -1
 239      > )
 240 c
 241 c     MED_COORDINATE/edda00
 242 c     MED_CONNECTIVITY/edda01
 243 c     MED_NAME/
 244 c     MED_NUMBER/edda03
 245 c     MED_FAMILY_NUMBER/edda04
 246 c     MED_COORDINATE_AXIS1
 247 c     MED_COORDINATE_AXIS2
 248 c     MED_COORDINATE_AXIS3
 249 c     MED_INDEX_FACE
 250 c     MED_INDEX_NODE
 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
 256       integer eddaty
 257       parameter (
 258      >            edda00 =   0,
 259      >            edda01 =   1,
 260      >            edda03 =   3,
 261      >            edda04 =   4,
 262      >            edda10 =  10,
 263      >            eddaty = -1
 264      > )
 265 c
 266 c     MED_FALSE/edfals
 267 c     MED_TRUE/edtrue
 268       integer edfals, edtrue
 269       parameter (
 270      >            edfals = 0,
 271      >            edtrue = 1
 272      > )
 273 c
 274 c     MED_RETERREUR/edreer
 275 c     MED_EXIT/edexit
 276       integer edreer, edexit
 277       parameter (
 278      >            edreer = 0,
 279      >            edexit = 1
 280      > )