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.
42 lines
1.3 KiB
42 lines
1.3 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
|
|
|
|
C=======================================================================
|
|
SUBROUTINE GRCOLU (MAP)
|
|
C=======================================================================
|
|
|
|
C --*** GRCOLU *** (GRPLIB) Set color table to use (PLT)
|
|
C -- Written by Amy Gilkey - revised 04/11/88
|
|
C --
|
|
C --GRCOLU sets the color table to use.
|
|
C --
|
|
C --Parameters:
|
|
C -- MAP - IN - the color table map to use:
|
|
C -- 'STANDARD' = standard color map
|
|
C -- 'ALTERNATE' = alternate color map (if defined)
|
|
C --
|
|
C --Common Variables:
|
|
C -- Uses DEVOK, ICURDV, NUMCOL, MAPALT of /GRPCOM/
|
|
C -- Sets MAPUSE of /GRPCOM/
|
|
|
|
COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2)
|
|
CHARACTER*3 DEVNAM
|
|
CHARACTER*8 DEVCOD
|
|
COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2),
|
|
& NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2),
|
|
& MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2)
|
|
LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL
|
|
|
|
CHARACTER*(*) MAP
|
|
|
|
IF (MAP .EQ. 'ALTERNATE') THEN
|
|
MAPUSE(ICURDV) = MAPALT(ICURDV)
|
|
ELSE
|
|
MAPUSE(ICURDV) = 0
|
|
END IF
|
|
|
|
RETURN
|
|
END
|
|
|