2 c=======================================================================
3 c permutations des codes des faces dans les tetraedres
4 c-----------------------------------------------------------------------
5 c perm1 : permutation laissant la premiere fonction, i1, invariante
6 c perm2 : permutation laissant la deuxieme fonction, i2, invariante
7 c perm3 : permutation laissant la troisieme fonction, i3, invariante
8 c-----------------------------------------------------------------------
9 integer perm1(6), perm2(6), perm3(6)
10 common /permut/ perm1, perm2, perm3