src/tool/Includes_Generaux/refere.h

   1 c
   2 c=======================================================================
   3 c description des elements de reference
   4 c-----------------------------------------------------------------------
   5 c tyeref : precise le type d'element en fonction du type de reference
   6 c          0 si compatible avec le mode d'utilisation de HOMARD
   7 c          1 sinon
   8 c nbnref : donne le nombre de noeuds en fonction du type de reference ;
   9 c          1er champ : type HOMARD de l'element de reference
  10 c          2eme champ : 1 : sommets
  11 c                       2 : sommets + milieux d'aretes
  12 c                       3 : total (sommets+milieux+internes)
  13 c nbaref : donne le nombre d'aretes en fonction du type de reference
  14 c nasref : donne le nombre d'aretes reliees a chaque sommet, sans
  15 c          se preoccuper d'orientation, en fonction du type
  16 c nfaref : donne le nombre de faces qui s'appuient sur chaque arete
  17 c          sans se preoccuper d'orientation
  18 c nafref : donne le nombre d'aretes de chaque face de l'element
  19 c          1er champ : type HOMARD de l'element de reference
  20 c          2eme champ : numero local de la face envisagee
  21 c defref : pour chaque arete de chaque face, donne le numero local
  22 c          de l'arete dans la description de reference de l'element
  23 c          ce qui correspond aux tableaux de definitions de I1 I2 I3 I4
  24 c          dans la doc.
  25 c          1er champ : type HOMARD de l'element de reference
  26 c          2eme champ : numero local de la face envisagee
  27 c          3eme champ : 1, 2, 3 et 4 pour chaque arete
  28 c faaref : donne le numero local de la face s'appuyant sur une arete
  29 c          1er champ : type HOMARD de l'element de reference
  30 c          2eme champ : numero local de l'arete concernee
  31 c          3eme champ : rang de la face envisagee
  32 c-----------------------------------------------------------------------
  33 c
  34       integer tyeref(0:tehmax), nbnref(0:tehmax,3), nbaref(0:tehmax)
  35       integer nasref(0:tehmax), nfaref(0:tehmax)
  36       integer nafref(0:tehmax,6), defref(0:tehmax,6,4)
  37       integer faaref(0:tehmax,12,2)
  38       common /refere/ tyeref, nbnref, nbaref,
  39      >                nasref, nfaref,
  40      >                nafref, defref, faaref