34
35
36
37
38
39
40#include "implicit_f.inc"
41
42
43
44#include "titr_c.inc"
45
46
47
48
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
68
69
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) = ' '
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
for(i8=*sizetab-1;i8 >=0;i8--)
1.15.0