Sources Esope | Cast3M

palet1
C PALET1    SOURCE    FD218221  26/06/18    21:15:02     12577          
C     Definition de quelques palettes de couleurs
C
C     Entrees :
C       IPAL    ENTIER correspondant a la palette
C               = 1   Defaut (bleu-vert-rouge)
C               = 2   France
C               = 3   Arc en ciel 1
C               = 4   Arc en ciel 2
C               = 5   Jet
C               = 6   Plasma
C               = 7   Spectral
C               = 8   Viridis
C               = 9   Gnuplot2
C               = 10  Cuivre
C               = 11  Chaud
C               = 12  PiYG
C               = 13  PRGn
C               = 14  Managua
C               = 15  Gris
C               = 16  Violet
C               = 17  Bleu
C               = 18  Vert
C               = 19  Orange
C               = 20  Rouge
C       INVE    ENTIER
C               = 1    Palette inversee
C
C     Sorties :
C       MEVOL1  Pointeur EVOLUTIO de la palette
C               Contient 3 courbes avec
C               - en abscisse : des valeurs croissantes de 0. a 1.
C               - en ordonnee : les valeurs de codes rvb compris (entre 0. et 1).
C
      SUBROUTINE PALET1(IPAL,INVE,MEVOL1)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
-INC SMEVOLL
-INC SMLREEL
 
C     Les 4 LISTREELs definits dans ce programme
      POINTEUR ALFA.MLREEL,ROUG.MLREEL,VERT.MLREEL,BLEU.MLREEL
C     Un segment KEVOLL
      POINTEUR KEVOL3.KEVOLL
C     Si besoin d'inverser la palette
      REAL*8 TMP0(20),TMP1(20),TMP2(20),TMP3(20)
 
C     Redirection vers la definition de la palette selon IPAL
      IGO=IPAL
      GOTO (101,102,103,104,105,106,107,108,109,110,
     &      111,112,113,114,115,116,117,118,119,120),IGO
C     Au cas ou on soit arrive ici, on redirige vers la palette 'DEFA'
      GOTO 101
 
 
101   CONTINUE
C     IPAL = 1 : palette par defaut (bleu-vert-rouge)
      JG=5
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.3333D0
      ALFA.PROG(3)=0.5000D0
      ALFA.PROG(4)=0.6666D0
      ALFA.PROG(5)=1.0000D0
 
      ROUG.PROG(1)=0.0000D0
      ROUG.PROG(2)=0.0000D0
      ROUG.PROG(3)=0.0000D0
      ROUG.PROG(4)=1.0000D0
      ROUG.PROG(5)=1.0000D0
 
      VERT.PROG(1)=0.0000D0
      VERT.PROG(2)=1.0000D0
      VERT.PROG(3)=1.0000D0
      VERT.PROG(4)=1.0000D0
      VERT.PROG(5)=0.0000D0
 
      BLEU.PROG(1)=1.0000D0
      BLEU.PROG(2)=1.0000D0
      BLEU.PROG(3)=0.0000D0
      BLEU.PROG(4)=0.0000D0
      BLEU.PROG(5)=0.0000D0
      GOTO 999
 
102   CONTINUE
C     IPAL = 2 : palette France (Matplotlib : bwr)
      JG=3
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.5000D0
      ALFA.PROG(3)=1.0000D0
 
      ROUG.PROG(1)=0.0000D0
      ROUG.PROG(2)=1.0000D0
      ROUG.PROG(3)=1.0000D0
 
      VERT.PROG(1)=0.0000D0
      VERT.PROG(2)=1.0000D0
      VERT.PROG(3)=0.0000D0
 
      BLEU.PROG(1)=1.0000D0
      BLEU.PROG(2)=1.0000D0
      BLEU.PROG(3)=0.0000D0
 
      GOTO 999
 
