Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qend / zpostm.F
CommitLineData
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
12C-- 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"
19C-------------- 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"