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.
118 lines
4.2 KiB
118 lines
4.2 KiB
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
|
||
|
|
|
||
|
|
C=======================================================================
|
||
|
|
SUBROUTINE PLSHOW (SHOTYP, XYTYPE, MESHOK, TIMES, WHOTIM, IPTIMS)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** PLSHOW *** (BLOT) Display general parameter information
|
||
|
|
C -- Written by Amy Gilkey - revised 04/26/88
|
||
|
|
C --
|
||
|
|
C --PLSHOW displays the general plot parameters.
|
||
|
|
C --
|
||
|
|
C --The SHOW options with the items they display are:
|
||
|
|
C -- TMIN - time step selection parameters
|
||
|
|
C -- TMAX -
|
||
|
|
C -- NINTV -
|
||
|
|
C -- ZINTV -
|
||
|
|
C -- DELTIME -
|
||
|
|
C -- ALLTIMES -
|
||
|
|
C -- STEPS - the selected time step times
|
||
|
|
C -- TIMES -
|
||
|
|
C -- QA - plot QA information flag
|
||
|
|
C -- AXIS - plot axis numbering flag
|
||
|
|
C -- LEGEND - plot legend flag
|
||
|
|
C -- CAPTION - plot caption
|
||
|
|
C -- SOFTCHAR - software vs hardware characters selected
|
||
|
|
C -- FONT - font to use
|
||
|
|
C -- COLOR - number of colors to use and maximum number of colors
|
||
|
|
C -- SPECTRUM -
|
||
|
|
C -- SNAP - number of frames to snap for a movie
|
||
|
|
C -- AUTO - automatic vs user-directed plotting
|
||
|
|
C -- BACKGROUND - set background color
|
||
|
|
C -- FOREGROUND - set foreground color
|
||
|
|
C --Parameters:
|
||
|
|
C -- SHOTYP - IN - the expanded SHOW option string
|
||
|
|
C -- XYTYPE - IN - true iff current program is an XY curve versus mesh plot
|
||
|
|
C -- MESHOK - IN - true iff mesh can be displayed
|
||
|
|
C -- TIMES - IN - the database times
|
||
|
|
C -- WHOTIM - IN - true iff whole (versus history) time step
|
||
|
|
C -- IPTIMS - IN - the selected time steps
|
||
|
|
C --
|
||
|
|
C --Common Variables:
|
||
|
|
C -- Uses DOQA, DOLEG, DOAXIS, CAPTN of /LEGOPT/
|
||
|
|
C -- Uses NPTIMS, TMIN, TMAX, DELT, NINTV of /TIMES/
|
||
|
|
|
||
|
|
COMMON /LEGOPT/ DOQA(2), DOLEG(2), DOAXIS(2), DOBOX
|
||
|
|
LOGICAL DOQA, DOLEG, DOAXIS, DOBOX
|
||
|
|
COMMON /LEGOPC/ CAPTN(3,2)
|
||
|
|
CHARACTER*80 CAPTN
|
||
|
|
COMMON /TIMES/ NPTIMS, NPTIMW, TMIN, TMAX, DELT, NINTV,
|
||
|
|
& NTIMIN, WHONLY, HISTOK
|
||
|
|
LOGICAL WHONLY, HISTOK
|
||
|
|
|
||
|
|
include 'plcolr.blk'
|
||
|
|
|
||
|
|
CHARACTER*(*) SHOTYP
|
||
|
|
LOGICAL XYTYPE, MESHOK
|
||
|
|
REAL TIMES(*)
|
||
|
|
LOGICAL WHOTIM(*)
|
||
|
|
INTEGER IPTIMS(*)
|
||
|
|
|
||
|
|
C *** Time step control ***
|
||
|
|
|
||
|
|
IF ((SHOTYP .EQ. 'TMIN') .OR. (SHOTYP .EQ. 'TMAX')
|
||
|
|
& .OR. (SHOTYP .EQ. 'DELTIME')
|
||
|
|
& .OR. (SHOTYP .EQ. 'NINTV') .OR. (SHOTYP .EQ. 'ZINTV')
|
||
|
|
& .OR. (SHOTYP .EQ. 'ALLTIMES')
|
||
|
|
& .OR. (SHOTYP .EQ. 'STEPS') .OR. (SHOTYP .EQ. 'TIMES')) THEN
|
||
|
|
CALL SHOTSP (WHONLY, TMIN, TMAX, DELT, NINTV, NPTIMS)
|
||
|
|
|
||
|
|
IF (((SHOTYP .EQ. 'STEPS') .OR. (SHOTYP .EQ. 'TIMES'))
|
||
|
|
& .AND. (NPTIMS .GT. 0)) THEN
|
||
|
|
CALL SHPTIM (WHONLY, NPTIMS, IPTIMS, TIMES, WHOTIM)
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'HISTORY') THEN
|
||
|
|
IF (HISTOK) THEN
|
||
|
|
IF (WHONLY) THEN
|
||
|
|
WRITE (*, 10000) 'Select whole times steps only'
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'Select history and whole time steps'
|
||
|
|
END IF
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'Select whole times steps only'
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C *** Display options ***
|
||
|
|
|
||
|
|
ELSE IF ((SHOTYP .EQ. 'QA') .OR. (SHOTYP .EQ. 'LEGEND')
|
||
|
|
& .OR. (SHOTYP .EQ. 'AXIS') .OR. (SHOTYP .EQ. 'CAPTION') .OR.
|
||
|
|
* (SHOTYP .EQ. 'OUTLINE')) THEN
|
||
|
|
IF (XYTYPE) CALL SHOLEG
|
||
|
|
& (SHOTYP, XYTYPE, DOQA(2), DOLEG(2), DOAXIS(2), CAPTN(1,2),
|
||
|
|
* DOBOX)
|
||
|
|
IF (MESHOK) CALL SHOLEG
|
||
|
|
& (SHOTYP, .FALSE., DOQA(1), DOLEG(1), DOAXIS(1), CAPTN(1,1),
|
||
|
|
* DOBOX)
|
||
|
|
|
||
|
|
ELSE IF ((SHOTYP .EQ. 'SOFTCHARACTERS') .OR. (SHOTYP .EQ. 'FONT')
|
||
|
|
& .OR. (SHOTYP .EQ. 'COLOR') .OR. (SHOTYP .EQ. 'SPECTRUM')
|
||
|
|
& .OR. (SHOTYP .EQ. 'SNAP') .OR. (SHOTYP .EQ. 'AUTO')) THEN
|
||
|
|
CALL SHODEV (SHOTYP)
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'BACKGROUND') THEN
|
||
|
|
WRITE (*, 10000) 'Background color is ', BCKGND
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'FOREGROUND') THEN
|
||
|
|
WRITE (*, 10000) 'Foreground color is ', FORGND
|
||
|
|
|
||
|
|
END IF
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
10000 FORMAT (1X, 5A)
|
||
|
|
END
|