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.
69 lines
1.8 KiB
69 lines
1.8 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 FIXLXN (MXND, LXN, NXL, NUID, NAVAIL, IAVAIL, NNN, LLL,
|
||
|
|
& NNNOLD, LLLOLD, ERR, NOROOM)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE FIXLXN = FIXES THE ADDITIONS TO LXN
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
DIMENSION NXL (2, 3*MXND), LXN (4, MXND), NUID (MXND)
|
||
|
|
|
||
|
|
LOGICAL ERR, NOROOM
|
||
|
|
|
||
|
|
C RE-SETUP AVAILABLE LXN-SPACE LINKS
|
||
|
|
|
||
|
|
IOLD = 0
|
||
|
|
NAVAIL = 0
|
||
|
|
DO 100 I = 1, NNNOLD
|
||
|
|
IF (LXN (1, I).EQ.0)THEN
|
||
|
|
IF (IOLD.LE.0)THEN
|
||
|
|
IAVAIL = I
|
||
|
|
ELSE
|
||
|
|
LXN (4, IOLD) = I
|
||
|
|
ENDIF
|
||
|
|
IOLD = I
|
||
|
|
NAVAIL = NAVAIL + 1
|
||
|
|
ENDIF
|
||
|
|
100 CONTINUE
|
||
|
|
IF (IOLD.LE.0)THEN
|
||
|
|
IAVAIL = NNN + 1
|
||
|
|
ELSE
|
||
|
|
LXN (4, IOLD) = NNN + 1
|
||
|
|
ENDIF
|
||
|
|
NAVAIL = NAVAIL + (MXND - NNN)
|
||
|
|
IF (NNN.LT.MXND)THEN
|
||
|
|
NNN1 = NNN + 1
|
||
|
|
DO 110 I = NNN1, MXND
|
||
|
|
LXN (1, I) = 0
|
||
|
|
LXN (2, I) = 0
|
||
|
|
LXN (3, I) = 0
|
||
|
|
LXN (4, I) = I + 1
|
||
|
|
110 CONTINUE
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C COMPLETE LXN ARRAYS FOR ANY NEW LINES
|
||
|
|
|
||
|
|
DO 130 L = LLLOLD + 1, LLL
|
||
|
|
DO 120 I = 1, 2
|
||
|
|
CALL ADDLXN (MXND, LXN, NUID, NAVAIL, IAVAIL, NXL (I, L),
|
||
|
|
& L, NNN, ERR, NOROOM)
|
||
|
|
IF (ERR)THEN
|
||
|
|
CALL MESSAGE('ERROR IN FIXLXN - NXL TABLE GENERATION')
|
||
|
|
GOTO 140
|
||
|
|
ELSEIF (NOROOM) THEN
|
||
|
|
GOTO 140
|
||
|
|
ENDIF
|
||
|
|
120 CONTINUE
|
||
|
|
130 CONTINUE
|
||
|
|
|
||
|
|
140 CONTINUE
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
END
|