File: MEDiteratorsF.f

package info (click to toggle)
med-fichier 4.0.0%2Brepack-7
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 55,660 kB
  • sloc: cpp: 679,525; ansic: 72,977; python: 37,983; fortran: 12,925; sh: 6,821; f90: 5,531; makefile: 5,136; tcl: 216; xml: 173
file content (18 lines) | stat: -rw-r--r-- 593 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
      block data MED_SET_IT

      implicit none

      include "med_parameter.hf"

      common /MED/ MED_GET_CELL_GEOMETRY_TYPE
      integer MED_GET_CELL_GEOMETRY_TYPE(MED_N_CELL_FIXED_GEO)
      save /MED/
      data MED_GET_CELL_GEOMETRY_TYPE /
     &  MED_POINT1, MED_SEG2, MED_SEG3,
     &  MED_SEG4, MED_TRIA3, MED_QUAD4, MED_TRIA6,
     &  MED_TRIA7, MED_QUAD8, MED_QUAD9, MED_TETRA4,
     &  MED_PYRA5, MED_PENTA6, MED_HEXA8, MED_TETRA10,
     &  MED_OCTA12, MED_PYRA13, MED_PENTA15, MED_PENTA18, MED_HEXA20,
     &  MED_HEXA27, MED_POLYGON, MED_POLYGON2,MED_POLYHEDRON /

      END