MEDiteratorsF.f
Aller à la documentation de ce fichier.00001 block data MED_SET_IT
00002
00003 implicit none
00004
00005 include "med_parameter.hf"
00006
00007 common /MED/ MED_GET_CELL_GEOMETRY_TYPE
00008 integer MED_GET_CELL_GEOMETRY_TYPE(MED_N_CELL_FIXED_GEO)
00009 save /MED/
00010 data MED_GET_CELL_GEOMETRY_TYPE /
00011 & MED_POINT1, MED_SEG2, MED_SEG3,
00012 & MED_SEG4, MED_TRIA3, MED_QUAD4, MED_TRIA6,
00013 & MED_TRIA7, MED_QUAD8, MED_QUAD9, MED_TETRA4,
00014 & MED_PYRA5, MED_PENTA6, MED_HEXA8, MED_TETRA10,
00015 & MED_OCTA12, MED_PYRA13, MED_PENTA15, MED_HEXA20,
00016 & MED_HEXA27, MED_POLYGON, MED_POLYGON2,MED_POLYHEDRON /
00017
00018 END