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.
32 lines
1.6 KiB
32 lines
1.6 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 mshlim.blk
|
|
C PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6)
|
|
COMMON /MSHLIM/ UNMESH(KFAR), ALMESH(KFAR), ZMMESH(KTOP),
|
|
& RDMESH(KTOP), TICMSH, SQMESH
|
|
LOGICAL SQMESH
|
|
COMMON /MSHLIC/ MSCTYP
|
|
CHARACTER*8 MSCTYP
|
|
C --UNMESH - the limits of the entire undeformed mesh
|
|
C -- (1=left, 2=right, 3=bottom, 4=top, 5=near, 6=far)
|
|
C --ALMESH - the limits of the entire deformed mesh
|
|
C -- (1=left, 2=right, 3=bottom, 4=top, 5=near, 6=far)
|
|
C --ZMMESH - the limits of the zoom mesh
|
|
C -- (1=left, 2=right, 3=bottom, 4=top)
|
|
C --RDMESH - the limits of the user-requested mesh (valid only if zoom)
|
|
C -- (1=left, 2=right, 3=bottom, 4=top)
|
|
C --TICMSH - X and Y axis tick interval for the mesh; 0 for default
|
|
C --MSCTYP - mesh scaling flag
|
|
C -- 'ZOOM' = user requested scaling (zoom)
|
|
C -- 'MESH' = scale to expanded mesh limits (2D only)
|
|
C -- 'ROTATION' = scale for all deformed meshes this rotation
|
|
C -- (3D only)
|
|
C -- (scale if new rotation matrix or rotation center)
|
|
C -- 'EACH' = scale for each plot in the set
|
|
C -- 'SELECTED' = scale for each plot, selected nodes only
|
|
C --SQMESH - true iff mesh is to be forced to be a square
|
|
|
|
|