OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
trace_back.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#define NIVEAU_MAX 50
24!||====================================================================
25!|| trace_in1 ../starter/source/system/trace_back.F
26!||--- called by ------------------------------------------------------
27!|| hm_read_inivol ../starter/source/initial_conditions/inivol/hm_read_inivol.F90
28!|| lectur ../starter/source/starter/lectur.F
29!|| starter0 ../starter/source/starter/starter0.F
30!||--- calls -----------------------------------------------------
31!|| my_exit ../starter/source/output/analyse/analyse.c
32!|| trace_pile ../starter/source/system/trace_back.F
33!|| trace_print ../starter/source/system/trace_back.F
34!||--- uses -----------------------------------------------------
35!||====================================================================
36 SUBROUTINE trace_in1(MY_CHAR,ILEN)
37C-----------------------------------------------
38C M o d u l e s
39C-----------------------------------------------
40 USE names_and_titles_mod , ONLY : ncharline
41C-----------------------------------------------
42C I m p l i c i t T y p e s
43C-----------------------------------------------
44#include "implicit_f.inc"
45C-----------------------------------------------
46C G l o b a l P a r a m e t e r s
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50#include "units_c.inc"
51#include "warn_c.inc"
52C-----------------------------------------------
53C D u m m y A r g u m e n t s
54C-----------------------------------------------
55 CHARACTER(LEN=NCHARLINE) :: MY_CHAR
56C-----------------------------------------------
57C L o c a l V a r i a b l e s
58C-----------------------------------------------
59 INTEGER ILEN
60 CHARACTER(LEN=NCHARLINE):: LINE1
61 INTEGER TRACE_PILE
62 EXTERNAL trace_pile
63 INTEGER NIVEAU_PILE
64C-----------------------------------------------
65 IF(itrace/=1)RETURN
66 WRITE(line1,'(A)')my_char(1:min(ilen,ncharline))
67 niveau_pile = trace_pile(1)
68 IF(niveau_pile>=niveau_max)THEN
69 WRITE(iout,'(A)')
70 .' +=============================================================+'
71 WRITE(iout,'(A,A)')
72 .' ',line1
73 WRITE(iout,'(A)')
74 .' +=============================================================+'
75 WRITE(iout,'(A)')
76 .' | Trace back error (pile level > max) |'
77 WRITE(iout,'(A)')
78 .' +=============================================================+'
79 niveau_pile = trace_pile(-1)
80 CALL trace_print(line1,-2,1)
81 CALL my_exit(3)
82 END IF
83C-----------------------------------------------
84 CALL trace_print(line1,niveau_pile,0)
85C-----------------------------------------------
86 RETURN
87C
88 END
89#define NSUB_MAX 127
90!||====================================================================
91!|| trace_in ../starter/source/system/trace_back.F
92!||--- calls -----------------------------------------------------
93!|| trace_pile ../starter/source/system/trace_back.F
94!|| trace_print ../starter/source/system/trace_back.F
95!||--- uses -----------------------------------------------------
96!||====================================================================
97 SUBROUTINE trace_in(NSUB,ITAB,ATAB)
98C-----------------------------------------------
99C M o d u l e s
100C-----------------------------------------------
101 USE names_and_titles_mod , ONLY : ncharline
102C-----------------------------------------------
103C I m p l i c i t T y p e s
104C-----------------------------------------------
105#include "implicit_f.inc"
106C-----------------------------------------------
107C G l o b a l P a r a m e t e r s
108C-----------------------------------------------
109C C o m m o n B l o c k s
110C-----------------------------------------------
111#include "warn_c.inc"
112C-----------------------------------------------
113C D u m m y A r g u m e n t s
114C-----------------------------------------------
115 INTEGER NSUB,ITAB(*)
116 my_real atab(*)
117C-----------------------------------------------
118C L o c a l V a r i a b l e s
119C-----------------------------------------------
120 CHARACTER(LEN=NCHARLINE):: LINE1
121 CHARACTER(LEN=NCHARLINE):: LINES( NSUB_MAX )
122 INTEGER TRACE_PILE,LL( NSUB_MAX ) ,TYP( NSUB_MAX )
123 EXTERNAL trace_pile
124 INTEGER NIVEAU_PILE
125 SAVE lines,ll,typ
126 DATA lines /
127 .'RADIOSS STARTER','GLOBAL UNITS',
128 .'HEADER','BEGIN','TRANSLATOR',
129 .'ALTDOCTAG','CARD COUNTER',
130 .'DECK READING','MODIF DECK',
131 1'BEGINNING','UNITS','FUNCTIONS','TABLES',
132 .'MATERIALS','NODES','SKEWS',
133 .'PROPERTIES','PARTS','MULTIDOMAINS','ELEMENTS',
134 .'ADAPTIVE MESHING','XFEM',
135 2'CONNECTIVITY',
136 .'SPH GROUPS',
137 .'SUBMODELS',
138 .'SUBSETS','BOXES',
139 .'GROUPS',
140 .'TRANSFORMATIONS',
141 .'MERGING CNODES',
142 .'REINIT CONNECTIVITY',
143 .'RANDOM NOISE',
144 .'BCS','ADAPTIVE MESHING BCS',
145 3'SOLIDS SORT',
146 .'DAMPING',
147 .'MPCS 1',
148 .'DYNAMIC STORAGE',
149 .'GJOINTS',
150 .'ALE NEIGHBOURS',
151 .'XFEM CRACK',
152 .'CFD BOUNDARY ELEMENTS',
153 .'MULTI-PURPOSE ELEMENTS',
154 .'SPH',
155 4'SPH SYM',
156 .'SPH I/O',
157 .'fluid nodal masses',
158 .'concentred loads',
159 .'pressure loads',
160 .'imposed velocities',
161 .'initial velocities',
162 .'initial temperatures',
163 .'detonation points',
164 .'laser impacts',
165 5'EXTERNAL skin for animation',
166 .'accelerometers',
167 .'sensors',
168 .'rigid links',
169 .'user window',
170 .'rigid bodies on','rbe2 on',
171 .'flexible bodies on','xfem elements on/off',
172 .'containers','initial volume fraction',
173 .'IMPLICIT domain decomposition',
174 .'sms initialization',
175 .'domain decomposition',
176 6'elements groups',
177 .'reference metrics',
178 .'domain decomposition arrays',
179 .'element buffer allocation',
180 .'gravity',
181 .'EXTERNAL coupling',
182 .'secondary velocities',
183 .'RBE2',
184 .'RBE3',
185 .'ELEMENTS DEACTIVATION',
186 7'SOLID ELEMENTS FACES',
187 .'MPCS 2',
188 .'OPTIMIZATION',
189 .'INTERFACES',
190 .'RIGID WALLS',
191 .'RIGID WALLS ALE',
192 .'ADDED MASSES',
193 .'MADYMO LINKS',
194 .'MADYMO EXFEM',
195 .'RIGID ENTITES',
196 8'EIGEN MODES',
197 .'MULTI-LEVEL DIRECT SOLVER',
198 .'COMPOSITE SHELLS',
199 .'USER TO SYSTEM RENUMBERING',
200 .'ELEMENT BUFFER INITIALIZATION',
201 .'RIGID MATERIALS',
202 .'DEALLOCATION',
203 .'XFEM FOR COMPOSITE',
204 .'RIGID BODY ELEMENT DEACTIVATION',
205 .'STAMPING INITIALIZATION',
206 9'INTERFACES STIFFNESS',
207 .'LASER IMPACT PHASE 2',
208 .'RIVETS',
209 .'SECTIONS',
210 .'JOINTS',
211 .'BLOCK BOUNDARY MATERIAL NODES',
212 .'POROUS NODES',
213 .'MONITORED VOLUMES',
214 .'MESHING',
215 .'BEM FLOW',
216 *'EULERIAN BOUNDARY CONDITIONS',
217 .'LAGRANGE MULTIPLIERS',
218 .'GRAVITY NODAL FORCES',
219 .'XFEM DEACTIVATION',
220 .'TIME HISTORY PARTS',
221 .'time history groups',
222 .'dynamic storage madymo link',
223 .'INTERFACE initialization phase 2',
224 .'rbe3 initialization',
225 .'kinematic conditions check',
226 1'mass array allocation',
227 .'domain decomposition phase 2',
228 .'process bem for spmd',
229 .'closing tmp input file',
230 .'animation file writing',
231 .'restart file(s) writing',
232 .'closing starter',
233 .' ',
234 .' '/
235 DATA LL /
236 . 15,12, 6, 5,
237 . 10, 9,12,12,10,
238 1 9, 5, 9, 6, 9, 5, 5,
239 . 10, 5,12, 8,16, 4,
240 2 12,10, 9, 7, 5, 6,
241 . 15,14,19,12, 3,20,
242 3 11, 7, 6,15, 7,
243 . 14,10,21,22, 3,
244 4 7, 7,18,16,14,
245 . 18,18,20,17,13,
246 5 27,14, 7,11,11,
247 . 15, 7,18,20,10,22,29,18,20,
248 6 15,17,27,25, 7,
249 . 17,16, 4, 4,21,
250 7 20, 6,12,10,11,
251 . 15,12,12,12,13,
252 8 11,25,16,26,29,
253 . 15,12,18,31,23,
254 9 20,20, 6, 8, 6,
255 . 29,12,17, 7, 8,
256 * 28,20,20,17,18,
257 . 19,27,32,19,26,
258 1 21,28,20,22,22,
259 . 23,15, 4, 4/
260 DATA TYP /
261 . 1, 1, 1, 1,
262 . 1, 1, 1, 1, 1,
263 1 8, 1, 1, 1, 1, 1, 1,
264 . 1, 1, 1, 1, 1, 1,
265 2 1, 1, 1, 1, 1, 1,
266 . 1, 1, 1, 1, 1, 1,
267 3 1, 1, 1, 1, 1,
268 . 1, 1, 1, 1, 1,
269 4 1, 1, 1, 1, 1,
270 . 1, 1, 1, 1, 1,
271 5 1, 1, 1, 1, 1,
272 . 1, 1, 1, 1, 1, 1, 1, 1, 1,
273 6 1, 1, 1, 1, 1,
274 . 1, 1, 1, 1, 1,
275 7 1, 1, 1, 1, 1,
276 . 1, 1, 1, 1, 1,
277 8 1, 1, 1, 1, 1,
278 . 1, 1, 1, 1, 1,
279 9 1, 1, 1, 1, 1,
280 . 1, 1, 1, 1, 1,
281 * 1, 1, 1, 1, 1,
282 . 1, 1, 1, 1, 1,
283 1 1, 1, 1, 1, 1,
284 . 1, 1, 1, 1/
285C-----------------------------------------------
286 IF(ITRACE/=1)RETURN
287 NIVEAU_PILE = TRACE_PILE(1)
288 IF(NIVEAU_PILE>=NIVEAU_MAX-1)THEN
289 CALL TRACE_PRINT(LINE1,-2,1)
290 RETURN
291 ENDIF
292C-----------------------------------------------
293.OR. IF(NSUB<=0NSUB> NSUB_MAX )THEN
294 LINE1=' ?????? '
295 ELSE
296 GOTO(1,2,3)TYP(NSUB)
297 1 CONTINUE
298 WRITE(LINE1,'(a)')LINES(NSUB)(1:LL(NSUB))
299 GOTO 999
300 2 CONTINUE
301 WRITE(LINE1,'(a,i5,a1,i5)')LINES(NSUB)(1:LL(NSUB)),ITAB(1)
302 GOTO 999
303 3 CONTINUE
304 WRITE(LINE1,'(a,i5,a1,i5)')LINES(NSUB)(1:LL(NSUB)),
305 . ITAB(1)+1,'/',ITAB(2)
306 GOTO 999
307C
308 999 CONTINUE
309 ENDIF
310C-----------------------------------------------
311 CALL TRACE_PRINT(LINE1,NSUB,0)
312C-----------------------------------------------
313 RETURN
314C
315 END
316!||====================================================================
317!|| trace_out ../starter/source/system/trace_back.F
318!||--- calls -----------------------------------------------------
319!|| trace_pile ../starter/source/system/trace_back.F
320!|| trace_print ../starter/source/system/trace_back.F
321!||--- uses -----------------------------------------------------
322!||====================================================================
323 SUBROUTINE TRACE_OUT(NSUB)
324C-----------------------------------------------
325C M o d u l e s
326C-----------------------------------------------
327 USE NAMES_AND_TITLES_MOD , ONLY : NCHARLINE
328C-----------------------------------------------
329C I m p l i c i t T y p e s
330C-----------------------------------------------
331#include "implicit_f.inc"
332#include "warn_c.inc"
333C-----------------------------------------------
334C D u m m y A r g u m e n t s
335C-----------------------------------------------
336 INTEGER NSUB
337C-----------------------------------------------
338C L o c a l V a r i a b l e s
339C-----------------------------------------------
340 INTEGER TRACE_PILE
341 CHARACTER(LEN=ncharline) :: LINE1
342 EXTERNAL TRACE_PILE
343 INTEGER NIVEAU_PILE
344C-----------------------------------------------
345 IF(ITRACE/=1)RETURN
346 LINE1(1:ncharline)=' '
347 CALL TRACE_PRINT(LINE1,NSUB,-1)
348 NIVEAU_PILE = TRACE_PILE(-1)
349C-----------------------------------------------
350 RETURN
351 END
352!||====================================================================
353!|| trace_out1 ../starter/source/system/trace_back.F
354!||--- called by ------------------------------------------------------
355!|| lectur ../starter/source/starter/lectur.F
356!|| starter0 ../starter/source/starter/starter0.F
357!||--- calls -----------------------------------------------------
358!|| my_exit ../starter/source/output/analyse/analyse.c
359!|| trace_pile ../starter/source/system/trace_back.F
360!|| trace_print ../starter/source/system/trace_back.F
361!||--- uses -----------------------------------------------------
362!||====================================================================
363 SUBROUTINE TRACE_OUT1()
364C-----------------------------------------------
365C M o d u l e s
366C-----------------------------------------------
367 USE NAMES_AND_TITLES_MOD , ONLY : NCHARLINE
368C-----------------------------------------------
369C I m p l i c i t T y p e s
370C-----------------------------------------------
371#include "implicit_f.inc"
372#include "warn_c.inc"
373#include "units_c.inc"
374C-----------------------------------------------
375C L o c a l V a r i a b l e s
376C-----------------------------------------------
377 INTEGER TRACE_PILE
378 EXTERNAL TRACE_PILE
379 INTEGER NIVEAU_PILE
380 INTEGER NSUB,IW
381 CHARACTER(LEN=ncharline) :: LINE1
382C-----------------------------------------------
383 LINE1(1:ncharline)=' '
384 IF(ITRACE/=1)RETURN
385 NIVEAU_PILE = TRACE_PILE(-1)
386 NSUB=TRACE_PILE(0)
387 IF (NIVEAU_PILE<0) THEN
388 WRITE(IOUT,'(a)')
389 .' +=============================================================+'
390 WRITE(IOUT,'(a)')
391 .' | trace back error(pile level < 0) |'
392 WRITE(IOUT,'(a)')
393 .' +=============================================================+'
394 NIVEAU_PILE = TRACE_PILE(1-TRACE_PILE(0))
395 CALL TRACE_PRINT(LINE1,-2,1)
396 CALL MY_EXIT(3)
397 END IF
398 IW = -1
399 CALL TRACE_PRINT(LINE1,NSUB,IW)
400C-----------------------------------------------
401 RETURN
402 END
403!||====================================================================
404!|| trace_pile ../starter/source/system/trace_back.F
405!||--- called by ------------------------------------------------------
406!|| trace_in ../starter/source/system/trace_back.F
407!|| trace_in1 ../starter/source/system/trace_back.F
408!|| trace_out ../starter/source/system/trace_back.F
409!|| trace_out1 ../starter/source/system/trace_back.F
410!|| trace_print ../starter/source/system/trace_back.F
411!||====================================================================
412 INTEGER FUNCTION TRACE_PILE(VAL)
413C-----------------------------------------------
414C I m p l i c i t T y p e s
415C-----------------------------------------------
416#include "implicit_f.inc"
417C-----------------------------------------------
418C D u m m y A r g u m e n t s
419C-----------------------------------------------
420 INTEGER VAL
421C-----------------------------------------------
422C L o c a l V a r i a b l e s
423C-----------------------------------------------
424 INTEGER NIVEAU_PILE,IT
425 DATA NIVEAU_PILE/0/
426 SAVE NIVEAU_PILE
427C-----------------------------------------------
428 NIVEAU_PILE = NIVEAU_PILE + VAL
429 TRACE_PILE = NIVEAU_PILE
430C-----------------------------------------------
431 RETURN
432 END
433!||====================================================================
434!|| trace_cf ../starter/source/system/trace_back.F
435!||--- calls -----------------------------------------------------
436!|| trace_print ../starter/source/system/trace_back.F
437!||--- uses -----------------------------------------------------
438!||====================================================================
439 SUBROUTINE TRACE_CF(SIGNAL,IW)
440C-----------------------------------------------
441C M o d u l e s
442C-----------------------------------------------
443 USE NAMES_AND_TITLES_MOD , ONLY : NCHARLINE
444C-----------------------------------------------
445C I m p l i c i t T y p e s
446C-----------------------------------------------
447#include "implicit_f.inc"
448C-----------------------------------------------
449C D u m m y A r g u m e n t s
450C-----------------------------------------------
451 INTEGER SIGNAL,IW
452C-----------------------------------------------
453C L o c a l V a r i a b l e s
454C-----------------------------------------------
455 CHARACTER(LEN=NCHARLINE):: LINE1
456 INTEGER I
457C-----------------------------------------------
458 DO I=1,ncharline
459 LINE1(I:I)=' '
460 END DO
461 CALL TRACE_PRINT(LINE1,SIGNAL,IW)
462 RETURN
463 END
464!||====================================================================
465!|| trace_print ../starter/source/system/trace_back.F
466!||--- called by ------------------------------------------------------
467!|| trace_cf ../starter/source/system/trace_back.F
468!|| trace_in ../starter/source/system/trace_back.F
469!|| trace_in1 ../starter/source/system/trace_back.F
470!|| trace_out ../starter/source/system/trace_back.F
471!|| trace_out1 ../starter/source/system/trace_back.F
472!||--- calls -----------------------------------------------------
473!|| ancmsg ../starter/source/output/message/message.F
474!|| my_exit ../starter/source/output/analyse/analyse.c
475!|| trace_pile ../starter/source/system/trace_back.F
476!||--- uses -----------------------------------------------------
477!|| message_mod ../starter/share/message_module/message_mod.F
478!||====================================================================
479 SUBROUTINE TRACE_PRINT(LINE1,NS_SIGNAL,IW)
480C-----------------------------------------------
481C M o d u l e s
482C-----------------------------------------------
483 USE MESSAGE_MOD
484 USE NAMES_AND_TITLES_MOD , ONLY : NCHARLINE
485C-----------------------------------------------
486C I m p l i c i t T y p e s
487C-----------------------------------------------
488#include "implicit_f.inc"
489C-----------------------------------------------
490C G l o b a l P a r a m e t e r s
491C-----------------------------------------------
492C C o m m o n B l o c k s
493C-----------------------------------------------
494#include "units_c.inc"
495C-----------------------------------------------
496C D u m m y A r g u m e n t s
497C-----------------------------------------------
498 CHARACTER(LEN=NCHARLINE):: LINE1
499 INTEGER NS_SIGNAL,IW
500C-----------------------------------------------
501C L o c a l V a r i a b l e s
502C-----------------------------------------------
503 INTEGER TRACE_PILE
504 EXTERNAL TRACE_PILE
505 INTEGER NIVEAU_PILE
506 INTEGER CHECK_PILE(0:NIVEAU_MAX)
507 CHARACTER(LEN=NCHARLINE):: BLANC
508 CHARACTER(LEN=NCHARLINE):: TEXT(0:NIVEAU_MAX)
509 INTEGER I,IP,IL,NLIGNES,IT
510 DATA CHECK_PILE/0,NIVEAU_MAX*0/
511 SAVE TEXT,CHECK_PILE
512C-----------------------------------------------
513 DO I=1,ncharline
514 BLANC(I:I)=' '
515 END DO
516 NIVEAU_PILE = TRACE_PILE(0)
517C
518 IF(IW==0) THEN
519C------------------------------------------------------------------------
520C Ajout d'une ligne a TEXT (1 ou plusieurs X par descente de pile)
521C------------------------------------------------------------------------
522 TEXT(NIVEAU_PILE)(1:NIVEAU_PILE)=BLANC(1:NIVEAU_PILE)
523 TEXT(NIVEAU_PILE)(NIVEAU_PILE+1:ncharline)=
524 . LINE1(1:ncharline-NIVEAU_PILE)
525 CHECK_PILE(NIVEAU_PILE) = NS_SIGNAL
526 ELSEIF(IW==-1) THEN
527C------------------------------------------
528C remonte de pile
529C------------------------------------------
530 IF(NS_SIGNAL==CHECK_PILE(NIVEAU_PILE))THEN
531 TEXT(NIVEAU_PILE+1)=BLANC
532 ELSE
533 NS_SIGNAL = -1
534 IW=1
535 ENDIF
536 ENDIF
537C
538 IF(IW>0) THEN
539C------------------------------------------
540C Ecriture du Trace Back et Arret
541C------------------------------------------
542 IF(NIVEAU_PILE<=0)CALL MY_EXIT(3)
543C
544 WRITE(IOUT,'(a)')
545 .' +=============================================================+'
546 WRITE(IOUT,'(a)')
547 .' | abnormal END |'
548 IF(NS_SIGNAL==-1)THEN
549 WRITE(IOUT,'(A)')
550 .' | Trace back error (pile) |'
551 ELSEIF(NS_SIGNAL==-2)THEN
552 WRITE(IOUT,'(A)')
553 .' | Trace back error (pile level) |'
554 ELSEIF(NS_SIGNAL==1)THEN
555 WRITE(IOUT,'(A)')
556 .' | Bus Error |'
557 ELSEIF(NS_SIGNAL==2)THEN
558 WRITE(IOUT,'(A)')
559 .' | Floating Point Exception |'
560 ELSEIF(NS_SIGNAL==3)THEN
561 WRITE(IOUT,'(A)')
562 .' | Segmentation Violation |'
563 ENDIF
564 WRITE(IOUT,'(A)')
565 .' | TRACE BACK : |'
566 WRITE(IOUT,'(A)')
567 .' +=============================================================+'
568C
569 DO I=MAX(1,NIVEAU_PILE),MIN(NIVEAU_PILE,NIVEAU_MAX)
570 WRITE(IOUT,'(A)')TEXT(I)
571 ENDDO
572C
573 WRITE(IOUT,'(A)')
574 .' +=============================================================+'
575 WRITE(ISTDO,'(A)')
576 .' ** ERROR TRAPPED : REPORT TO LISTING FILE'
577 CALL ancmsg(msgid=760,
578 . msgtype=msgerror,
579 . anmode=anstop)
580 CALL my_exit(3)
581 ENDIF
582C
583 RETURN
584 END
my_exit
void my_exit(int *i)
Definition analyse.c:1038
my_real
#define my_real
Definition cppsort.cpp:32
min
#define min(a, b)
Definition macros.h:20
for
for(i8=*sizetab-1;i8 >=0;i8--)
Definition mumps_common.c:91
names_and_titles_mod
Definition names_and_titles_mod.F:997
names_and_titles_mod::ncharline
integer, parameter ncharline
Definition names_and_titles_mod.F:1001
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:889
trace_in1
subroutine trace_in1(my_char, ilen)
Definition trace_back.F:37
trace_print
subroutine trace_print(line1, ns_signal, iw)
Definition trace_back.F:480
trace_in
subroutine trace_in(nsub, itab, atab)
Definition trace_back.F:98
starter
program starter
Definition starter.F:39