OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
titre3.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!|| titre3 ../starter/source/output/outfile/titre3.F
25!||--- called by ------------------------------------------------------
26!|| lectur ../starter/source/starter/lectur.F
27!||====================================================================
28 SUBROUTINE titre3
29C------------------------------------
30C NOEUDS => LECTURE DES ELEMENTS
31C CAS IFORM8=2
32C------------------------------------
33C-----------------------------------------------
34C I m p l i c i t T y p e s
35C-----------------------------------------------
36#include "implicit_f.inc"
37C-----------------------------------------------
38C C o m m o n B l o c k s
39C-----------------------------------------------
40#include "titr_c.inc"
41C-----------------------------------------------
42C L o c a l V a r i a b l e s
43C-----------------------------------------------
44 titre(12)=' .. NODES'
45 titre(13)=' .. BOUNDARY CONDITIONS'
46 titre(14)=' .. SKEW SYSTEMS '
47 titre(15)=' .. 3D SOLID ELEMENTS'
48 titre(16)=' .. 2D SOLID ELEMENTS'
49 titre(17)=' .. 3D SHELL ELEMENTS'
50 titre(18)=' .. 3D TRUSS ELEMENTS'
51 titre(19)=' .. 3D BEAM ELEMENTS'
52 titre(20)=' .. 3D SPRING ELEMENTS'
53 titre(21)=' .. 3D TRIANGULAR SHELL ELEMENTS'
54 titre(22)=' .. 3D ISOGEOMETRIC SOLID ELEMENTS'
55 titre(23)=' .. 2D TRIANGULAR SOLID ELEMENTS'
56C
57 titre(29)=' .. ALE LINKS '
58 titre(30)=' .. ALE/THE TABLES '
59 titre(31)=' .. PROPERTIES '
60 titre(32)=' .. TIME FUNCTIONS '
61 titre(33)=' .. CONCENTRATED LOADS'
62 titre(34)=' .. PRESSURE LOADS'
63 titre(35)=' .. INITIAL VELOCITIES'
64 titre(36)=' .. DETONATORS'
65 titre(37)=' .. ELEMENT GROUPS'
66 titre(38)=' .. INTERFACES '
67 titre(39)=' .. RIGID WALLS'
68 titre(40)=' .. RIGID WALLS ALE'
69 titre(41)=' .. RIGID BODIES'
70 titre(42)=' .. RIGID LINKS TO MADYMO'
71 titre(43)=' .. ADDED MASSES'
72 titre(44)=' .. IMPOSED VELOCITIES '
73 titre(45)=' .. ELEMENT BUFFER INITIALIZATION'
74 titre(46)=' .. GEOMETRY PLOT FILE '
75 titre(47)=' .. RESTART FILE '
76 titre(48)=' .. ERROR ==> NO RESTART FILE '
77 titre(49)=' .. LASER IMPACT'
78C
79 titre(50)=' .. PARALLEL RESTART FILES GENERATION'
80C
81 titre(51)=' .. FLEXIBLE BODIES'
82C
83 titre(52)=' .. EIGENVECTORS CALCULATION'
84 titre(53)=' ----> INITIAL MAPPING'
85 titre(54)=' .. MAPPING DATA'
86 titre(55)=' ----> DETONATION WAVE SHADOW'
87 titre(68)=' .. INTERFACE BUFFER INITIALIZATION'
88 titre(69)=' .. ELEMENTARY BOUNDARY CONDITIONS'
89 titre(70)=' NODAL POINT COORDINATES '
90 titre(71)=' ----------------------- '
91 titre(72)(1:37)=' NODE X-ORD '
92 titre(72)(38:77)=' Y-ORD Z-ORD '
93 titre(72)(78:89)=' '
94C
95C
96 titre(73)=' NODAL POINT SELECTION '
97 titre(74)=' --------------------- '
98 titre(75)(1:7) =' NODE '
99 titre(75)(8:50)=' IS GREATER THAN NUMNOD '
100C
101 titre(80)=' BOUNDARY CONDITIONS'
102 titre(81)=' -------------------'
103 titre(82)=
104 .' NODE TRANS. ROTAT. GRID LAGRA. SKEW '
105 titre(83)=' -WARNING BOUNDARY CONDITION NODE NUMBER'
106 titre(84)(1:7)=' NODE '
107 titre(84)(8:25)=' SKEW SYSTEM '
108 titre(85)=' SKEW SYSTEM SETS '
109 titre(87)=' NODAL POINT SKEW FRAME '
110 titre(206)(1:36)=' ELEMENTS WITH NEGATIVE MAL. NUMBER'
111 titre(206)(37:66)=' ARE WALL NEIGHBOURS ELEMENTS '
112C
113 titre(206)(67:89)=' '
114 titre(90)=' EIGHT NODE BRICK ELEMENTS'
115 titre(91)=' -------------------------'
116C
117 titre(92)(1:33)=' ELEMENT INTERNAL MATER PRSET'
118 titre(92)(34:66)=' NODE1 NODE2 NODE3 NODE4'
119 titre(93)=' NODE5 NODE6 NODE7 NODE8'
120C
121 titre(94)=' 8-NODE ELEMENT SELECTION'
122 titre(95)=' ------------------------'
123C
124 titre(100)=' TWO DIMENSIONAL ELEMENTS '
125 titre(101)=' ------------------------'
126C '----+----1----+----2----+----3----+----4----+----5----+----6----+-'
127 titre(102)=' ELEMENT INTERNAL MATER PRSET'//
128 . ' NODE1 NODE2 NODE3 NODE4 '
129C
130 titre(103)=' 4-NODE ELEMENT SELECTION'
131 titre(104)=' ------------------------'
132 titre(105)=' ANGLE THICKNESS'
133C
134 titre(110)=' SHELL ELEMENTS '
135 titre(111)=' -------------- '
136 titre(112)=' SHELL ELEMENT SELECTION'
137 titre(113)=' -----------------------'
138C
139 titre(114)=' MERGE NODES '
140 titre(115)=' --------------------------------------'
141 titre(116)=' CNODES MERGED TO NODES '
142 titre(117)=' .. CNODES'
143
144 titre(118)=' SUBMODEL SKEWS(INTERNAL) '
145 titre(119)=' --------------------------------------'
146 titre(207)=' MERGE CNODES '
147 titre(208)=' CNODES MERGED TO CNODES '
148 titre(209)=' CNODES TRANSFORMED TO NODES'
149 titre(210)=' CNODES'
150 RETURN
151 END
titre3
subroutine titre3
Definition titre3.F:29