[cig-commits] r8494 - seismo/2D/SPECFEM2D/trunk
walter at geodynamics.org
walter at geodynamics.org
Fri Dec 7 15:50:45 PST 2007
Author: walter
Date: 2007-12-07 15:50:44 -0800 (Fri, 07 Dec 2007)
New Revision: 8494
Modified:
seismo/2D/SPECFEM2D/trunk/plotpost.f90
Log:
changed color palette from 20 colors to 236 colors in random order
Modified: seismo/2D/SPECFEM2D/trunk/plotpost.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/plotpost.f90 2006-07-25 17:11:14 UTC (rev 8493)
+++ seismo/2D/SPECFEM2D/trunk/plotpost.f90 2007-12-07 23:50:44 UTC (rev 8494)
@@ -27,8 +27,8 @@
include "constants.h"
! color palette
- integer, parameter :: MAXCOLORS = 100
- double precision, dimension(MAXCOLORS) :: red,green,blue
+ integer, parameter :: NUM_COLORS = 236
+ double precision, dimension(NUM_COLORS) :: red,green,blue
integer it,nrec,nelemabs,numat,pointsdisp,pointsdisp_loop,nspec
integer i,npoin,npgeo,ngnod
@@ -63,7 +63,7 @@
double precision convert,x1,rlamda,rmu,denst,rKvol,cploc,xa,za,xb,zb
double precision z1,x2,z2,d,d1,d2,dummy,theta,thetaup,thetadown
- integer k,j,ispec,material,is,ir,nbcols,imat,icol,l,longueur
+ integer k,j,ispec,material,is,ir,imat,icol,l,longueur
integer indice,ii,ipoin,in,nnum,ispecabs,ideb,ifin,ibord
integer colors,numbers,subsamp,vecttype
@@ -86,89 +86,1188 @@
sizez = 21.d0
endif
-! definition de la palette de couleur
+! define color palette in random order
! red
- red(1) = 1.d0
- green(1) = 0.d0
- blue(1) = 0.d0
+ red(1) = 1.00000000000000
+ green(1) = 0.000000000000000E+000
+ blue(1) = 0.000000000000000E+000
+
+! DodgerBlue2
+ red(2) = 0.109803921568627
+ green(2) = 0.525490196078431
+ blue(2) = 0.933333333333333
+
+! Bisque3
+ red(3) = 0.803921568627451
+ green(3) = 0.717647058823529
+ blue(3) = 0.619607843137255
+
+! springgreen
+ red(4) = 0.000000000000000E+000
+ green(4) = 1.00000000000000
+ blue(4) = 0.500000000000000
+
+! NavajoWhite
+ red(5) = 1.00000000000000
+ green(5) = 0.870588235294118
+ blue(5) = 0.678431372549020
+
+! SteelBlue3
+ red(6) = 0.309803921568627
+ green(6) = 0.580392156862745
+ blue(6) = 0.803921568627451
+
+! Ivory3
+ red(7) = 0.803921568627451
+ green(7) = 0.803921568627451
+ blue(7) = 0.756862745098039
+
+! SkyBlue4
+ red(8) = 0.290196078431373
+ green(8) = 0.439215686274510
+ blue(8) = 0.545098039215686
+
+! Snow
+ red(9) = 0.980392156862745
+ green(9) = 0.980392156862745
+ blue(9) = 0.980392156862745
+
+! SteelBlue
+ red(10) = 0.274509803921569
+ green(10) = 0.509803921568627
+ blue(10) = 0.705882352941177
+
+! gold
+ red(11) = 1.00000000000000
+ green(11) = 0.840000000000000
+ blue(11) = 0.000000000000000E+000
+
+! Salmon
+ red(12) = 0.980392156862745
+ green(12) = 0.501960784313725
+ blue(12) = 0.447058823529412
+
+! SlateBlue2
+ red(13) = 0.478431372549020
+ green(13) = 0.403921568627451
+ blue(13) = 0.933333333333333
+
+! NavajoWhite2
+ red(14) = 0.933333333333333
+ green(14) = 0.811764705882353
+ blue(14) = 0.631372549019608
+
+! MediumBlue
+ red(15) = 0.000000000000000E+000
+ green(15) = 0.000000000000000E+000
+ blue(15) = 0.803921568627451
+
+! LightCoral
+ red(16) = 0.941176470588235
+ green(16) = 0.501960784313725
+ blue(16) = 0.501960784313725
+
+! FloralWhite
+ red(17) = 1.00000000000000
+ green(17) = 0.980392156862745
+ blue(17) = 0.941176470588235
+
+! Cornsilk3
+ red(18) = 0.803921568627451
+ green(18) = 0.784313725490196
+ blue(18) = 0.694117647058824
+
+! GhostWhite
+ red(19) = 0.972549019607843
+ green(19) = 0.972549019607843
+ blue(19) = 1.00000000000000
+
! blue
- red(2) = 0.d0
- green(2) = 0.d0
- blue(2) = 1.d0
+ red(20) = 0.000000000000000E+000
+ green(20) = 0.000000000000000E+000
+ blue(20) = 1.00000000000000
+
+! Linen
+ red(21) = 0.980392156862745
+ green(21) = 0.941176470588235
+ blue(21) = 0.901960784313726
+
+! peachpuff
+ red(22) = 1.00000000000000
+ green(22) = 0.850000000000000
+ blue(22) = 0.730000000000000
+
+! Cornsilk1
+ red(23) = 1.00000000000000
+ green(23) = 0.972549019607843
+ blue(23) = 0.862745098039216
+
+! LightSalmon
+ red(24) = 1.00000000000000
+ green(24) = 0.627450980392157
+ blue(24) = 0.478431372549020
+
+! DeepSkyBlue1
+ red(25) = 0.000000000000000E+000
+ green(25) = 0.749019607843137
+ blue(25) = 1.00000000000000
+
+! LemonChiffon4
+ red(26) = 0.545098039215686
+ green(26) = 0.537254901960784
+ blue(26) = 0.439215686274510
+
+! PeachPuff1
+ red(27) = 1.00000000000000
+ green(27) = 0.854901960784314
+ blue(27) = 0.725490196078431
+
+! BlanchedAlmond
+ red(28) = 1.00000000000000
+ green(28) = 0.921568627450980
+ blue(28) = 0.803921568627451
+
+! SlateBlue3
+ red(29) = 0.411764705882353
+ green(29) = 0.349019607843137
+ blue(29) = 0.803921568627451
+
+! LightSkyBlue1
+ red(30) = 0.690196078431373
+ green(30) = 0.886274509803922
+ blue(30) = 1.00000000000000
+
+! DarkViolet
+ red(31) = 0.580392156862745
+ green(31) = 0.000000000000000E+000
+ blue(31) = 0.827450980392157
+
+! Azure3
+ red(32) = 0.756862745098039
+ green(32) = 0.803921568627451
+ blue(32) = 0.803921568627451
+
+! LavenderBlush3
+ red(33) = 0.803921568627451
+ green(33) = 0.756862745098039
+ blue(33) = 0.772549019607843
+
+! Honeydew1
+ red(34) = 0.941176470588235
+ green(34) = 1.00000000000000
+ blue(34) = 0.941176470588235
+
+! Ivory2
+ red(35) = 0.933333333333333
+ green(35) = 0.933333333333333
+ blue(35) = 0.878431372549020
+
+! RosyBrown
+ red(36) = 0.737254901960784
+ green(36) = 0.560784313725490
+ blue(36) = 0.560784313725490
+
+! Thistle
+ red(37) = 0.847058823529412
+ green(37) = 0.749019607843137
+ blue(37) = 0.847058823529412
+
+! Orange
+ red(38) = 1.00000000000000
+ green(38) = 0.647058823529412
+ blue(38) = 0.000000000000000E+000
+
+! DarkSeaGreen
+ red(39) = 0.560784313725490
+ green(39) = 0.737254901960784
+ blue(39) = 0.560784313725490
+
+! Moccasin
+ red(40) = 1.00000000000000
+ green(40) = 0.894117647058824
+ blue(40) = 0.709803921568627
+
+! DeepSkyBlue2
+ red(41) = 0.000000000000000E+000
+ green(41) = 0.698039215686274
+ blue(41) = 0.933333333333333
+
+! SlateGray4
+ red(42) = 0.423529411764706
+ green(42) = 0.482352941176471
+ blue(42) = 0.545098039215686
+
+! Beige
+ red(43) = 0.960784313725490
+ green(43) = 0.960784313725490
+ blue(43) = 0.862745098039216
+
+! Gold
+ red(44) = 1.00000000000000
+ green(44) = 0.843137254901961
+ blue(44) = 0.000000000000000E+000
+
+! SlateBlue
+ red(45) = 0.415686274509804
+ green(45) = 0.352941176470588
+ blue(45) = 0.803921568627451
+
+! SteelBlue1
+ red(46) = 0.388235294117647
+ green(46) = 0.721568627450980
+ blue(46) = 1.00000000000000
+
+! SaddleBrown
+ red(47) = 0.545098039215686
+ green(47) = 0.270588235294118
+ blue(47) = 7.450980392156863E-002
+
+! Pink
+ red(48) = 1.00000000000000
+ green(48) = 0.752941176470588
+ blue(48) = 0.796078431372549
+
+! Black
+ red(49) = 0.000000000000000E+000
+ green(49) = 0.000000000000000E+000
+ blue(49) = 0.000000000000000E+000
+
+! SlateGrey
+ red(50) = 0.439215686274510
+ green(50) = 0.501960784313725
+ blue(50) = 0.564705882352941
+
+! Ivory
+ red(51) = 1.00000000000000
+ green(51) = 1.00000000000000
+ blue(51) = 0.941176470588235
+
+! OliveDrab
+ red(52) = 0.419607843137255
+ green(52) = 0.556862745098039
+ blue(52) = 0.137254901960784
+
+! Ivory1
+ red(53) = 1.00000000000000
+ green(53) = 1.00000000000000
+ blue(53) = 0.941176470588235
+
+! SkyBlue
+ red(54) = 0.529411764705882
+ green(54) = 0.807843137254902
+ blue(54) = 0.921568627450980
+
+! MistyRose3
+ red(55) = 0.803921568627451
+ green(55) = 0.717647058823529
+ blue(55) = 0.709803921568627
+
+! LimeGreen
+ red(56) = 0.196078431372549
+ green(56) = 0.803921568627451
+ blue(56) = 0.196078431372549
+
+! Purple
+ red(57) = 0.627450980392157
+ green(57) = 0.125490196078431
+ blue(57) = 0.941176470588235
+
+! SkyBlue2
+ red(58) = 0.494117647058824
+ green(58) = 0.752941176470588
+ blue(58) = 0.933333333333333
+
+! Red
+ red(59) = 1.00000000000000
+ green(59) = 0.000000000000000E+000
+ blue(59) = 0.000000000000000E+000
+
+! DarkKhaki
+ red(60) = 0.741176470588235
+ green(60) = 0.717647058823529
+ blue(60) = 0.419607843137255
+
+! MediumTurquoise
+ red(61) = 0.282352941176471
+ green(61) = 0.819607843137255
+ blue(61) = 0.800000000000000
+
+! Grey
+ red(62) = 0.745098039215686
+ green(62) = 0.745098039215686
+ blue(62) = 0.745098039215686
+
+! Coral
+ red(63) = 1.00000000000000
+ green(63) = 0.498039215686275
+ blue(63) = 0.313725490196078
+
+! NavajoWhite4
+ red(64) = 0.545098039215686
+ green(64) = 0.474509803921569
+ blue(64) = 0.368627450980392
+
+! SlateBlue4
+ red(65) = 0.278431372549020
+ green(65) = 0.235294117647059
+ blue(65) = 0.545098039215686
+
+! RoyalBlue4
+ red(66) = 0.152941176470588
+ green(66) = 0.250980392156863
+ blue(66) = 0.545098039215686
+
+! YellowGreen
+ red(67) = 0.603921568627451
+ green(67) = 0.803921568627451
+ blue(67) = 0.196078431372549
+
+! DeepSkyBlue3
+ red(68) = 0.000000000000000E+000
+ green(68) = 0.603921568627451
+ blue(68) = 0.803921568627451
+
+! goldenrod
+ red(69) = 0.854901960784314
+ green(69) = 0.647058823529412
+ blue(69) = 0.125490196078431
+
+! AntiqueWhite4
+ red(70) = 0.545098039215686
+ green(70) = 0.513725490196078
+ blue(70) = 0.470588235294118
+
+! lemonchiffon
+ red(71) = 1.00000000000000
+ green(71) = 0.980000000000000
+ blue(71) = 0.800000000000000
+
+! GreenYellow
+ red(72) = 0.678431372549020
+ green(72) = 1.00000000000000
+ blue(72) = 0.184313725490196
+
+! LightSlateGray
+ red(73) = 0.466666666666667
+ green(73) = 0.533333333333333
+ blue(73) = 0.600000000000000
+
+! RoyalBlue
+ red(74) = 0.254901960784314
+ green(74) = 0.411764705882353
+ blue(74) = 0.882352941176471
+
+! DarkGreen
+ red(75) = 0.000000000000000E+000
+ green(75) = 0.392156862745098
+ blue(75) = 0.000000000000000E+000
+
+! NavajoWhite3
+ red(76) = 0.803921568627451
+ green(76) = 0.701960784313725
+ blue(76) = 0.545098039215686
+
+! Azure1
+ red(77) = 0.941176470588235
+ green(77) = 1.00000000000000
+ blue(77) = 1.00000000000000
+
+! PowderBlue
+ red(78) = 0.690196078431373
+ green(78) = 0.878431372549020
+ blue(78) = 0.901960784313726
+
+! slateblue
+ red(79) = 0.420000000000000
+ green(79) = 0.350000000000000
+ blue(79) = 0.800000000000000
+
+! MediumOrchid
+ red(80) = 0.729411764705882
+ green(80) = 0.333333333333333
+ blue(80) = 0.827450980392157
+
+! turquoise
+ red(81) = 0.250000000000000
+ green(81) = 0.880000000000000
+ blue(81) = 0.820000000000000
+
+! Snow1
+ red(82) = 1.00000000000000
+ green(82) = 0.980392156862745
+ blue(82) = 0.980392156862745
+
! violet
- red(3) = .93d0
- green(3) = .51d0
- blue(3) = .93d0
-! medium orchid
- red(4) = .73d0
- green(4) = .33d0
- blue(4) = .83d0
-! dark orchid
- red(5) = .6d0
- green(5) = .2d0
- blue(5) = .8d0
-! blue violet
- red(6) = .54d0
- green(6) = .17d0
- blue(6) = .89d0
-! slate blue
- red(7) = .42d0
- green(7) = .35d0
- blue(7) = .80d0
-! deep pink
- red(8) = 1.d0
- green(8) = .08d0
- blue(8) = .58d0
-! dodger blue
- red(9) = .12d0
- green(9) = .56d0
- blue(9) = 1.d0
-! dark turquoise
- red(10) = 0.d0
- green(10) = .81d0
- blue(10) = .82d0
-! turquoise
- red(11) = .25d0
- green(11) = .88d0
- blue(11) = .82d0
-! lime green
- red(12) = .2d0
- green(12) = .8d0
- blue(12) = .2d0
-! spring green
- red(13) = 0.d0
- green(13) = 1.d0
- blue(13) = .5d0
+ red(83) = 0.930000000000000
+ green(83) = 0.510000000000000
+ blue(83) = 0.930000000000000
+
+! DeepPink
+ red(84) = 1.00000000000000
+ green(84) = 7.843137254901961E-002
+ blue(84) = 0.576470588235294
+
+! MistyRose4
+ red(85) = 0.545098039215686
+ green(85) = 0.490196078431373
+ blue(85) = 0.482352941176471
+
+! PeachPuff3
+ red(86) = 0.803921568627451
+ green(86) = 0.686274509803922
+ blue(86) = 0.584313725490196
+
+! MediumSeaGreen
+ red(87) = 0.235294117647059
+ green(87) = 0.701960784313725
+ blue(87) = 0.443137254901961
+
+! Honeydew4
+ red(88) = 0.513725490196078
+ green(88) = 0.545098039215686
+ blue(88) = 0.513725490196078
+
+! Tan
+ red(89) = 0.823529411764706
+ green(89) = 0.705882352941177
+ blue(89) = 0.549019607843137
+
+! DarkGoldenrod
+ red(90) = 0.721568627450980
+ green(90) = 0.525490196078431
+ blue(90) = 4.313725490196078E-002
+
+! Blue2
+ red(91) = 0.000000000000000E+000
+ green(91) = 0.000000000000000E+000
+ blue(91) = 0.933333333333333
+
+! Maroon
+ red(92) = 0.690196078431373
+ green(92) = 0.188235294117647
+ blue(92) = 0.376470588235294
+
+! LightSkyBlue3
+ red(93) = 0.552941176470588
+ green(93) = 0.713725490196078
+ blue(93) = 0.803921568627451
+
+! LemonChiffon2
+ red(94) = 0.933333333333333
+ green(94) = 0.913725490196078
+ blue(94) = 0.749019607843137
+
+! Snow3
+ red(95) = 0.803921568627451
+ green(95) = 0.788235294117647
+ blue(95) = 0.788235294117647
+
+! Ivory4
+ red(96) = 0.545098039215686
+ green(96) = 0.545098039215686
+ blue(96) = 0.513725490196078
+
+! AntiqueWhite3
+ red(97) = 0.803921568627451
+ green(97) = 0.752941176470588
+ blue(97) = 0.690196078431373
+
+! Bisque4
+ red(98) = 0.545098039215686
+ green(98) = 0.490196078431373
+ blue(98) = 0.419607843137255
+
+! Snow2
+ red(99) = 0.933333333333333
+ green(99) = 0.913725490196078
+ blue(99) = 0.913725490196078
+
+! SlateGray1
+ red(100) = 0.776470588235294
+ green(100) = 0.886274509803922
+ blue(100) = 1.00000000000000
+
+! Seashell2
+ red(101) = 0.933333333333333
+ green(101) = 0.898039215686275
+ blue(101) = 0.870588235294118
+
+! Aquamarine
+ red(102) = 0.498039215686275
+ green(102) = 1.00000000000000
+ blue(102) = 0.831372549019608
+
+! SlateGray2
+ red(103) = 0.725490196078431
+ green(103) = 0.827450980392157
+ blue(103) = 0.933333333333333
+
+! White
+ red(104) = 1.00000000000000
+ green(104) = 1.00000000000000
+ blue(104) = 1.00000000000000
+
+! LavenderBlush
+ red(105) = 1.00000000000000
+ green(105) = 0.941176470588235
+ blue(105) = 0.960784313725490
+
+! DodgerBlue3
+ red(106) = 9.411764705882353E-002
+ green(106) = 0.454901960784314
+ blue(106) = 0.803921568627451
+
+! RoyalBlue3
+ red(107) = 0.227450980392157
+ green(107) = 0.372549019607843
+ blue(107) = 0.803921568627451
+
+! LightYellow
+ red(108) = 1.00000000000000
+ green(108) = 1.00000000000000
+ blue(108) = 0.878431372549020
+
+! DeepSkyBlue
+ red(109) = 0.000000000000000E+000
+ green(109) = 0.749019607843137
+ blue(109) = 1.00000000000000
+
+! AntiqueWhite2
+ red(110) = 0.933333333333333
+ green(110) = 0.874509803921569
+ blue(110) = 0.800000000000000
+
+! CornflowerBlue
+ red(111) = 0.392156862745098
+ green(111) = 0.584313725490196
+ blue(111) = 0.929411764705882
+
+! PeachPuff4
+ red(112) = 0.545098039215686
+ green(112) = 0.466666666666667
+ blue(112) = 0.396078431372549
+
+! SpringGreen
+ red(113) = 0.000000000000000E+000
+ green(113) = 1.00000000000000
+ blue(113) = 0.498039215686275
+
+! Honeydew
+ red(114) = 0.941176470588235
+ green(114) = 1.00000000000000
+ blue(114) = 0.941176470588235
+
+! Honeydew2
+ red(115) = 0.878431372549020
+ green(115) = 0.933333333333333
+ blue(115) = 0.878431372549020
+
+! LightSeaGreen
+ red(116) = 0.125490196078431
+ green(116) = 0.698039215686274
+ blue(116) = 0.666666666666667
+
+! NavyBlue
+ red(117) = 0.000000000000000E+000
+ green(117) = 0.000000000000000E+000
+ blue(117) = 0.501960784313725
+
+! Azure4
+ red(118) = 0.513725490196078
+ green(118) = 0.545098039215686
+ blue(118) = 0.545098039215686
+
+! MediumAquamarine
+ red(119) = 0.400000000000000
+ green(119) = 0.803921568627451
+ blue(119) = 0.666666666666667
+
+! SkyBlue3
+ red(120) = 0.423529411764706
+ green(120) = 0.650980392156863
+ blue(120) = 0.803921568627451
+
+! LavenderBlush2
+ red(121) = 0.933333333333333
+ green(121) = 0.878431372549020
+ blue(121) = 0.898039215686275
+
+! Bisque1
+ red(122) = 1.00000000000000
+ green(122) = 0.894117647058824
+ blue(122) = 0.768627450980392
+
+! DarkOrange
+ red(123) = 1.00000000000000
+ green(123) = 0.549019607843137
+ blue(123) = 0.000000000000000E+000
+
+! LightSteelBlue
+ red(124) = 0.690196078431373
+ green(124) = 0.768627450980392
+ blue(124) = 0.870588235294118
+
+! SteelBlue2
+ red(125) = 0.360784313725490
+ green(125) = 0.674509803921569
+ blue(125) = 0.933333333333333
+
+! LemonChiffon3
+ red(126) = 0.803921568627451
+ green(126) = 0.788235294117647
+ blue(126) = 0.647058823529412
+
+! DarkSlateBlue
+ red(127) = 0.282352941176471
+ green(127) = 0.239215686274510
+ blue(127) = 0.545098039215686
+
+! Seashell
+ red(128) = 1.00000000000000
+ green(128) = 0.960784313725490
+ blue(128) = 0.933333333333333
+
+! Firebrick
+ red(129) = 0.698039215686274
+ green(129) = 0.133333333333333
+ blue(129) = 0.133333333333333
+
+! LightGray
+ red(130) = 0.827450980392157
+ green(130) = 0.827450980392157
+ blue(130) = 0.827450980392157
+
+! Blue
+ red(131) = 0.000000000000000E+000
+ green(131) = 0.000000000000000E+000
+ blue(131) = 1.00000000000000
+
+! Bisque2
+ red(132) = 0.933333333333333
+ green(132) = 0.835294117647059
+ blue(132) = 0.717647058823529
+
+! WhiteSmoke
+ red(133) = 0.960784313725490
+ green(133) = 0.960784313725490
+ blue(133) = 0.960784313725490
+
+! SeaGreen
+ red(134) = 0.180392156862745
+ green(134) = 0.545098039215686
+ blue(134) = 0.341176470588235
+
+! Burlywood
+ red(135) = 0.870588235294118
+ green(135) = 0.721568627450980
+ blue(135) = 0.529411764705882
+
+! RoyalBlue2
+ red(136) = 0.262745098039216
+ green(136) = 0.431372549019608
+ blue(136) = 0.933333333333333
+
+! RoyalBlue1
+ red(137) = 0.282352941176471
+ green(137) = 0.462745098039216
+ blue(137) = 1.00000000000000
+
+! SteelBlue4
+ red(138) = 0.211764705882353
+ green(138) = 0.392156862745098
+ blue(138) = 0.545098039215686
+
+! AliceBlue
+ red(139) = 0.941176470588235
+ green(139) = 0.972549019607843
+ blue(139) = 1.00000000000000
+
+! LightSlateBlue
+ red(140) = 0.517647058823529
+ green(140) = 0.439215686274510
+ blue(140) = 1.00000000000000
+
+! MistyRose1
+ red(141) = 1.00000000000000
+ green(141) = 0.894117647058824
+ blue(141) = 0.882352941176471
+
+! SandyBrown
+ red(142) = 0.956862745098039
+ green(142) = 0.643137254901961
+ blue(142) = 0.376470588235294
+
+! DarkOliveGreen
+ red(143) = 0.333333333333333
+ green(143) = 0.419607843137255
+ blue(143) = 0.184313725490196
+
+! Yellow
+ red(144) = 1.00000000000000
+ green(144) = 1.00000000000000
+ blue(144) = 0.000000000000000E+000
+
+! SlateGray3
+ red(145) = 0.623529411764706
+ green(145) = 0.713725490196078
+ blue(145) = 0.803921568627451
+
+! HotPink
+ red(146) = 1.00000000000000
+ green(146) = 0.411764705882353
+ blue(146) = 0.705882352941177
+
+! Violet
+ red(147) = 0.933333333333333
+ green(147) = 0.509803921568627
+ blue(147) = 0.933333333333333
+
+! LightSkyBlue
+ red(148) = 0.529411764705882
+ green(148) = 0.807843137254902
+ blue(148) = 0.980392156862745
+
+! Cornsilk2
+ red(149) = 0.933333333333333
+ green(149) = 0.909803921568627
+ blue(149) = 0.803921568627451
+
+! MidnightBlue
+ red(150) = 9.803921568627451E-002
+ green(150) = 9.803921568627451E-002
+ blue(150) = 0.439215686274510
+
+! AntiqueWhite
+ red(151) = 0.980392156862745
+ green(151) = 0.921568627450980
+ blue(151) = 0.843137254901961
+
+! PaleGreen
+ red(152) = 0.596078431372549
+ green(152) = 0.984313725490196
+ blue(152) = 0.596078431372549
+
+! MedSpringGreen
+ red(153) = 0.000000000000000E+000
+ green(153) = 0.980392156862745
+ blue(153) = 0.603921568627451
+
+! DodgerBlue1
+ red(154) = 0.117647058823529
+ green(154) = 0.564705882352941
+ blue(154) = 1.00000000000000
+
+! Blue3
+ red(155) = 0.000000000000000E+000
+ green(155) = 0.000000000000000E+000
+ blue(155) = 0.803921568627451
+
+! Cyan
+ red(156) = 0.000000000000000E+000
+ green(156) = 1.00000000000000
+ blue(156) = 1.00000000000000
+
+! LemonChiffon
+ red(157) = 1.00000000000000
+ green(157) = 0.980392156862745
+ blue(157) = 0.803921568627451
+
+! mediumorchid
+ red(158) = 0.730000000000000
+ green(158) = 0.330000000000000
+ blue(158) = 0.830000000000000
+
+! Turquoise
+ red(159) = 0.250980392156863
+ green(159) = 0.878431372549020
+ blue(159) = 0.815686274509804
+
+! IndianRed
+ red(160) = 0.803921568627451
+ green(160) = 0.360784313725490
+ blue(160) = 0.360784313725490
+
+! DodgerBlue
+ red(161) = 0.117647058823529
+ green(161) = 0.564705882352941
+ blue(161) = 1.00000000000000
+
+! Seashell3
+ red(162) = 0.803921568627451
+ green(162) = 0.772549019607843
+ blue(162) = 0.749019607843137
+
+! BlueViolet
+ red(163) = 0.541176470588235
+ green(163) = 0.168627450980392
+ blue(163) = 0.886274509803922
+
+! DeepSkyBlue4
+ red(164) = 0.000000000000000E+000
+ green(164) = 0.407843137254902
+ blue(164) = 0.545098039215686
+
+! PaleVioletRed
+ red(165) = 0.858823529411765
+ green(165) = 0.439215686274510
+ blue(165) = 0.576470588235294
+
+! Azure2
+ red(166) = 0.878431372549020
+ green(166) = 0.933333333333333
+ blue(166) = 0.933333333333333
+
+! greenyellow
+ red(167) = 0.680000000000000
+ green(167) = 1.00000000000000
+ blue(167) = 0.180000000000000
+
+! LightGoldenrod
+ red(168) = 0.933333333333333
+ green(168) = 0.866666666666667
+ blue(168) = 0.509803921568627
+
+! MistyRose
+ red(169) = 1.00000000000000
+ green(169) = 0.894117647058824
+ blue(169) = 0.882352941176471
+
+! LightSkyBlue4
+ red(170) = 0.376470588235294
+ green(170) = 0.482352941176471
+ blue(170) = 0.545098039215686
+
+! OrangeRed
+ red(171) = 1.00000000000000
+ green(171) = 0.270588235294118
+ blue(171) = 0.000000000000000E+000
+
+! DimGrey
+ red(172) = 0.411764705882353
+ green(172) = 0.411764705882353
+ blue(172) = 0.411764705882353
+
+! MediumVioletRed
+ red(173) = 0.780392156862745
+ green(173) = 8.235294117647059E-002
+ blue(173) = 0.521568627450980
+
+! DarkSlateGray
+ red(174) = 0.184313725490196
+ green(174) = 0.309803921568627
+ blue(174) = 0.309803921568627
+
+! yellow
+ red(175) = 1.00000000000000
+ green(175) = 1.00000000000000
+ blue(175) = 0.000000000000000E+000
+
+! Plum
+ red(176) = 0.866666666666667
+ green(176) = 0.627450980392157
+ blue(176) = 0.866666666666667
+
+! DarkTurquoise
+ red(177) = 0.000000000000000E+000
+ green(177) = 0.807843137254902
+ blue(177) = 0.819607843137255
+
+! DodgerBlue4
+ red(178) = 6.274509803921569E-002
+ green(178) = 0.305882352941176
+ blue(178) = 0.545098039215686
+
+! Cornsilk
+ red(179) = 1.00000000000000
+ green(179) = 0.972549019607843
+ blue(179) = 0.862745098039216
+
+! SkyBlue1
+ red(180) = 0.529411764705882
+ green(180) = 0.807843137254902
+ blue(180) = 1.00000000000000
+
+! Seashell1
+ red(181) = 1.00000000000000
+ green(181) = 0.960784313725490
+ blue(181) = 0.933333333333333
+
+! lavender
+ red(182) = 0.901960784313726
+ green(182) = 0.901960784313726
+ blue(182) = 0.980392156862745
+
+! Snow4
+ red(183) = 0.545098039215686
+ green(183) = 0.537254901960784
+ blue(183) = 0.537254901960784
+
+! Peru
+ red(184) = 0.803921568627451
+ green(184) = 0.521568627450980
+ blue(184) = 0.247058823529412
+
+! PeachPuff
+ red(185) = 1.00000000000000
+ green(185) = 0.854901960784314
+ blue(185) = 0.725490196078431
+
+! Green
+ red(186) = 0.000000000000000E+000
+ green(186) = 1.00000000000000
+ blue(186) = 0.000000000000000E+000
+
+! Blue1
+ red(187) = 0.000000000000000E+000
+ green(187) = 0.000000000000000E+000
+ blue(187) = 1.00000000000000
+
+! Seashell4
+ red(188) = 0.545098039215686
+ green(188) = 0.525490196078431
+ blue(188) = 0.509803921568627
+
+! dodgerblue
+ red(189) = 0.120000000000000
+ green(189) = 0.560000000000000
+ blue(189) = 1.00000000000000
+
+! MistyRose2
+ red(190) = 0.933333333333333
+ green(190) = 0.835294117647059
+ blue(190) = 0.823529411764706
+
+! Tomato
+ red(191) = 1.00000000000000
+ green(191) = 0.388235294117647
+ blue(191) = 0.278431372549020
+
+! Wheat
+ red(192) = 0.960784313725490
+ green(192) = 0.870588235294118
+ blue(192) = 0.701960784313725
+
+! LightBlue
+ red(193) = 0.678431372549020
+ green(193) = 0.847058823529412
+ blue(193) = 0.901960784313726
+
+! Chocolate
+ red(194) = 0.823529411764706
+ green(194) = 0.411764705882353
+ blue(194) = 0.117647058823529
+
+! Blue4
+ red(195) = 0.000000000000000E+000
+ green(195) = 0.000000000000000E+000
+ blue(195) = 0.545098039215686
+
+! LavenderBlush1
+ red(196) = 1.00000000000000
+ green(196) = 0.941176470588235
+ blue(196) = 0.960784313725490
+
+! Magenta
+ red(197) = 1.00000000000000
+ green(197) = 0.000000000000000E+000
+ blue(197) = 1.00000000000000
+
+! darkturquoise
+ red(198) = 0.000000000000000E+000
+ green(198) = 0.810000000000000
+ blue(198) = 0.820000000000000
+
+! blueviolet
+ red(199) = 0.540000000000000
+ green(199) = 0.170000000000000
+ blue(199) = 0.890000000000000
+
+! MintCream
+ red(200) = 0.960784313725490
+ green(200) = 1.00000000000000
+ blue(200) = 0.980392156862745
+
+! PaleGoldenrod
+ red(201) = 0.933333333333333
+ green(201) = 0.909803921568627
+ blue(201) = 0.666666666666667
+
+! MediumPurple
+ red(202) = 0.576470588235294
+ green(202) = 0.439215686274510
+ blue(202) = 0.858823529411765
+
+! PapayaWhip
+ red(203) = 1.00000000000000
+ green(203) = 0.937254901960784
+ blue(203) = 0.835294117647059
+
+! LavenderBlush4
+ red(204) = 0.545098039215686
+ green(204) = 0.513725490196078
+ blue(204) = 0.525490196078431
+
+! Cornsilk4
+ red(205) = 0.545098039215686
+ green(205) = 0.533333333333333
+ blue(205) = 0.470588235294118
+
+! LtGoldenrodYello
+ red(206) = 0.980392156862745
+ green(206) = 0.980392156862745
+ blue(206) = 0.823529411764706
+
+! limegreen
+ red(207) = 0.200000000000000
+ green(207) = 0.800000000000000
+ blue(207) = 0.200000000000000
+
+! LemonChiffon1
+ red(208) = 1.00000000000000
+ green(208) = 0.980392156862745
+ blue(208) = 0.803921568627451
+
+! DarkOrchid
+ red(209) = 0.600000000000000
+ green(209) = 0.196078431372549
+ blue(209) = 0.800000000000000
+
+! SlateBlue1
+ red(210) = 0.513725490196078
+ green(210) = 0.435294117647059
+ blue(210) = 1.00000000000000
+
! chartreuse
- red(14) = .5d0
- green(14) = 1.d0
- blue(14) = 0.d0
-! green yellow
- red(15) = .68d0
- green(15) = 1.d0
- blue(15) = .18d0
-! yellow
- red(16) = 1.d0
- green(16) = 1.d0
- blue(16) = 0.d0
-! lemon chiffon
- red(17) = 1.d0
- green(17) = .98d0
- blue(17) = .8d0
-! gold
- red(18) = 1.d0
- green(18) = .84d0
- blue(18) = 0.d0
+ red(211) = 0.500000000000000
+ green(211) = 1.00000000000000
+ blue(211) = 0.000000000000000E+000
+
+! PaleTurquoise
+ red(212) = 0.686274509803922
+ green(212) = 0.933333333333333
+ blue(212) = 0.933333333333333
+
+! NavajoWhite1
+ red(213) = 1.00000000000000
+ green(213) = 0.870588235294118
+ blue(213) = 0.678431372549020
+
+! LightSkyBlue2
+ red(214) = 0.643137254901961
+ green(214) = 0.827450980392157
+ blue(214) = 0.933333333333333
+
+! VioletRed
+ red(215) = 0.815686274509804
+ green(215) = 0.125490196078431
+ blue(215) = 0.564705882352941
+
! mocassin
- red(19) = 1.d0
- green(19) = .89d0
- blue(19) = .71d0
-! peach puff
- red(20) = 1.d0
- green(20) = .85d0
- blue(20) = .73d0
+ red(216) = 1.00000000000000
+ green(216) = 0.890000000000000
+ blue(216) = 0.710000000000000
+! OldLace
+ red(217) = 0.992156862745098
+ green(217) = 0.960784313725490
+ blue(217) = 0.901960784313726
+
+! deeppink
+ red(218) = 1.00000000000000
+ green(218) = 8.000000000000000E-002
+ blue(218) = 0.580000000000000
+
+! Honeydew3
+ red(219) = 0.756862745098039
+ green(219) = 0.803921568627451
+ blue(219) = 0.756862745098039
+
+! Gainsboro
+ red(220) = 0.862745098039216
+ green(220) = 0.862745098039216
+ blue(220) = 0.862745098039216
+
+! DarkSalmon
+ red(221) = 0.913725490196078
+ green(221) = 0.588235294117647
+ blue(221) = 0.478431372549020
+
+! AntiqueWhite1
+ red(222) = 1.00000000000000
+ green(222) = 0.937254901960784
+ blue(222) = 0.858823529411765
+
+! LightCyan
+ red(223) = 0.878431372549020
+ green(223) = 1.00000000000000
+ blue(223) = 1.00000000000000
+
+! ForestGreen
+ red(224) = 0.133333333333333
+ green(224) = 0.545098039215686
+ blue(224) = 0.133333333333333
+
+! Orchid
+ red(225) = 0.854901960784314
+ green(225) = 0.439215686274510
+ blue(225) = 0.839215686274510
+
+! PeachPuff2
+ red(226) = 0.933333333333333
+ green(226) = 0.796078431372549
+ blue(226) = 0.678431372549020
+
+! LightPink
+ red(227) = 1.00000000000000
+ green(227) = 0.713725490196078
+ blue(227) = 0.756862745098039
+
+! Sienna
+ red(228) = 0.627450980392157
+ green(228) = 0.321568627450980
+ blue(228) = 0.176470588235294
+
+! darkorchid
+ red(229) = 0.600000000000000
+ green(229) = 0.200000000000000
+ blue(229) = 0.800000000000000
+
+! MediumSlateBlue
+ red(230) = 0.482352941176471
+ green(230) = 0.407843137254902
+ blue(230) = 0.933333333333333
+
+! CadetBlue
+ red(231) = 0.372549019607843
+ green(231) = 0.619607843137255
+ blue(231) = 0.627450980392157
+
+! LawnGreen
+ red(232) = 0.486274509803922
+ green(232) = 0.988235294117647
+ blue(232) = 0.000000000000000E+000
+
+! Chartreuse
+ red(233) = 0.498039215686275
+ green(233) = 1.00000000000000
+ blue(233) = 0.000000000000000E+000
+
+! Brown
+ red(234) = 0.647058823529412
+ green(234) = 0.164705882352941
+ blue(234) = 0.164705882352941
+
+! Azure
+ red(235) = 0.941176470588235
+ green(235) = 1.00000000000000
+ blue(235) = 1.00000000000000
+
+! Bisque
+ red(236) = 1.00000000000000
+ green(236) = 0.894117647058824
+ blue(236) = 0.768627450980392
+
! recherche des positions maximales des points de la grille
xmax=maxval(coord(1,:))
zmax=maxval(coord(2,:))
@@ -544,12 +1643,9 @@
if(colors == 1) then
-! For the moment 20 different colors max
- nbcols = 20
-
-! Use a different color for each material set
+! use a different color for each material set
imat = kmato(ispec)
- icol = mod(imat - 1,nbcols) + 1
+ icol = mod(imat - 1,NUM_COLORS) + 1
write(24,680) red(icol),green(icol),blue(icol)
More information about the cig-commits
mailing list