103   CONTINUE
C     IPAL = 3 : palette Arc en ciel 1 (Matplotlib : rainbow)
      JG=13
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1) =0.0000D0
      ALFA.PROG(2) =0.0833D0
      ALFA.PROG(3) =0.1667D0
      ALFA.PROG(4) =0.2500D0
      ALFA.PROG(5) =0.3333D0
      ALFA.PROG(6) =0.4167D0
      ALFA.PROG(7) =0.5000D0
      ALFA.PROG(8) =0.5833D0
      ALFA.PROG(9) =0.6667D0
      ALFA.PROG(10)=0.7500D0
      ALFA.PROG(11)=0.8333D0
      ALFA.PROG(12)=0.9167D0
      ALFA.PROG(13)=1.0000D0
 
      ROUG.PROG(1) =0.5000D0
      ROUG.PROG(2) =0.3353D0
      ROUG.PROG(3) =0.1706D0
      ROUG.PROG(4) =0.0020D0
      ROUG.PROG(5) =0.1667D0
      ROUG.PROG(6) =0.3314D0
      ROUG.PROG(7) =0.5039D0
      ROUG.PROG(8) =0.6686D0
      ROUG.PROG(9) =0.8333D0
      ROUG.PROG(10)=1.0000D0
      ROUG.PROG(11)=1.0000D0
      ROUG.PROG(12)=1.0000D0
      ROUG.PROG(13)=1.0000D0
 
      VERT.PROG(1) =0.0000D0
      VERT.PROG(2) =0.2558D0
      VERT.PROG(3) =0.4947D0
      VERT.PROG(4) =0.7093D0
      VERT.PROG(5) =0.8660D0
      VERT.PROG(6) =0.9651D0
      VERT.PROG(7) =1.0000D0
      VERT.PROG(8) =0.9651D0
      VERT.PROG(9) =0.8660D0
      VERT.PROG(10)=0.7005D0
      VERT.PROG(11)=0.4947D0
      VERT.PROG(12)=0.2558D0
      VERT.PROG(13)=0.0000D0
 
      BLEU.PROG(1) =1.0000D0
      BLEU.PROG(2) =0.9916D0
      BLEU.PROG(3) =0.9667D0
      BLEU.PROG(4) =0.9233D0
      BLEU.PROG(5) =0.8660D0
      BLEU.PROG(6) =0.7943D0
      BLEU.PROG(7) =0.7049D0
      BLEU.PROG(8) =0.6075D0
      BLEU.PROG(9) =0.5000D0
      BLEU.PROG(10)=0.3784D0
      BLEU.PROG(11)=0.2558D0
      BLEU.PROG(12)=0.1290D0
      BLEU.PROG(13)=0.0000D0
      GOTO 999
 
104   CONTINUE
C     IPAL = 4 : palette Arc en ciel 2 (Matplotlib : gist_rainbow)
      JG=8
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.0426D0
      ALFA.PROG(3)=0.2128D0
      ALFA.PROG(4)=0.4043D0
      ALFA.PROG(5)=0.5957D0
      ALFA.PROG(6)=0.7660D0
      ALFA.PROG(7)=0.9574D0
      ALFA.PROG(8)=1.0000D0
 
      ROUG.PROG(1)=1.0000D0
      ROUG.PROG(2)=1.0000D0
      ROUG.PROG(3)=1.0000D0
      ROUG.PROG(4)=0.0000D0
      ROUG.PROG(5)=0.0000D0
      ROUG.PROG(6)=0.0000D0
      ROUG.PROG(7)=1.0000D0
      ROUG.PROG(8)=1.0000D0
 
      VERT.PROG(1)=0.0000D0
      VERT.PROG(2)=0.0000D0
      VERT.PROG(3)=1.0000D0
      VERT.PROG(4)=1.0000D0
      VERT.PROG(5)=1.0000D0
      VERT.PROG(6)=0.0000D0
      VERT.PROG(7)=0.0000D0
      VERT.PROG(8)=0.0000D0
 
      BLEU.PROG(1)=0.1600D0
      BLEU.PROG(2)=0.0000D0
      BLEU.PROG(3)=0.0000D0
      BLEU.PROG(4)=0.0000D0
      BLEU.PROG(5)=1.0000D0
      BLEU.PROG(6)=1.0000D0
      BLEU.PROG(7)=1.0000D0
      BLEU.PROG(8)=0.7500D0
      GOTO 999
 
105   CONTINUE
C     IPAL = 5 : palette Jet (Matplotlib : jet)
      JG=8
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.1200D0
      ALFA.PROG(3)=0.2500D0
      ALFA.PROG(4)=0.3800D0
      ALFA.PROG(5)=0.6200D0
      ALFA.PROG(6)=0.7500D0
      ALFA.PROG(7)=0.8800D0
      ALFA.PROG(8)=1.0000D0
 
      ROUG.PROG(1)=0.0000D0
      ROUG.PROG(2)=0.0000D0
      ROUG.PROG(3)=0.0000D0
      ROUG.PROG(4)=0.0854D0
      ROUG.PROG(5)=0.8950D0
      ROUG.PROG(6)=1.0000D0
      ROUG.PROG(7)=1.0000D0
      ROUG.PROG(8)=0.5000D0
 
      VERT.PROG(1)=0.0000D0
      VERT.PROG(2)=0.0020D0
      VERT.PROG(3)=0.5039D0
      VERT.PROG(4)=1.0000D0
      VERT.PROG(5)=1.0000D0
      VERT.PROG(6)=0.5817D0
      VERT.PROG(7)=0.1169D0
      VERT.PROG(8)=0.0000D0
 
      BLEU.PROG(1)=0.5000D0
      BLEU.PROG(2)=1.0000D0
      BLEU.PROG(3)=1.0000D0
      BLEU.PROG(4)=0.8824D0
      BLEU.PROG(5)=0.0727D0
      BLEU.PROG(6)=0.0000D0
      BLEU.PROG(7)=0.0000D0
      BLEU.PROG(8)=0.0000D0
      GOTO 999
 
