src/tool/Includes_Generaux/ope1a4.h

   1 C
   2 c diverses operations sur les entiers 1, 2, 3, 4
   3 c=======================================================================
   4 c per1a4 : entiers pour la permutation circulaire (1,.,4)
   5 c          . Pour i de 1 a 4 :
   6 c            per1a4(-5,i) = 1 devient 2, puis sens inverse
   7 c            per1a4(-4,i) = 1 devient 3, puis sens inverse
   8 c            per1a4(-3,i) = 1 devient 4, puis sens inverse
   9 c            per1a4(-2,i) = 1 idem, puis sens inverse
  10 c            per1a4(-1,i) = entier avant i (= per1a4(3,i))
  11 c            per1a4( 0,i) = i
  12 c            per1a4( 1,i) = entier apres i
  13 c            per1a4( 2,i) = entier 2 cases apres i
  14 c            per1a4( 3,i) = entier 3 cases apres i (= per1a4(-1,i))
  15 c per1a4(-5,1) = 2, per1a4(-5,2) = 1, per1a4(-5,3) = 4, per1a4(-5,4) = 3
  16 c per1a4(-4,1) = 3, per1a4(-4,2) = 2, per1a4(-4,3) = 1, per1a4(-4,4) = 4
  17 c per1a4(-3,1) = 4, per1a4(-3,2) = 3, per1a4(-3,3) = 2, per1a4(-3,4) = 1
  18 c per1a4(-2,1) = 1, per1a4(-2,2) = 4, per1a4(-2,3) = 3, per1a4(-2,4) = 2
  19 c per1a4(-1,1) = 4, per1a4(-1,2) = 1, per1a4(-1,3) = 2, per1a4(-1,4) = 3
  20 c per1a4( 0,1) = 1, per1a4( 0,2) = 2, per1a4( 0,3) = 3, per1a4( 0,4) = 4
  21 c per1a4( 1,1) = 2, per1a4( 1,2) = 3, per1a4( 1,3) = 4, per1a4( 1,4) = 1
  22 c per1a4( 2,1) = 3, per1a4( 2,2) = 4, per1a4( 2,3) = 1, per1a4( 2,4) = 2
  23 c per1a4( 3,1) = 4, per1a4( 3,2) = 1, per1a4( 3,3) = 2, per1a4( 3,4) = 3
  24 c
  25 c          . Pour i =5 :
  26 c            per1a4(j,5) = le reciproque de per1a4(j,*)
  27 c Les reciproques :
  28 c Eux-memes pour j = 0, -2, -3, -4, -5, 2 : per1a4(j,per1a4(j,i)) = i
  29 c -1/1, 3/1 : per1a4(-1,per1a4(1,i)) = per1a4(1,per1a4(-1,i)) = i
  30 c-----------------------------------------------------------------------
  31       integer         per1a4(-5:3,5)
  32       common /ope1a4/ per1a4