2 c=======================================================================
3 c description des mailles de reference pour une connectivite a la med
4 c-----------------------------------------------------------------------
5 c arsmed : donne le numero local de l'arete reliee a un sommet
6 c 1er champ : type HOMARD de la maille de reference
7 c 2eme champ : numero local du sommet concerne
8 c 3eme champ : rang de l'arete envisagee
9 c deamed : description des aretes par les numeros locaux des noeuds
10 c sans se preoccuper d'orientation
11 c 1er champ : type HOMARD de la maille de reference
12 c 2eme champ : numero local de l'arete envisagee
13 c 3eme champ : 1 et 2 pour chaque extremite, 3 pour le milieu
14 c-----------------------------------------------------------------------
16 integer arsmed(0:tehmax,10,4)
17 integer deamed(0:tehmax,12,3)
18 common /rfamed/ arsmed, deamed