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.
98 lines
2.9 KiB
98 lines
2.9 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 ISOLAP (MXND, XN, YN, LXK, KXL, NXL, LXN, NNN, NNNOLD,
|
||
|
|
& WFAC, NIT, EPS, RO)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE ISOLAP = MESH SMOOTHING BY LAPLACE-S USING GAUSS-SEIDEL
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C VARIABLES USED:
|
||
|
|
C WFAC = WEIGHT (0. = LAPLACIAN, 1. = ISOPARAMETRIC)
|
||
|
|
C NIT = THE MAX NUMBER OF ITERATIONS TO DO.
|
||
|
|
C EPS = MINIMUM DISTANCE NODES MUST MOVE TO CONTINUE ITERATIONS
|
||
|
|
C RO = AN UNDER- OR OVER-RELAXATION FACTOR (NORMALLY 1.0)
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
DIMENSION KLIST(20), NODES(4)
|
||
|
|
DIMENSION XN(MXND), YN(MXND)
|
||
|
|
DIMENSION LXN(4, MXND), NXL(2, 3*MXND)
|
||
|
|
DIMENSION LXK(4, MXND), KXL(2, 3*MXND)
|
||
|
|
|
||
|
|
LOGICAL BIG, CCW, ERR
|
||
|
|
|
||
|
|
IF (RO .LT. 0.01) RO = 1.
|
||
|
|
EPS2 = (EPS*RO)**2
|
||
|
|
|
||
|
|
C ITERATION LOOP
|
||
|
|
|
||
|
|
DO 140 IT = 1, NIT
|
||
|
|
BIG = .FALSE.
|
||
|
|
|
||
|
|
C NODE LOOP
|
||
|
|
|
||
|
|
DO 130 NODE = NNNOLD + 1, NNN
|
||
|
|
|
||
|
|
C SKIP CONTINUATION AND BOUNDARY LINES
|
||
|
|
|
||
|
|
IF ((LXN(1, NODE) .GT. 0) .AND. (LXN(2, NODE) .GT. 0)) THEN
|
||
|
|
|
||
|
|
C FIND ELEMENTS ATTACHED TO NODE
|
||
|
|
|
||
|
|
CALL GKXN (MXND, KXL, LXN, NODE, KS, KLIST, ERR)
|
||
|
|
|
||
|
|
SUMX = 0.0
|
||
|
|
SUMY = 0.0
|
||
|
|
DO 120 KL = 1, KS
|
||
|
|
CCW = .FALSE.
|
||
|
|
KK = KLIST(KL)
|
||
|
|
CALL GNXKA (MXND, XN, YN, KK, NODES, AREA, LXK, NXL,
|
||
|
|
& CCW)
|
||
|
|
|
||
|
|
DO 100 IN = 1, 4
|
||
|
|
IF (NODES(IN) .EQ. NODE) THEN
|
||
|
|
J1 = IN + 1
|
||
|
|
IF (J1 .GT. 4) J1 = 1
|
||
|
|
GO TO 110
|
||
|
|
END IF
|
||
|
|
100 CONTINUE
|
||
|
|
110 CONTINUE
|
||
|
|
J2 = J1 + 1
|
||
|
|
IF (J2 .GT. 4) J2 = 1
|
||
|
|
J3 = J2 + 1
|
||
|
|
IF (J3 .GT. 4) J3 = 1
|
||
|
|
|
||
|
|
SUMX = SUMX + XN(NODES(J1)) + XN(NODES(J3))
|
||
|
|
& - WFAC*XN(NODES(J2))
|
||
|
|
SUMY = SUMY + YN(NODES(J1)) + YN(NODES(J3))
|
||
|
|
& - WFAC*YN(NODES(J2))
|
||
|
|
120 CONTINUE
|
||
|
|
|
||
|
|
C REDEFINE THIS NODE-S COORDINATES
|
||
|
|
|
||
|
|
SUMX = SUMX/(DBLE(KS)*(2.0 - WFAC))
|
||
|
|
SUMY = SUMY/(DBLE(KS)*(2.0 - WFAC))
|
||
|
|
XDEL = RO*(SUMX-XN(NODE))
|
||
|
|
YDEL = RO*(SUMY-YN(NODE))
|
||
|
|
XN(NODE) = XN(NODE) + XDEL
|
||
|
|
YN(NODE) = YN(NODE) + YDEL
|
||
|
|
|
||
|
|
C CHECK FOR CONVERGENCE
|
||
|
|
|
||
|
|
IF ((XDEL*XDEL + YDEL*YDEL) .GT. EPS2) BIG = .TRUE.
|
||
|
|
ENDIF
|
||
|
|
130 CONTINUE
|
||
|
|
|
||
|
|
C IF NO SIGNIFICANT MOVEMENTS OCCURRED, RETURN
|
||
|
|
|
||
|
|
IF (.NOT.BIG) RETURN
|
||
|
|
140 CONTINUE
|
||
|
|
RETURN
|
||
|
|
END
|