106   CONTINUE
C     IPAL = 6 : palette Spectral (Matplotlib : spectral)
      JG=11
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1) =0.0000D0
      ALFA.PROG(2) =0.1000D0
      ALFA.PROG(3) =0.2000D0
      ALFA.PROG(4) =0.3000D0
      ALFA.PROG(5) =0.4000D0
      ALFA.PROG(6) =0.5000D0
      ALFA.PROG(7) =0.6000D0
      ALFA.PROG(8) =0.7000D0
      ALFA.PROG(9) =0.8000D0
      ALFA.PROG(10)=0.9000D0
      ALFA.PROG(11)=1.0000D0
 
      ROUG.PROG(1) =0.6196D0
      ROUG.PROG(2) =0.8311D0
      ROUG.PROG(3) =0.9569D0
      ROUG.PROG(4) =0.9915D0
      ROUG.PROG(5) =0.9961D0
      ROUG.PROG(6) =0.9981D0
      ROUG.PROG(7) =0.9020D0
      ROUG.PROG(8) =0.6653D0
      ROUG.PROG(9) =0.4000D0
      ROUG.PROG(10)=0.1995D0
      ROUG.PROG(11)=0.3687D0
 
      VERT.PROG(1) =0.0039D0
      VERT.PROG(2) =0.2384D0
      VERT.PROG(3) =0.4275D0
      VERT.PROG(4) =0.6774D0
      VERT.PROG(5) =0.8784D0
      VERT.PROG(6) =0.9992D0
      VERT.PROG(7) =0.9608D0
      VERT.PROG(8) =0.8646D0
      VERT.PROG(9) =0.7608D0
      VERT.PROG(10)=0.5290D0
      VERT.PROG(11)=0.3099D0
 
      BLEU.PROG(1) =0.2588D0
      BLEU.PROG(2) =0.3088D0
      BLEU.PROG(3) =0.2627D0
      BLEU.PROG(4) =0.3781D0
      BLEU.PROG(5) =0.5451D0
      BLEU.PROG(6) =0.7460D0
      BLEU.PROG(7) =0.5961D0
      BLEU.PROG(8) =0.6432D0
      BLEU.PROG(9) =0.6471D0
      BLEU.PROG(10)=0.7391D0
      BLEU.PROG(11)=0.6353D0
      GOTO 999
 
107   CONTINUE
C     IPAL = 7 : palette Palsma (Matplotlib : plasma)
      JG=5
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.2500D0
      ALFA.PROG(3)=0.5000D0
      ALFA.PROG(4)=0.7500D0
      ALFA.PROG(5)=1.0000D0
 
      ROUG.PROG(1)=0.0504D0
      ROUG.PROG(2)=0.4949D0
      ROUG.PROG(3)=0.7982D0
      ROUG.PROG(4)=0.9734D0
      ROUG.PROG(5)=0.9400D0
 
      VERT.PROG(1)=0.0298D0
      VERT.PROG(2)=0.0120D0
      VERT.PROG(3)=0.2802D0
      VERT.PROG(4)=0.5858D0
      VERT.PROG(5)=0.9752D0
 
      BLEU.PROG(1)=0.5280D0
      BLEU.PROG(2)=0.6579D0
      BLEU.PROG(3)=0.4695D0
      BLEU.PROG(4)=0.2515D0
      BLEU.PROG(5)=0.1313D0
      GOTO 999
 
108   CONTINUE
C     IPAL = 8 : palette Viridis (Matplotlib : viridis)
      JG=5
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.2500D0
      ALFA.PROG(3)=0.5000D0
      ALFA.PROG(4)=0.7500D0
      ALFA.PROG(5)=1.0000D0
 
      ROUG.PROG(1)=0.2670D0
      ROUG.PROG(2)=0.2297D0
      ROUG.PROG(3)=0.1276D0
      ROUG.PROG(4)=0.3692D0
      ROUG.PROG(5)=0.9932D0
 
      VERT.PROG(1)=0.0049D0
      VERT.PROG(2)=0.3224D0
      VERT.PROG(3)=0.5669D0
      VERT.PROG(4)=0.7889D0
      VERT.PROG(5)=0.9062D0
 
      BLEU.PROG(1)=0.3294D0
      BLEU.PROG(2)=0.5457D0
      BLEU.PROG(3)=0.5506D0
      BLEU.PROG(4)=0.3829D0
      BLEU.PROG(5)=0.1439D0
      GOTO 999
 
