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.
44 lines
1.6 KiB
44 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
|
||
|
|
|
||
|
|
C=======================================================================
|
||
|
|
SUBROUTINE MUNXYZ (NDIM, NUMNP2, NUMNP1, IXNP2, XN2, YN2, ZN2)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** MUNXYZ *** (GJOIN) Compress coordinates from the second database
|
||
|
|
C -- Written by Amy Gilkey - revised 09/29/87
|
||
|
|
C --
|
||
|
|
C --MUNXYZ compresses the coordinates from the second database. The
|
||
|
|
C --coordinates that match the nodes in the first database are deleted
|
||
|
|
C --from the list.
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- NDIM - IN - the number of coordinates per node
|
||
|
|
C -- NUMNP2 - IN/OUT - the number of nodes in the second database;
|
||
|
|
C -- returned compressed
|
||
|
|
C -- NUMNP1 - IN - the number of nodes in the first database
|
||
|
|
C -- IXNP2 - IN/OUT - the index of the compressed node; if input as <0,
|
||
|
|
C -- there is no matching node and the new index is returned
|
||
|
|
C -- XN2, YN2, ZN2 - IN/OUT - the coordinates, returned compressed
|
||
|
|
|
||
|
|
INTEGER IXNP2(*)
|
||
|
|
REAL XN2(*), YN2(*), ZN2(*)
|
||
|
|
|
||
|
|
JNP = 0
|
||
|
|
DO 100 INP = 1, NUMNP2
|
||
|
|
IF (IXNP2(INP) .LT. 0) THEN
|
||
|
|
JNP = JNP + 1
|
||
|
|
IXNP2(INP) = JNP + NUMNP1
|
||
|
|
XN2(JNP) = XN2(INP)
|
||
|
|
YN2(JNP) = YN2(INP)
|
||
|
|
IF (NDIM .GE. 3) ZN2(JNP) = ZN2(INP)
|
||
|
|
END IF
|
||
|
|
100 CONTINUE
|
||
|
|
|
||
|
|
NUMNP2 = JNP
|
||
|
|
|
||
|
|
END
|