Homard executable

[modules/homard.git] / src / tool / Includes_Generaux / permut.h

diff --git a/src/tool/Includes_Generaux/permut.h b/src/tool/Includes_Generaux/permut.h
new file mode 100644 (file)
index 0000000..8a774c1
--- /dev/null
+++ b/src/tool/Includes_Generaux/permut.h
@@ -0,0 +1,10 @@
+c
+c=======================================================================
+c permutations des codes des faces dans les tetraedres
+c-----------------------------------------------------------------------
+c perm1 : permutation laissant la premiere fonction, i1, invariante
+c perm2 : permutation laissant la deuxieme fonction, i2, invariante
+c perm3 : permutation laissant la troisieme fonction, i3, invariante
+c-----------------------------------------------------------------------
+      integer         perm1(6), perm2(6), perm3(6)
+      common /permut/ perm1, perm2, perm3