109   CONTINUE
C     IPAL = 9 : palette Gnuplot2 (Matplotlib : gnuplot2)
      JG=6
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.2500D0
      ALFA.PROG(3)=0.4167D0
      ALFA.PROG(4)=0.5833D0
      ALFA.PROG(5)=0.9167D0
      ALFA.PROG(6)=1.0000D0
 
      ROUG.PROG(1)=0.0000D0
      ROUG.PROG(2)=0.0031D0
      ROUG.PROG(3)=0.5178D0
      ROUG.PROG(4)=1.0000D0
      ROUG.PROG(5)=1.0000D0
      ROUG.PROG(6)=1.0000D0
 
      VERT.PROG(1)=0.0000D0
      VERT.PROG(2)=0.0000D0
      VERT.PROG(3)=0.0000D0
      VERT.PROG(4)=0.3286D0
      VERT.PROG(5)=0.9953D0
      VERT.PROG(6)=1.0000D0
 
      BLEU.PROG(1)=0.0000D0
      BLEU.PROG(2)=1.0000D0
      BLEU.PROG(3)=1.0000D0
      BLEU.PROG(4)=0.6714D0
      BLEU.PROG(5)=0.0047D0
      BLEU.PROG(6)=1.0000D0
      GOTO 999
 
110   CONTINUE
C     IPAL = 10 : palette Cuivre (Matplotlib : copper)
      JG=3
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.7500D0
      ALFA.PROG(3)=1.0000D0
 
      ROUG.PROG(1)=0.0000D0
      ROUG.PROG(2)=0.9301D0
      ROUG.PROG(3)=1.0000D0
 
      VERT.PROG(1)=0.0000D0
      VERT.PROG(2)=0.5882D0
      VERT.PROG(3)=0.7812D0
 
      BLEU.PROG(1)=0.0000D0
      BLEU.PROG(2)=0.3746D0
      BLEU.PROG(3)=0.4975D0
      GOTO 999
 
111   CONTINUE
C     IPAL = 11 : palette Chaud (Matplotlib : hot)
      JG=5
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.2500D0
      ALFA.PROG(3)=0.5000D0
      ALFA.PROG(4)=0.7500D0
      ALFA.PROG(5)=1.0000D0
 
      ROUG.PROG(1)=0.0416D0
      ROUG.PROG(2)=0.7005D0
      ROUG.PROG(3)=1.0000D0
      ROUG.PROG(4)=1.0000D0
      ROUG.PROG(5)=1.0000D0
 
      VERT.PROG(1)=0.0000D0
      VERT.PROG(2)=0.0000D0
      VERT.PROG(3)=0.3593D0
      VERT.PROG(4)=1.0000D0
      VERT.PROG(5)=1.0000D0
 
      BLEU.PROG(1)=0.0000D0
      BLEU.PROG(2)=0.0000D0
      BLEU.PROG(3)=0.0000D0
      BLEU.PROG(4)=0.0272D0
      BLEU.PROG(5)=1.0000D0
      GOTO 999
 
112   CONTINUE
C     IPAL = 12 : palette PiYG (Matplotlib : piyg)
      JG=5
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.2500D0
      ALFA.PROG(3)=0.5000D0
      ALFA.PROG(4)=0.7500D0
      ALFA.PROG(5)=1.0000D0
 
      ROUG.PROG(1)=0.5569D0
      ROUG.PROG(2)=0.9086D0
      ROUG.PROG(3)=0.9673D0
      ROUG.PROG(4)=0.6032D0
      ROUG.PROG(5)=0.1529D0
 
      VERT.PROG(1)=0.0039D0
      VERT.PROG(2)=0.5926D0
      VERT.PROG(3)=0.9685D0
      VERT.PROG(4)=0.8055D0
      VERT.PROG(5)=0.3921D0
 
      BLEU.PROG(1)=0.3216D0
      BLEU.PROG(2)=0.7703D0
      BLEU.PROG(3)=0.9656D0
      BLEU.PROG(4)=0.3822D0
      BLEU.PROG(5)=0.0980D0
      GOTO 999
 
