OpenRadioss
2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
titre1.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
C
25
C SORTIE1.FOR
26
C
27
C=======================================================================
28
!||====================================================================
29
!|| titre1 ../starter/source/output/outfile/titre1.F
30
!||--- called by ------------------------------------------------------
31
!|| starter0 ../starter/source/starter/starter0.F
32
!||====================================================================
33
SUBROUTINE
titre1
34
C------------------------------------
35
C DEBUT => CONTROLS
36
C------------------------------------
37
C-----------------------------------------------
38
C I m p l i c i t T y p e s
39
C-----------------------------------------------
40
#include "implicit_f.inc"
41
C-----------------------------------------------
42
C C o m m o n B l o c k s
43
C-----------------------------------------------
44
#include "titr_c.inc"
45
C-----------------------------------------------
46
C L o c a l V a r i a b l e s
47
C-----------------------------------------------
48
C
49
titre(001) =
'----+----1----+----2----+----3----+----4----+----5'
//
'----+----6----+-'
50
titre(002) =
'--7----+----8----+----9----+----0'
//
'----+----1----+----2----+----3--'
51
titre(003) =
' REAL COMMON LENGTH'
52
titre(004) =
' INTEGER COMMON LENGTH'
53
titre(005) =
' ------------------ '
54
titre(006) =
' NORMAL TERMINATION '
55
titre(007)(1:40) =
' ERROR TERMINATION '
56
titre(007)(41:60)=
'ERROR(S) '
57
titre(008)(1:40) =
' TERMINATION WITH WARNING '
58
titre(008)(41:60)=
'WARNING(S) '
59
titre(010) =
' .. CONTROL VARIABLES'
60
titre(011) =
' .. MATERIALS'
61
titre(012) =
' .. UNITS SYSTEM'
62
titre(013) =
' .. PARALLEL RESTART FILE READING'
63
titre(100) =
' '
64
titre(101) =
' '
65
titre(102) =
' '
66
titre(103) =
' '
67
C------------------------------------
68
C CONTROL
69
C------------------------------------
70
titre(110) =
' CONTROL PARAMETERS'
71
titre(111) =
' -------------------'
72
titre(112) =
''
! no longer used
73
titre(113) =
' DTHIS : TIME STEP FOR TIME HISTORIES . . . . . . . .'
74
titre(114) =
' DTINI : INITIAL TIME STEP . . . . . . . . . . . . . .'
75
titre(115) =
' DTFAC : TIME STEP SCALE FACTOR . . . . . . . . . . .'
76
titre(116) =
' DTMIN : MINIMUM TIME STEP . . . . . . . . . . . . . .'
77
titre(117) =
' IPRI : PRINTOUT FLAG . . . . . . . . . . . . . . . .'
78
titre(118) =
' IFORM8: I10 INPUT FORMAT FLAG. . . . . . . . . . . . '
79
titre(119) =
' IHSH : SHELL HOURGLASS SHAPE FUNCTION FLAG . . . . .'
80
titre(120) =
' INVERS: MANUAL VERSION OF THIS INPUT DECK . . . . . .'
81
titre(121) =
' IRLTYP: FLAG FOR TYPE OF R-FILE READ (MODIF). . . . .'
82
titre(122) =
' IRETYP: FLAG FOR TYPE OF R-FILE WRITTEN . . . . . . .'
83
titre(123) =
' IGTYP : FLAG FOR TYPE OF G-FILE . . . . . . . . . . .'
84
titre(124) =
' XALEA : MAXIMUM NODAL RANDOM NOISE. . . . . . . . . .'
85
titre(125) =
' NUMMAT: NUMBER OF MATERIALS . . . . . . . . . . . . .'
86
titre(126) =
' NUMNOD: NUMBER OF NODAL POINTS. . . . . . . . . . . .'
87
titre(127) =
' NUMSKW: NUMBER OF SKEW REFERENCE FRAMES . . . . . . .'
88
titre(128) =
' NUMBCS: NUMBER OF BOUNDARY CONDITIONS . . . . . . . .'
89
titre(129)(1:35) =
' ID0A : NODES,ELEMENTS READ ON '
90
titre(129)(47:57)=
' ID0A . . .'
91
titre(130) =
' N2D3D : ANALYSIS TYPE: 0=3D,1=AXISYM,2=PLANE STRAIN .'
92
titre(131) =
' NUMELQ: NUMBER OF 2D QUAD ELEMENTS. . . . . . . . . .'
93
titre(132) =
' NUMELS: NUMBER OF 3D SOLID ELEMENTS . . . . . . . . .'
94
titre(133) =
' NUMELC: NUMBER OF 3D SHELL ELEMENTS (4-NODES) . . . .'
95
titre(134) =
' NUMELT: NUMBER OF 3D TRUSS ELEMENTS . . . . . . . . .'
96
titre(135) =
' NUMGEO: NUMBER OF PROPERTY SETS . . . . . . . . . . .'
97
titre(136) =
' NUMELP: NUMBER OF 3D BEAM ELEMENTS . . . . . . . . .'
98
titre(137) =
' NUMELR: NUMBER OF 3D SPRING ELEMENTS. . . . . . . . .'
99
titre(138) =
' NFUNCT: NUMBER OF USER'
'S FUNCTIONS . . . . . . . . .'
100
titre(139) =
' NCONLD: NUMBER OF NODES WITH CONCENTRATED LOADS . . .'
101
titre(140) =
' NINVEL: NUMBER OF NODES WITH INITIAL VELOCITY . . . .'
102
titre(141) =
' NDETPT: NUMBER OF DETONATION POINTS . . . . . . . . .'
103
titre(142) =
' NPRELD: NUMBER OF SEGMENTS WITH PRESSURE. . . . . . .'
104
titre(143) =
' IGRAX : X GRAVITY LOAD CURVE NUMBER . . . . . . . . .'
105
titre(144) =
' IGRAY : Y GRAVITY LOAD CURVE NUMBER . . . . . . . . .'
106
titre(145) =
' IGRAZ : Z GRAVITY LOAD CURVE NUMBER . . . . . . . . .'
107
titre(146) =
' NINTER: NUMBER OF INTERFACES. . . . . . . . . . . . .'
108
titre(147) =
' NRWALL: NUMBER OF RIGID WALLS . . . . . . . . . . . .'
109
titre(148) =
' NRBODY: NUMBER OF RIGID BODIES. . . . . . . . . . . .'
110
titre(149) =
' NCONX : NUMBER OF RIGID LINKS TO MADYMO BODIES. . . .'
111
titre(150) =
' NODMAS: NUMBER OF ADDED NODAL MASSES. . . . . . . . .'
112
titre(151) =
' NFXVEL: NUMBER OF FIXED VELOCITIES. . . . . . . . . .'
113
titre(152) =
' NRIVET: NUMBER OF RIVETS OR SPOT WELDS. . . . . . . .'
114
titre(153) =
' NSECT : NUMBER OF SECTIONS SAVED (TIME HISTORY PLOTS)'
115
titre(154) =
' '
!obsolete option removed
116
titre(155) =
' NJOINT: NUMBER OF JOINTS. . . . . . . . . . . . . . .'
117
titre(156) =
' NSNOD: NUMBER OF NODES SAVED (TIME HISTORY PLOTS) . .'
118
titre(157) =
' NSELQ: NUMBER OF QUAD ELEMENTS SAVED. . . . . . . .'
119
titre(158) =
' NSELS: NUMBER OF SOLID ELEMENTS SAVED. . . . . . . .'
120
titre(159) =
' NSELC: NUMBER OF SHELL ELEMENTS SAVED. . . . . . . .'
121
titre(160) =
' NSELT: NUMBER OF TRUSS ELEMENTS SAVED. . . . . . . .'
122
titre(161) =
' NSELP: NUMBER OF BEAM ELEMENTS SAVED. . . . . . . .'
123
titre(162) =
' NSELR: NUMBER OF SPRING ELEMENTS SAVED. . . . . . . .'
124
titre(163) =
' ALE PARAMETERS '
125
titre(164) =
' --------------- '
126
titre(165) =
' ALPHA : DONEA PARAMETER . . . . . . . . . . . . . . .'
127
titre(166) =
' GAMMA : DONEA PARAMETER . . . . . . . . . . . . . . .'
128
titre(167) =
' VGX : X GRID VELOCITY SCALE FACTOR. . . . . . . . .'
129
titre(168) =
' VGY : Y GRID VELOCITY SCALE FACTOR. . . . . . . . .'
130
titre(169) =
' VGZ : Z GRID VELOCITY SCALE FACTOR. . . . . . . . .'
131
titre(170) =
' VOLMIN: MINIMUM VOLUME. . . . . . . . . . . . . . . .'
132
titre(171) =
' NDETSG: NUMBER OF DETONATION SEGMENTS . . . . . . . .'
133
titre(172) =
' NECRAN: NUMBER OF SHADOW LINES. . . . . . . . . . . .'
134
titre(173) =
' NSMAT: NUMBER OF MATERIALS SAVED. . . . . . . . . . .'
135
titre(174) =
' NSELR: NUMBER OF RIGID BODIES SAVED . . . . . . . . .'
136
titre(175) =
' NINVEL: NUMBER OF INPUT CARDS FOR INITIAL VELOCITY. .'
137
titre(178) =
' NLASER: NUMBER OF LASER IMPACT OPTIONS. . . . . . . .'
138
titre(179) =
' ISNOD: FLAG TO SAVE NODES IN SKEW FRAME . . . . . . .'
139
titre(180) =
' NUMELTG: NUMBER OF 3D SHELL ELEMENTS (3-NODES). . . .'
140
titre(181) =
' NSELTG: NUMBER OF 3 NODES SHELL ELEMENTS SAVED . . .'
141
titre(182) =
' NUMELX: NUMBER OF MULTIPURPOSE ELEMENTS . . . . . . .'
142
titre(183) =
' NIMPDISP: NUMBER OF IMPOSED DISPLACEMENTS . . . . . .'
143
titre(184) =
' NIMPVEL: NUMBER OF IMPOSED VELOCITIES . . . . . . . .'
144
titre(185) =
' NIMPACC: NUMBER OF IMPOSED ACCELERATIONS . . . . . . '
145
titre(186) =
' NUMELIG3D: NUMBER OF ISO-GEOMETRIC ELEMENTS . . . . .'
146
titre(187) =
' NDETCORD: NUMBER OF DETONATION CORD . . . . . . . . .'
147
titre(188) =
' NDETPL : NUMBER OF PLANAR DETONATION . . . . . . . .'
148
titre(189) =
' NALEBCS : NUMBER OF ALE BOUNDARY CONDITIONS . . . . .'
149
titre(190) =
' NINTERFRIC: NUMBER OF FRICTION INTERFACES . . . . . .'
150
titre(191) =
' NUMELT3 : NUMBER OF 2D TRIA ELEMENTS. . . . . . . . .'
151
152
153
RETURN
154
END
titre1
subroutine titre1
Definition
titre1.F:34
starter
source
output
outfile
titre1.F
Generated by
1.15.0
1.15.0 1.15.0