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
merge
subroutine merge(x, itab, itabm1, cmerge, imerge, imerge2, iadmerge2, nmerge_tot)
Definition merge.F:36
titre3
subroutine titre3
Definition titre3.F:29