      SUBROUTINE ZCOLOR(ROUGE,VERT,BLEU,NBCOLO)
      REAL ROUGE(0:*),VERT(0:*),BLEU(0:*)
C      ZCOLOR
C Elle permet aux personnes fatiguees d'initialiser une table de couleur
C attention la couleur 0 est le noir.....
C Cette programation n'est pas geniale
C Les personnes dynamiques pouront faire mieux pour leur terminal particuli
C Cette fonction peut etre utilisee dans un driver f3d ou dans program util
C   EN ENTREE:
C     NBCOLO = NOMBRE DE COULEURS
C   EN SORTIE:
C     ROUGE,VERT,BLEU = TABLE DE COULEUR  ( LES COULEURS SONT [0...1] )
      REAL R(0:255),V(0:255),B(0:255)
c black
      DATA R(  0)/ 0.0000000/ ,V(  0)/ 0.0000000/,B(  0)/ 0.0000000/
c red
      DATA R(  1)/ 1.000000/  ,V(  1)/ 0.0000000/,B(  1)/ 0.0000000/
c green
      DATA R(  2)/ 0.0000000/ ,V(  2)/ 1.000000/ ,B(  2)/ 0.0000000/
c blue
      DATA R(  3)/ 0.0000000/ ,V(  3)/ 0.0000000/,B(  3)/ 1.000000/
      DATA R(  4)/ 0.0000000/ ,V(  4)/ 1.000000/ ,B(  4)/ 1.000000/
      DATA R(  5)/ 1.000000/  ,V(  5)/ 1.000000/ ,B(  5)/ 0.0000000/
      DATA R(  6)/ 1.000000/  ,V(  6)/ 0.0000000/,B(  6)/ 1.000000/
      DATA R(  7)/ 1.000000/  ,V(  7)/ 1.000000/ ,B(  7)/ 1.000000/
c gray (190 190 190)
      DATA R(  8)/ .74509804/ ,V(  8)/ .74509804/,B(  8)/ .74509804/
      DATA R(  9)/ 1.000000/  ,V(  9)/ 0.5000000/,B(  9)/ 0.5000000/
Cfj      DATA  R( 10)/ 0.5000000/,V( 10)/ 1.000000/,B( 10)/ 0.5000000/
      DATA R( 10)/ 0.6000000/ ,V( 10)/ 0.900000/ ,B( 10)/ 0.6000000/
      DATA R( 11)/ 0.5000000/ ,V( 11)/ 0.5000000/,B( 11)/ 1.000000/
      DATA R( 12)/ 0.5000000/ ,V( 12)/ 1.000000/ ,B( 12)/ 1.000000/
Cfj      DATA  R( 13)/ 1.000000/,V( 13)/ 1.000000/,B( 13)/ 0.5000000/
Cfj      DATA R( 13)/ 0.000000/  ,V( 13)/ 0.650000/ ,B( 13)/ 0.6500000/
c darkcyan (0 139 139)
      DATA R( 13)/ 0.000000/  ,V( 13)/.54509804/ ,B( 13)/.54509804/
Cfj      DATA  R( 14)/ 1.000000/,V( 14)/ 0.5000000/,B( 14)/ 1.000000/
      DATA R( 14)/ 0.400000/  ,V( 14)/ 0.2000000/,B( 14)/ 0.50000/
