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.
80 lines
2.4 KiB
80 lines
2.4 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 NXKBDY (MDIM, NNXK, NPELEM, NXK, KKK, LIST, THREE,
|
||
|
|
& EIGHT, NINE)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE NXKBDY = FLAGS ALL SIDES OF ELEMENTS ONLY ONCE BY USE OF
|
||
|
|
C A HASH SCHEME
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C NXK = THE NODES PER ELEMENT ARRAY (CONNECTIVITY)
|
||
|
|
C (A NEGATIVE VALUE WILL INDICATE UNIQUENESS OF FOLLOWING
|
||
|
|
C SIDE)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
LOGICAL THREE, EIGHT, NINE, ITSOK
|
||
|
|
|
||
|
|
DIMENSION NXK (NNXK, NPELEM), LIST (MDIM)
|
||
|
|
|
||
|
|
DO 100 I = 1, MDIM
|
||
|
|
LIST (I) = 0
|
||
|
|
100 CONTINUE
|
||
|
|
|
||
|
|
DO 140 K = 1, KKK
|
||
|
|
IF ((NXK (3, K) .EQ. 0) .AND. (THREE)) THEN
|
||
|
|
ITSOK = .TRUE.
|
||
|
|
NEND = 1
|
||
|
|
ELSEIF ((NXK (3, K) .NE. 0) .AND. ((EIGHT) .OR. (NINE))) THEN
|
||
|
|
ITSOK = .TRUE.
|
||
|
|
NEND = 4
|
||
|
|
ELSE
|
||
|
|
ITSOK = .FALSE.
|
||
|
|
ENDIF
|
||
|
|
IF (ITSOK) THEN
|
||
|
|
DO 130 N = 1, NEND
|
||
|
|
|
||
|
|
C COMPUTE HASH CODE FOR LINE
|
||
|
|
|
||
|
|
N2 = N + 1
|
||
|
|
IF (N .GE. 4)N2 = 1
|
||
|
|
NODE1 = NXK (N, K)
|
||
|
|
NODE2 = IABS (NXK (N2, K))
|
||
|
|
IF (NODE2 .GT. NODE1) THEN
|
||
|
|
LVAL = NODE1 * 100000 + NODE2
|
||
|
|
ELSE
|
||
|
|
LVAL = NODE2 * 100000 + NODE1
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C CALCULATE THE BEGINNING HASH VALUE
|
||
|
|
|
||
|
|
HOLD = DBLE(NODE1 + NODE2) * 3.1830989
|
||
|
|
LHASH = INT((HOLD-INT (HOLD)) * DBLE(MDIM) + 1)
|
||
|
|
LKEEP = LHASH
|
||
|
|
|
||
|
|
C FIRST-TIMERS CLAIM THE NODE
|
||
|
|
|
||
|
|
110 CONTINUE
|
||
|
|
IF (LIST (LHASH).NE.0) THEN
|
||
|
|
IF (LIST (LHASH) .EQ. LVAL) GOTO 120
|
||
|
|
LHASH = LHASH + 1
|
||
|
|
IF (LHASH .EQ. MDIM) LHASH = 1
|
||
|
|
IF (LHASH.NE.LKEEP) GOTO 110
|
||
|
|
CALL MESSAGE('HASH SCHEME OVERFLOW IN KXNBDY')
|
||
|
|
STOP
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
LIST (LHASH) = LVAL
|
||
|
|
NXK (N, K) = ISIGN (NXK (N, K), -1)
|
||
|
|
120 CONTINUE
|
||
|
|
130 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
140 CONTINUE
|
||
|
|
RETURN
|
||
|
|
END
|