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.
41 lines
1.3 KiB
41 lines
1.3 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 MKUSED (MXNL, MP, ML, LISTL, IPOINT, NINT, LINKP,
|
|
& LINKL, LCON, NL)
|
|
C***********************************************************************
|
|
|
|
C SUBROUTINE MKUSED = MARKS ALL LINES AND POINTS USED IN THE PERIMETER
|
|
|
|
C***********************************************************************
|
|
|
|
C NOTE:
|
|
C THE MESH TABLES ARE EFFECTIVELY DESTROYED BY THIS ROUTINE
|
|
|
|
C***********************************************************************
|
|
|
|
DIMENSION LISTL (MXNL), IPOINT (MP), NINT (ML)
|
|
DIMENSION LINKP (2, MP), LINKL (2, ML)
|
|
DIMENSION LCON (3, ML)
|
|
|
|
LOGICAL ADDLNK
|
|
|
|
ADDLNK = .FALSE.
|
|
|
|
C FLAG ALL LINES AND POINTS AS BEING USED
|
|
|
|
DO 100 I = 1, NL
|
|
CALL LTSORT (ML, LINKL, LISTL (I), IL, ADDLNK)
|
|
NINT (IL) = - IABS (NINT (IL))
|
|
CALL LTSORT (MP, LINKP, LCON (1, IL), IP1, ADDLNK)
|
|
CALL LTSORT (MP, LINKP, LCON (2, IL), IP2, ADDLNK)
|
|
IPOINT (IP1) = - IABS (IPOINT (IP1))
|
|
IPOINT (IP2) = - IABS (IPOINT (IP2))
|
|
100 CONTINUE
|
|
|
|
RETURN
|
|
|
|
END
|
|
|