OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
fdlen3.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| fdlen3 ../engine/source/elements/solid/solide/fdlen3.F
25!||--- called by ------------------------------------------------------
26!|| sforc3 ../engine/source/elements/solid/solide/sforc3.F
27!||--- calls -----------------------------------------------------
28!|| slen ../engine/source/elements/solid/solide/slen.F
29!|| slena ../engine/source/elements/solid/solide/slena.F
30!||--- uses -----------------------------------------------------
31!|| ale_mod ../common_source/modules/ale/ale_mod.F
32!||====================================================================
33 SUBROUTINE fdlen3(
34 1 VOLN, DELTAX, X1, X2,
35 2 X3, X4, X5, X6,
36 3 X7, X8, Y1, Y2,
37 4 Y3, Y4, Y5, Y6,
38 5 Y7, Y8, Z1, Z2,
39 6 Z3, Z4, Z5, Z6,
40 7 Z7, Z8, N1X, N2X,
41 8 N3X, N4X, N5X, N6X,
42 9 N1Y, N2Y, N3Y, N4Y,
43 A N5Y, N6Y, N1Z, N2Z,
44 B N3Z, N4Z, N5Z, N6Z,
45 C NEL)
46C-----------------------------------------------
47C M o d u l e s
48C-----------------------------------------------
49 USE ale_mod
50C-----------------------------------------------
51C I m p l i c i t T y p e s
52C-----------------------------------------------
53#include "implicit_f.inc"
54C-----------------------------------------------
55C G l o b a l P a r a m e t e r s
56C-----------------------------------------------
57#include "mvsiz_p.inc"
58C-----------------------------------------------
59C D u m m y A r g u m e n t s
60C-----------------------------------------------
61 INTEGER, INTENT(IN) :: NEL
62 my_real
63 . VOLN(*),DELTAX(*),
64 . X1(*), X2(*), X3(*), X4(*), X5(*), X6(*), X7(*), X8(*),
65 . Y1(*), Y2(*), Y3(*), Y4(*), Y5(*), Y6(*), Y7(*), Y8(*),
66 . Z1(*), Z2(*), Z3(*), Z4(*), Z5(*), Z6(*), Z7(*), Z8(*),
67 . N1X(*), N2X(*), N3X(*), N4X(*), N5X(*), N6X(*),
68 . N1Y(*), N2Y(*), N3Y(*), N4Y(*), N5Y(*), N6Y(*),
69 . N1Z(*), N2Z(*), N3Z(*), N4Z(*), N5Z(*), N6Z(*)
70C-----------------------------------------------
71C L o c a l V a r i a b l e s
72C-----------------------------------------------
73 INTEGER I, NFAC
74 my_real xioff(mvsiz), aream(mvsiz), atest(mvsiz), area(6,mvsiz)
75C-----------------------------------------------
76 DO i=1,nel
77 xioff(i)=one
78 aream(i)=em20
79 ENDDO
80C
81 IF(ale%GLOBAL%ICAA==0)THEN
82 CALL slen(
83 1 x1, x2, x3, x4,
84 2 y1, y2, y3, y4,
85 3 z1, z2, z3, z4,
86 4 1, area, aream, nel)
87 CALL slen(
88 1 x5, x6, x7, x8,
89 2 y5, y6, y7, y8,
90 3 z5, z6, z7, z8,
91 4 2, area, aream, nel)
92 CALL slen(
93 1 x1, x2, x6, x5,
94 2 y1, y2, y6, y5,
95 3 z1, z2, z6, z5,
96 4 3, area, aream, nel)
97 CALL slen(
98 1 x2, x3, x7, x6,
99 2 y2, y3, y7, y6,
100 3 z2, z3, z7, z6,
101 4 4, area, aream, nel)
102 CALL slen(
103 1 x3, x4, x8, x7,
104 2 y3, y4, y8, y7,
105 3 z3, z4, z8, z7,
106 4 5, area, aream, nel)
107 CALL slen(
108 1 x4, x1, x5, x8,
109 2 y4, y1, y5, y8,
110 3 z4, z1, z5, z8,
111 4 6, area, aream, nel)
112C
113 DO i=1,nel
114 deltax(i)=four*voln(i)*xioff(i)/sqrt(aream(i))
115 ENDDO
116C
117 ELSE
118 CALL slena(
119 1 n1x, n2x, n3x, n4x,
120 2 n5x, n6x, n1y, n2y,
121 3 n3y, n4y, n5y, n6y,
122 4 n1z, n2z, n3z, n4z,
123 5 n5z, n6z, x1, x2,
124 6 x3, x4, x5, x6,
125 7 x7, x8, y1, y2,
126 8 y3, y4, y5, y6,
127 9 y7, y8, z1, z2,
128 a z3, z4, z5, z6,
129 b z7, z8, aream, nel)
130 DO i=1,nel
131 deltax(i)=two*voln(i)*xioff(i)/sqrt(aream(i))
132 ENDDO
133 ENDIF
134 RETURN
135 END
fdlen3
subroutine fdlen3(voln, deltax, x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8, n1x, n2x, n3x, n4x, n5x, n6x, n1y, n2y, n3y, n4y, n5y, n6y, n1z, n2z, n3z, n4z, n5z, n6z, nel)
Definition fdlen3.F:46
area
subroutine area(d1, x, x2, y, y2, eint, stif0)
Definition hm_read_prop32.F:567
ale_mod
Definition ale_mod.F:149
ale_mod::ale
type(ale_) ale
Definition ale_mod.F:249
slena
subroutine slena(n1x, n2x, n3x, n4x, n5x, n6x, n1y, n2y, n3y, n4y, n5y, n6y, n1z, n2z, n3z, n4z, n5z, n6z, x1, x2, x3, x4, x5, x6, x7, x8, y1, y2, y3, y4, y5, y6, y7, y8, z1, z2, z3, z4, z5, z6, z7, z8, aream, nel)
Definition slena.F:41
slen
subroutine slen(x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, j, area, aream)
Definition slen.F:31