2 c=======================================================================
3 c correspondance entre le code d'une face dans un tetraedre et les
4 c numeros locaux des aretes de cette face
5 c-----------------------------------------------------------------------
6 c i1(c) : numero local de la premiere arete d'une face de code c
7 c i2(c) : numero local de la deuxieme arete d'une face de code c
8 c i3(c) : numero local de la troisieme arete d'une face de code c
9 c-----------------------------------------------------------------------
10 integer i1(6), i2(6), i3(6)
11 common /i1i2i3/ i1, i2, i3