Cloned SEACAS for EXODUS library with extra build files for internal package management.
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.
 
 
 
 
 
 

24 lines
1.0 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
PARAMETER (NCLSHD=14)
CHARACTER*8 SHDLST(NCLSHD)
REAL SHADES(3, NCLSHD)
DATA (SHDLST(I),SHADES(1,I),SHADES(2,I),SHADES(3,I),I=1,NCLSHD) /
* 'RED ', 1.0000, 0.0000, 0.0000,
* 'GREEN ', 0.0000, 1.0000, 0.0000,
* 'BLUE ', 0.0000, 0.0000, 1.0000,
* 'CYAN ', 0.0000, 1.0000, 1.0000,
* 'MAGENTA ', 1.0000, 0.0000, 1.0000,
* 'YELLOW ', 1.0000, 1.0000, 0.0000,
* 'WHITE ', 1.0000, 1.0000, 1.0000,
* 'GOLD ', 1.2500, 1.1610, 0.2101,
* 'SILVER ', 1.2500, 0.9516, 0.8518,
* 'PEWTER ', 1.0000, 1.0000, 0.8500,
* 'COPPER ', 1.2500, 0.7812, 0.4975,
* 'STEEL ', 0.8712, 0.9706, 1.1000,
* 'AQUA ', 0.0163, 1.0000, 0.7508,
* ' ', 0.0000, 0.0000, 0.0000/