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.

16 lines
550 B

2 years ago
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 (NCOLOR=9)
REAL COLMAP(NCOLOR+2)
COMMON /CMAP/ COLMAP
C -- COLMAP -- Color indexes of currently mapped colors
CHARACTER*(MXSTLN) COLLST(NCOLOR+2)
COMMON /CLST/ COLLST
C -- COLLST -- character names of currently mapped colors