2 c=======================================================================
3 c description des types d'entites a partir du format MED
4 c-----------------------------------------------------------------------
5 c medtrf : donne le type de reference en fonction du code MED
9 c 2 : poutre quadratique
10 c 3 : triangle lineaire
11 c 4 : triangle quadratique
12 c 5 : tetraedre lineaire
13 c 6 : tetraedre quadratique
14 c 7 : quadrangle lineaire
15 c 8 : quadrangle quadratique
16 c 9 : pyramide lineaire
17 c 10 : pyramide quadratique
18 c 11 : hexaedre lineaire
19 c 12 : hexaedre quadratique
20 c 13 : pentaedre lineaire
21 c 14 : pentaedre quadratique
22 c medt12 : donne le code med de la maille apres echange du degre
23 c mednnm : donne le nombre de noeuds de la maille med
24 c-----------------------------------------------------------------------
27 parameter ( nbtmed = 400 )
29 integer mednnm(0:nbtmed)
30 integer medtrf(0:nbtmed)
31 integer medt12(0:nbtmed)
32 common /rftmed/ mednnm, medtrf, medt12