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.
60 lines
1.9 KiB
60 lines
1.9 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
|
|
|
|
C=======================================================================
|
|
SUBROUTINE REFNOD (NELB, IDELB, NUMELB, NUMLNK, LINK, NUMNP, MAP)
|
|
C=======================================================================
|
|
|
|
C --*** REFNOD *** (GREPOS) Reference nodes on all elements
|
|
C -- Written by Greg Sjaardema - revised 03/02/90
|
|
C --
|
|
C --Parameters:
|
|
C -- NELB - IN - the number of element blocks
|
|
C -- IDELB - IN - the element block IDs for each block
|
|
C -- NUMELB - IN - the number of elements in each block
|
|
C -- NUMLNK - IN - the number of nodes per element in each block
|
|
C -- LINK - IN - the connectivity for each block
|
|
C -- NUMNP - IN/OUT - the number of nodes on input, the number of
|
|
C active nodes on exit.
|
|
C -- MAP - OUT - list of active nodes
|
|
C -- map(i) > 0 for active node
|
|
C -- map(i) = length of map()+1 for deleted node
|
|
|
|
INTEGER IDELB(NELB)
|
|
INTEGER NUMELB(NELB)
|
|
INTEGER NUMLNK(NELB)
|
|
INTEGER LINK(*)
|
|
INTEGER MAP(NUMNP)
|
|
|
|
CALL INIINT (NUMNP, 0, MAP)
|
|
|
|
IELNK = 0
|
|
DO 10 IELB = 1, NELB
|
|
ISLNK = IELNK + 1
|
|
IELNK = IELNK + NUMLNK(IELB) * NUMELB(IELB)
|
|
|
|
IF (IDELB(IELB) .NE. 0) THEN
|
|
CALL REFND1 (NELB, NUMELB(IELB), NUMLNK(IELB), LINK(ISLNK),
|
|
& MAP)
|
|
END IF
|
|
10 CONTINUE
|
|
|
|
C .. Set up map of old number to new number. If old id = I, then
|
|
C new id = MAP(I)
|
|
|
|
NEWID = 0
|
|
DO 20 NP = 1, NUMNP
|
|
IF (MAP(NP) .GT. 0) THEN
|
|
NEWID = NEWID + 1
|
|
MAP(NP) = NEWID
|
|
ELSE
|
|
MAP(NP) = NUMNP+1
|
|
END IF
|
|
20 CONTINUE
|
|
NUMNP = NEWID
|
|
|
|
RETURN
|
|
END
|
|
|