5 include
"med_parameter.hf"
7 common /med/ med_get_cell_geometry_type
8 integer MED_GET_CELL_GEOMETRY_TYPE(MED_N_CELL_FIXED_GEO)
10 data med_get_cell_geometry_type /
11 & med_point1, med_seg2, med_seg3,
12 & med_seg4, med_tria3, med_quad4, med_tria6,
13 & med_tria7, med_quad8, med_quad9, med_tetra4,
14 & med_pyra5, med_penta6, med_hexa8, med_tetra10,
15 & med_octa12, med_pyra13, med_penta15, med_penta18, med_hexa20,
16 & med_hexa27, med_polygon, med_polygon2,med_polyhedron /