You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
279 lines
12 KiB
279 lines
12 KiB
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
|
C
|
|
C See packages/seacas/LICENSE for details
|
|
|
|
subroutine viridis(icol, ncol, r, g, b)
|
|
real r, g, b
|
|
|
|
C Data and information about viridis from:
|
|
C https://bids.github.io/colormap/
|
|
|
|
REAL RGB(3, 256)
|
|
DATA RGB /
|
|
* 0.26700401, 0.00487433, 0.32941519,
|
|
* 0.26851048, 0.00960483, 0.33542652,
|
|
* 0.26994384, 0.01462494, 0.34137895,
|
|
* 0.27130489, 0.01994186, 0.34726862,
|
|
* 0.27259384, 0.02556309, 0.35309303,
|
|
* 0.27380934, 0.03149748, 0.35885256,
|
|
* 0.27495242, 0.03775181, 0.36454323,
|
|
* 0.27602238, 0.04416723, 0.37016418,
|
|
* 0.2770184 , 0.05034437, 0.37571452,
|
|
* 0.27794143, 0.05632444, 0.38119074,
|
|
* 0.27879067, 0.06214536, 0.38659204,
|
|
* 0.2795655 , 0.06783587, 0.39191723,
|
|
* 0.28026658, 0.07341724, 0.39716349,
|
|
* 0.28089358, 0.07890703, 0.40232944,
|
|
* 0.28144581, 0.0843197 , 0.40741404,
|
|
* 0.28192358, 0.08966622, 0.41241521,
|
|
* 0.28232739, 0.09495545, 0.41733086,
|
|
* 0.28265633, 0.10019576, 0.42216032,
|
|
* 0.28291049, 0.10539345, 0.42690202,
|
|
* 0.28309095, 0.11055307, 0.43155375,
|
|
* 0.28319704, 0.11567966, 0.43611482,
|
|
* 0.28322882, 0.12077701, 0.44058404,
|
|
* 0.28318684, 0.12584799, 0.44496 ,
|
|
* 0.283072 , 0.13089477, 0.44924127,
|
|
* 0.28288389, 0.13592005, 0.45342734,
|
|
* 0.28262297, 0.14092556, 0.45751726,
|
|
* 0.28229037, 0.14591233, 0.46150995,
|
|
* 0.28188676, 0.15088147, 0.46540474,
|
|
* 0.28141228, 0.15583425, 0.46920128,
|
|
* 0.28086773, 0.16077132, 0.47289909,
|
|
* 0.28025468, 0.16569272, 0.47649762,
|
|
* 0.27957399, 0.17059884, 0.47999675,
|
|
* 0.27882618, 0.1754902 , 0.48339654,
|
|
* 0.27801236, 0.18036684, 0.48669702,
|
|
* 0.27713437, 0.18522836, 0.48989831,
|
|
* 0.27619376, 0.19007447, 0.49300074,
|
|
* 0.27519116, 0.1949054 , 0.49600488,
|
|
* 0.27412802, 0.19972086, 0.49891131,
|
|
* 0.27300596, 0.20452049, 0.50172076,
|
|
* 0.27182812, 0.20930306, 0.50443413,
|
|
* 0.27059473, 0.21406899, 0.50705243,
|
|
* 0.26930756, 0.21881782, 0.50957678,
|
|
* 0.26796846, 0.22354911, 0.5120084 ,
|
|
* 0.26657984, 0.2282621 , 0.5143487 ,
|
|
* 0.2651445 , 0.23295593, 0.5165993 ,
|
|
* 0.2636632 , 0.23763078, 0.51876163,
|
|
* 0.26213801, 0.24228619, 0.52083736,
|
|
* 0.26057103, 0.2469217 , 0.52282822,
|
|
* 0.25896451, 0.25153685, 0.52473609,
|
|
* 0.25732244, 0.2561304 , 0.52656332,
|
|
* 0.25564519, 0.26070284, 0.52831152,
|
|
* 0.25393498, 0.26525384, 0.52998273,
|
|
* 0.25219404, 0.26978306, 0.53157905,
|
|
* 0.25042462, 0.27429024, 0.53310261,
|
|
* 0.24862899, 0.27877509, 0.53455561,
|
|
* 0.2468114 , 0.28323662, 0.53594093,
|
|
* 0.24497208, 0.28767547, 0.53726018,
|
|
* 0.24311324, 0.29209154, 0.53851561,
|
|
* 0.24123708, 0.29648471, 0.53970946,
|
|
* 0.23934575, 0.30085494, 0.54084398,
|
|
* 0.23744138, 0.30520222, 0.5419214 ,
|
|
* 0.23552606, 0.30952657, 0.54294396,
|
|
* 0.23360277, 0.31382773, 0.54391424,
|
|
* 0.2316735 , 0.3181058 , 0.54483444,
|
|
* 0.22973926, 0.32236127, 0.54570633,
|
|
* 0.22780192, 0.32659432, 0.546532 ,
|
|
* 0.2258633 , 0.33080515, 0.54731353,
|
|
* 0.22392515, 0.334994 , 0.54805291,
|
|
* 0.22198915, 0.33916114, 0.54875211,
|
|
* 0.22005691, 0.34330688, 0.54941304,
|
|
* 0.21812995, 0.34743154, 0.55003755,
|
|
* 0.21620971, 0.35153548, 0.55062743,
|
|
* 0.21429757, 0.35561907, 0.5511844 ,
|
|
* 0.21239477, 0.35968273, 0.55171011,
|
|
* 0.2105031 , 0.36372671, 0.55220646,
|
|
* 0.20862342, 0.36775151, 0.55267486,
|
|
* 0.20675628, 0.37175775, 0.55311653,
|
|
* 0.20490257, 0.37574589, 0.55353282,
|
|
* 0.20306309, 0.37971644, 0.55392505,
|
|
* 0.20123854, 0.38366989, 0.55429441,
|
|
* 0.1994295 , 0.38760678, 0.55464205,
|
|
* 0.1976365 , 0.39152762, 0.55496905,
|
|
* 0.19585993, 0.39543297, 0.55527637,
|
|
* 0.19410009, 0.39932336, 0.55556494,
|
|
* 0.19235719, 0.40319934, 0.55583559,
|
|
* 0.19063135, 0.40706148, 0.55608907,
|
|
* 0.18892259, 0.41091033, 0.55632606,
|
|
* 0.18723083, 0.41474645, 0.55654717,
|
|
* 0.18555593, 0.4185704 , 0.55675292,
|
|
* 0.18389763, 0.42238275, 0.55694377,
|
|
* 0.18225561, 0.42618405, 0.5571201 ,
|
|
* 0.18062949, 0.42997486, 0.55728221,
|
|
* 0.17901879, 0.43375572, 0.55743035,
|
|
* 0.17742298, 0.4375272 , 0.55756466,
|
|
* 0.17584148, 0.44128981, 0.55768526,
|
|
* 0.17427363, 0.4450441 , 0.55779216,
|
|
* 0.17271876, 0.4487906 , 0.55788532,
|
|
* 0.17117615, 0.4525298 , 0.55796464,
|
|
* 0.16964573, 0.45626209, 0.55803034,
|
|
* 0.16812641, 0.45998802, 0.55808199,
|
|
* 0.1666171 , 0.46370813, 0.55811913,
|
|
* 0.16511703, 0.4674229 , 0.55814141,
|
|
* 0.16362543, 0.47113278, 0.55814842,
|
|
* 0.16214155, 0.47483821, 0.55813967,
|
|
* 0.16066467, 0.47853961, 0.55811466,
|
|
* 0.15919413, 0.4822374 , 0.5580728 ,
|
|
* 0.15772933, 0.48593197, 0.55801347,
|
|
* 0.15626973, 0.4896237 , 0.557936 ,
|
|
* 0.15481488, 0.49331293, 0.55783967,
|
|
* 0.15336445, 0.49700003, 0.55772371,
|
|
* 0.1519182 , 0.50068529, 0.55758733,
|
|
* 0.15047605, 0.50436904, 0.55742968,
|
|
* 0.14903918, 0.50805136, 0.5572505 ,
|
|
* 0.14760731, 0.51173263, 0.55704861,
|
|
* 0.14618026, 0.51541316, 0.55682271,
|
|
* 0.14475863, 0.51909319, 0.55657181,
|
|
* 0.14334327, 0.52277292, 0.55629491,
|
|
* 0.14193527, 0.52645254, 0.55599097,
|
|
* 0.14053599, 0.53013219, 0.55565893,
|
|
* 0.13914708, 0.53381201, 0.55529773,
|
|
* 0.13777048, 0.53749213, 0.55490625,
|
|
* 0.1364085 , 0.54117264, 0.55448339,
|
|
* 0.13506561, 0.54485335, 0.55402906,
|
|
* 0.13374299, 0.54853458, 0.55354108,
|
|
* 0.13244401, 0.55221637, 0.55301828,
|
|
* 0.13117249, 0.55589872, 0.55245948,
|
|
* 0.1299327 , 0.55958162, 0.55186354,
|
|
* 0.12872938, 0.56326503, 0.55122927,
|
|
* 0.12756771, 0.56694891, 0.55055551,
|
|
* 0.12645338, 0.57063316, 0.5498411 ,
|
|
* 0.12539383, 0.57431754, 0.54908564,
|
|
* 0.12439474, 0.57800205, 0.5482874 ,
|
|
* 0.12346281, 0.58168661, 0.54744498,
|
|
* 0.12260562, 0.58537105, 0.54655722,
|
|
* 0.12183122, 0.58905521, 0.54562298,
|
|
* 0.12114807, 0.59273889, 0.54464114,
|
|
* 0.12056501, 0.59642187, 0.54361058,
|
|
* 0.12009154, 0.60010387, 0.54253043,
|
|
* 0.11973756, 0.60378459, 0.54139999,
|
|
* 0.11951163, 0.60746388, 0.54021751,
|
|
* 0.11942341, 0.61114146, 0.53898192,
|
|
* 0.11948255, 0.61481702, 0.53769219,
|
|
* 0.11969858, 0.61849025, 0.53634733,
|
|
* 0.12008079, 0.62216081, 0.53494633,
|
|
* 0.12063824, 0.62582833, 0.53348834,
|
|
* 0.12137972, 0.62949242, 0.53197275,
|
|
* 0.12231244, 0.63315277, 0.53039808,
|
|
* 0.12344358, 0.63680899, 0.52876343,
|
|
* 0.12477953, 0.64046069, 0.52706792,
|
|
* 0.12632581, 0.64410744, 0.52531069,
|
|
* 0.12808703, 0.64774881, 0.52349092,
|
|
* 0.13006688, 0.65138436, 0.52160791,
|
|
* 0.13226797, 0.65501363, 0.51966086,
|
|
* 0.13469183, 0.65863619, 0.5176488 ,
|
|
* 0.13733921, 0.66225157, 0.51557101,
|
|
* 0.14020991, 0.66585927, 0.5134268 ,
|
|
* 0.14330291, 0.66945881, 0.51121549,
|
|
* 0.1466164 , 0.67304968, 0.50893644,
|
|
* 0.15014782, 0.67663139, 0.5065889 ,
|
|
* 0.15389405, 0.68020343, 0.50417217,
|
|
* 0.15785146, 0.68376525, 0.50168574,
|
|
* 0.16201598, 0.68731632, 0.49912906,
|
|
* 0.1663832 , 0.69085611, 0.49650163,
|
|
* 0.1709484 , 0.69438405, 0.49380294,
|
|
* 0.17570671, 0.6978996 , 0.49103252,
|
|
* 0.18065314, 0.70140222, 0.48818938,
|
|
* 0.18578266, 0.70489133, 0.48527326,
|
|
* 0.19109018, 0.70836635, 0.48228395,
|
|
* 0.19657063, 0.71182668, 0.47922108,
|
|
* 0.20221902, 0.71527175, 0.47608431,
|
|
* 0.20803045, 0.71870095, 0.4728733 ,
|
|
* 0.21400015, 0.72211371, 0.46958774,
|
|
* 0.22012381, 0.72550945, 0.46622638,
|
|
* 0.2263969 , 0.72888753, 0.46278934,
|
|
* 0.23281498, 0.73224735, 0.45927675,
|
|
* 0.2393739 , 0.73558828, 0.45568838,
|
|
* 0.24606968, 0.73890972, 0.45202405,
|
|
* 0.25289851, 0.74221104, 0.44828355,
|
|
* 0.25985676, 0.74549162, 0.44446673,
|
|
* 0.26694127, 0.74875084, 0.44057284,
|
|
* 0.27414922, 0.75198807, 0.4366009 ,
|
|
* 0.28147681, 0.75520266, 0.43255207,
|
|
* 0.28892102, 0.75839399, 0.42842626,
|
|
* 0.29647899, 0.76156142, 0.42422341,
|
|
* 0.30414796, 0.76470433, 0.41994346,
|
|
* 0.31192534, 0.76782207, 0.41558638,
|
|
* 0.3198086 , 0.77091403, 0.41115215,
|
|
* 0.3277958 , 0.77397953, 0.40664011,
|
|
* 0.33588539, 0.7770179 , 0.40204917,
|
|
* 0.34407411, 0.78002855, 0.39738103,
|
|
* 0.35235985, 0.78301086, 0.39263579,
|
|
* 0.36074053, 0.78596419, 0.38781353,
|
|
* 0.3692142 , 0.78888793, 0.38291438,
|
|
* 0.37777892, 0.79178146, 0.3779385 ,
|
|
* 0.38643282, 0.79464415, 0.37288606,
|
|
* 0.39517408, 0.79747541, 0.36775726,
|
|
* 0.40400101, 0.80027461, 0.36255223,
|
|
* 0.4129135 , 0.80304099, 0.35726893,
|
|
* 0.42190813, 0.80577412, 0.35191009,
|
|
* 0.43098317, 0.80847343, 0.34647607,
|
|
* 0.44013691, 0.81113836, 0.3409673 ,
|
|
* 0.44936763, 0.81376835, 0.33538426,
|
|
* 0.45867362, 0.81636288, 0.32972749,
|
|
* 0.46805314, 0.81892143, 0.32399761,
|
|
* 0.47750446, 0.82144351, 0.31819529,
|
|
* 0.4870258 , 0.82392862, 0.31232133,
|
|
* 0.49661536, 0.82637633, 0.30637661,
|
|
* 0.5062713 , 0.82878621, 0.30036211,
|
|
* 0.51599182, 0.83115784, 0.29427888,
|
|
* 0.52577622, 0.83349064, 0.2881265 ,
|
|
* 0.5356211 , 0.83578452, 0.28190832,
|
|
* 0.5455244 , 0.83803918, 0.27562602,
|
|
* 0.55548397, 0.84025437, 0.26928147,
|
|
* 0.5654976 , 0.8424299 , 0.26287683,
|
|
* 0.57556297, 0.84456561, 0.25641457,
|
|
* 0.58567772, 0.84666139, 0.24989748,
|
|
* 0.59583934, 0.84871722, 0.24332878,
|
|
* 0.60604528, 0.8507331 , 0.23671214,
|
|
* 0.61629283, 0.85270912, 0.23005179,
|
|
* 0.62657923, 0.85464543, 0.22335258,
|
|
* 0.63690157, 0.85654226, 0.21662012,
|
|
* 0.64725685, 0.85839991, 0.20986086,
|
|
* 0.65764197, 0.86021878, 0.20308229,
|
|
* 0.66805369, 0.86199932, 0.19629307,
|
|
* 0.67848868, 0.86374211, 0.18950326,
|
|
* 0.68894351, 0.86544779, 0.18272455,
|
|
* 0.69941463, 0.86711711, 0.17597055,
|
|
* 0.70989842, 0.86875092, 0.16925712,
|
|
* 0.72039115, 0.87035015, 0.16260273,
|
|
* 0.73088902, 0.87191584, 0.15602894,
|
|
* 0.74138803, 0.87344918, 0.14956101,
|
|
* 0.75188414, 0.87495143, 0.14322828,
|
|
* 0.76237342, 0.87642392, 0.13706449,
|
|
* 0.77285183, 0.87786808, 0.13110864,
|
|
* 0.78331535, 0.87928545, 0.12540538,
|
|
* 0.79375994, 0.88067763, 0.12000532,
|
|
* 0.80418159, 0.88204632, 0.11496505,
|
|
* 0.81457634, 0.88339329, 0.11034678,
|
|
* 0.82494028, 0.88472036, 0.10621724,
|
|
* 0.83526959, 0.88602943, 0.1026459 ,
|
|
* 0.84556056, 0.88732243, 0.09970219,
|
|
* 0.8558096 , 0.88860134, 0.09745186,
|
|
* 0.86601325, 0.88986815, 0.09595277,
|
|
* 0.87616824, 0.89112487, 0.09525046,
|
|
* 0.88627146, 0.89237353, 0.09537439,
|
|
* 0.89632002, 0.89361614, 0.09633538,
|
|
* 0.90631121, 0.89485467, 0.09812496,
|
|
* 0.91624212, 0.89609127, 0.1007168 ,
|
|
* 0.92610579, 0.89732977, 0.10407067,
|
|
* 0.93590444, 0.8985704 , 0.10813094,
|
|
* 0.94563626, 0.899815 , 0.11283773,
|
|
* 0.95529972, 0.90106534, 0.11812832,
|
|
* 0.96489353, 0.90232311, 0.12394051,
|
|
* 0.97441665, 0.90358991, 0.13021494,
|
|
* 0.98386829, 0.90486726, 0.13689671,
|
|
* 0.99324789, 0.90615657, 0.1439362 /
|
|
|
|
index = ((icol * 256)+255) / ncol + 1
|
|
r = rgb(1, index)
|
|
g = rgb(2, index)
|
|
b = rgb(3, index)
|
|
|
|
C write (*,*) icol, ncol, index, r, g, b
|
|
return
|
|
end
|
|
|