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.
63 lines
2.0 KiB
63 lines
2.0 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 NPS (ML, MS, MNNPS, NS, ISLIST, NINT, IFLINE, NLPS,
|
|
& ILLIST, LINKL, LINKS, NNPS, ERR)
|
|
C***********************************************************************
|
|
|
|
C SUBROUTINE NPS = GIVES A LIST OF THE NUMBER OF PERIMETER NODES
|
|
C ON EACH OF A REGION'S SIDES
|
|
|
|
C***********************************************************************
|
|
|
|
C SUBROUTINE CALLED BY:
|
|
C QMESH = GENERATES QUAD ELEMENTS
|
|
|
|
C***********************************************************************
|
|
|
|
C VARIABLES USED:
|
|
C NNPS = ARRAY OF NUMBER OF NODES PER SIDE
|
|
C CCW = .TRUE. IF THE SIDE IS ORIENTED CCW
|
|
C KS = COUNTER OF THE NUMBER OF SIDES
|
|
|
|
C***********************************************************************
|
|
|
|
DIMENSION NNPS (MNNPS), ISLIST (NS), LINKL (2, ML), LINKS (2, MS)
|
|
DIMENSION NLPS (MS), IFLINE (MS), ILLIST (MS * 3), NINT (ML)
|
|
|
|
LOGICAL ERR, ADDLNK
|
|
|
|
ERR = .TRUE.
|
|
ADDLNK = .FALSE.
|
|
|
|
KS = 0
|
|
DO 110 I = 1, NS
|
|
IF (ISLIST (I) .LT. 0) THEN
|
|
KS = KS + 1
|
|
IL = IABS (ISLIST (I))
|
|
CALL LTSORT (ML, LINKL, IL, IPNTR, ADDLNK)
|
|
NNPS (KS) = IABS (NINT (IPNTR)) + 1
|
|
ELSEIF (ISLIST (I) .GT. 0) THEN
|
|
CALL LTSORT (MS, LINKS, ISLIST (I), IPNTR, ADDLNK)
|
|
J1 = IFLINE (IPNTR)
|
|
J2 = J1 + NLPS (IPNTR) - 1
|
|
KS = KS + 1
|
|
NNPS (KS) = 0
|
|
DO 100 J = J1, J2
|
|
IL = ILLIST (J)
|
|
CALL LTSORT (ML, LINKL, IL, IPNTR, ADDLNK)
|
|
NNPS (KS) = NNPS (KS) + IABS (NINT (IPNTR))
|
|
100 CONTINUE
|
|
NNPS (KS) = NNPS (KS) + 1
|
|
ELSE
|
|
RETURN
|
|
ENDIF
|
|
110 CONTINUE
|
|
ERR = .FALSE.
|
|
|
|
RETURN
|
|
|
|
END
|
|
|