Télécharger CCMED.INC

Retour à la liste

Numérotation des lignes :

  1.  
  2. INTEGER*4 MED_ACC_RDONLY,MED_ACC_RDWR,MED_ACC_RDEXT
  3. INTEGER*4 MED_ACC_CREAT,MED_ACC_UNDEF
  4. PARAMETER (MED_ACC_RDONLY=0,MED_ACC_RDWR=1)
  5. PARAMETER (MED_ACC_RDEXT=2,MED_ACC_CREAT=3,MED_ACC_UNDEF=4)
  6.  
  7. INTEGER*4 MED_UNSTRUCTURED_MESH, MED_STRUCTURED_MESH
  8. INTEGER*4 MED_UNDEF_MESH_TYPE
  9. PARAMETER (MED_UNSTRUCTURED_MESH=0,MED_STRUCTURED_MESH=1)
  10. PARAMETER (MED_UNDEF_MESH_TYPE=-1)
  11.  
  12. INTEGER*4 MED_CARTESIAN, MED_CYLINDRICAL, MED_SPHERICAL
  13. INTEGER*4 MED_UNDEF_AXIS_TYPE
  14. PARAMETER(MED_CARTESIAN=0, MED_CYLINDRICAL=1, MED_SPHERICAL=2)
  15. PARAMETER(MED_UNDEF_AXIS_TYPE=-1)
  16. INTEGER*4 MED_CARTESIAN_GRID, MED_POLAR_GRID
  17. INTEGER*4 MED_CURVILINEAR_GRID, MED_UNDEF_GRID_TYPE
  18. PARAMETER (MED_CARTESIAN_GRID=0, MED_POLAR_GRID=1)
  19. PARAMETER (MED_CURVILINEAR_GRID=2, MED_UNDEF_GRID_TYPE=-1)
  20.  
  21. INTEGER*4 MED_SORT_DTIT,MED_SORT_ITDT,MED_SORT_UNDEF
  22. PARAMETER (MED_SORT_DTIT=0,MED_SORT_ITDT=1,MED_SORT_UNDEF=-1)
  23.  
  24. INTEGER*4 MED_COMMENT_SIZE,MED_NAME_SIZE,MED_SNAME_SIZE
  25. INTEGER*4 MED_LNAME_SIZE
  26. PARAMETER (MED_COMMENT_SIZE=200,MED_NAME_SIZE=64)
  27. PARAMETER (MED_SNAME_SIZE=16, MED_LNAME_SIZE=80)
  28.  
  29. INTEGER*4 MED_NO_IT, MED_NO_DT
  30. PARAMETER (MED_NO_IT=-1, MED_NO_DT = -1)
  31. REAL*8 MED_UNDEF_DT
  32. PARAMETER (MED_UNDEF_DT = 0.0D0)
  33.  
  34. INTEGER*4 MED_UNDEF_INTERLACE,MED_FULL_INTERLACE
  35. INTEGER*4 MED_NO_INTERLACE
  36. PARAMETER (MED_UNDEF_INTERLACE=-1,MED_FULL_INTERLACE=0)
  37. PARAMETER (MED_NO_INTERLACE=1)
  38.  
  39. INTEGER*4 MED_CELL, MED_DESCENDING_FACE
  40. INTEGER*4 MED_DESCENDING_EDGE,MED_NODE
  41. INTEGER*4 MED_NODE_ELEMENT, MED_STRUCT_ELEMENT
  42. INTEGER*4 MED_ALL_ENTITY_TYPE,MED_UNDEF_ENTITY_TYPE
  43. INTEGER*4 MED_N_ENTITY_TYPES
  44. PARAMETER (MED_N_ENTITY_TYPES=6)
  45. PARAMETER (MED_CELL=0, MED_DESCENDING_FACE=1)
  46. PARAMETER (MED_DESCENDING_EDGE=2,MED_NODE=3)
  47. PARAMETER (MED_NODE_ELEMENT=4, MED_STRUCT_ELEMENT=5)
  48. PARAMETER (MED_ALL_ENTITY_TYPE=6,MED_UNDEF_ENTITY_TYPE=-1)
  49.  
  50. INTEGER*4 MED_POINT1,MED_SEG2,MED_SEG3,MED_SEG4,MED_TRIA3
  51. INTEGER*4 MED_QUAD4,MED_TRIA6,MED_TRIA7,MED_QUAD8,MED_QUAD9
  52. INTEGER*4 MED_TETRA4,MED_PYRA5,MED_PENTA6,MED_HEXA8,MED_TETRA10
  53. INTEGER*4 MED_OCTA12,MED_PYRA13,MED_PENTA15,MED_PENTA18
  54. INTEGER*4 MED_HEXA20,MED_HEXA27
  55. INTEGER*4 MED_POLYGON,MED_POLYGON2
  56. INTEGER*4 MED_POLYHEDRON, MED_STRUCT_GEO_INTERNAL
  57. INTEGER*4 MED_STRUCT_GEO_SUP_INTERNAL,MED_NONE
  58. INTEGER*4 MED_GEO_ALL,MED_ALL_GEOTYPE
  59. INTEGER*4 MED_NO_GEOTYPE,MED_UNDEF_GEOTYPE
  60. PARAMETER(MED_POINT1=001)
  61. PARAMETER(MED_SEG2=102)
  62. PARAMETER(MED_SEG3=103)
  63. PARAMETER(MED_SEG4=104)
  64. PARAMETER(MED_TRIA3=203)
  65. PARAMETER(MED_QUAD4=204)
  66. PARAMETER(MED_TRIA6=206)
  67. PARAMETER(MED_TRIA7=207)
  68. PARAMETER(MED_QUAD8=208)
  69. PARAMETER(MED_QUAD9=209)
  70. PARAMETER(MED_TETRA4=304)
  71. PARAMETER(MED_PYRA5=305)
  72. PARAMETER(MED_PENTA6=306)
  73. PARAMETER(MED_HEXA8=308)
  74. PARAMETER(MED_TETRA10=310)
  75. PARAMETER(MED_OCTA12=312)
  76. PARAMETER(MED_PYRA13=313)
  77. PARAMETER(MED_PENTA15=315)
  78. PARAMETER(MED_PENTA18=318)
  79. PARAMETER(MED_HEXA20=320)
  80. PARAMETER(MED_HEXA27=327)
  81. PARAMETER(MED_POLYGON=400)
  82. PARAMETER(MED_POLYGON2=420)
  83. PARAMETER(MED_POLYHEDRON=500)
  84. PARAMETER(MED_STRUCT_GEO_INTERNAL=600)
  85. PARAMETER(MED_STRUCT_GEO_SUP_INTERNAL=700)
  86. PARAMETER(MED_NONE=0)
  87. PARAMETER(MED_GEO_ALL=-1)
  88. PARAMETER(MED_ALL_GEOTYPE=-1)
  89. PARAMETER(MED_NO_GEOTYPE=0)
  90. PARAMETER(MED_UNDEF_GEOTYPE=0)
  91.  
  92. INTEGER*4 MED_N_CELL_GEO,MED_N_CELL_FIXED_GEO
  93. INTEGER*4 MED_N_CELL_GEO_FIXED_CON
  94. INTEGER*4 MED_N_FACE_GEO,MED_N_FACE_FIXED_GEO
  95. INTEGER*4 MED_N_FACE_GEO_FIXED_CON
  96. INTEGER*4 MED_N_EDGE_TYPES,MED_N_EDGE_FIXED_GEO
  97. INTEGER*4 MED_N_EDGE_GEO_FIXED_CON
  98. INTEGER*4 MED_N_NODE_GEO,MED_N_NODE_FIXED_GEO
  99. INTEGER*4 MED_N_NODE_GEO_FIXED_CON
  100. PARAMETER(MED_N_CELL_GEO=25)
  101. PARAMETER(MED_N_CELL_FIXED_GEO=24)
  102. PARAMETER(MED_N_CELL_GEO_FIXED_CON=21)
  103. PARAMETER(MED_N_FACE_GEO=8)
  104. PARAMETER(MED_N_FACE_FIXED_GEO=8)
  105. PARAMETER(MED_N_FACE_GEO_FIXED_CON=6)
  106. PARAMETER(MED_N_EDGE_TYPES=3)
  107. PARAMETER(MED_N_EDGE_FIXED_GEO=3)
  108. PARAMETER(MED_N_EDGE_GEO_FIXED_CON=3)
  109. PARAMETER(MED_N_NODE_GEO=1)
  110. PARAMETER(MED_N_NODE_FIXED_GEO=1)
  111. PARAMETER(MED_N_NODE_GEO_FIXED_CON=1)
  112.  
  113. INTEGER*4 MED_COORDINATE, MED_CONNECTIVITY
  114. INTEGER*4 MED_NAME, MED_NUMBER
  115. INTEGER*4 MED_FAMILY_NUMBER
  116. INTEGER*4 MED_COORDINATE_AXIS1, MED_COORDINATE_AXIS2
  117. INTEGER*4 MED_COORDINATE_AXIS3, MED_INDEX_FACE, MED_INDEX_NODE
  118. INTEGER*4 MED_GLOBAL_NUMBER, MED_VARIABLE_ATTRIBUTE
  119. INTEGER*4 MED_COORDINATE_TRSF, MED_UNDEF_DATATYPE
  120. PARAMETER(MED_COORDINATE=0, MED_CONNECTIVITY=1, MED_NAME=2)
  121. PARAMETER(MED_NUMBER=3, MED_FAMILY_NUMBER=4)
  122. PARAMETER(MED_COORDINATE_AXIS1=5, MED_COORDINATE_AXIS2=6)
  123. PARAMETER(MED_COORDINATE_AXIS3=7,MED_INDEX_FACE=8)
  124. PARAMETER(MED_INDEX_NODE=9,MED_GLOBAL_NUMBER=10)
  125. PARAMETER(MED_VARIABLE_ATTRIBUTE=11,MED_COORDINATE_TRSF=12)
  126. PARAMETER(MED_UNDEF_DATATYPE=-1)
  127.  
  128. INTEGER*4 MED_NODAL, MED_DESCENDING, MED_UNDEF_CONNECTIVITY_MODE
  129. INTEGER*4 MED_NO_CMODE
  130. PARAMETER(MED_NODAL=0,MED_DESCENDING=1)
  131. PARAMETER(MED_UNDEF_CONNECTIVITY_MODE=-1)
  132. PARAMETER(MED_NO_CMODE=-1)
  133.  
  134. INTEGER*4 MED_FALSE, MED_TRUE
  135. PARAMETER(MED_FALSE=0,MED_TRUE=1)
  136.  
  137. INTEGER*4 MED_UNDEF_PFLMODE,MED_GLOBAL_PFLMODE,MED_COMPACT_PFLMODE
  138. INTEGER*4 MED_UNDEF_STMODE,MED_GLOBAL_STMODE,MED_COMPACT_STMODE
  139. CHARACTER*64 MED_GAUSS_ELNO,MED_IPOINT_ELNO
  140. PARAMETER(MED_GAUSS_ELNO='MED_GAUSS_ELNO')
  141. PARAMETER(MED_IPOINT_ELNO='MED_GAUSS_ELNO')
  142. PARAMETER(MED_UNDEF_PFLMODE=0,MED_GLOBAL_PFLMODE=1)
  143. PARAMETER(MED_COMPACT_PFLMODE=2)
  144. PARAMETER(MED_UNDEF_STMODE=0,MED_GLOBAL_STMODE=1)
  145. PARAMETER(MED_COMPACT_STMODE=2)
  146. CHARACTER*64 MED_NO_NAME,MED_NO_MESHNAME,MED_NO_MESH
  147. CHARACTER*64 MED_NO_MESH_SUPPORT, MED_NO_LOCALIZATION
  148. CHARACTER*64 MED_NO_INTERPOLATION, MED_NO_PROFILE
  149. CHARACTER*64 MED_ALLENTITIES_PROFILE
  150. CHARACTER*80 MED_NO_GROUP
  151. PARAMETER(MED_NO_NAME=' ',MED_NO_MESHNAME=' ',MED_NO_MESH=' ')
  152. PARAMETER(MED_NO_MESH_SUPPORT=' ', MED_NO_LOCALIZATION=' ')
  153. PARAMETER(MED_NO_INTERPOLATION=' ', MED_NO_PROFILE=' ')
  154. PARAMETER(MED_ALLENTITIES_PROFILE=' ')
  155. PARAMETER(MED_NO_GROUP=' ')
  156.  
  157. INTEGER*4 MED_ALL_CONSTITUENT
  158. PARAMETER(MED_ALL_CONSTITUENT=0)
  159.  
  160. INTEGER*4 MED_UNDEF_SIZE,MED_NO_PROFILE_SIZE
  161. PARAMETER(MED_UNDEF_SIZE=0,MED_NO_PROFILE_SIZE=0)
  162.  
  163. INTEGER*4 MED_MESH,MED_FIELD,MED_LIBRARY,MED_FILE
  164. INTEGER*4 MED_MESH_SUPPORT,MED_ELSTRUCT,MED_FAMILY
  165. INTEGER*4 MED_EQUIVALENCE, MED_GROUP, MED_JOINT
  166. INTEGER*4 MED_LOCALIZATION, MED_PROFILE,MED_FILTER
  167. INTEGER*4 MED_INTERPOLATION
  168. INTEGER*4 MED_NUMERICAL_DATA,MED_LINK,MED_CLASS_UNDEF
  169. INTEGER*4 MED_CLASS_ALL
  170. PARAMETER(MED_MESH=0,MED_FIELD=1,MED_LIBRARY=2,MED_FILE=3)
  171. PARAMETER(MED_MESH_SUPPORT=4,MED_ELSTRUCT=5,MED_FAMILY=6)
  172. PARAMETER(MED_LOCALIZATION=7,MED_PROFILE=8,MED_FILTER=9)
  173. PARAMETER(MED_INTERPOLATION=10, MED_NUMERICAL_DATA=11)
  174. PARAMETER(MED_LINK=13, MED_CLASS_UNDEF=-1, MED_CLASS_ALL=-2)
  175.  
  176. INTEGER*4 MED_INT32,MED_INT64,MED_INT
  177. INTEGER*4 MED_FLOAT32,MED_FLOAT64,MED_DOUBLE
  178. PARAMETER (MED_INT32=24, MED_INT64=26, MED_INT=28)
  179. PARAMETER (MED_FLOAT32=4, MED_FLOAT64=6, MED_DOUBLE=6)
  180.  
  181. INTEGER*4 MED_ATT_FLOAT64,MED_ATT_INT,MED_ATT_NAME
  182. INTEGER*4 MED_ATT_UNDEF
  183. PARAMETER(MED_ATT_FLOAT64=MED_FLOAT64)
  184. PARAMETER(MED_ATT_INT=MED_INT)
  185. PARAMETER(MED_ATT_NAME=30)
  186. PARAMETER(MED_ATT_UNDEF=0)
  187.  
  188. CHARACTER*64 MED_PARTICLE_NAME, MED_BALL_NAME, MED_BEAM_NAME
  189. CHARACTER*64 MED_PARTICLE_LABEL,MED_BALL_DIAMETER
  190. CHARACTER*64 MED_BEAM_THICKNESS
  191. PARAMETER(MED_PARTICLE_NAME='MED_PARTICLE')
  192. PARAMETER(MED_BALL_NAME='MED_BALL')
  193. PARAMETER(MED_BEAM_NAME='MED_BEAM')
  194. PARAMETER(MED_PARTICLE_LABEL='MED_PARTICLE_LABEL')
  195. PARAMETER(MED_BALL_DIAMETER='MED_BALL_DIAMETER')
  196. PARAMETER(MED_BEAM_THICKNESS='MED_BEAM_THICKNESS')
  197.  
  198. INTEGER*4 MED_MAJOR_NUM, MED_MINOR_NUM, MED_RELEASE_NUM
  199. PARAMETER(MED_MAJOR_NUM=3)
  200. PARAMETER(MED_MINOR_NUM=3)
  201. PARAMETER(MED_RELEASE_NUM=1)
  202.  
  203. INTEGER*4 HDF_VERSION_RELEASE_REF, HDF_VERSION_MAJOR_REF
  204. INTEGER*4 HDF_VERSION_MINOR_REF
  205. CHARACTER*16 HDF_VERSION_REF
  206. PARAMETER(HDF_VERSION_REF='1.8.14')
  207. PARAMETER(HDF_VERSION_MAJOR_REF=1)
  208. PARAMETER(HDF_VERSION_MINOR_REF=8)
  209. PARAMETER(HDF_VERSION_RELEASE_REF=14)
  210.  
  211.  
  212. EXTERNAL MED_SET_IT
  213. COMMON /CMED/ MED_GET_CELL_GEOMETRY_TYPE
  214. INTEGER*4 MED_GET_CELL_GEOMETRY_TYPE(MED_N_CELL_FIXED_GEO)
  215. SAVE /CMED/
  216.  
  217. C Equivalence des Elements Cast3M => MED
  218. INTEGER MEDEL(48)
  219. DATA MEDEL( 1), MEDEL( 2), MEDEL( 3), MEDEL( 4), MEDEL( 5),
  220. . MEDEL( 6), MEDEL( 7), MEDEL( 8), MEDEL( 9), MEDEL(10),
  221. . MEDEL(11), MEDEL(12), MEDEL(13), MEDEL(14), MEDEL(15),
  222. . MEDEL(16), MEDEL(17), MEDEL(18), MEDEL(19), MEDEL(20),
  223. . MEDEL(21), MEDEL(22), MEDEL(23), MEDEL(24), MEDEL(25),
  224. . MEDEL(26), MEDEL(27), MEDEL(28), MEDEL(29), MEDEL(30),
  225. . MEDEL(31), MEDEL(32), MEDEL(33), MEDEL(34), MEDEL(35),
  226. . MEDEL(36), MEDEL(37), MEDEL(38), MEDEL(39), MEDEL(40),
  227. . MEDEL(41), MEDEL(42), MEDEL(43), MEDEL(44), MEDEL(45),
  228. . MEDEL(46), MEDEL(47), MEDEL(48)
  229. . / MED_POINT1, MED_SEG2, MED_SEG3, MED_TRIA3, MED_NONE,
  230. . MED_TRIA6, MED_TRIA7, MED_QUAD4, MED_NONE, MED_QUAD8,
  231. . MED_QUAD9, MED_NONE, MED_NONE, MED_HEXA8, MED_HEXA20,
  232. . MED_PENTA6, MED_PENTA15, MED_NONE, MED_NONE, MED_NONE,
  233. . MED_NONE, MED_NONE, MED_TETRA4, MED_TETRA10, MED_PYRA5,
  234. . MED_PYRA13, MED_NONE, MED_NONE, MED_NONE, MED_NONE,
  235. . MED_NONE, MED_NONE, MED_HEXA27, MED_NONE, MED_NONE,
  236. . MED_NONE, MED_SEG4, MED_NONE, MED_OCTA12, MED_NONE,
  237. . MED_NONE, MED_NONE, MED_NONE, MED_NONE, MED_NONE,
  238. . MED_NONE, MED_NONE, MED_NONE /
  239.  
  240. C Types d'Elements geometriques disponibles pour la sortie MED
  241. C le 327 vient du plus grand numero dans l'equivalence : MED_HEXA27
  242. INTEGER MDICLA(327)
  243. DATA MDICLA(MED_POINT1) , MDICLA(MED_SEG2) , MDICLA(MED_SEG3) ,
  244. . MDICLA(MED_TRIA3) , MDICLA(MED_TRIA6) , MDICLA(MED_TRIA7) ,
  245. . MDICLA(MED_QUAD4) , MDICLA(MED_QUAD8) , MDICLA(MED_QUAD9) ,
  246. . MDICLA(MED_HEXA8) , MDICLA(MED_HEXA20), MDICLA(MED_PENTA6) ,
  247. . MDICLA(MED_PENTA15), MDICLA(MED_TETRA4), MDICLA(MED_TETRA10),
  248. . MDICLA(MED_PYRA5) , MDICLA(MED_PYRA13), MDICLA(MED_HEXA27) ,
  249. . MDICLA(MED_SEG4) , MDICLA(MED_OCTA12)
  250. . / 1 , 2 , 3 ,
  251. . 4 , 6 , 7 ,
  252. . 8 , 10, 11,
  253. . 14, 15, 16,
  254. . 17, 23, 24,
  255. . 25, 26, 33,
  256. . 37, 39 /
  257.  
  258. C GTYPE et ETYPE Disponibles pour la sortie des resultats
  259. INTEGER MED_GTABLE
  260. PARAMETER(MED_GTABLE=20)
  261. INTEGER*4 MEDGTB(MED_GTABLE)
  262. DATA MEDGTB( 1), MEDGTB( 2), MEDGTB( 3), MEDGTB( 4), MEDGTB( 5),
  263. . MEDGTB( 6), MEDGTB( 7), MEDGTB( 8), MEDGTB( 9), MEDGTB(10),
  264. . MEDGTB(11), MEDGTB(12), MEDGTB(13), MEDGTB(14), MEDGTB(15),
  265. . MEDGTB(16), MEDGTB(17), MEDGTB(18), MEDGTB(19), MEDGTB(20)
  266. . / MED_POINT1, MED_SEG2, MED_SEG3, MED_TRIA3, MED_TRIA6,
  267. . MED_TRIA7, MED_QUAD4, MED_QUAD8, MED_QUAD9, MED_HEXA8,
  268. . MED_HEXA20, MED_PENTA6, MED_PENTA15, MED_TETRA4, MED_TETRA10,
  269. . MED_PYRA5, MED_PYRA13, MED_HEXA27, MED_SEG4, MED_OCTA12 /
  270.  
  271. INTEGER MED_ETABLE
  272. PARAMETER(MED_ETABLE=2)
  273. INTEGER*4 MEDETB(MED_ETABLE)
  274. DATA MEDETB(1), MEDETB(2)
  275. . / MED_NODE_ELEMENT, MED_CELL /
  276.  
  277.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales