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.
58 lines
1.4 KiB
58 lines
1.4 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
|
|
|
|
SUBROUTINE GETLXN (MXND, LXN, NODE, LINES, NL, ERR)
|
|
C***********************************************************************
|
|
|
|
C SUBROUTINE GETLXN = GET THE FULL LIST OF LINES CONNECTED TO NODE
|
|
|
|
C***********************************************************************
|
|
|
|
DIMENSION LINES (20), LXN (4, MXND)
|
|
|
|
LOGICAL ERR
|
|
|
|
ERR = .FALSE.
|
|
NN = NODE
|
|
NUM = 0
|
|
IF (LXN (1, NN) .LE. 0) THEN
|
|
NL = 0
|
|
ERR = .TRUE.
|
|
RETURN
|
|
ENDIF
|
|
100 LINES (NUM + 1) = IABS (LXN (1, NN))
|
|
NUM = NUM + 2
|
|
LINES (NUM) = IABS (LXN (2, NN))
|
|
L = LXN (3, NN)
|
|
IF (L.EQ.0) THEN
|
|
NL = NUM
|
|
RETURN
|
|
ENDIF
|
|
NUM = NUM + 1
|
|
LINES (NUM) = IABS (L)
|
|
L = LXN (4, NN)
|
|
IF (L.LT.0) THEN
|
|
NN = -L
|
|
IF (NUM .LT. 18) THEN
|
|
GOTO 100
|
|
ELSE
|
|
WRITE (*, 10000)NODE
|
|
ERR = .TRUE.
|
|
RETURN
|
|
ENDIF
|
|
ELSEIF (L .EQ. 0) THEN
|
|
NL = NUM
|
|
RETURN
|
|
ELSE
|
|
NUM = NUM + 1
|
|
LINES (NUM) = L
|
|
NL = NUM
|
|
RETURN
|
|
ENDIF
|
|
|
|
10000 FORMAT (' IN GETLXN, TOO MANY NODES CONNECTED TO NODE', I5)
|
|
|
|
END
|
|
|