integer*4 MED_ACC_RDONLY,MED_ACC_RDWR,MED_ACC_RDEXT
integer*4 MED_ACC_CREAT,MED_ACC_UNDEF
parameter (MED_ACC_RDONLY=0,MED_ACC_RDWR=1)
parameter (MED_ACC_RDEXT=2,MED_ACC_CREAT=3,MED_ACC_UNDEF=4)
integer*4 MED_UNSTRUCTURED_MESH, MED_STRUCTURED_MESH
integer*4 MED_UNDEF_MESH_TYPE
parameter (MED_UNSTRUCTURED_MESH=0,MED_STRUCTURED_MESH=1)
parameter (MED_UNDEF_MESH_TYPE=-1)
integer*4 MED_CARTESIAN, MED_CYLINDRICAL, MED_SPHERICAL
integer*4 MED_UNDEF_AXIS_TYPE
parameter(MED_CARTESIAN=0, MED_CYLINDRICAL=1, MED_SPHERICAL=2)
parameter(MED_UNDEF_AXIS_TYPE=-1)
integer*4 MED_CARTESIAN_GRID, MED_POLAR_GRID
integer*4 MED_CURVILINEAR_GRID, MED_UNDEF_GRID_TYPE
parameter (MED_CARTESIAN_GRID=0, MED_POLAR_GRID=1)
parameter (MED_CURVILINEAR_GRID=2, MED_UNDEF_GRID_TYPE=-1)
integer*4 MED_SORT_DTIT,MED_SORT_ITDT,MED_SORT_UNDEF
parameter (MED_SORT_DTIT=0,MED_SORT_ITDT=1,MED_SORT_UNDEF=-1)
integer*4 MED_COMMENT_SIZE,MED_NAME_SIZE,MED_SNAME_SIZE
integer*4 MED_LNAME_SIZE
parameter (MED_COMMENT_SIZE=200,MED_NAME_SIZE=64)
parameter (MED_SNAME_SIZE=16, MED_LNAME_SIZE=80)
integer*4 MED_NO_IT, MED_NO_DT
parameter (MED_NO_IT=-1, MED_NO_DT = -1)
real*8 MED_UNDEF_DT
parameter (MED_UNDEF_DT = 0.0D0)
integer*4 MED_UNDEF_INTERLACE,MED_FULL_INTERLACE
integer*4 MED_NO_INTERLACE
parameter (MED_UNDEF_INTERLACE=-1,MED_FULL_INTERLACE=0)
parameter (MED_NO_INTERLACE=1)
integer*4 MED_CELL, MED_DESCENDING_FACE
integer*4 MED_DESCENDING_EDGE,MED_NODE
integer*4 MED_NODE_ELEMENT, MED_STRUCT_ELEMENT
integer*4 MED_ALL_ENTITY_TYPE,MED_UNDEF_ENTITY_TYPE
integer*4 MED_N_ENTITY_TYPES
parameter (MED_N_ENTITY_TYPES=6)
parameter (MED_CELL=0, MED_DESCENDING_FACE=1)
parameter (MED_DESCENDING_EDGE=2,MED_NODE=3)
parameter (MED_NODE_ELEMENT=4, MED_STRUCT_ELEMENT=5)
parameter (MED_ALL_ENTITY_TYPE=6,MED_UNDEF_ENTITY_TYPE=-1)
integer*4 MED_POINT1,MED_SEG2,MED_SEG3,MED_SEG4,MED_TRIA3
integer*4 MED_QUAD4,MED_TRIA6,MED_TRIA7,MED_QUAD8,MED_QUAD9
integer*4 MED_TETRA4,MED_PYRA5,MED_PENTA6,MED_HEXA8,MED_TETRA10
integer*4 MED_OCTA12,MED_PYRA13,MED_PENTA15,MED_HEXA20,MED_HEXA27
integer*4 MED_POLYGON,MED_POLYHEDRON, MED_STRUCT_GEO_INTERNAL
integer*4 MED_STRUCT_GEO_SUP_INTERNAL,MED_NONE
integer*4 MED_GEO_ALL,MED_ALL_GEOTYPE
integer*4 MED_NO_GEOTYPE,MED_UNDEF_GEOTYPE
parameter(MED_POINT1=001)
parameter(MED_SEG2=102)
parameter(MED_SEG3=103)
parameter(MED_SEG4=104)
parameter(MED_TRIA3=203)
parameter(MED_QUAD4=204)
parameter(MED_TRIA6=206)
parameter(MED_TRIA7=207)
parameter(MED_QUAD8=208)
parameter(MED_QUAD9=209)
parameter(MED_TETRA4=304)
parameter(MED_PYRA5=305)
parameter(MED_PENTA6=306)
parameter(MED_HEXA8=308)
parameter(MED_TETRA10=310)
parameter(MED_OCTA12=312)
parameter(MED_PYRA13=313)
parameter(MED_PENTA15=315)
parameter(MED_HEXA20=320)
parameter(MED_HEXA27=327)
parameter(MED_POLYGON=400)
parameter(MED_POLYHEDRON=500)
parameter(MED_STRUCT_GEO_INTERNAL=600)
parameter(MED_STRUCT_GEO_SUP_INTERNAL=700)
parameter(MED_NONE=0)
parameter(MED_GEO_ALL=-1)
parameter(MED_ALL_GEOTYPE=-1)
parameter(MED_NO_GEOTYPE=0)
parameter(MED_UNDEF_GEOTYPE=0)
integer*4 MED_N_CELL_GEO,MED_N_CELL_FIXED_GEO
integer*4 MED_N_CELL_GEO_FIXED_CON
integer*4 MED_N_FACE_GEO,MED_N_FACE_FIXED_GEO
integer*4 MED_N_FACE_GEO_FIXED_CON
integer*4 MED_N_EDGE_TYPES,MED_N_EDGE_FIXED_GEO
integer*4 MED_N_EDGE_GEO_FIXED_CON
integer*4 MED_N_NODE_GEO,MED_N_NODE_FIXED_GEO
integer*4 MED_N_NODE_GEO_FIXED_CON
parameter(MED_N_CELL_GEO=23)
parameter(MED_N_CELL_FIXED_GEO=22)
parameter(MED_N_CELL_GEO_FIXED_CON=20)
parameter(MED_N_FACE_GEO=7)
parameter(MED_N_FACE_FIXED_GEO=7)
parameter(MED_N_FACE_GEO_FIXED_CON=6)
parameter(MED_N_EDGE_TYPES=3)
parameter(MED_N_EDGE_FIXED_GEO=3)
parameter(MED_N_EDGE_GEO_FIXED_CON=3)
parameter(MED_N_NODE_GEO=1)
parameter(MED_N_NODE_FIXED_GEO=1)
parameter(MED_N_NODE_GEO_FIXED_CON=1)
integer*4 MED_COORDINATE, MED_CONNECTIVITY
integer*4 MED_NAME, MED_NUMBER
integer*4 MED_FAMILY_NUMBER
integer*4 MED_COORDINATE_AXIS1, MED_COORDINATE_AXIS2
integer*4 MED_COORDINATE_AXIS3, MED_INDEX_FACE, MED_INDEX_NODE
integer*4 MED_GLOBAL_NUMBER, MED_VARIABLE_ATTRIBUTE
integer*4 MED_COORDINATE_TRSF, MED_UNDEF_DATATYPE
parameter(MED_COORDINATE=0, MED_CONNECTIVITY=1, MED_NAME=2)
parameter(MED_NUMBER=3, MED_FAMILY_NUMBER=4)
parameter(MED_COORDINATE_AXIS1=5, MED_COORDINATE_AXIS2=6)
parameter(MED_COORDINATE_AXIS3=7,MED_INDEX_FACE=8)
parameter(MED_INDEX_NODE=9,MED_GLOBAL_NUMBER=10)
parameter(MED_VARIABLE_ATTRIBUTE=11,MED_COORDINATE_TRSF=12)
parameter(MED_UNDEF_DATATYPE=-1)
integer*4 MED_NODAL, MED_DESCENDING, MED_UNDEF_CONNECTIVITY_MODE
integer*4 MED_NO_CMODE
parameter(MED_NODAL=0,MED_DESCENDING=1)
parameter(MED_UNDEF_CONNECTIVITY_MODE=-1)
parameter(MED_NO_CMODE=-1)
integer*4 MED_FALSE, MED_TRUE
parameter(MED_FALSE=0,MED_TRUE=1)
integer*4 MED_UNDEF_PFLMODE,MED_GLOBAL_PFLMODE,MED_COMPACT_PFLMODE
integer*4 MED_UNDEF_STMODE,MED_GLOBAL_STMODE,MED_COMPACT_STMODE
character*64 MED_GAUSS_ELNO,MED_IPOINT_ELNO
parameter(MED_GAUSS_ELNO='MED_GAUSS_ELNO')
parameter(MED_IPOINT_ELNO='MED_GAUSS_ELNO')
parameter(MED_UNDEF_PFLMODE=0,MED_GLOBAL_PFLMODE=1)
parameter(MED_COMPACT_PFLMODE=2)
parameter(MED_UNDEF_STMODE=0,MED_GLOBAL_STMODE=1)
parameter(MED_COMPACT_STMODE=2)
character*64 MED_NO_NAME,MED_NO_MESHNAME,MED_NO_MESH
character*64 MED_NO_MESH_SUPPORT, MED_NO_LOCALIZATION
character*64 MED_NO_INTERPOLATION, MED_NO_PROFILE
character*64 MED_ALLENTITIES_PROFILE
character*80 MED_NO_GROUP
parameter(MED_NO_NAME=' ',MED_NO_MESHNAME=' ',MED_NO_MESH=' ')
parameter(MED_NO_MESH_SUPPORT=' ', MED_NO_LOCALIZATION=' ')
parameter(MED_NO_INTERPOLATION=' ', MED_NO_PROFILE=' ')
parameter(MED_ALLENTITIES_PROFILE=' ')
parameter(MED_NO_GROUP=' ')
integer*4 MED_ALL_CONSTITUENT
parameter(MED_ALL_CONSTITUENT=0)
integer*4 MED_UNDEF_SIZE,MED_NO_PROFILE_SIZE
parameter(MED_UNDEF_SIZE=0,MED_NO_PROFILE_SIZE=0)
integer*4 MED_MESH,MED_FIELD,MED_LIBRARY,MED_FILE
integer*4 MED_MESH_SUPPORT,MED_ELSTRUCT,MED_FAMILY
integer*4 MED_EQUIVALENCE, MED_GROUP, MED_JOINT
integer*4 MED_LOCALIZATION, MED_PROFILE,MED_FILTER
integer*4 MED_INTERPOLATION
integer*4 MED_NUMERICAL_DATA,MED_LINK,MED_CLASS_UNDEF
integer*4 MED_CLASS_ALL
parameter(MED_MESH=0,MED_FIELD=1,MED_LIBRARY=2,MED_FILE=3)
parameter(MED_MESH_SUPPORT=4,MED_ELSTRUCT=5,MED_FAMILY=6)
parameter(MED_LOCALIZATION=7,MED_PROFILE=8,MED_FILTER=9)
parameter(MED_INTERPOLATION=10, MED_NUMERICAL_DATA=11)
parameter(MED_LINK=13, MED_CLASS_UNDEF=-1, MED_CLASS_ALL=-2)
integer*4 MED_INT32, MED_INT64,MED_FLOAT64,MED_INT
parameter (MED_INT32=24, MED_INT64=26,MED_FLOAT64=6,MED_INT=28)
integer*4 MED_ATT_FLOAT64,MED_ATT_INT,MED_ATT_NAME
integer*4 MED_ATT_UNDEF
parameter(MED_ATT_FLOAT64=MED_FLOAT64)
parameter(MED_ATT_INT=MED_INT)
parameter(MED_ATT_NAME=30)
parameter(MED_ATT_UNDEF=0)
character*64 MED_PARTICLE_NAME, MED_BALL_NAME, MED_BEAM_NAME
character*64 MED_PARTICLE_LABEL,MED_BALL_DIAMETER
character*64 MED_BEAM_THICKNESS
parameter(MED_PARTICLE_NAME='MED_PARTICLE')
parameter(MED_BALL_NAME='MED_BALL')
parameter(MED_BEAM_NAME='MED_BEAM')
parameter(MED_PARTICLE_LABEL='MED_PARTICLE_LABEL')
parameter(MED_BALL_DIAMETER='MED_BALL_DIAMETER')
parameter(MED_BEAM_THICKNESS='MED_BEAM_THICKNESS')
external MED_SET_IT
common /CMED/ MED_GET_CELL_GEOMETRY_TYPE
integer*4 MED_GET_CELL_GEOMETRY_TYPE(MED_N_CELL_FIXED_GEO)
save /CMED/
© Cast3M 2003 - All rights reserved.
Disclaimer