113   CONTINUE
C     IPAL = 13 : palette PRGn (Matplotlib : prgn)
      JG=9
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.1200D0
      ALFA.PROG(3)=0.2500D0
      ALFA.PROG(4)=0.3800D0
      ALFA.PROG(5)=0.5000D0
      ALFA.PROG(6)=0.6200D0
      ALFA.PROG(7)=0.7500D0
      ALFA.PROG(8)=0.8800D0
      ALFA.PROG(9)=1.0000D0
 
      ROUG.PROG(1)=0.2510D0
      ROUG.PROG(2)=0.4977D0
      ROUG.PROG(3)=0.6820D0
      ROUG.PROG(4)=0.8717D0
      ROUG.PROG(5)=0.9663D0
      ROUG.PROG(6)=0.7961D0
      ROUG.PROG(7)=0.4932D0
      ROUG.PROG(8)=0.1592D0
      ROUG.PROG(9)=0.0000D0
 
      VERT.PROG(1)=0.0000D0
      VERT.PROG(2)=0.2347D0
      VERT.PROG(3)=0.5452D0
      VERT.PROG(4)=0.7880D0
      VERT.PROG(5)=0.9681D0
      VERT.PROG(6)=0.9186D0
      VERT.PROG(7)=0.7654D0
      VERT.PROG(8)=0.5163D0
      VERT.PROG(9)=0.2667D0
 
      BLEU.PROG(1)=0.2941D0
      BLEU.PROG(2)=0.5537D0
      BLEU.PROG(3)=0.7526D0
      BLEU.PROG(4)=0.8867D0
      BLEU.PROG(5)=0.9659D0
      BLEU.PROG(6)=0.7725D0
      BLEU.PROG(7)=0.4967D0
      BLEU.PROG(8)=0.2512D0
      BLEU.PROG(9)=0.1059D0
       GOTO 999
 
114   CONTINUE
C     IPAL = 14 : palette Managua (Matplotlib : managua)
      JG=16
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1) =0.0000D0
      ALFA.PROG(2) =0.0667D0
      ALFA.PROG(3) =0.1333D0
      ALFA.PROG(4) =0.2000D0
      ALFA.PROG(5) =0.2667D0
      ALFA.PROG(6) =0.3333D0
      ALFA.PROG(7) =0.4000D0
      ALFA.PROG(8) =0.4667D0
      ALFA.PROG(9) =0.5333D0
      ALFA.PROG(10)=0.6000D0
      ALFA.PROG(11)=0.6667D0
      ALFA.PROG(12)=0.7333D0
      ALFA.PROG(13)=0.8000D0
      ALFA.PROG(14)=0.8667D0
      ALFA.PROG(15)=0.9333D0
      ALFA.PROG(16)=1.0000D0
 
      ROUG.PROG(1) =1.0000D0
      ROUG.PROG(2) =0.9175D0
      ROUG.PROG(3) =0.8371D0
      ROUG.PROG(4) =0.7565D0
      ROUG.PROG(5) =0.6714D0
      ROUG.PROG(6) =0.5736D0
      ROUG.PROG(7) =0.4676D0
      ROUG.PROG(8) =0.3759D0
      ROUG.PROG(9) =0.3183D0
      ROUG.PROG(10)=0.2974D0
      ROUG.PROG(11)=0.3060D0
      ROUG.PROG(12)=0.3340D0
      ROUG.PROG(13)=0.3712D0
      ROUG.PROG(14)=0.4137D0
      ROUG.PROG(15)=0.4584D0
      ROUG.PROG(16)=0.5041D0
 
      VERT.PROG(1) =0.8126D0
      VERT.PROG(2) =0.6811D0
      VERT.PROG(3) =0.5629D0
      VERT.PROG(4) =0.4566D0
      VERT.PROG(5) =0.3614D0
      VERT.PROG(6) =0.2730D0
      VERT.PROG(7) =0.1988D0
      VERT.PROG(8) =0.1600D0
      VERT.PROG(9) =0.1753D0
      VERT.PROG(10)=0.2409D0
      VERT.PROG(11)=0.3345D0
      VERT.PROG(12)=0.4354D0
      VERT.PROG(13)=0.5389D0
      VERT.PROG(14)=0.6520D0
      VERT.PROG(15)=0.7743D0
      VERT.PROG(16)=0.9071D0
 
      BLEU.PROG(1) =0.4042D0
      BLEU.PROG(2) =0.3604D0
      BLEU.PROG(3) =0.3209D0
      BLEU.PROG(4) =0.2856D0
      BLEU.PROG(5) =0.2553D0
      BLEU.PROG(6) =0.2316D0
      BLEU.PROG(7) =0.2237D0
      BLEU.PROG(8) =0.2509D0
      BLEU.PROG(9) =0.3308D0
      BLEU.PROG(10)=0.4518D0
      BLEU.PROG(11)=0.5773D0
      BLEU.PROG(12)=0.6818D0
      BLEU.PROG(13)=0.7663D0
      BLEU.PROG(14)=0.8445D0
      BLEU.PROG(15)=0.9212D0
      BLEU.PROG(16)=0.9998D0
      GOTO 999
 
