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.
218 lines
7.6 KiB
218 lines
7.6 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 ZMFIXD (XN, YN, ZN, IXELB, NUMLNK, LINK, VISELB,
|
||
|
|
& IXNODE, IXELBO, IXELEM, NODIX)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** ZMFIXD *** (ALGEBRA) Zoom database fixed arrays
|
||
|
|
C -- Written by Amy Gilkey - revised 05/18/88
|
||
|
|
C --
|
||
|
|
C --ZMFIXD finds the nodes within the zoomed coordinates and the elements
|
||
|
|
C --within the zoomed mesh (if any nodes are in). The connectivity
|
||
|
|
C --array is fixed to point to the renumbered nodes. The number of
|
||
|
|
C --element blocks is recalculated.
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- XN, YN, ZN, - IN - the coordinates
|
||
|
|
C -- IXELB - IN - the cumulative element counts for each element block
|
||
|
|
C -- NUMLNK - IN - the number of nodes per element in each element block
|
||
|
|
C -- LINK - IN - the connectivity for all elements
|
||
|
|
C -- VISELB(i) - IN/OUT - true iff element block i is to be written
|
||
|
|
C -- IXNODE - OUT - the indices of the zoomed nodes (iff ISZOOM)
|
||
|
|
C -- IXELBO - OUT - the cumulative element counts for each output block
|
||
|
|
C -- IXELEM - OUT - the indices of the zoomed elements (iff ISZOOM)
|
||
|
|
C -- NODIX(i) - OUT - the zoom mesh index for each node (iff ISZOOM)
|
||
|
|
C --
|
||
|
|
C --Common Variables:
|
||
|
|
C -- Uses NDIM, NUMNP, NUMEL, NELBLK of /DBNUMS/
|
||
|
|
C -- Sets NUMNPO, NUMELO, NELBO of /DBOUT/
|
||
|
|
C -- Uses ISZOOM, ZMLIM of /ZOOM/
|
||
|
|
|
||
|
|
include 'ag_dbnums.blk'
|
||
|
|
include 'ag_dbout.blk'
|
||
|
|
include 'ag_zoom.blk'
|
||
|
|
|
||
|
|
REAL XN(*), YN(*), ZN(*)
|
||
|
|
INTEGER IXELB(0:NELBLK)
|
||
|
|
INTEGER NUMLNK(*)
|
||
|
|
INTEGER LINK(*)
|
||
|
|
LOGICAL VISELB(NELBLK)
|
||
|
|
INTEGER IXNODE(*)
|
||
|
|
INTEGER IXELBO(0:NELBLK)
|
||
|
|
INTEGER IXELEM(*)
|
||
|
|
INTEGER NODIX(*)
|
||
|
|
|
||
|
|
LOGICAL NODEIN
|
||
|
|
|
||
|
|
C If (Output Element Blocks < Element Blocks)
|
||
|
|
IF (NUMEQL (.TRUE., NELBLK, VISELB) .LT. NELBLK) THEN
|
||
|
|
|
||
|
|
C --Identify elements of a selected element block, and save index
|
||
|
|
C --Eliminate nodes that are not in an element of a selected element block
|
||
|
|
|
||
|
|
C initialize zoom mesh index for each node
|
||
|
|
DO 100 INP = 1, NUMNP
|
||
|
|
NODIX(INP) = 0
|
||
|
|
100 CONTINUE
|
||
|
|
|
||
|
|
NUMELO = 0
|
||
|
|
IXELBO(0) = NUMELO
|
||
|
|
C Loop 1 to number of element blocks
|
||
|
|
DO 130 IELB = 1, NELBLK
|
||
|
|
C Write element block IELB
|
||
|
|
IF (VISELB(IELB)) THEN
|
||
|
|
C 0 index into cumulative count array
|
||
|
|
IXL0 = IDBLNK (IELB, 0, IXELB, NUMLNK) - 1
|
||
|
|
C Loop over cumulative number of elements in element block IELB
|
||
|
|
DO 120 IEL = IXELB(IELB-1)+1, IXELB(IELB)
|
||
|
|
C increment number of elements to output
|
||
|
|
NUMELO = NUMELO + 1
|
||
|
|
C Indices of the zoomed elements
|
||
|
|
IXELEM(NUMELO) = IEL
|
||
|
|
C Loop 1 to number of nodes per element in elem blk IELB
|
||
|
|
DO 110 K = 1, NUMLNK(IELB)
|
||
|
|
C initialize zoom mesh index for each node
|
||
|
|
NODIX(LINK(IXL0+K)) = 1
|
||
|
|
110 CONTINUE
|
||
|
|
C increment IXLO by the number of nodes per element block
|
||
|
|
IXL0 = IXL0 + NUMLNK(IELB)
|
||
|
|
120 CONTINUE
|
||
|
|
END IF
|
||
|
|
C Set cumul element count for output block IELB
|
||
|
|
IXELBO(IELB) = NUMELO
|
||
|
|
130 CONTINUE
|
||
|
|
|
||
|
|
ELSE
|
||
|
|
C initialize the zoom mesh index from 1 to number of nodes
|
||
|
|
DO 140 INP = 1, NUMNP
|
||
|
|
NODIX(INP) = 1
|
||
|
|
140 CONTINUE
|
||
|
|
|
||
|
|
NUMELO = 0
|
||
|
|
IXELBO(0) = NUMELO
|
||
|
|
C loop from 1 to number of element blocks
|
||
|
|
DO 160 IELB = 1, NELBLK
|
||
|
|
C Loop over cumulative elements count in element block IELB
|
||
|
|
DO 150 IEL = IXELB(IELB-1)+1, IXELB(IELB)
|
||
|
|
C Increment number of elements to output
|
||
|
|
NUMELO = NUMELO + 1
|
||
|
|
C Initialize indices of the zoomed elements
|
||
|
|
IXELEM(NUMELO) = IEL
|
||
|
|
150 CONTINUE
|
||
|
|
C Set the number of elements to output for element block IELB
|
||
|
|
IXELBO(IELB) = NUMELO
|
||
|
|
160 CONTINUE
|
||
|
|
END IF
|
||
|
|
|
||
|
|
IF (ISZOOM) THEN
|
||
|
|
|
||
|
|
C --Eliminate nodes outside the zoom mesh
|
||
|
|
|
||
|
|
C Loop from 1 to total number of nodes
|
||
|
|
DO INP = 1, NUMNP
|
||
|
|
IF (NODIX(INP) .GE. 1) THEN
|
||
|
|
IF (NDIM .EQ. 2) THEN
|
||
|
|
NODEIN =
|
||
|
|
& (XN(INP) .GE. ZMLIM(1)) .AND.
|
||
|
|
& (XN(INP) .LE. ZMLIM(2)) .AND.
|
||
|
|
& (YN(INP) .GE. ZMLIM(3)) .AND.
|
||
|
|
& (YN(INP) .LE. ZMLIM(4))
|
||
|
|
ELSE IF (NDIM .GE. 3) THEN
|
||
|
|
NODEIN =
|
||
|
|
& (XN(INP) .GE. ZMLIM(1)) .AND.
|
||
|
|
& (XN(INP) .LE. ZMLIM(2)) .AND.
|
||
|
|
& (YN(INP) .GE. ZMLIM(3)) .AND.
|
||
|
|
& (YN(INP) .LE. ZMLIM(4)) .AND.
|
||
|
|
& (ZN(INP) .GE. ZMLIM(5)) .AND.
|
||
|
|
& (ZN(INP) .LE. ZMLIM(6))
|
||
|
|
ELSE
|
||
|
|
NODEIN = .TRUE.
|
||
|
|
END IF
|
||
|
|
C Reset NODIX variable
|
||
|
|
if (zoomin) then
|
||
|
|
IF (.NOT. NODEIN) NODIX(INP) = 0
|
||
|
|
else
|
||
|
|
IF (NODEIN) NODIX(INP) = 0
|
||
|
|
end if
|
||
|
|
END IF
|
||
|
|
END DO
|
||
|
|
|
||
|
|
C --Identify elements within the zoom mesh, and save index
|
||
|
|
|
||
|
|
NUMELO = 0
|
||
|
|
IXLAST = IXELBO(0)
|
||
|
|
C Loop 1 to number of element blocks
|
||
|
|
DO 210 IELB = 1, NELBLK
|
||
|
|
C Loop over cumulative element count in element block IELB
|
||
|
|
DO 200 IX = IXLAST+1, IXELBO(IELB)
|
||
|
|
C iel = index of zoomed element
|
||
|
|
IEL = IXELEM(IX)
|
||
|
|
C ixlo = 0 index for elemtn block
|
||
|
|
IXL0 = IDBLNK (IELB, IEL, IXELB, NUMLNK) - 1
|
||
|
|
N = 0
|
||
|
|
C Loop 1 to number of nodes per element - element block IELB
|
||
|
|
DO 180 K = 1, NUMLNK(IELB)
|
||
|
|
C If (NODIX(node#)>0) increment number of nodes to output
|
||
|
|
C for element block IELB
|
||
|
|
IF (NODIX(LINK(IXL0+K)) .GT. 0) N = N + 1
|
||
|
|
180 CONTINUE
|
||
|
|
IF (N .GT. 0) THEN
|
||
|
|
C if (output nodes/element < nodes/element)
|
||
|
|
IF (N .LT. NUMLNK(IELB)) THEN
|
||
|
|
C Loop 1 to number of nodes per element - element block IELB
|
||
|
|
DO 190 K = 1, NUMLNK(IELB)
|
||
|
|
C if node is not to be output
|
||
|
|
C set nodix = -1
|
||
|
|
IF (NODIX(LINK(IXL0+K)) .EQ. 0)
|
||
|
|
& NODIX(LINK(IXL0+K)) = -1
|
||
|
|
190 CONTINUE
|
||
|
|
END IF
|
||
|
|
C Increment number of elements to output
|
||
|
|
NUMELO = NUMELO + 1
|
||
|
|
IXELEM(NUMELO) = IEL
|
||
|
|
END IF
|
||
|
|
200 CONTINUE
|
||
|
|
IXLAST = IXELBO(IELB)
|
||
|
|
IXELBO(IELB) = NUMELO
|
||
|
|
210 CONTINUE
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C --Set the selected element blocks in the zoom mesh
|
||
|
|
|
||
|
|
IF (ISZOOM) THEN
|
||
|
|
DO 220 IELB = 1, NELBLK
|
||
|
|
NELO = IXELBO(IELB) - IXELBO(IELB-1)
|
||
|
|
VISELB(IELB) = NELO .GT. 0
|
||
|
|
220 CONTINUE
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C --Count the number of selected element blocks
|
||
|
|
|
||
|
|
NELBO = NUMEQL (.TRUE., NELBLK, VISELB)
|
||
|
|
|
||
|
|
C --Index nodes of selected element block within the zoom mesh
|
||
|
|
|
||
|
|
NUMNPO = 0
|
||
|
|
DO 230 INP = 1, NUMNP
|
||
|
|
IF (NODIX(INP) .NE. 0) THEN
|
||
|
|
NUMNPO = NUMNPO + 1
|
||
|
|
IXNODE(NUMNPO) = INP
|
||
|
|
NODIX(INP) = NUMNPO
|
||
|
|
END IF
|
||
|
|
230 CONTINUE
|
||
|
|
|
||
|
|
WRITE (*, 10000, IOSTAT=IDUM) NUMNPO, NUMELO, NELBO
|
||
|
|
10000 FORMAT (
|
||
|
|
& /, 1X, 'Number of output nodes =', I10
|
||
|
|
& /, 1X, 'Number of output elements =', I10
|
||
|
|
& /, 1X, 'Number of output element blocks =', I10
|
||
|
|
& )
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
END
|