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.
347 lines
12 KiB
347 lines
12 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=======================================================================
|
|
SUBROUTINE LNMAIN (A, NAMECO, NAMES,
|
|
& NPTIMS, IPTIMS, TIMES, WHOTIM,
|
|
& LENF, NLNKE, NLNKF, KLINKF, LENL, KLNSET,
|
|
& NEWELB, IELBST,
|
|
& KNPSUR,
|
|
& ISSNPS, IDNPS, ISSESS, IDESS, LIDSP, BLKCOL,
|
|
& IDELB, NAMELB, MAPEL, MAPND)
|
|
C=======================================================================
|
|
|
|
C --*** LNMAIN *** (PATHLN) PATHLINE main plot routine
|
|
C -- Modified by John Glick - 11/29/88
|
|
C -- Written by Amy Gilkey - revised 05/31/88
|
|
C -- Modified version 1.1a - November 1990 - R.J. Meyers
|
|
C -- added color coded sphere capability
|
|
C --
|
|
C --LNMAIN first determines the new face array, if it has changed.
|
|
C --It then reads the pathline data for all selected times steps.
|
|
C --The undeformed mesh is plotted with the pathline data.
|
|
C --
|
|
C --For 3D, elements are divided into faces and sorted as follows:
|
|
C -- -1) Surface face
|
|
C -- 0) Interior element block boundary
|
|
C -- n) Interior within element block 'n'
|
|
C --
|
|
C --Mesh lines are sorted as follows:
|
|
C -- -1) Mesh boundary
|
|
C -- 0) Element block boundary
|
|
C -- n) Interior within element block 'n'
|
|
C --
|
|
C --Dynamic memory arrays:
|
|
C -- IN2ELB - the element block for each node;
|
|
C -- <0 if not in any selected element block
|
|
C -- =0 if in more than one selected element block
|
|
C -- IDN2B - the element block for each dead node; dead if >= 0
|
|
C -- IF2EL - the element number of each face
|
|
C -- XN, YN, ZN - the nodal coordinates (ZN for 3D only)
|
|
C -- HZ, VT, PD - the undeformed nodal coordinates
|
|
C -- (rotated for 3D, PD for 3D only)
|
|
C -- XF, YF, ZF - the undeformed face center coordinates
|
|
C -- (rotated for 3D, ZF for 3D only)
|
|
C -- HIDENP(i) - true iff node i is hidden (3D only)
|
|
C -- HIDEF(i) - true iff face i is hidden (3D only)
|
|
C -- XLN, YLN, ZLN - the pathline data
|
|
C --
|
|
C --Parameters:
|
|
C -- A - IN - the dynamic memory base array
|
|
C -- NAMECO - IN - the coordinates names
|
|
C -- NAMES - IN - the variable names
|
|
C -- NPTIMS - IN - the number of selected time steps
|
|
C -- IPTIMS - IN - the selected time steps
|
|
C -- TIMES - IN - the database times
|
|
C -- WHOTIM - IN - true iff whole (versus history) time step
|
|
C -- LENF - IN/OUT - the cumulative face counts by element block
|
|
C -- LENF(0) is always 0
|
|
C -- LENF(1..NELBLK) is the end of the surface faces of element block (i)
|
|
C -- LENF(NELBLK+1) is the end of the interior faces
|
|
C -- LENF(NELBLK+2) is the end of the faces that are dead
|
|
C -- LENF(NELBLK+3) is the end of the faces outside a cut
|
|
C -- LENF(NELBLK+4) is the end of the faces in a non-selected element
|
|
C -- block
|
|
C -- NLNKE - IN - the number of nodes per element
|
|
C -- NLNKF - IN - the number of nodes per face
|
|
C -- KLINKF - IN/OUT - the dynamic memory index of the connectivity
|
|
C -- for all faces
|
|
C -- LENL - IN/OUT - the cumulative line counts by element block
|
|
C -- KLNSET - IN/OUT - the dynamic memory index of the sorted line set
|
|
C -- NEWELB - IN/OUT - the new element blocks flag:
|
|
C -- 0 = no new element blocks
|
|
C -- 1 = new selected element blocks
|
|
C -- 2 = new displayed element blocks (implies new selected blocks)
|
|
C -- IELBST - IN - the element block status:
|
|
C -- -1 = OFF, 0 = ON, but not selected, 1 = selected
|
|
C -- KNPSUR - IN/OUT - the index of NPSURF -
|
|
C -- the node numbers of the surface nodes or mesh boundary nodes (2D)
|
|
C -- ISSNPS - IN - the indices of the selected node sets
|
|
C -- IDNPS - IN - the node set ID for each set
|
|
C -- ISSESS - IN - the indices of the selected side sets
|
|
C -- IDESS - IN - the side set ID for each set
|
|
C -- LIDSP(0:*) - IN - the indices of the selected variables
|
|
C -- whose values will be displayed on the plot legend.
|
|
C -- LIDSP(0) = the number of variables in the list.
|
|
C -- LIDSP(i) identifies the ith variable in the list.
|
|
C -- If LIDSP(i) > 0, LIDSP(i) is the id of a history variable.
|
|
C -- If LIDSP(i) < 0, -LIDSP(i) is the id of a global variable.
|
|
C -- If LIDSP(i) = 0, TIME is to be displayed on the plot legend.
|
|
C -- BLKCOL - IN/OUT - 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 --
|
|
C --Common Variables:
|
|
C -- Uses NDIM, NUMEL, NELBLK of /DBNUMS/
|
|
C -- Uses IS3DIM, NNPSUR, NUMNPF, LLNSET of /D3NUMS/
|
|
C -- Uses MSHDEF, MSHNUM, MSHLIN, MLNTYP, IHIDOP of /MSHOPT/
|
|
C -- Uses MODDET, MODTYP, IDTVAR, NNDVAR, NEDVAR of /DETOPT/
|
|
C -- Sets and uses ZMMESH of /MSHLIM/
|
|
|
|
PARAMETER (MSHNON=0, MSHBOR=1, MSHDIV=2, MSHSEL=3, MSHALL=4)
|
|
|
|
PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6)
|
|
|
|
include 'params.blk'
|
|
include 'dbnums.blk'
|
|
include 'dbnumgq.blk'
|
|
include 'd3nums.blk'
|
|
include 'mshopt.blk'
|
|
include 'mshlim.blk'
|
|
include 'lnvars.blk'
|
|
|
|
CHARACTER*(MXSTLN) CDUM
|
|
CHARACTER*(MXSTLN) NAMELB(*)
|
|
|
|
DIMENSION A(*)
|
|
CHARACTER*(*) NAMECO(*)
|
|
CHARACTER*(*) NAMES(*)
|
|
INTEGER IPTIMS(*)
|
|
REAL TIMES(*)
|
|
LOGICAL WHOTIM(*)
|
|
INTEGER LENF(0:NELBLK+4)
|
|
INTEGER NLNKE(NELBLK), NLNKF(NELBLK)
|
|
INTEGER LENL(-2:NELBLK)
|
|
INTEGER NEWELB
|
|
INTEGER IELBST(NELBLK)
|
|
INTEGER ISSNPS(NUMNPS,4)
|
|
INTEGER ISSESS(NUMESS,4)
|
|
INTEGER IDNPS(*)
|
|
INTEGER IDESS(*)
|
|
INTEGER LIDSP(0:*)
|
|
INTEGER BLKCOL(0:NELBLK)
|
|
INTEGER IDELB(*)
|
|
INTEGER MAPEL(*), MAPND(*)
|
|
|
|
INTEGER NDEFVW, IXVW
|
|
LOGICAL NEWSET, NEWFAC, FIXFAC
|
|
LOGICAL ANYDEF, ANYUND
|
|
LOGICAL DOIXF, DON2B, DOELED, DOELEU, DODEAD, DONPS, DOESS, DOSCAL
|
|
|
|
************************************************************************
|
|
*** Prepare for new plot set ***
|
|
************************************************************************
|
|
|
|
C --Initialize flags
|
|
|
|
CALL MSFLAG (ANYDEF, ANYUND,
|
|
& DOIXF, DON2B, DOELED, DOELEU, DODEAD, DONPS, DOESS, DOSCAL,
|
|
& MINMSH, MAXMSH, MAXHID)
|
|
|
|
NEWSET = .TRUE.
|
|
|
|
C --Reserve memory for plot set
|
|
|
|
CALL MSMEMY (A, ANYDEF, ANYUND,
|
|
& DOIXF, DON2B, DOELED, DOELEU, DODEAD, DONPS, DOESS,
|
|
& LENF(NELBLK), KN2ELB, KDN2B, KIF2EL,
|
|
& KXN, KYN, KZN, KHZ, KVT, KPD, KDHZ, KDVT, KDPD,
|
|
& KXF, KYF, KZF, KDXF, KDYF, KDZF, KHIDEN, KHIDEF, KIXFAC,
|
|
& KSNPS, KSESS)
|
|
CALL MDSTAT (NERR, MEM)
|
|
IF (NERR .GT. 0) GOTO 120
|
|
|
|
C --Memory for variables is reserved at this time to prevent problems
|
|
C --if the plot set is aborted; the use of memory is controlled with
|
|
C --MDLONG
|
|
CALL MDRSRV ('XLN', KXLN, 0)
|
|
CALL MDRSRV ('YLN', KYLN, 0)
|
|
IF (IS3DIM) CALL MDRSRV ('ZLN', KZLN, 0)
|
|
IF (IS3DIM) CALL MDRSRV ('IXSCR', KIXSCR, 0)
|
|
|
|
CALL MDSTAT (NERR, MEM)
|
|
IF (NERR .GT. 0) GOTO 130
|
|
|
|
************************************************************************
|
|
*** Plot sequence loop ***
|
|
************************************************************************
|
|
|
|
C --Set the number of non-empty views for single time plots
|
|
NVWPLT = NDEFVW (.FALSE.)
|
|
|
|
ISTEP = 0
|
|
|
|
C --Wipe out the mesh plot pick
|
|
CALL INPICK ('NONE')
|
|
|
|
C --Set up the faces for the new plot set
|
|
|
|
CALL MSGEOM (A, 'PATHLINE', ISTEP,
|
|
& LENF, NLNKF, KLINKF, KXN, KYN, KZN,
|
|
& KIF2EL, NEWELB, IELBST, NEWFAC, FIXFAC)
|
|
IF (LENF(NELBLK) .LE. 0) GOTO 120
|
|
CALL MDSTAT (NERR, MEM)
|
|
IF (NERR .GT. 0) GOTO 120
|
|
|
|
CALL MSSTEP (A, ISTEP, NEWSET, NEWFAC, ANYDEF, ANYUND,
|
|
& DOIXF, DON2B, DOELED, DOELEU, DODEAD, DONPS, DOESS,
|
|
& LENF, NLNKF, A(KLINKF), LENL, KLNSET,
|
|
& KHIDEN, KHIDEF, KIXFAC,
|
|
& KXN, KYN, KZN, KHZ, KVT, KPD, KDHZ, KDVT, KDPD,
|
|
& KXF, KYF, KZF, KDXF, KDYF, KDZF,
|
|
& NEWELB, IELBST, KN2ELB, KDN2B, A(KIF2EL), KNPSUR)
|
|
CALL MDSTAT (NERR, MEM)
|
|
IF (NERR .GT. 0) GOTO 120
|
|
|
|
C --Calculate the axis limits and set up graphics, if limits changed
|
|
|
|
IF (DOSCAL) THEN
|
|
|
|
C --Compute NPSURF nodes that determine the mesh limits
|
|
|
|
IF ((.NOT. IS3DIM) .AND. (NNPSUR .LT. 0)) THEN
|
|
CALL MDLONG ('NPSURF', KNPSUR, 0)
|
|
CALL MDLONG ('NPSURF', KNPSUR, NUMNPF)
|
|
CALL MDSTAT (NERR, MEM)
|
|
IF (NERR .GT. 0) GOTO 120
|
|
|
|
CALL MAKSU2 (LENL, A(KLNSET), MSHBOR,
|
|
& DODEAD, A(KDN2B), A(KNPSUR))
|
|
|
|
CALL MDLONG ('NPSURF', KNPSUR, NNPSUR)
|
|
END IF
|
|
END IF
|
|
|
|
CALL MSSCAL (DOSCAL, NNPSUR, A(KNPSUR),
|
|
& A(KHZ), A(KVT), A(KPD))
|
|
|
|
C --Read variables for plot
|
|
|
|
CALL MDLONG ('XLN', KXLN, NPTIMS * NLNCRV)
|
|
CALL MDLONG ('YLN', KYLN, NPTIMS * NLNCRV)
|
|
IF (IS3DIM) CALL MDLONG ('ZLN', KZLN, NPTIMS * NLNCRV)
|
|
CALL MDSTAT (NERR, MEM)
|
|
IF (NERR .GT. 0) GOTO 130
|
|
|
|
CALL LNREAD (A, NPTIMS, NPTIMW, IPTIMS, TIMES, WHOTIM,
|
|
& A(KXLN), A(KYLN), A(KZLN))
|
|
|
|
C --Label plot frame
|
|
|
|
100 CONTINUE
|
|
CALL LNLAB (A, NEWSET, NPTIMS, IPTIMS, TIMES,
|
|
& NAMECO, NAMES, IELBST,
|
|
& ISSNPS, IDNPS, ISSESS, IDESS, A(KSNPS), A(KSESS),
|
|
& LIDSP, BLKCOL, *120)
|
|
|
|
DO 110 IVW = 1, NVWPLT
|
|
IVIEW = IXVW (.FALSE., IVW)
|
|
|
|
KTXN = KHZ
|
|
KTYN = KVT
|
|
KTZN = KPD
|
|
KTXF = KXF
|
|
KTYF = KYF
|
|
KTZF = KZF
|
|
|
|
C --Identify the hidden faces and nodes on the surface
|
|
|
|
IF (IS3DIM .AND. (NEWSET .OR. NEWFAC)) THEN
|
|
C --NOTE: coordinates may be mangled by HIDDEN
|
|
CALL HIDDEN (A, MAXHID, LENF, NLNKE, NLNKF, A(KLINKF),
|
|
& A(KTXN), A(KTYN), A(KTZN),
|
|
& LENL, A(KLNSET), MSCTYP, ZMMESH,
|
|
& MINMSH, MAXMSH, IELBST,
|
|
& DODEAD, A(KDN2B), A(KHIDEF), A(KHIDEN),
|
|
& A(KTZF), DOIXF, NXFAC, A(KIXFAC), NAMELB)
|
|
|
|
CALL MDSTAT (NERR, MEM)
|
|
IF (NERR .GT. 0) GOTO 120
|
|
END IF
|
|
|
|
C --Set up to plot view
|
|
|
|
CALL SETVW (IVIEW, *120)
|
|
|
|
C --Plot undeformed mesh
|
|
|
|
C --Set up the mesh plot pick
|
|
CALL INPICK ('UNDEFORM')
|
|
CDUM = ' '
|
|
CALL MSPLT1 (A, .FALSE.,
|
|
& MSHNUM(IVIEW), MSHLIN(IVIEW), MLNTYP(-1,IVIEW),
|
|
& LENF, NLNKF, A(KLINKF), LENL, A(KLNSET),
|
|
& A(KHIDEN), A(KHIDEF),
|
|
& A(KTXN), A(KTYN), A(KTZN), A(KTXF), A(KTYF), A(KTZF),
|
|
& IELBST, A(KN2ELB), DODEAD, A(KDN2B),
|
|
& .FALSE., 0, IDUM,
|
|
& NNPSET(IVIEW), ISSNPS(1,IVIEW),
|
|
& NESSET(IVIEW), ISSESS(1,IVIEW), BLKCOL,
|
|
& IDELB, VARNP, CDUM, IHIDOP, MAPEL, MAPND, *120)
|
|
|
|
IF (IS3DIM) CALL MDLONG ('IXSCR', KIXSCR, NPTIMS)
|
|
CALL MDSTAT (NERR, MEM)
|
|
IF (NERR .GT. 0) GOTO 120
|
|
|
|
CALL LNPLOT (NPTIMS, NPTIMW,
|
|
& A(KXLN), A(KYLN), A(KZLN), A(KIXSCR), *120)
|
|
|
|
IF (IS3DIM) CALL MDLONG ('IXSCR', KIXSCR, 0)
|
|
|
|
IF (NEWSET) THEN
|
|
NEWSET = .FALSE.
|
|
NEWFAC = .FALSE.
|
|
FIXFAC = .FALSE.
|
|
DOSCAL = .FALSE.
|
|
END IF
|
|
|
|
110 CONTINUE
|
|
|
|
C --Check if user wants to quit or get hardcopy of plot
|
|
|
|
C --Set color in case text is requested
|
|
CALL UGRCOL (0, BLKCOL)
|
|
N = 1
|
|
CALL GRPEND (.TRUE., .TRUE., N, N, .FALSE., *100, *120)
|
|
|
|
120 CONTINUE
|
|
|
|
C --Release the memory reserved for plot set
|
|
|
|
CALL MSDONE (ANYDEF, ANYUND,
|
|
& DOIXF, DON2B, DOELED, DOELEU, DODEAD, DONPS, DOESS)
|
|
|
|
CALL MDDEL ('XLN')
|
|
CALL MDDEL ('YLN')
|
|
IF (IS3DIM) CALL MDDEL ('ZLN')
|
|
IF (IS3DIM) CALL MDDEL ('IXSCR')
|
|
|
|
130 CONTINUE
|
|
RETURN
|
|
END
|
|
|