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.
167 lines
4.6 KiB
167 lines
4.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
|
||
|
|
|
||
|
|
SUBROUTINE ADD2ND (MXND, MLN, XN, YN, LXK, KXL, NXL, LXN,
|
||
|
|
& BNSIZE, LNODES, X1, Y1, X2, Y2, DIST1, DIST2, NNN, LLL, KKK,
|
||
|
|
& N1, N2, NLOOP, SIZEIT, ERR, NOROOM, XNOLD, YNOLD, NXKOLD,
|
||
|
|
& LINKEG, LISTEG, BMESUR, MLINK, NPNOLD, NPEOLD, NNXK, REMESH,
|
||
|
|
& REXMIN, REXMAX, REYMIN, REYMAX, IDIVIS, SIZMIN, EMAX, EMIN)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE ADD2ND = ADDS A NEW ELEMENT JUTTING OUT FROM AN EXISTING
|
||
|
|
C LINE
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
DIMENSION XN (MXND), YN (MXND)
|
||
|
|
DIMENSION LXK (4, MXND), KXL (2, 3*MXND)
|
||
|
|
DIMENSION NXL (2, 3*MXND), LXN (4, MXND)
|
||
|
|
DIMENSION LNODES (MLN, MXND), BNSIZE (2, MXND)
|
||
|
|
|
||
|
|
DIMENSION XNOLD(NPNOLD), YNOLD(NPNOLD)
|
||
|
|
DIMENSION NXKOLD(NNXK, NPEOLD)
|
||
|
|
DIMENSION LINKEG(2, MLINK), LISTEG(4 * NPEOLD), BMESUR(NPNOLD)
|
||
|
|
|
||
|
|
LOGICAL SIZEIT, ERR, NOROOM
|
||
|
|
|
||
|
|
NNN = NNN+1
|
||
|
|
IF (NNN .GT. MXND) THEN
|
||
|
|
NOROOM = .TRUE.
|
||
|
|
GOTO 110
|
||
|
|
ENDIF
|
||
|
|
XN (NNN) = X1
|
||
|
|
YN (NNN) = Y1
|
||
|
|
NODE1 = NNN
|
||
|
|
NNN = NNN+1
|
||
|
|
IF (NNN .GT. MXND) THEN
|
||
|
|
NOROOM = .TRUE.
|
||
|
|
GOTO 110
|
||
|
|
ENDIF
|
||
|
|
XN (NNN) = X2
|
||
|
|
YN (NNN) = Y2
|
||
|
|
NODE2 = NNN
|
||
|
|
|
||
|
|
C PUT THE BEGINNING BOUNDARY DISTANCE IN PLACE
|
||
|
|
|
||
|
|
IF (LXN (2, N1) .LT. 0) THEN
|
||
|
|
BNSIZE (1, NODE1) = DIST1
|
||
|
|
BNSIZE (2, NODE1) = 1.
|
||
|
|
ELSE
|
||
|
|
IF (SIZEIT) THEN
|
||
|
|
|
||
|
|
C** LOCATION SIZE AND PROJECTING FROM LOCATION SIZE.
|
||
|
|
|
||
|
|
CALL GETSIZ (XNOLD, YNOLD, NXKOLD, LINKEG, LISTEG, BMESUR,
|
||
|
|
& MLINK, NPNOLD, NPEOLD, NNXK, REMESH, REXMIN, REXMAX,
|
||
|
|
& REYMIN, REYMAX, IDIVIS, SIZMIN, EMAX, EMIN, X1, Y1,
|
||
|
|
& SIZE1)
|
||
|
|
CALL GETSIZ (XNOLD, YNOLD, NXKOLD, LINKEG, LISTEG, BMESUR,
|
||
|
|
& MLINK, NPNOLD, NPEOLD, NNXK, REMESH, REXMIN, REXMAX,
|
||
|
|
& REYMIN, REYMAX, IDIVIS, SIZMIN, EMAX, EMIN, XN(N1),
|
||
|
|
& YN(N1), SIZE2)
|
||
|
|
SIZNEW = AMIN1 (SIZE1, SIZE2)
|
||
|
|
ELSE
|
||
|
|
SIZNEW = BNSIZE (1, N1)
|
||
|
|
ENDIF
|
||
|
|
BNSIZE (1, NODE1) = SIZNEW
|
||
|
|
IF ((BNSIZE (1, N1) .EQ. 0.) .OR. (SIZEIT)) THEN
|
||
|
|
BNSIZE (2, NODE1) = 1.
|
||
|
|
ELSE
|
||
|
|
BNSIZE (2, NODE1) = DIST1 / SIZNEW
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
IF (LXN (2, N2) .LT. 0) THEN
|
||
|
|
BNSIZE (1, NODE2) = DIST2
|
||
|
|
BNSIZE (2, NODE2) = 1.
|
||
|
|
ELSE
|
||
|
|
IF (SIZEIT) THEN
|
||
|
|
CALL GETSIZ (XNOLD, YNOLD, NXKOLD, LINKEG, LISTEG, BMESUR,
|
||
|
|
& MLINK, NPNOLD, NPEOLD, NNXK, REMESH, REXMIN, REXMAX,
|
||
|
|
& REYMIN, REYMAX, IDIVIS, SIZMIN, EMAX, EMIN, X2, Y2,
|
||
|
|
& SIZNEW)
|
||
|
|
ELSE
|
||
|
|
SIZNEW = BNSIZE (1, N2)
|
||
|
|
ENDIF
|
||
|
|
BNSIZE (1, NODE2) = SIZNEW
|
||
|
|
IF ((BNSIZE (1, N2) .EQ. 0.) .OR. (SIZEIT)) THEN
|
||
|
|
BNSIZE (2, NODE2) = 1.
|
||
|
|
ELSE
|
||
|
|
BNSIZE (2, NODE2) = DIST2 / SIZNEW
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C MAKE NXL ARRAY
|
||
|
|
C ADD THE THREE NEW LINES
|
||
|
|
|
||
|
|
LLL = LLL+1
|
||
|
|
L1 = LLL
|
||
|
|
NXL (1, L1) = N1
|
||
|
|
NXL (2, L1) = NODE1
|
||
|
|
|
||
|
|
LLL = LLL+1
|
||
|
|
L2 = LLL
|
||
|
|
NXL (1, L2) = NODE1
|
||
|
|
NXL (2, L2) = NODE2
|
||
|
|
|
||
|
|
LLL = LLL+1
|
||
|
|
L3 = LLL
|
||
|
|
NXL (1, L3) = NODE2
|
||
|
|
NXL (2, L3) = N2
|
||
|
|
|
||
|
|
C MAKE THE NEW ELEMENT
|
||
|
|
|
||
|
|
KKK = KKK+1
|
||
|
|
LXK (1, KKK) = LNODES (5, N1)
|
||
|
|
LXK (2, KKK) = L3
|
||
|
|
LXK (3, KKK) = L2
|
||
|
|
LXK (4, KKK) = L1
|
||
|
|
CALL ADDKXL (MXND, KXL, KKK, L1)
|
||
|
|
CALL ADDKXL (MXND, KXL, KKK, L2)
|
||
|
|
CALL ADDKXL (MXND, KXL, KKK, L3)
|
||
|
|
CALL ADDKXL (MXND, KXL, KKK, LNODES (5, N1))
|
||
|
|
|
||
|
|
C ZERO OUT THE LXN ARRAY
|
||
|
|
|
||
|
|
DO 100 I = 1, 4
|
||
|
|
LXN (I, NODE1) = 0
|
||
|
|
LXN (I, NODE2) = 0
|
||
|
|
100 CONTINUE
|
||
|
|
|
||
|
|
C REDO THE LNODES ARRAY
|
||
|
|
|
||
|
|
LNODES (1, NODE1) = 0
|
||
|
|
LNODES (1, NODE2) = 0
|
||
|
|
LNODES (1, N1) = 0
|
||
|
|
LNODES (1, N2) = 0
|
||
|
|
|
||
|
|
LNODES (2, NODE1) = N1
|
||
|
|
LNODES (2, NODE2) = NODE1
|
||
|
|
LNODES (2, N2) = NODE2
|
||
|
|
|
||
|
|
LNODES (3, N1) = NODE1
|
||
|
|
LNODES (3, NODE1) = NODE2
|
||
|
|
LNODES (3, NODE2) = N2
|
||
|
|
|
||
|
|
LNODES (4, NODE1) = - 1
|
||
|
|
LNODES (4, NODE2) = - 1
|
||
|
|
|
||
|
|
LNODES (5, N1) = L1
|
||
|
|
LNODES (5, NODE1) = L2
|
||
|
|
LNODES (5, NODE2) = L3
|
||
|
|
|
||
|
|
LNODES (8, NODE1) = LNODES (8, N1) + 1
|
||
|
|
LNODES (8, NODE2) = LNODES (8, N2) + 1
|
||
|
|
|
||
|
|
NLOOP = NLOOP + 2
|
||
|
|
|
||
|
|
CALL MARKSM (MXND, MLN, LXK, KXL, NXL, LXN, LNODES, N1, ERR)
|
||
|
|
CALL MARKSM (MXND, MLN, LXK, KXL, NXL, LXN, LNODES, N2, ERR)
|
||
|
|
|
||
|
|
110 CONTINUE
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
END
|