fe4da5cc |
1 | * |
2 | * $Id$ |
3 | * |
4 | * $Log$ |
5 | * Revision 1.1.1.1 1996/03/06 10:47:13 mclareni |
6 | * Zebra |
7 | * |
8 | * |
9 | #include "zebra/pilot.h" |
10 | SUBROUTINE ZPOSTM (CHDUMP) |
11 | |
12 | C-- POST-MORTEM OF ZEBRA SYSTEM |
13 | |
14 | #include "zebra/zstate.inc" |
15 | #include "zebra/zunit.inc" |
16 | #include "zebra/mqsys.inc" |
17 | #include "zebra/mzcl.inc" |
18 | #include "zebra/mzcn.inc" |
19 | C-------------- END CDE -------------- |
20 | CHARACTER CHDUMP*(*) |
21 | DIMENSION IVQCL(8), IVQCN(7) |
22 | EQUIVALENCE (IVQCL(1),NQLN), (IVQCN(1),IQLN) |
23 | |
24 | |
25 | WRITE (IQLOG,9001) |
26 | WRITE (IQLOG,9031) (IQUEST(J),J=1,40) |
27 | WRITE (IQLOG,9011) (IQUEST(J),J=1,40) |
28 | WRITE (IQLOG,9035) IVQCL |
29 | WRITE (IQLOG,9011) IVQCL |
30 | WRITE (IQLOG,9036) IVQCN |
31 | WRITE (IQLOG,9011) IVQCN |
32 | CALL MZMAPS |
33 | |
34 | #if defined(CERNLIB_CDC) |
35 | CALL TRACEQR (IQLOG,12) |
36 | #elif defined (CERNLIB_CRAY) |
37 | CALL TRBK (IQLOG) |
38 | #elif defined (CERNLIB_CONVEX) |
39 | CALL TRACEBACK |
40 | #elif defined (CERNLIB_IBM) |
41 | CALL ERRTRA |
42 | #elif defined (CERNLIB_IBMD) |
43 | CALL ERRTRA |
44 | #else |
45 | CALL TRACEQ (IQLOG,12) |
46 | #endif |
47 | IQDLUN = IQLOG |
48 | IXSTOR = 0 |
49 | CALL SBYT (JQSTOR,IXSTOR,27,4) |
50 | CALL DZSNAP ('ZPOSTM',IXSTOR,CHDUMP) |
51 | |
52 | IF (NQERR.LT.100) RETURN |
53 | CALL MZEND |
54 | CALL ABEND |
55 | |
56 | 9001 FORMAT ('1ZEBRA SYSTEM Post-Mortem from ZPOSTM.'/1X) |
57 | #if (!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M)) |
58 | 9011 FORMAT (2X,5O23) |
59 | 9031 FORMAT (' /QUEST/'/(2X,5I23)) |
60 | #endif |
61 | #if (!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M)) |
62 | 9011 FORMAT (2X,5O18) |
63 | 9031 FORMAT (' /QUEST/'/(2X,5I18)) |
64 | #endif |
65 | #if (defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M)) |
66 | 9011 FORMAT (2X,5Z18) |
67 | 9031 FORMAT (' /QUEST/'/(2X,5I18)) |
68 | #endif |
69 | #if (defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M)) |
70 | 9011 FORMAT (2X,8Z13) |
71 | 9031 FORMAT (' /QUEST/'/(2X,8I13)) |
72 | #endif |
73 | 9035 FORMAT (1X/' Last Bank Lifted - ' |
74 | F,'COMMON /MZCL/LFW,LS,NIO,ID,NL,NS,ND,IOCH(1)' |
75 | F/2X,2(1X,I9),1X,I3,1X,A5,3(1X,I7), |
76 | #if (!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M)) |
77 | FO22,' oct') |
78 | #endif |
79 | #if (!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M)) |
80 | FO17,' oct') |
81 | #endif |
82 | #if (defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M)) |
83 | FZ17,' hex') |
84 | #endif |
85 | #if (defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M)) |
86 | FZ13,' hex') |
87 | #endif |
88 | 9036 FORMAT (1X/' Last Bank analysed - ' |
89 | F,'COMMON /MZCN/LFW,LS,NIO,ID,NL,NS,ND' |
90 | F/2X,2(1X,I9),1X,I3,1X,A5,3(1X,I7)) |
91 | END |
92 | * ================================================== |
93 | #include "zebra/qcardl.inc" |