OpenRadioss
2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
titre2.F
Go to the documentation of this file.
1
Copyright> OpenRadioss
2
Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3
Copyright>
4
Copyright> This program is free software: you can redistribute it and/or modify
5
Copyright> it under the terms of the GNU Affero General Public License as published by
6
Copyright> the Free Software Foundation, either version 3 of the License, or
7
Copyright> (at your option) any later version.
8
Copyright>
9
Copyright> This program is distributed in the hope that it will be useful,
10
Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11
Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
Copyright> GNU Affero General Public License for more details.
13
Copyright>
14
Copyright> You should have received a copy of the GNU Affero General Public License
15
Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16
Copyright>
17
Copyright>
18
Copyright> Commercial Alternative: Altair Radioss Software
19
Copyright>
20
Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21
Copyright> software under a commercial license. Contact Altair to discuss further if the
22
Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23
C
24
!||====================================================================
25
!|| titre2 ../starter/source/output/outfile/titre2.F
26
!||--- called by ------------------------------------------------------
27
!|| lectur ../starter/source/starter/lectur.F
28
!||====================================================================
29
SUBROUTINE
titre2
30
C------------------------------------
31
C MATERIAUX
32
C------------------------------------
33
C-----------------------------------------------
34
C I m p l i c i t T y p e s
35
C-----------------------------------------------
36
#include "implicit_f.inc"
37
C-----------------------------------------------
38
C C o m m o n B l o c k s
39
C-----------------------------------------------
40
#include "titr_c.inc"
41
C-----------------------------------------------
42
C L o c a l V a r i a b l e s
43
C-----------------------------------------------
44
titre(14)=
' MATERIAL NUMBER. . . . . . . . . . . . .'
45
titre(15)=
' MATERIAL LAW . . . . . . . . . . . . . .'
46
titre(16)=
' INITIAL DENSITY. . . . . . . . . . . . .'
47
titre(17)=
' EOF REFERENCE DENSITY. . . . . . . . . .'
48
titre(18)=
' QUADRATIC BULK VISCOSITY . . . . . . . .'
49
titre(19)=
' LINEAR BULK VISCOSITY. . . . . . . . . .'
50
titre(20)=
' HOURGLASS VISCOSITY. . . . . . . . . . .'
51
titre(21)=
' ARBITRARY EULER LAGRANGE MATERIAL '
52
titre(22)=
' --------------------------------- '
53
titre(23)=
' UPWIND FOR MOMENTUM TRANSPORT. . . . . .'
54
titre(24)=
' UPWIND FOR OTHER TRANSPORT . . . . . . .'
55
titre(25)=
' SHELL HOURGLASS MEMBRANE DAMPING . . . .'
56
titre(26)=
' SHELL HOURGLASS FLEXURAL DAMPING . . . .'
57
titre(27)=
' SHELL HOURGLASS ROTATIONAL DAMPING . . .'
58
titre(28)=
' BEAM STRUCTURAL MEMBRANE DAMPING . . . .'
59
titre(29)=
' BEAM STRUCTURAL FLEXURAL DAMPING . . . .'
60
C------------------------------------
61
C MATERIAUX COMMUN
62
C------------------------------------
63
titre(30)=
' YOUNG'
'S MODULUS . . . . . . . . . . . .'
64
titre(31)=
' POISSON'
'S RATIO . . . . . . . . . . . .'
65
titre(32)=
' SHEAR MODULUS . . . . . . . . . . . . .'
66
titre(33)=
' YIELD COEFFICIENT CA . . . . . . . . . .'
67
titre(34)=
' YIELD COEFFICIENT CB . . . . . . . . . .'
68
titre(35)=
' YIELD COEFFICIENT CN . . . . . . . . . .'
69
titre(36)=
' EPS-MAX. . . . . . . . . . . . . . . . .'
70
titre(37)=
' SIG-MAX. . . . . . . . . . . . . . . . .'
71
titre(38)=
' STRAIN RATE COEFFICIENT CC . . . . . . .'
72
titre(39)=
' REFERENCE STRAIN RATE. . . . . . . . . .'
73
titre(40)=
' PSH: PRESSURE SHIFT. . . . . . . . . . .'
74
titre(41)=
' C0 . . . . . . . . . . . . . . . . . . .'
75
titre(42)=
' C1 . . . . . . . . . . . . . . . . . . .'
76
titre(43)=
' C2 . . . . . . . . . . . . . . . . . . .'
77
titre(44)=
' C3 . . . . . . . . . . . . . . . . . . .'
78
titre(45)=
' C4 . . . . . . . . . . . . . . . . . . .'
79
titre(46)=
' C5 . . . . . . . . . . . . . . . . . . .'
80
titre(47)=
' PRESSURE CUTOFF. . . . . . . . . . . . .'
81
titre(48)=
' INITIAL INTERNAL ENERGY PER UNIT VOLUME.'
82
titre(49)=
' VISCOSITY. . . . . . . . . . . . . . . .'
83
titre(50)=
' THERMAL MATERIAL '
84
titre(51)=
' ---------------- '
85
titre(52)=
' T0 . . . . . . . . . . . . . . . . . . .'
86
titre(53)=
' SPECIFIC HEAT. . . . . . . . . . . . . .'
87
titre(54)=
' AS . . . . . . . . . . . . . . . . . . .'
88
titre(55)=
' BS . . . . . . . . . . . . . . . . . . .'
89
titre(56)=
' AL . . . . . . . . . . . . . . . . . . .'
90
titre(57)=
' BL . . . . . . . . . . . . . . . . . . .'
91
titre(58)=
' TEMPERATURE LOAD CURVE . . . . . . . . .'
92
titre(59)=
' RK0 INITIAL TURBULENT ENERGY . . . . . .'
93
titre(60)=
' CMU TURBULENT VISCOSITY COEFFICIENT. . .'
94
titre(61)=
' SK K DIFFUSION COEFFICIENT. . . . . . .'
95
titre(62)=
' SE EPSILON DIFFUSION COEFFICIENT. . . .'
96
titre(63)=
' PR/PRT LAM./TURB. PRANDT NUMBER RATIO. .'
97
titre(64)=
' EPS0 SHOULD BE > 0. IF CC /= 0.'
98
titre(65)=
' BULK MODULUS . . . . . . . . . . . . . .'
99
C------------------------------------
100
C MATERIAUX 1
101
C------------------------------------
102
titre(100)=
' ELASTIC LAW '
103
titre(101)=
' ----------- '
104
titre(102)=
' ELASTIC PLASTIC LAW '
105
titre
(103)=
' ------------------- '
106
C
107
titre(105)=
' ELASTIC PLASTIC HYDRODYNAMIC '
108
titre(106)=
' ---------------------------- '
109
titre(107)=
' JOHNSON COOK LAW '
110
titre(108)=
' ---------------- '
111
titre(109)=
' TEMPERATURE EXPONENT. . . . . . . . . .'
112
titre(110)=
' MELTING TEMPERATURE DEGREE K. . . . . .'
113
titre(111)=
' THETA-MAX . . . . . . . . . . . . . . .'
114
titre(112)=
' J.W.L. EXPLOSIVE '
115
titre(113)=
' ---------------- '
116
titre(114)=
' A . . . . . . . . . . . . . . . . . . .'
117
titre(115)=
' B . . . . . . . . . . . . . . . . . . .'
118
titre(116)=
' R1. . . . . . . . . . . . . . . . . . .'
119
titre(117)=
' R2. . . . . . . . . . . . . . . . . . .'
120
titre(118)=
' W . . . . . . . . . . . . . . . . . . .'
121
titre(119)=
' DETONATION VELOCITY . . . . . . . . . .'
122
titre(120)=
' CHAPMAN JOUGUET PRESSURE. . . . . . . .'
123
titre(121)=
' CHAPMAN JOUGUET VOLUME. . . . . . . . .'
124
titre(122)=
' DETONATION TIMES FOR JWL ELEMENTS '
125
titre(123)=
' --------------------------------- '
126
titre(124)=
' ELEMENT DETONATION TIME '
127
C
128
titre(126)=
' VISCOUS FLUID '
129
titre(127)=
' -------------- '
130
titre(128)=
' CT1 EPSILON SOURCE COEFFICIENT C1 . . .'
131
titre(129)=
' CT2 EPSILON SOURCE COEFFICIENT C2 . . .'
132
titre(130)=
' CT3 EPSILON SOURCE COEFFICIENT C3 . . .'
133
titre(131)=
' SOIL & CONCRETE '
134
titre(132)=
' --------------- '
135
titre(133)=
' YIELD COEFFICIENT A0. . . . . . . . . .'
136
titre(134)=
' YIELD COEFFICIENT A1. . . . . . . . . .'
137
titre(135)=
' YIELD COEFFICIENT A2. . . . . . . . . .'
138
titre(136)=
' A-MAX . . . . . . . . . . . . . . . . .'
139
titre(137)=
' UNLOADING BULK. . . . . . . . . . . . .'
140
titre(138)=
' MAX VOLUMIC COMPRESSION . . . . . . . .'
141
titre(139)=
' PRESSURE CUTOFF . . . . . . . . . . . .'
142
C
143
titre(150)=
' LAW FOR FLUID BOUNDARY ELEMENTS '
144
titre(151)=
' ------------------------------- '
145
titre(152)=
' ITYP. . . . . . . . . . . . . . . . . .'
146
titre(153)=
' ITYP = 0 : GAS'
147
titre(154)=
' ITYP = 1 : LIQUID'
148
titre(155)=
' ITYP = 2 : TIME DEPENDENT'
149
titre(156)=
' PSH: PRESSURE SHIFT . . . . . . . . . .'
150
titre(157)=
' GAMMA CONSTANT. . . . . . . . . . . . .'
151
titre(158)=
' STAGNATION PRESSURE . . . . . . . . . .'
152
titre(159)=
' STAGNATION ENERGY . . . . . . . . . . .'
153
titre(160)=
' CRITICAL VELOCITY . . . . . . . . . . .'
154
titre(161)=
' CRITICAL DENSITY. . . . . . . . . . . .'
155
titre(162)=
' CRITICAL PRESSURE . . . . . . . . . . .'
156
titre(163)=
' REFERENCE NODE (VELOCITY) . . . . . . .'
157
titre(164)=
' STAGNATION DENSITY LOAD CURVE. . . . .'
158
titre(165)=
' STAGNATION PRESSURE LOAD CURVE. . . . .'
159
titre(166)=
' STAGNATION ENERGY LOAD CURVE. . . . .'
160
titre(167)=
' DENSITY LOAD CURVE . . . . . . . . .'
161
titre(168)=
' PRESSURE LOAD CURVE . . . . . . . . .'
162
titre(169)=
' ENERGY LOAD CURVE . . . . . . . . .'
163
titre(170)=
' CHARACTERISTIC LENGTH . . . . . . . . .'
164
titre(171)=
' FINAL STAGNATION DENSITY. . . . . . . .'
165
titre(172)=
' FINAL STAGNATION PRESSURE(P-PSH). . . .'
166
titre(173)=
' FINAL STAGNATION ENERGY . . . . . . . .'
167
titre(174)=
' CHARACTERISTIC SOUND SPEED. . . . . . .'
168
titre(175)=
' CHARACTERISTIC LENGTH . . . . . . . . .'
169
titre(176)=
' FINAL DENSITY . . . . . . . . . . . . .'
170
titre(177)=
' FINAL PRESSURE(P-PSH) . . . . . . . . .'
171
titre(178)=
' FINAL ENERGY. . . . . . . . . . . . . .'
172
titre(179)=
' INITIAL PRESSURE(P-PSH) . . . . . . . .'
173
titre(180)=
' INITIAL ENERGY. . . . . . . . . . . . .'
174
titre(181)=
' INITIAL EPSILON . . . . . . . . . . . .'
175
titre(182)=
' K ENERGY LOAD CURVE . . . . . . . . .'
176
titre(183)=
' EPSILON LOAD CURVE . . . . . . . . .'
177
titre(184)=
' INITIAL THERMAL FLUX. . . . . . . . . .'
178
titre(185)=
' FLUX LOAD CURVE. . . . . . . . . . . .'
179
C
180
titre(200)=
' WALL BOUNDARY '
181
titre(201)=
' ------------- '
182
titre(202)=
' K LOGARITHMIQUE LAW COEFFICIENT. . . .'
183
titre(203)=
' E LOGARITHMIQUE LAW COEFFICIENT. . . .'
184
titre(204)=
' A K,EPSILON ECCENTRICITY . . . . . . .'
185
titre(205)=
' B SOURCE FLAG. . . . . . . . . . . . .'
186
C
187
RETURN
188
END
titre2
subroutine titre2
Definition
titre2.F:30
starter
source
output
outfile
titre2.F
Generated by
1.15.0
1.15.0 1.15.0