c gray35 (89 89 89)
      DATA R( 15)/.349019608/ ,V( 15)/.349019608/,B( 15)/.349019608/
      DATA R( 16)/ 0.8461539/ ,V( 16)/ 1.000000/ ,B( 16)/ 0.0000000/
      DATA R( 17)/ 0.7692307/ ,V( 17)/ 1.000000/ ,B( 17)/ 0.0000000/
      DATA R( 18)/ 0.6923077/ ,V( 18)/ 1.000000/ ,B( 18)/ 0.0000000/
      DATA R( 19)/ 0.6153846/ ,V( 19)/ 1.000000/ ,B( 19)/ 0.0000000/
      DATA R( 20)/ 0.5384616/ ,V( 20)/ 1.000000/ ,B( 20)/ 0.0000000/
      DATA R( 21)/ 0.4615383/ ,V( 21)/ 1.000000/ ,B( 21)/ 0.0000000/
      DATA R( 22)/ 0.3846153/ ,V( 22)/ 1.000000/ ,B( 22)/ 0.0000000/
      DATA R( 23)/ 0.3076923/ ,V( 23)/ 1.000000/ ,B( 23)/ 0.0000000/
      DATA R( 24)/ 0.2307692/ ,V( 24)/ 1.000000/ ,B( 24)/ 0.0000000/
      DATA R( 25)/ 0.1538460/ ,V( 25)/ 1.000000/ ,B( 25)/ 0.0000000/
      DATA R( 26)/ 7.6923013E-02/,V( 26)/ 1.000000/,B( 26)/ 0.0000000/
      DATA R( 27)/ 0.0000000/ ,V( 27)/ 1.000000/ ,B( 27)/ 0.0000000/
      DATA R( 28)/ 0.0000000/ ,V( 28)/ 1.000000/ ,B( 28)/ 7.6923132E-02/
      DATA R( 29)/ 0.0000000/ ,V( 29)/ 1.000000/ ,B( 29)/ 0.1538463/
      DATA R( 30)/ 0.0000000/ ,V( 30)/ 1.000000/ ,B( 30)/ 0.2307692/
      DATA R( 31)/ 0.0000000/ ,V( 31)/ 1.000000/ ,B( 31)/ 0.3076923/
      DATA R( 32)/ 0.0000000/ ,V( 32)/ 1.000000/ ,B( 32)/ 0.3846154/
      DATA R( 33)/ 0.0000000/ ,V( 33)/ 1.000000/ ,B( 33)/ 0.4615386/
      DATA R( 34)/ 0.0000000/ ,V( 34)/ 1.000000/ ,B( 34)/ 0.5384617/
      DATA R( 35)/ 0.0000000/ ,V( 35)/ 1.000000/ ,B( 35)/ 0.6153846/
      DATA R( 36)/ 0.0000000/ ,V( 36)/ 1.000000/ ,B( 36)/ 0.6923077/
      DATA R( 37)/ 0.0000000/ ,V( 37)/ 1.000000/ ,B( 37)/ 0.7692308/
      DATA R( 38)/ 0.0000000/ ,V( 38)/ 1.000000/ ,B( 38)/ 0.8461537/
      DATA R( 39)/ 0.0000000/ ,V( 39)/ 1.000000/ ,B( 39)/ 0.9230769/
      DATA R( 40)/ 0.0000000/ ,V( 40)/ 1.000000/ ,B( 40)/ 1.000000/
      DATA R( 41)/ 0.0000000/ ,V( 41)/ 0.9230766/,B( 41)/ 1.000000/
      DATA R( 42)/ 0.0000000/ ,V( 42)/ 0.8461537/,B( 42)/ 1.000000/
      DATA R( 43)/ 0.0000000/ ,V( 43)/ 0.7692306/,B( 43)/ 1.000000/
      DATA R( 44)/ 0.0000000/ ,V( 44)/ 0.6923077/,B( 44)/ 1.000000/
      DATA R( 45)/ 0.0000000/ ,V( 45)/ 0.6153846/,B( 45)/ 1.000000/
      DATA R( 46)/ 0.0000000/ ,V( 46)/ 0.5384617/,B( 46)/ 1.000000/
      DATA R( 47)/ 0.0000000/ ,V( 47)/ 0.4615383/,B( 47)/ 1.000000/
      DATA R( 48)/ 0.0000000/ ,V( 48)/ 0.3846154/,B( 48)/ 1.000000/
      DATA R( 49)/ 0.0000000/ ,V( 49)/ 0.3076921/,B( 49)/ 1.000000/
      DATA R( 50)/ 0.0000000/ ,V( 50)/ 0.2307692/,B( 50)/ 1.000000/
      DATA R( 51)/ 0.0000000/ ,V( 51)/ 0.1538460/,B( 51)/ 1.000000/
      DATA R( 52)/ 0.0000000/ ,V( 52)/ 7.6923132E-02/,B( 52)/ 1.000000/
      DATA R( 53)/ 0.0000000/ ,V( 53)/ 0.0000000/,B( 53)/ 1.000000/
      DATA R( 54)/ 7.6922894E-02/,V( 54)/ 0.0000000/,B( 54)/ 1.000000/
      DATA R( 55)/ 0.1538463/ ,V( 55)/ 0.0000000/,B( 55)/ 1.000000/
      DATA R( 56)/ 0.2307692/ ,V( 56)/ 0.0000000/,B( 56)/ 1.000000/
      DATA R( 57)/ 0.3076925/ ,V( 57)/ 0.0000000/,B( 57)/ 1.000000/
      DATA R( 58)/ 0.3846154/ ,V( 58)/ 0.0000000/,B( 58)/ 1.000000/
      DATA R( 59)/ 0.4615383/ ,V( 59)/ 0.0000000/,B( 59)/ 1.000000/
      DATA R( 60)/ 0.5384617/ ,V( 60)/ 0.0000000/,B( 60)/ 1.000000/
      DATA R( 61)/ 0.6153846/ ,V( 61)/ 0.0000000/,B( 61)/ 1.000000/
      DATA R( 62)/ 0.6923075/ ,V( 62)/ 0.0000000/,B( 62)/ 1.000000/
      DATA R( 63)/ 0.7692308/ ,V( 63)/ 0.0000000/,B( 63)/ 1.000000/
      DATA R( 64)/ 0.8461537/ ,V( 64)/ 0.0000000/,B( 64)/ 1.000000/
      DATA R( 65)/ 0.9230771/ ,V( 65)/ 0.0000000/,B( 65)/ 1.000000/
      DATA R( 66)/ 1.000000/  ,V( 66)/ 0.0000000/,B( 66)/ 1.000000/
      DATA R( 67)/ 1.000000/  ,V( 67)/ 0.0000000/,B( 67)/ 0.9230766/
      DATA R( 68)/ 1.000000/  ,V( 68)/ 0.0000000/,B( 68)/ 0.8461542/
      DATA R( 69)/ 1.000000/  ,V( 69)/ 0.0000000/,B( 69)/ 0.7692308/
      DATA R( 70)/ 1.000000/  ,V( 70)/ 0.0000000/,B( 70)/ 0.6923079/
      DATA R( 71)/ 1.000000/  ,V( 71)/ 0.0000000/,B( 71)/ 0.6153846/
      DATA R( 72)/ 1.000000/  ,V( 72)/ 0.0000000/,B( 72)/ 0.5384617/
      DATA R( 73)/ 1.000000/  ,V( 73)/ 0.0000000/,B( 73)/ 0.4615383/
      DATA R( 74)/ 1.000000/  ,V( 74)/ 0.0000000/,B( 74)/ 0.3846154/
      DATA R( 75)/ 1.000000/  ,V( 75)/ 0.0000000/,B( 75)/ 0.3076925/
      DATA R( 76)/ 1.000000/  ,V( 76)/ 0.0000000/,B( 76)/ 0.2307692/
      DATA R( 77)/ 1.000000/  ,V( 77)/ 0.0000000/,B( 77)/ 0.1538463/
      DATA R( 78)/ 1.000000/  ,V( 78)/ 0.0000000/,B( 78)/ 0.0769233/
      DATA R( 79)/ 1.000000/  ,V( 79)/ 0.9230769/,B( 79)/ 0.9230769/
      DATA R( 80)/ 1.000000/  ,V( 80)/ 0.8461538/,B( 80)/ 0.8461538/
      DATA R( 81)/ 1.000000/  ,V( 81)/ 0.7692307/,B( 81)/ 0.7692307/
      DATA R( 82)/ 1.000000/  ,V( 82)/ 0.6923077/,B( 82)/ 0.6923077/
      DATA R( 83)/ 1.000000/  ,V( 83)/ 0.6153846/,B( 83)/ 0.6153846/
      DATA R( 84)/ 1.000000/  ,V( 84)/ 0.5384615/,B( 84)/ 0.5384615/
      DATA R( 85)/ 1.000000/  ,V( 85)/ 0.4615384/,B( 85)/ 0.4615384/
      DATA R( 86)/ 1.000000/  ,V( 86)/ 0.3846154/,B( 86)/ 0.3846154/
      DATA R( 87)/ 1.000000/  ,V( 87)/ 0.3076923/,B( 87)/ 0.3076923/
      DATA R( 88)/ 1.000000/  ,V( 88)/ 0.2307692/,B( 88)/ 0.2307692/
      DATA R( 89)/ 1.000000/  ,V( 89)/ 0.1538461/,B( 89)/ 0.1538461/
      DATA R( 90)/ 1.000000/  ,V( 90)/ 0.0769230/,B( 90)/ 0.0769230/
      DATA R( 91)/ 1.000000/  ,V( 91)/ 1.000000/ ,B( 91)/ 0.9230769/
      DATA R( 92)/ 1.000000/  ,V( 92)/ 1.000000/ ,B( 92)/ 0.8461538/
      DATA R( 93)/ 1.000000/  ,V( 93)/ 1.000000/ ,B( 93)/ 0.7692307/
      DATA R( 94)/ 1.000000/  ,V( 94)/ 1.000000/ ,B( 94)/ 0.6923077/
      DATA R( 95)/ 1.000000/  ,V( 95)/ 1.000000/ ,B( 95)/ 0.6153846/
      DATA R( 96)/ 1.000000/  ,V( 96)/ 1.000000/ ,B( 96)/ 0.5384615/
      DATA R( 97)/ 1.000000/  ,V( 97)/ 1.000000/ ,B( 97)/ 0.4615384/
      DATA R( 98)/ 1.000000/  ,V( 98)/ 1.000000/ ,B( 98)/ 0.3846154/
      DATA R( 99)/ 1.000000/  ,V( 99)/ 1.000000/ ,B( 99)/ 0.3076923/
      DATA R(100)/ 1.000000/  ,V(100)/ 1.000000/ ,B(100)/ 0.2307692/
      DATA R(101)/ 1.000000/  ,V(101)/ 1.000000/ ,B(101)/ 0.1538461/
      DATA R(102)/ 1.000000/  ,V(102)/ 1.000000/ ,B(102)/ 0.0769230/
      DATA R(103)/ 0.9230769/ ,V(103)/ 1.000000/ ,B(103)/ 0.9230769/
      DATA R(104)/ 0.8461538/ ,V(104)/ 1.000000/ ,B(104)/ 0.8461538/
      DATA R(105)/ 0.7692307/ ,V(105)/ 1.000000/ ,B(105)/ 0.7692307/
      DATA R(106)/ 0.6923077/ ,V(106)/ 1.000000/ ,B(106)/ 0.6923077/
      DATA R(107)/ 0.6153846/ ,V(107)/ 1.000000/ ,B(107)/ 0.6153846/
      DATA R(108)/ 0.5384615/ ,V(108)/ 1.000000/ ,B(108)/ 0.5384615/
      DATA R(109)/ 0.4615384/ ,V(109)/ 1.000000/ ,B(109)/ 0.4615384/
      DATA R(110)/ 0.3846154/ ,V(110)/ 1.000000/ ,B(110)/ 0.3846154/
      DATA R(111)/ 0.3076923/ ,V(111)/ 1.000000/ ,B(111)/ 0.3076923/
      DATA R(112)/ 0.2307692/ ,V(112)/ 1.000000/ ,B(112)/ 0.2307692/
      DATA R(113)/ 0.1538461/ ,V(113)/ 1.000000/ ,B(113)/ 0.1538461/
      DATA R(114)/ 0.0769230/ ,V(114)/ 1.000000/ ,B(114)/ 0.0769230/
      DATA R(115)/ 0.9230769/ ,V(115)/ 1.000000/ ,B(115)/ 1.000000/
      DATA R(116)/ 0.8461538/ ,V(116)/ 1.000000/ ,B(116)/ 1.000000/
      DATA R(117)/ 0.7692307/ ,V(117)/ 1.000000/ ,B(117)/ 1.000000/
      DATA R(118)/ 0.6923077/ ,V(118)/ 1.000000/ ,B(118)/ 1.000000/
      DATA R(119)/ 0.6153846/ ,V(119)/ 1.000000/ ,B(119)/ 1.000000/
      DATA R(120)/ 0.5384615/ ,V(120)/ 1.000000/ ,B(120)/ 1.000000/
      DATA R(121)/ 0.4615384/ ,V(121)/ 1.000000/ ,B(121)/ 1.000000/
      DATA R(122)/ 0.3846154/ ,V(122)/ 1.000000/ ,B(122)/ 1.000000/
      DATA R(123)/ 0.3076923/ ,V(123)/ 1.000000/ ,B(123)/ 1.000000/
      DATA R(124)/ 0.2307692/ ,V(124)/ 1.000000/ ,B(124)/ 1.000000/
      DATA R(125)/ 0.1538461/ ,V(125)/ 1.000000/ ,B(125)/ 1.000000/
      DATA R(126)/ 0.0769230/ ,V(126)/ 1.000000/ ,B(126)/ 1.000000/
      DATA R(127)/ 0.9230769/ ,V(127)/ 0.9230769/,B(127)/ 1.000000/
      DATA R(128)/ 0.8461538/ ,V(128)/ 0.8461538/,B(128)/ 1.000000/
      DATA R(129)/ 0.7692307/ ,V(129)/ 0.7692307/,B(129)/ 1.000000/
      DATA R(130)/ 0.6923077/ ,V(130)/ 0.6923077/,B(130)/ 1.000000/
      DATA R(131)/ 0.6153846/ ,V(131)/ 0.6153846/,B(131)/ 1.000000/
      DATA R(132)/ 0.5384615/ ,V(132)/ 0.5384615/,B(132)/ 1.000000/
      DATA R(133)/ 0.4615384/ ,V(133)/ 0.4615384/,B(133)/ 1.000000/
      DATA R(134)/ 0.3846154/ ,V(134)/ 0.3846154/,B(134)/ 1.000000/
      DATA R(135)/ 0.3076923/ ,V(135)/ 0.3076923/,B(135)/ 1.000000/
      DATA R(136)/ 0.2307692/ ,V(136)/ 0.2307692/,B(136)/ 1.000000/
      DATA R(137)/ 0.1538461/ ,V(137)/ 0.1538461/,B(137)/ 1.000000/
      DATA R(138)/ 0.0769230/ ,V(138)/ 0.0769230/,B(138)/ 1.000000/
      DATA R(139)/ 1.000000/  ,V(139)/ 0.9230769/,B(139)/ 1.000000/
      DATA R(140)/ 1.000000/  ,V(140)/ 0.8461538/,B(140)/ 1.000000/
      DATA R(141)/ 1.000000/  ,V(141)/ 0.7692307/,B(141)/ 1.000000/
      DATA R(142)/ 1.000000/  ,V(142)/ 0.6923077/,B(142)/ 1.000000/
      DATA R(143)/ 1.000000/  ,V(143)/ 0.6153846/,B(143)/ 1.000000/
      DATA R(144)/ 1.000000/  ,V(144)/ 0.5384615/,B(144)/ 1.000000/
      DATA R(145)/ 1.000000/  ,V(145)/ 0.4615384/,B(145)/ 1.000000/
      DATA R(146)/ 1.000000/  ,V(146)/ 0.3846154/,B(146)/ 1.000000/
      DATA R(147)/ 1.000000/  ,V(147)/ 0.3076923/,B(147)/ 1.000000/
      DATA R(148)/ 1.000000/  ,V(148)/ 0.2307692/,B(148)/ 1.000000/
      DATA R(149)/ 1.000000/  ,V(149)/ 0.1538461/,B(149)/ 1.000000/
      DATA R(150)/ 1.000000/  ,V(150)/ 0.0769230/,B(150)/ 1.000000/
      DATA R(151)/ 0.076923/  ,V(151)/ 0.0000000/,B(151)/ 0.0000000/
      DATA R(152)/ 0.1538462/ ,V(152)/ 0.0000000/,B(152)/ 0.0000000/
      DATA R(153)/ 0.2307692/ ,V(153)/ 0.0000000/,B(153)/ 0.0000000/
      DATA R(154)/ 0.3076923/ ,V(154)/ 0.0000000/,B(154)/ 0.0000000/
      DATA R(155)/ 0.3846154/ ,V(155)/ 0.0000000/,B(155)/ 0.0000000/
      DATA R(156)/ 0.4615385/ ,V(156)/ 0.0000000/,B(156)/ 0.0000000/
      DATA R(157)/ 0.5384616/ ,V(157)/ 0.0000000/,B(157)/ 0.0000000/
      DATA R(158)/ 0.6153846/ ,V(158)/ 0.0000000/,B(158)/ 0.0000000/
      DATA R(159)/ 0.6923077/ ,V(159)/ 0.0000000/,B(159)/ 0.0000000/
      DATA R(160)/ 0.7692308/ ,V(160)/ 0.0000000/,B(160)/ 0.0000000/
      DATA R(161)/ 0.8461539/ ,V(161)/ 0.0000000/,B(161)/ 0.0000000/
      DATA R(162)/ 0.9230769/ ,V(162)/ 0.0000000/,B(162)/ 0.0000000/
      DATA R(163)/ 0.0769230/ ,V(163)/ 0.0769230/,B(163)/ 0.0000000/
      DATA R(164)/ 0.1538462/ ,V(164)/ 0.1538462/,B(164)/ 0.0000000/
      DATA R(165)/ 0.2307692/ ,V(165)/ 0.2307692/,B(165)/ 0.0000000/
      DATA R(166)/ 0.3076923/ ,V(166)/ 0.3076923/,B(166)/ 0.0000000/
      DATA R(167)/ 0.3846154/ ,V(167)/ 0.3846154/,B(167)/ 0.0000000/
      DATA R(168)/ 0.4615385/ ,V(168)/ 0.4615385/,B(168)/ 0.0000000/
      DATA R(169)/ 0.5384616/ ,V(169)/ 0.5384616/,B(169)/ 0.0000000/
      DATA R(170)/ 0.6153846/ ,V(170)/ 0.6153846/,B(170)/ 0.0000000/
      DATA R(171)/ 0.6923077/ ,V(171)/ 0.6923077/,B(171)/ 0.0000000/
      DATA R(172)/ 0.7692308/ ,V(172)/ 0.7692308/,B(172)/ 0.0000000/
      DATA R(173)/ 0.8461539/ ,V(173)/ 0.8461539/,B(173)/ 0.0000000/
      DATA R(174)/ 0.9230769/ ,V(174)/ 0.9230769/,B(174)/ 0.0000000/
      DATA R(175)/ 0.0000000/ ,V(175)/ 0.0769230/,B(175)/ 0.0000000/
      DATA R(176)/ 0.0000000/ ,V(176)/ 0.1538462/,B(176)/ 0.0000000/
      DATA R(177)/ 0.0000000/ ,V(177)/ 0.2307692/,B(177)/ 0.0000000/
      DATA R(178)/ 0.0000000/ ,V(178)/ 0.3076923/,B(178)/ 0.0000000/
      DATA R(179)/ 0.0000000/ ,V(179)/ 0.3846154/,B(179)/ 0.0000000/
      DATA R(180)/ 0.0000000/ ,V(180)/ 0.4615385/,B(180)/ 0.0000000/
      DATA R(181)/ 0.0000000/ ,V(181)/ 0.5384616/,B(181)/ 0.0000000/
      DATA R(182)/ 0.0000000/ ,V(182)/ 0.6153846/,B(182)/ 0.0000000/
      DATA R(183)/ 0.0000000/ ,V(183)/ 0.6923077/,B(183)/ 0.0000000/
      DATA R(184)/ 0.0000000/ ,V(184)/ 0.7692308/,B(184)/ 0.0000000/
      DATA R(185)/ 0.0000000/ ,V(185)/ 0.8461539/,B(185)/ 0.0000000/
      DATA R(186)/ 0.0000000/ ,V(186)/ 0.9230769/,B(186)/ 0.0000000/
      DATA R(187)/ 0.0000000/ ,V(187)/ 0.0769230/,B(187)/ 0.0769230/
      DATA R(188)/ 0.0000000/ ,V(188)/ 0.1538462/,B(188)/ 0.1538462/
      DATA R(189)/ 0.0000000/ ,V(189)/ 0.2307692/,B(189)/ 0.2307692/
      DATA R(190)/ 0.0000000/ ,V(190)/ 0.3076923/,B(190)/ 0.3076923/
      DATA R(191)/ 0.0000000/ ,V(191)/ 0.3846154/,B(191)/ 0.3846154/
      DATA R(192)/ 0.0000000/ ,V(192)/ 0.4615385/,B(192)/ 0.4615385/
      DATA R(193)/ 0.0000000/ ,V(193)/ 0.5384616/,B(193)/ 0.5384616/
      DATA R(194)/ 0.0000000/ ,V(194)/ 0.6153846/,B(194)/ 0.6153846/
      DATA R(195)/ 0.0000000/ ,V(195)/ 0.6923077/,B(195)/ 0.6923077/
      DATA R(196)/ 0.0000000/ ,V(196)/ 0.7692308/,B(196)/ 0.7692308/
      DATA R(197)/ 0.0000000/ ,V(197)/ 0.8461539/,B(197)/ 0.8461539/
      DATA R(198)/ 0.0000000/ ,V(198)/ 0.9230769/,B(198)/ 0.9230769/
      DATA R(199)/ 0.0000000/ ,V(199)/ 0.0000000/,B(199)/ 0.0769230/
      DATA R(200)/ 0.0000000/ ,V(200)/ 0.0000000/,B(200)/ 0.1538462/
      DATA R(201)/ 0.0000000/ ,V(201)/ 0.0000000/,B(201)/ 0.2307692/
      DATA R(202)/ 0.0000000/ ,V(202)/ 0.0000000/,B(202)/ 0.3076923/
      DATA R(203)/ 0.0000000/ ,V(203)/ 0.0000000/,B(203)/ 0.3846154/
      DATA R(204)/ 0.0000000/ ,V(204)/ 0.0000000/,B(204)/ 0.4615385/
      DATA R(205)/ 0.0000000/ ,V(205)/ 0.0000000/,B(205)/ 0.5384616/
      DATA R(206)/ 0.0000000/ ,V(206)/ 0.0000000/,B(206)/ 0.6153846/
      DATA R(207)/ 0.0000000/ ,V(207)/ 0.0000000/,B(207)/ 0.6923077/
      DATA R(208)/ 0.0000000/ ,V(208)/ 0.0000000/,B(208)/ 0.7692308/
      DATA R(209)/ 0.0000000/ ,V(209)/ 0.0000000/,B(209)/ 0.8461539/
      DATA R(210)/ 0.0000000/ ,V(210)/ 0.0000000/,B(210)/ 0.9230769/
      DATA R(211)/ 0.0769230/ ,V(211)/ 0.0000000/,B(211)/ 0.0769230/
      DATA R(212)/ 0.1538462/ ,V(212)/ 0.0000000/,B(212)/ 0.1538462/
      DATA R(213)/ 0.2307692/ ,V(213)/ 0.0000000/,B(213)/ 0.2307692/
      DATA R(214)/ 0.3076923/ ,V(214)/ 0.0000000/,B(214)/ 0.3076923/
      DATA R(215)/ 0.3846154/ ,V(215)/ 0.0000000/,B(215)/ 0.3846154/
      DATA R(216)/ 0.4615385/ ,V(216)/ 0.0000000/,B(216)/ 0.4615385/
      DATA R(217)/ 0.5384616/ ,V(217)/ 0.0000000/,B(217)/ 0.5384616/
      DATA R(218)/ 0.6153846/ ,V(218)/ 0.0000000/,B(218)/ 0.6153846/
      DATA R(219)/ 0.6923077/ ,V(219)/ 0.0000000/,B(219)/ 0.6923077/
      DATA R(220)/ 0.7692308/ ,V(220)/ 0.0000000/,B(220)/ 0.7692308/
      DATA R(221)/ 0.8461539/ ,V(221)/ 0.0000000/,B(221)/ 0.8461539/
      DATA R(222)/ 0.9230769/ ,V(222)/ 0.0000000/,B(222)/ 0.9230769/
      DATA R(223)/ 0.0000000/ ,V(223)/ 0.0000000/,B(223)/ 0.0000000/
      DATA R(224)/ 0.0769230/ ,V(224)/ 0.0769230/,B(224)/ 0.0769230/
      DATA R(225)/ 0.1538462/ ,V(225)/ 0.1538462/,B(225)/ 0.1538462/
      DATA R(226)/ 0.2307692/ ,V(226)/ 0.2307692/,B(226)/ 0.2307692/
      DATA R(227)/ 0.3076923/ ,V(227)/ 0.3076923/,B(227)/ 0.3076923/
      DATA R(228)/ 0.3846154/ ,V(228)/ 0.3846154/,B(228)/ 0.3846154/
      DATA R(229)/ 0.4615385/ ,V(229)/ 0.4615385/,B(229)/ 0.4615385/
      DATA R(230)/ 0.5384616/ ,V(230)/ 0.5384616/,B(230)/ 0.5384616/
      DATA R(231)/ 0.6153846/ ,V(231)/ 0.6153846/,B(231)/ 0.6153846/
      DATA R(232)/ 0.2274510/ ,V(232)/ 0.5372549/,B(232)/ 0.8823529/
      DATA R(233)/ 0.3647059/ ,V(233)/ 0.6549020/,B(233)/ 0.3843137/
      DATA R(234)/ 0.5960785/ ,V(234)/ 0.7333333/,B(234)/ 0.8509804/
      DATA R(235)/ 0.1921569/ ,V(235)/ 0.4901961/,B(235)/ 0.4941176/
      DATA R(236)/ 0.6392157/ ,V(236)/ 0.6352941/,B(236)/ 0.4588235/
      DATA R(237)/ 0.7333333/ ,V(237)/ 0.5843138/,B(237)/ 0.2509804/
      DATA R(238)/ 0.6470588/ ,V(238)/ 0.9803922/,B(238)/ 0.4274510/
      DATA R(239)/ 0.7490196/ ,V(239)/ 0.8039216/,B(239)/ 0.6156863/
      DATA R(240)/ 0.3294118/ ,V(240)/ 0.9372549/,B(240)/ 0.2705882/
      DATA R(241)/ 0.6039216/ ,V(241)/ 0.2235294/,B(241)/ 0.4862745/
      DATA R(242)/ 0.9372549/ ,V(242)/ 0.3843137/,B(242)/ 0.4549020/
      DATA R(243)/ 0.4509804/ ,V(243)/ 0.6901961/,B(243)/ 0.2901961/
      DATA R(244)/ 0.4274510/ ,V(244)/ 0.7058824/,B(244)/ 0.9098039/
      DATA R(245)/ 0.6705883/ ,V(245)/ 0.9568627/,B(245)/ 0.4274510/
      DATA R(246)/ 0.3294118/ ,V(246)/ 0.6196079/,B(246)/ 0.5411765/
      DATA R(247)/ 0.4274510/ ,V(247)/ 0.2235294/,B(247)/ 0.5607843/
      DATA R(248)/ 0.2352941/ ,V(248)/ 0.3215686/,B(248)/ 0.2078431/
      DATA R(249)/ 0.6549020/ ,V(249)/ 0.8901961/,B(249)/ 0.2235294/
      DATA R(250)/ 0.1686275/ ,V(250)/ 0.6862745/,B(250)/ 0.2392157/
      DATA R(251)/ 0.4000000/ ,V(251)/ 0.2862745/,B(251)/ 0.3647059/
      DATA R(252)/ 0.7647059/ ,V(252)/ 0.1490196/,B(252)/ 0.9725490/
      DATA R(253)/ 0.5215687/ ,V(253)/ 0.7529412/,B(253)/ 0.9882353/
      DATA R(254)/ 0.1803922/ ,V(254)/ 0.3568628/,B(254)/ 0.7882353/
      DATA R(255)/ 0.9960784/ ,V(255)/ 0.8196079/,B(255)/ 0.7254902/