115   CONTINUE
C     IPAL = 15 : palette Gris (Matplotlib : binary)
      JG=2
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=1.0000D0
      ROUG.PROG(1)=1.0000D0
      ROUG.PROG(2)=0.0000D0
      VERT.PROG(1)=1.0000D0
      VERT.PROG(2)=0.0000D0
      BLEU.PROG(1)=1.0000D0
      BLEU.PROG(2)=0.0000D0
      GOTO 999
 
116   CONTINUE
C     IPAL = 16 : palette Violet (Matplotlib : purples)
      JG=14
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1) =0.0000D0
      ALFA.PROG(2) =0.0526D0
      ALFA.PROG(3) =0.1053D0
      ALFA.PROG(4) =0.1579D0
      ALFA.PROG(5) =0.2105D0
      ALFA.PROG(6) =0.2632D0
      ALFA.PROG(7) =0.3158D0
      ALFA.PROG(8) =0.3684D0
      ALFA.PROG(9) =0.4211D0
      ALFA.PROG(10)=0.4737D0
      ALFA.PROG(11)=0.5263D0
      ALFA.PROG(12)=0.5789D0
      ALFA.PROG(13)=0.6316D0
      ALFA.PROG(14)=1.0000D0
 
      ROUG.PROG(1) =0.9882D0
      ROUG.PROG(2) =0.9674D0
      ROUG.PROG(3) =0.9467D0
      ROUG.PROG(4) =0.9163D0
      ROUG.PROG(5) =0.8827D0
      ROUG.PROG(6) =0.8429D0
      ROUG.PROG(7) =0.7949D0
      ROUG.PROG(8) =0.7433D0
      ROUG.PROG(9) =0.6953D0
      ROUG.PROG(10)=0.6436D0
      ROUG.PROG(11)=0.5956D0
      ROUG.PROG(12)=0.5439D0
      ROUG.PROG(13)=0.4976D0
      ROUG.PROG(14)=0.2471D0
 
      VERT.PROG(1) =0.9843D0
      VERT.PROG(2) =0.9619D0
      VERT.PROG(3) =0.9395D0
      VERT.PROG(4) =0.9104D0
      VERT.PROG(5) =0.8800D0
      VERT.PROG(6) =0.8433D0
      VERT.PROG(7) =0.7969D0
      VERT.PROG(8) =0.7470D0
      VERT.PROG(9) =0.6922D0
      VERT.PROG(10)=0.6319D0
      VERT.PROG(11)=0.5807D0
      VERT.PROG(12)=0.5308D0
      VERT.PROG(13)=0.4814D0
      VERT.PROG(14)=0.0000D0
 
      BLEU.PROG(1) =0.9922D0
      BLEU.PROG(2) =0.9794D0
      BLEU.PROG(3) =0.9666D0
      BLEU.PROG(4) =0.9508D0
      BLEU.PROG(5) =0.9348D0
      BLEU.PROG(6) =0.9156D0
      BLEU.PROG(7) =0.8916D0
      BLEU.PROG(8) =0.8657D0
      BLEU.PROG(9) =0.8348D0
      BLEU.PROG(10)=0.8003D0
      BLEU.PROG(11)=0.7731D0
      BLEU.PROG(12)=0.7490D0
      BLEU.PROG(13)=0.7248D0
      BLEU.PROG(14)=0.4902D0
      GOTO 999
 
117   CONTINUE
C     IPAL = 17 : palette Bleu (Matplotlib : blues)
      JG=9
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.1250D0
      ALFA.PROG(3)=0.2500D0
      ALFA.PROG(4)=0.3750D0
      ALFA.PROG(5)=0.5000D0
      ALFA.PROG(6)=0.6250D0
      ALFA.PROG(7)=0.7500D0
      ALFA.PROG(8)=0.8750D0
      ALFA.PROG(9)=1.0000D0
 
      ROUG.PROG(1)=0.9686D0
      ROUG.PROG(2)=0.8702D0
      ROUG.PROG(3)=0.7752D0
      ROUG.PROG(4)=0.6173D0
      ROUG.PROG(5)=0.4171D0
      ROUG.PROG(6)=0.2563D0
      ROUG.PROG(7)=0.1271D0
      ROUG.PROG(8)=0.0314D0
      ROUG.PROG(9)=0.0314D0
 
      VERT.PROG(1)=0.9843D0
      VERT.PROG(2)=0.9213D0
      VERT.PROG(3)=0.8583D0
      VERT.PROG(4)=0.7909D0
      VERT.PROG(5)=0.6806D0
      VERT.PROG(6)=0.5700D0
      VERT.PROG(7)=0.4402D0
      VERT.PROG(8)=0.3141D0
      VERT.PROG(9)=0.1882D0
 
      BLEU.PROG(1)=1.0000D0
      BLEU.PROG(2)=0.9685D0
      BLEU.PROG(3)=0.9368D0
      BLEU.PROG(4)=0.8818D0
      BLEU.PROG(5)=0.8382D0
      BLEU.PROG(6)=0.7752D0
      BLEU.PROG(7)=0.7075D0
      BLEU.PROG(8)=0.6065D0
      BLEU.PROG(9)=0.4196D0
      GOTO 999
 
