OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
titre1.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/.
23C=======================================================================
24C
25C SORTIE1.FOR
26C
27C=======================================================================
28!||====================================================================
29!|| titre1 ../starter/source/output/outfile/titre1.F
30!||--- called by ------------------------------------------------------
31!|| starter0 ../starter/source/starter/starter0.F
32!||====================================================================
33 SUBROUTINE titre1
34C------------------------------------
35C DEBUT => CONTROLS
36C------------------------------------
37C-----------------------------------------------
38C I m p l i c i t T y p e s
39C-----------------------------------------------
40#include "implicit_f.inc"
41C-----------------------------------------------
42C C o m m o n B l o c k s
43C-----------------------------------------------
44#include "titr_c.inc"
45C-----------------------------------------------
46C L o c a l V a r i a b l e s
47C-----------------------------------------------
48C
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) =' '
67C------------------------------------
68C CONTROL
69C------------------------------------
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
alpha
#define alpha
Definition eval.h:35
for
for(i8=*sizetab-1;i8 >=0;i8--)
Definition mumps_common.c:91
titre1
subroutine titre1
Definition titre1.F:34