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