118   CONTINUE
C     IPAL = 18 : palette Vert (Matplotlib : greens)
      JG=9
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.1250D0
      ALFA.PROG(3)=0.2500D0
      ALFA.PROG(4)=0.3750D0
      ALFA.PROG(5)=0.5000D0
      ALFA.PROG(6)=0.6250D0
      ALFA.PROG(7)=0.7500D0
      ALFA.PROG(8)=0.8750D0
      ALFA.PROG(9)=1.0000D0
 
      ROUG.PROG(1)=0.9686D0
      ROUG.PROG(2)=0.8976D0
      ROUG.PROG(3)=0.7792D0
      ROUG.PROG(4)=0.6293D0
      ROUG.PROG(5)=0.4518D0
      ROUG.PROG(6)=0.2526D0
      ROUG.PROG(7)=0.1340D0
      ROUG.PROG(8)=0.0000D0
      ROUG.PROG(9)=0.0000D0
 
      VERT.PROG(1)=0.9882D0
      VERT.PROG(2)=0.9606D0
      VERT.PROG(3)=0.9132D0
      VERT.PROG(4)=0.8500D0
      VERT.PROG(5)=0.7671D0
      VERT.PROG(6)=0.6681D0
      VERT.PROG(7)=0.5423D0
      VERT.PROG(8)=0.4230D0
      VERT.PROG(9)=0.2667D0
 
      BLEU.PROG(1)=0.9608D0
      BLEU.PROG(2)=0.8779D0
      BLEU.PROG(3)=0.7518D0
      BLEU.PROG(4)=0.6061D0
      BLEU.PROG(5)=0.4612D0
      BLEU.PROG(6)=0.3629D0
      BLEU.PROG(7)=0.2683D0
      BLEU.PROG(8)=0.1707D0
      BLEU.PROG(9)=0.1059D0
      GOTO 999
 
119   CONTINUE
C     IPAL = 19 : palette Orange (Matplotlib : oranges)
      JG=9
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.1250D0
      ALFA.PROG(3)=0.2500D0
      ALFA.PROG(4)=0.3750D0
      ALFA.PROG(5)=0.5000D0
      ALFA.PROG(6)=0.6250D0
      ALFA.PROG(7)=0.7500D0
      ALFA.PROG(8)=0.8750D0
      ALFA.PROG(9)=1.0000D0
 
      ROUG.PROG(1)=1.0000D0
      ROUG.PROG(2)=0.9961D0
      ROUG.PROG(3)=0.9922D0
      ROUG.PROG(4)=0.9922D0
      ROUG.PROG(5)=0.9914D0
      ROUG.PROG(6)=0.9433D0
      ROUG.PROG(7)=0.8463D0
      ROUG.PROG(8)=0.6468D0
      ROUG.PROG(9)=0.4980D0
 
      VERT.PROG(1)=0.9608D0
      VERT.PROG(2)=0.9016D0
      VERT.PROG(3)=0.8146D0
      VERT.PROG(4)=0.6808D0
      VERT.PROG(5)=0.5507D0
      VERT.PROG(6)=0.4092D0
      VERT.PROG(7)=0.2807D0
      VERT.PROG(8)=0.2101D0
      VERT.PROG(9)=0.1529D0
 
      BLEU.PROG(1)=0.9216D0
      BLEU.PROG(2)=0.8072D0
      BLEU.PROG(3)=0.6336D0
      BLEU.PROG(4)=0.4174D0
      BLEU.PROG(5)=0.2328D0
      BLEU.PROG(6)=0.0731D0
      BLEU.PROG(7)=0.0041D0
      BLEU.PROG(8)=0.0119D0
      BLEU.PROG(9)=0.0157D0
      GOTO 999
 
