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.
201 lines
7.0 KiB
201 lines
7.0 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 XYSHOW (SHOTYP)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** XYSHOW *** (XYPLOT) Display XY plot parameter information
|
||
|
|
C -- Written by Amy Gilkey - revised 12/24/87
|
||
|
|
C --
|
||
|
|
C --XYSHOW displays the XY plot parameters.
|
||
|
|
C --
|
||
|
|
C --The SHOW options with the items they display are:
|
||
|
|
C -- RATIOXY - the X to Y axis length ratio
|
||
|
|
C -- XSCALE - the X axis minimum and maximum if user-defined
|
||
|
|
C -- YSCALE - the Y axis minimum and maximum if user-defined
|
||
|
|
C -- XTICK - the X axis tick interval
|
||
|
|
C -- YTICK - the Y axis tick interval
|
||
|
|
C -- XLABEL - the X axis label
|
||
|
|
C -- YLABEL - the Y axis label
|
||
|
|
C -- ACURVE - the neutral file curve name, number and increment
|
||
|
|
C -- NCURVE -
|
||
|
|
C -- GRID - the grid/no grid option
|
||
|
|
C -- LINES - the line, symbol options
|
||
|
|
C -- SYMBOLS -
|
||
|
|
C -- CRVNUM - the curve numbering option
|
||
|
|
C -- OVERLAY - the overlay / separate curves or times option
|
||
|
|
C -- SAMESCAL - the curve scaling option
|
||
|
|
C -- NORMAL -
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- SHOTYP - IN - the expanded SHOW option string
|
||
|
|
C --
|
||
|
|
C --Common Variables:
|
||
|
|
C -- Uses DOGRID, LINTYP, ISYTYP, LABSID, OVERLY, OVERTM, IAXSCA of /XYOPT/
|
||
|
|
C -- Uses ASPECT, IXSCAL, IYSCAL, XMIN, XMAX, YMIN, YMAX, XTICK, YTICK
|
||
|
|
C -- of /XYLIM/
|
||
|
|
C -- Uses XLAB, YLAB of /XYLAB/
|
||
|
|
C -- Uses NEUOPN, NUMCRV, INCCRV, CRVNAM of /NEUTR./
|
||
|
|
|
||
|
|
include 'xyopt.blk'
|
||
|
|
include 'xylim.blk'
|
||
|
|
include 'xylab.blk'
|
||
|
|
include 'neutr.blk'
|
||
|
|
|
||
|
|
CHARACTER*(*) SHOTYP
|
||
|
|
|
||
|
|
CHARACTER*80 STRING
|
||
|
|
CHARACTER*20 RSTR(2)
|
||
|
|
REAL RNUM(2)
|
||
|
|
CHARACTER*5 STRI1, STRI2
|
||
|
|
|
||
|
|
IF (SHOTYP .EQ. 'RATIOXY') THEN
|
||
|
|
IF (ASPECT .GE. .99) THEN
|
||
|
|
CALL NUMSTR1(3, ASPECT, RSTR(1), LSTR)
|
||
|
|
ELSE
|
||
|
|
CALL NUMSTR1(2, ASPECT, RSTR(1), LSTR)
|
||
|
|
END IF
|
||
|
|
WRITE (*, 10000) 'X to Y aspect ratio = ', RSTR(1)(:LSTR)
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'XSCALE') THEN
|
||
|
|
IF (IXSCAL .EQ. 'SET') THEN
|
||
|
|
RNUM(1) = XMIN
|
||
|
|
RNUM(2) = XMAX
|
||
|
|
CALL NUMSTR (2, 4, RNUM, RSTR, LSTR)
|
||
|
|
WRITE (STRING, '(5A)') 'X axis scaling: ',
|
||
|
|
& RSTR(1)(:LSTR), ' to ', RSTR(2)(:LSTR)
|
||
|
|
CALL SQZSTR (STRING, LSTR)
|
||
|
|
WRITE (*, 10000) STRING(:LSTR)
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'X axis will be automatically scaled'
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'YSCALE') THEN
|
||
|
|
IF (IYSCAL .EQ. 'SET') THEN
|
||
|
|
RNUM(1) = YMIN
|
||
|
|
RNUM(2) = YMAX
|
||
|
|
CALL NUMSTR (2, 4, RNUM, RSTR, LSTR)
|
||
|
|
WRITE (STRING, '(5A)') 'Y axis scaling: ',
|
||
|
|
& RSTR(1)(:LSTR), ' to ', RSTR(2)(:LSTR)
|
||
|
|
CALL SQZSTR (STRING, LSTR)
|
||
|
|
WRITE (*, 10000) STRING(:LSTR)
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'Y axis will be automatically scaled'
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'XTICK') THEN
|
||
|
|
IF (XTICK .EQ. 0.0) THEN
|
||
|
|
WRITE (*, 10000) 'X axis tick interval automatically scaled'
|
||
|
|
ELSE
|
||
|
|
CALL NUMSTR1(4, XTICK, RSTR(1), LSTR)
|
||
|
|
WRITE (*, 10000) 'X axis tick interval = ', RSTR(1)(:LSTR)
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'YTICK') THEN
|
||
|
|
IF (YTICK .EQ. 0.0) THEN
|
||
|
|
WRITE (*, 10000) 'Y axis tick interval automatically scaled'
|
||
|
|
ELSE
|
||
|
|
CALL NUMSTR1(4, YTICK, RSTR(1), LSTR)
|
||
|
|
WRITE (*, 10000) 'Y axis tick interval = ', RSTR(1)(:LSTR)
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'XLABEL') THEN
|
||
|
|
IF (XLAB .EQ. ' ') THEN
|
||
|
|
WRITE (*, 10000) 'X axis label is not defined'
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'X axis label: ', XLAB(:LENSTR(XLAB))
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'YLABEL') THEN
|
||
|
|
IF (YLAB .EQ. ' ') THEN
|
||
|
|
WRITE (*, 10000) 'Y axis label is not defined'
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'Y axis label: ', YLAB(:LENSTR(YLAB))
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF ((SHOTYP .EQ. 'ACURVE')
|
||
|
|
& .OR. (SHOTYP .EQ. 'NCURVE')) THEN
|
||
|
|
WRITE (*, 10000) 'Neutral file curve name = ', CRVNAM
|
||
|
|
CALL INTSTR (1, 0, NUMCRV, STRI1, L1)
|
||
|
|
CALL INTSTR (1, 0, INCCRV, STRI2, L2)
|
||
|
|
WRITE (*, 10000) ' Curve number = ',
|
||
|
|
& STRI1(:L1), ', incremented by ', STRI2(:L2)
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'GRID') THEN
|
||
|
|
IF (DOGRID) THEN
|
||
|
|
WRITE (*, 10000) 'Draw grid on plot'
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'No grid on plot'
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF ((SHOTYP .EQ. 'LINES') .OR. (SHOTYP .EQ. 'SYMBOLS')) THEN
|
||
|
|
IF (ISYTYP .LE. -1) THEN
|
||
|
|
STRING = 'symbols'
|
||
|
|
ELSE IF (ISYTYP .EQ. 0) THEN
|
||
|
|
STRING = ' '
|
||
|
|
ELSE
|
||
|
|
CALL INTSTR (1, 0, ISYTYP, STRI1, LSTR)
|
||
|
|
STRING = 'symbol ' // STRI1(:LSTR)
|
||
|
|
END IF
|
||
|
|
LSTR = LENSTR(STRING)
|
||
|
|
IF (LINTYP .LE. -1) THEN
|
||
|
|
IF (ISYTYP .EQ. 0) THEN
|
||
|
|
WRITE (*, 10000) 'Plot with varying line'
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'Plot with varying line and ',
|
||
|
|
& STRING(:LSTR)
|
||
|
|
END IF
|
||
|
|
ELSE IF (LINTYP .EQ. 0) THEN
|
||
|
|
WRITE (*, 10000) 'Plot with ', STRING(:LSTR)
|
||
|
|
ELSE
|
||
|
|
IF (ISYTYP .EQ. 0) THEN
|
||
|
|
WRITE (*, 10000) 'Plot with solid line'
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'Plot with solid line and ',
|
||
|
|
& STRING(:LSTR)
|
||
|
|
END IF
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'CRVNUM') THEN
|
||
|
|
IF (LABSID .EQ. 'NONE') THEN
|
||
|
|
WRITE (*, 10000) 'Do not number curves'
|
||
|
|
ELSE IF (LABSID .EQ. 'FIRST') THEN
|
||
|
|
WRITE (*, 10000) 'Number curves at first point'
|
||
|
|
ELSE IF (LABSID .EQ. 'MIDDLE') THEN
|
||
|
|
WRITE (*, 10000) 'Number curves at middle point'
|
||
|
|
ELSE IF (LABSID .EQ. 'LAST') THEN
|
||
|
|
WRITE (*, 10000) 'Number curves at last point'
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF (SHOTYP .EQ. 'OVERLAY') THEN
|
||
|
|
IF (OVERLY) THEN
|
||
|
|
WRITE (*, 10000) 'Overlay curves for all variables'
|
||
|
|
ELSE IF (OVERTM) THEN
|
||
|
|
WRITE (*, 10000) 'Overlay curves for all times'
|
||
|
|
ELSE
|
||
|
|
WRITE (*, 10000) 'Separate curves'
|
||
|
|
END IF
|
||
|
|
|
||
|
|
ELSE IF ((SHOTYP .EQ. 'SAMESCAL')
|
||
|
|
& .OR. (SHOTYP .EQ. 'NORMAL')) THEN
|
||
|
|
IF (IAXSCA .EQ. 'ALL') THEN
|
||
|
|
WRITE (*, 10000) 'Axis scaling defaults to',
|
||
|
|
& ' same scale for all curves on all plots'
|
||
|
|
ELSE IF (IAXSCA .EQ. 'PLOT') THEN
|
||
|
|
WRITE (*, 10000) 'Axis scaling defaults to',
|
||
|
|
& ' same scale for all curves on each plot'
|
||
|
|
ELSE IF (IAXSCA .EQ. 'CURVE') THEN
|
||
|
|
WRITE (*, 10000) 'Axis scaling defaults to',
|
||
|
|
& ' normalized scale for each curve'
|
||
|
|
END IF
|
||
|
|
|
||
|
|
END IF
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
10000 FORMAT (1X, 10A)
|
||
|
|
END
|