# 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_POLYHEDRON /
    00017
    00018       END