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.
39 lines
1.3 KiB
39 lines
1.3 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
|
||
|
|
||
|
LOGICAL FUNCTION MATCHK (MXND, I1, I2, J1, J2, LXN)
|
||
|
C***********************************************************************
|
||
|
|
||
|
C FUNCTION MATCHK = CHECKS THE CURRENT COLAPSED LINES TO SEE IF THEY
|
||
|
C CAN BE JOINED WITHOUT AFFECTING THE BOUNDARY.
|
||
|
C I1 & I2 MAY END UP SWITCHED WITH J1 & J2.
|
||
|
|
||
|
C***********************************************************************
|
||
|
|
||
|
DIMENSION LXN (4, MXND)
|
||
|
|
||
|
IF ( (LXN (2, I1) .LT. 0) .OR. (LXN (2, I2) .LT. 0) .OR.
|
||
|
& (LXN (2, J1) .LT. 0) .OR. (LXN (2, J2) .LT. 0) ) THEN
|
||
|
|
||
|
C FIRST CHECK FOR COMPLETELY HOOKED BOUNDARY LINES.
|
||
|
|
||
|
IF ((LXN (2, J1) .LT. 0) .AND. (LXN (2, J2) .LT. 0)) THEN
|
||
|
MATCHK = .FALSE.
|
||
|
ELSEIF ( ((LXN (2, I1) .LT. 0) .AND. (LXN (2, J2) .LT. 0)) .OR.
|
||
|
& ((LXN (2, I2) .LT. 0) .AND. (LXN (2, J1) .LT. 0)))
|
||
|
& THEN
|
||
|
MATCHK = .FALSE.
|
||
|
ELSE
|
||
|
MATCHK = .TRUE.
|
||
|
ENDIF
|
||
|
ELSE
|
||
|
MATCHK = .TRUE.
|
||
|
ENDIF
|
||
|
|
||
|
RETURN
|
||
|
|
||
|
END
|