]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/02/15 17:49:50 mclareni | |
6 | * Kernlib | |
7 | * | |
8 | * | |
9 | #include "kerngen/pilot.h" | |
10 | SUBROUTINE TCDUMP (LABEL,IA,NW,IND) | |
11 | C | |
12 | C CERN PROGLIB# N203 TCDUMP .VERSION KERNFOR 3.14 811130 | |
13 | C ORIG. 01/08/69 | |
14 | C | |
15 | DIMENSION IA(99),IFM(3),IDN(3) | |
16 | C | |
17 | C | |
18 | CALL UBLOW ( IND,IDN,3) | |
19 | CALL UBLOW (3HIFH,IFM,3) | |
20 | DO 12 J=1,3 | |
21 | IF (IUCOMP(IFM(J),IDN,3).EQ.0) IFM(J)=0 | |
22 | 12 CONTINUE | |
23 | C | |
24 | PRINT 9020,LABEL | |
25 | JB= 0 | |
26 | LBASE=LOCF(IA(1)) -1 | |
27 | C | |
28 | 20 JA= JB+1 | |
29 | N=IUSAME (IA,JA,NW,5,LOC) | |
30 | IF (LOC.GT.JA) GO TO 30 | |
31 | C | |
32 | C---- NEXT LINE | |
33 | 25 NL=N/5 | |
34 | N5=5*NL | |
35 | JB= JA+N5-1 | |
36 | LOCFF=LBASE + JA | |
37 | PRINT 9024, LOCFF,JA,JA,JB,IA(JA),N5,NL | |
38 | IF (JB.LT.NW) GO TO 20 | |
39 | RETURN | |
40 | C | |
41 | C-- DUMP 5 WORDS | |
42 | 30 JB= MIN(JA+4,NW) | |
43 | LOCFF=LBASE + JA | |
44 | PRINT 9030,LOCFF,JA,JA,(IA(J),J=JA,JB) | |
45 | IF (IFM(1).NE.0) PRINT 9031, (IA(J),J=JA,JB) | |
46 | IF (IFM(2).NE.0) PRINT 9032, (IA(J),J=JA,JB) | |
47 | IF (IFM(3).NE.0) PRINT 9033, (IA(J),J=JA,JB) | |
48 | C | |
49 | JA=JB+1 | |
50 | IF (JA.LT.LOC) GO TO 30 | |
51 | IF (JB.EQ.NW) RETURN | |
52 | N=N+LOC-JA | |
53 | IF (N.LT.5) GO TO 20 | |
54 | GO TO 25 | |
55 | C | |
56 | 9020 FORMAT (5H0DUMP,A12,5X,30(1H-)) | |
57 | #if !defined(CERNLIB_HEX) | |
58 | 9024 FORMAT(1X,O6,2X,O5,I6,8H UNTIL,I6,14X,11HALL CONTAIN,O24,11X, | |
59 | + I5,6H WORDS,I5,6H LINES/1X) | |
60 | #endif | |
61 | #if defined(CERNLIB_HEX) | |
62 | 9024 FORMAT(1X,Z6,2X,Z5,I6,8H UNTIL,I6,14X,11HALL CONTAIN,Z24,11X, | |
63 | + I5,6H WORDS,I5,6H LINES/1X) | |
64 | #endif | |
65 | #if !defined(CERNLIB_HEX) | |
66 | 9030 FORMAT (1X,O6,2X,O5,I6,5O21) | |
67 | #endif | |
68 | #if defined(CERNLIB_HEX) | |
69 | 9030 FORMAT (1X,Z6,2X,Z5,I6,5Z21) | |
70 | #endif | |
71 | 9031 FORMAT (20X,5(11X,I10)) | |
72 | 9032 FORMAT (20X,5E21.6) | |
73 | 9033 FORMAT (10X,5A21) | |
74 | END |