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
3.9 KiB
118 lines
3.9 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 SYMBOL_BL (ISYTYP, VARFAC, LENF, NLNKF, HIDEF,
|
||
|
|
& XF, YF, ZF, ISVOK, BLKCOL, IDELB, *)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** SYMBOL *** (DETOUR) Plot element symbol
|
||
|
|
C -- Written by Amy Gilkey, revised 10/12/87
|
||
|
|
C -- D. P. Flanagan, 12/08/83
|
||
|
|
C --
|
||
|
|
C --SYMBOL drives the user symbol interface for element variables.
|
||
|
|
C --It processes each element by element block, computing scaling factors
|
||
|
|
C --and element information, then calling the user symbol routine.
|
||
|
|
C --Only elements of selected element blocks are drawn.
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- ISYTYP - IN - the symbol type (as in MODTYP of /DETOPT/)
|
||
|
|
C -- VARFAC - IN - the face variable values
|
||
|
|
C -- LENF - IN - the cumulative face counts by element block
|
||
|
|
C -- NLNKF - IN - the number of nodes per face
|
||
|
|
C -- HIDEF(i) - IN - true iff face i is hidden (3D only)
|
||
|
|
C -- XF, YF, ZF - IN - the face center coordinates
|
||
|
|
C -- ISVOK - IN - ISVOK(i) is true iff the symbol variables are defined
|
||
|
|
C -- for element block i
|
||
|
|
C -- BLKCOL - IN - the user selected colors of the element blocks.
|
||
|
|
C -- BLKCOL(0) = 1 if the user defined material
|
||
|
|
C -- colors should be used in mesh plots.
|
||
|
|
C -- = -1 if program selected colors should
|
||
|
|
C -- be used.
|
||
|
|
C -- BLKCOL(i) = the user selected color of element
|
||
|
|
C -- block i:
|
||
|
|
C -- -2 - no color selected by user.
|
||
|
|
C -- -1 - black
|
||
|
|
C -- 0 - white
|
||
|
|
C -- 1 - red
|
||
|
|
C -- 2 - green
|
||
|
|
C -- 3 - yellow
|
||
|
|
C -- 4 - blue
|
||
|
|
C -- 5 - cyan
|
||
|
|
C -- 6 - magenta
|
||
|
|
C -- * - return statement if the cancel function is active
|
||
|
|
C --
|
||
|
|
C --Common Variables:
|
||
|
|
C -- Uses NELBLK of /DBNUMS/
|
||
|
|
C -- Uses IS3DIM of /D3NUMS/
|
||
|
|
C -- Uses VECSCL of /ETCOPT/
|
||
|
|
C -- Uses DTW, VWSCL of /DEVDAT/
|
||
|
|
|
||
|
|
PARAMETER (KSCHSZ=2)
|
||
|
|
|
||
|
|
include 'dbnums.blk'
|
||
|
|
COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET
|
||
|
|
LOGICAL IS3DIM
|
||
|
|
COMMON /ETCOPT/ VECSCL
|
||
|
|
COMMON /DEVDAT/ DTW, VWSCL
|
||
|
|
|
||
|
|
CHARACTER*(*) ISYTYP
|
||
|
|
REAL VARFAC(*)
|
||
|
|
INTEGER LENF(0:NELBLK)
|
||
|
|
INTEGER NLNKF(NELBLK)
|
||
|
|
LOGICAL HIDEF(*)
|
||
|
|
REAL XF(*), YF(*), ZF(*)
|
||
|
|
LOGICAL ISVOK(NELBLK)
|
||
|
|
INTEGER BLKCOL(0:NELBLK)
|
||
|
|
INTEGER IDELB(*)
|
||
|
|
|
||
|
|
LOGICAL GRABRT
|
||
|
|
LOGICAL PLTSTT, PLTGTT, LDUM
|
||
|
|
|
||
|
|
SSCL = VECSCL * DTW
|
||
|
|
|
||
|
|
C --Set symbol size, must be reset before exit
|
||
|
|
LDUM = PLTGTT (KSCHSZ, SYMSZ)
|
||
|
|
LDUM = PLTSTT (KSCHSZ, VECSCL*SYMSZ)
|
||
|
|
|
||
|
|
DO 110 IELB = 1, NELBLK
|
||
|
|
IF (ISVOK(IELB)) THEN
|
||
|
|
|
||
|
|
C --Set the symbol color
|
||
|
|
|
||
|
|
c CALL UGRCOL (IDELB(IELB), BLKCOL)
|
||
|
|
CALL UGRCOL (IELB, BLKCOL)
|
||
|
|
|
||
|
|
DO 100 IFAC = LENF(IELB-1)+1, LENF(IELB)
|
||
|
|
IF (IS3DIM) THEN
|
||
|
|
IF (HIDEF(IFAC)) GOTO 100
|
||
|
|
END IF
|
||
|
|
|
||
|
|
IF (GRABRT ()) GOTO 120
|
||
|
|
|
||
|
|
C --Call symbol routine
|
||
|
|
|
||
|
|
CALL USRSYM (ISYTYP, IS3DIM,
|
||
|
|
& XF(IFAC), YF(IFAC), ZF(IFAC), VARFAC(IFAC), SSCL)
|
||
|
|
|
||
|
|
100 CONTINUE
|
||
|
|
|
||
|
|
CALL PLTFLU
|
||
|
|
END IF
|
||
|
|
110 CONTINUE
|
||
|
|
|
||
|
|
C --Reset symbol size
|
||
|
|
LDUM = PLTSTT (KSCHSZ, SYMSZ)
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
120 CONTINUE
|
||
|
|
C --Reset symbol size
|
||
|
|
LDUM = PLTSTT (KSCHSZ, SYMSZ)
|
||
|
|
|
||
|
|
RETURN 1
|
||
|
|
END
|