Cloned SEACAS for EXODUS library with extra build files for internal package management.
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

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