120   CONTINUE
C     IPAL = 20 : palette Rouge (Matplotlib : reds)
      JG=9
      SEGINI ALFA,ROUG,VERT,BLEU
      ALFA.PROG(1)=0.0000D0
      ALFA.PROG(2)=0.1250D0
      ALFA.PROG(3)=0.2500D0
      ALFA.PROG(4)=0.3750D0
      ALFA.PROG(5)=0.5000D0
      ALFA.PROG(6)=0.6250D0
      ALFA.PROG(7)=0.7500D0
      ALFA.PROG(8)=0.8750D0
      ALFA.PROG(9)=1.0000D0
 
      ROUG.PROG(1)=1.0000D0
      ROUG.PROG(2)=0.9960D0
      ROUG.PROG(3)=0.9882D0
      ROUG.PROG(4)=0.9882D0
      ROUG.PROG(5)=0.9836D0
      ROUG.PROG(6)=0.9345D0
      ROUG.PROG(7)=0.7926D0
      ROUG.PROG(8)=0.6404D0
      ROUG.PROG(9)=0.4039D0
 
      VERT.PROG(1)=0.9608D0
      VERT.PROG(2)=0.8779D0
      VERT.PROG(3)=0.7321D0
      VERT.PROG(4)=0.5707D0
      VERT.PROG(5)=0.4128D0
      VERT.PROG(6)=0.2287D0
      VERT.PROG(7)=0.0933D0
      VERT.PROG(8)=0.0572D0
      VERT.PROG(9)=0.0000D0
 
      BLEU.PROG(1)=0.9412D0
      BLEU.PROG(2)=0.8228D0
      BLEU.PROG(3)=0.6299D0
      BLEU.PROG(4)=0.4452D0
      BLEU.PROG(5)=0.2884D0
      BLEU.PROG(6)=0.1714D0
      BLEU.PROG(7)=0.1130D0
      BLEU.PROG(8)=0.0815D0
      BLEU.PROG(9)=0.0510D0
      GOTO 999
 
 
999   CONTINUE
C     Inversion de la plalette ?
      IF (INVE.EQ.1) THEN
         DO I=1,JG
            TMP0(I)=1.D0-ALFA.PROG(JG-I+1)
            TMP1(I)=ROUG.PROG(JG-I+1)
            TMP2(I)=VERT.PROG(JG-I+1)
            TMP3(I)=BLEU.PROG(JG-I+1)
         ENDDO
         DO I=1,JG
            ALFA.PROG(I)=TMP0(I)
            ROUG.PROG(I)=TMP1(I)
            VERT.PROG(I)=TMP2(I)
            BLEU.PROG(I)=TMP3(I)
         ENDDO
      ENDIF
 
C     Desactivation des LISTREELs
      SEGDES ALFA,ROUG,VERT,BLEU
 
C     Creation des 3 evolutions elementaires pour les canaux R,V,B
      SEGINI KEVOL1,KEVOL2,KEVOL3
      KEVOL1.IPROGX=ALFA
      KEVOL1.IPROGY=ROUG
      KEVOL1.NUMEVX=2
      KEVOL1.MMARQ=8
      KEVOL1.NUMEVY='REEL'
      KEVOL1.TYPX='LISTREEL'
      KEVOL1.TYPY='LISTREEL'
      KEVOL1.NOMEVX='ALPHA'
      KEVOL1.NOMEVY='R,V,B'
      KEVOL1.KEVTEX='ROUGE'
      KEVOL2.IPROGX=ALFA
      KEVOL2.IPROGY=VERT
      KEVOL2.NUMEVX=4
      KEVOL2.MMARQ=8
      KEVOL2.NUMEVY='REEL'
      KEVOL2.TYPX='LISTREEL'
      KEVOL2.TYPY='LISTREEL'
      KEVOL2.NOMEVX='ALPHA'
      KEVOL2.NOMEVY='R,V,B'
      KEVOL2.KEVTEX='VERT'
      KEVOL3.IPROGX=ALFA
      KEVOL3.IPROGY=BLEU
      KEVOL3.NUMEVX=1
      KEVOL3.MMARQ=8
      KEVOL3.NUMEVY='REEL'
      KEVOL3.TYPX='LISTREEL'
      KEVOL3.TYPY='LISTREEL'
      KEVOL3.NOMEVX='ALPHA'
      KEVOL3.NOMEVY='R,V,B'
      KEVOL3.KEVTEX='BLEU'
      SEGDES KEVOL1,KEVOL2,KEVOL3
 
C     Creation de l'objet evolution de sortie
      N=3
      SEGINI,MEVOL1
      MEVOL1.ITYEVO='REEL'
      MEVOL1.IEVTEX='Palette'
      MEVOL1.IEVOLL(1)=KEVOL1
      MEVOL1.IEVOLL(2)=KEVOL2
      MEVOL1.IEVOLL(3)=KEVOL3
      SEGDES MEVOL1
 
C     Fin
      RETURN
      END