2 c=======================================================================
3 c correspondance entre le code d'une face dans un hexaaedre ou un
4 c pentaedre et les numeros locaux des aretes de cette face
5 c Pour une face de code c :
6 c j1(c) : numero local de l'arete I1
7 c j2(c) : numero local de l'arete I2
8 c j3(c) : numero local de l'arete I3
9 c j4(c) : numero local de l'arete I4
10 c-----------------------------------------------------------------------
11 integer j1(8), j2(8), j3(8), j4(8)
12 common /j1234j/ j1, j2, j3, j4