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.6 KiB
58 lines
1.6 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 B4BAD (MXND, MLN, XN, YN, LXK, KXL, NXL, LXN, LNODES,
|
||
|
|
& ANGLE, I1, I2, J1, J2, NLOOP, KOUNTL, BOK, ERR)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE BCROSS = CHECKS TO MAKE SURE THAT A BOUNDARY IS NOT
|
||
|
|
C BECOMING A PERMANENT CROSS
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
DIMENSION NXL (2, 3*MXND), LXN (4, MXND)
|
||
|
|
DIMENSION LXK (4, MXND), KXL (2, 3*MXND)
|
||
|
|
DIMENSION LNODES (MLN, MXND), ANGLE (MXND)
|
||
|
|
DIMENSION NODE (4)
|
||
|
|
|
||
|
|
LOGICAL BOK, ERR
|
||
|
|
|
||
|
|
BOK = .TRUE.
|
||
|
|
ERR = .FALSE.
|
||
|
|
|
||
|
|
C GET THE NODES THAT FORM THE REMAINING ELEMENT
|
||
|
|
|
||
|
|
IF (KOUNTL .EQ. 4) THEN
|
||
|
|
NODE(1) = I2
|
||
|
|
NODE(2) = LNODES (3, NODE(1))
|
||
|
|
NODE(3) = LNODES (3, NODE(2))
|
||
|
|
NODE(4) = LNODES (3, NODE(3))
|
||
|
|
ELSEIF (NLOOP - KOUNTL - 2 .EQ. 4) THEN
|
||
|
|
NODE(1) = I1
|
||
|
|
NODE(2) = LNODES (3, J2)
|
||
|
|
NODE(3) = LNODES (3, NODE(2))
|
||
|
|
NODE(4) = LNODES (3, NODE(3))
|
||
|
|
ELSE
|
||
|
|
GOTO 110
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
C NOW CHECK ALL THE NODES TO SEE IF THEY ARE ON THE BOUNDARY
|
||
|
|
C AND CAN BE CLASSIFIED AS CORNERS
|
||
|
|
|
||
|
|
DO 100 I = 1, 4
|
||
|
|
IF ( (LXN (2, NODE (I)) .LT. 0) .AND.
|
||
|
|
& (LNODES (6, NODE (I)) .GE. 3) ) THEN
|
||
|
|
BOK = .FALSE.
|
||
|
|
GOTO 110
|
||
|
|
ENDIF
|
||
|
|
100 CONTINUE
|
||
|
|
|
||
|
|
110 CONTINUE
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
END
|