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.
47 lines
1.3 KiB
47 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 INHOLE (MR, N7, N29, JPNTR, IIN, IFOUND, IFHOLE, NHPR,
|
|
& IHLIST, MERGE, NOROOM)
|
|
C***********************************************************************
|
|
|
|
C SUBROUTINE INHOLE = INPUTS A REGION'S HOLES INTO THE DATABASE
|
|
|
|
C***********************************************************************
|
|
|
|
DIMENSION IFHOLE(MR), NHPR(MR), IHLIST(MR*2)
|
|
DIMENSION IIN(IFOUND)
|
|
|
|
LOGICAL NOROOM, MERGE
|
|
|
|
NOROOM = .TRUE.
|
|
|
|
C ADD THE REGION INTO THE DATABASE
|
|
|
|
J = JPNTR
|
|
IFHOLE(J) = N29 + 1
|
|
DO 100 I = 1, IFOUND
|
|
JJ = IIN(I)
|
|
IF (JJ .EQ. 0) GO TO 110
|
|
N29 = N29 + 1
|
|
IF (N29 .GT. MR*2) RETURN
|
|
IHLIST(N29) = JJ
|
|
100 CONTINUE
|
|
|
|
110 CONTINUE
|
|
NHPR(J) = N29 - IFHOLE(J) + 1
|
|
IF (NHPR(J) .LT. 1) THEN
|
|
WRITE(*, 10000) J
|
|
N29 = IFHOLE(J) - 1
|
|
END IF
|
|
|
|
NOROOM = .FALSE.
|
|
RETURN
|
|
|
|
10000 FORMAT(' REGION:', I5, ' HAS LESS THAN ONE HOLE', /,
|
|
& ' THE HOLES FOR THIS REGION WILL NOT BE INPUT INTO DATABASE')
|
|
|
|
END
|
|
|