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.
94 lines
2.9 KiB
94 lines
2.9 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=======================================================================
|
|
BLOCK DATA BLKDAT
|
|
C=======================================================================
|
|
|
|
C --*** BLKDAT *** (BLOT) Block data
|
|
C -- Written by Amy Gilkey - revised 05/31/88
|
|
C --
|
|
C --BLKDAT contains all the COMMON areas defined for BLOT.
|
|
|
|
C=======================================================================
|
|
C B L O T
|
|
PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6)
|
|
C --These parameters define the indices of 2D and 3D limit arrays
|
|
|
|
include 'params.blk'
|
|
include 'progqa.blk'
|
|
include 'dbase.blk'
|
|
include 'dbtitl.blk'
|
|
include 'dbnums.blk'
|
|
include 'dbnumgq.blk'
|
|
include 'dbnams.blk'
|
|
include 'legopt.blk'
|
|
include 'times.blk'
|
|
include 'layout.blk'
|
|
include 'plcolr.blk'
|
|
include 'cmap-lst.blk'
|
|
include 'light.blk'
|
|
|
|
common /debugc/ cdebug
|
|
common /debugn/ idebug
|
|
character*8 cdebug
|
|
|
|
C=======================================================================
|
|
C M E S H P L O T
|
|
|
|
PARAMETER (MSHNON=0, MSHBOR=1, MSHDIV=2, MSHSEL=3, MSHALL=4)
|
|
C --These parameters define the mesh display (see MSHLIN of /MSHOPT/)
|
|
|
|
include 'd3nums.blk'
|
|
include 'deform.blk'
|
|
include 'mshopt.blk'
|
|
include 'views.blk'
|
|
include 'mshlim.blk'
|
|
include 'rotopt.blk'
|
|
include 'cutopt.blk'
|
|
include 'layoud.blk'
|
|
include 'devdat.blk'
|
|
include 'pick.blk'
|
|
include 'sizes.blk'
|
|
include 'linthc.blk'
|
|
include 'sphele.blk'
|
|
|
|
C=======================================================================
|
|
C D E T O U R
|
|
|
|
include 'detopt.blk'
|
|
include 'cntr.blk'
|
|
include 'icexct.blk'
|
|
include 'icrnbw.blk'
|
|
include 'etcopt.blk'
|
|
include 'nodzom.blk'
|
|
include 'axsplt.blk'
|
|
C=======================================================================
|
|
C X - Y P L O T
|
|
|
|
include 'xyopt.blk'
|
|
include 'xylim.blk'
|
|
include 'xylab.blk'
|
|
include 'neutr.blk'
|
|
|
|
C=======================================================================
|
|
C P A T H L I N E
|
|
|
|
include 'lnvars.blk'
|
|
C=======================================================================
|
|
C T P L O T
|
|
|
|
include 'tpvars.blk'
|
|
C=======================================================================
|
|
C S P L O T
|
|
|
|
include 'selne.blk'
|
|
include 'spvars.blk'
|
|
|
|
C=======================================================================
|
|
|
|
DATA IEXCON /0/
|
|
END
|
|
|