C
      IF (NBCOLO.LT.0) THEN
        DO I=0,15
          ROUGE(I) = R(I)
          VERT (I) = V(I)
          BLEU (I) = B(I)
        ENDDO
      ELSEIF(NBCOLO.EQ.2) THEN
        ROUGE(0) = 0.
        VERT(0)  = 0.
        BLEU(0)  = 0.
        ROUGE(1) = 1.
        VERT(1)  = 1.
        BLEU(1)  = 1.
      ELSEIF(NBCOLO.LE.256) THEN
        ISHIFT = 16+MAX(0,200-NBCOLO)
        DO I=0,15
          ROUGE(I+ISHIFT) = R(I)
          VERT (I+ISHIFT) = V(I)
          BLEU (I+ISHIFT) = B(I)
        ENDDO
        NBCOLO = ISHIFT
      ELSE
        IB = NINT(REAL(NBCOLO)**0.3333333333)
1       CONTINUE
        IR = SQRT(FLOAT(NBCOLO)/IB)
        IV = NBCOLO/(IB*IR)
        IF (IR*IV*IB.GT.NBCOLO)THEN
          IB = IB-1
          GOTO 1
        ENDIF
        ROUGE(0) = 0.
        VERT(0)  = 0.
        BLEU(0)  = 0.
        I=1
        DO I1=IR-1,0,-1
          DO I2=IV-1,0,-1
            DO I3=IB-1,0,-1
              ROUGE(I)= FLOAT(I1)/FLOAT(IR-1)
              VERT(I) = FLOAT(I2)/FLOAT(IV-1)
              BLEU(I) = FLOAT(I3)/FLOAT(IB-1)
              I=I+1
            ENDDO
          ENDDO
        ENDDO
        IF (I.LE.NBCOLO-1)THEN
          K = 255
          DO I1=I,NBCOLO-1
            ROUGE(I1)= 0.5*(R(K)+R(K-1))
            VERT(I1) = 0.5*(V(K)+V(K-1))
            BLEU(I1) = 0.5*(B(K)+B(K-1))
            K = K-1
            IF (K.LE.2) K=255
          ENDDO
        ENDIF
      ENDIF
      END
