[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qend / zpostm.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE ZPOSTM (CHDUMP)

C--                POST-MORTEM OF ZEBRA SYSTEM

#include "zebra/zstate.inc"
#include "zebra/zunit.inc"
#include "zebra/mqsys.inc"
#include "zebra/mzcl.inc"
#include "zebra/mzcn.inc"
C--------------    END CDE                             --------------
      CHARACTER    CHDUMP*(*)
      DIMENSION    IVQCL(8), IVQCN(7)
      EQUIVALENCE (IVQCL(1),NQLN), (IVQCN(1),IQLN)


      WRITE (IQLOG,9001)
      WRITE (IQLOG,9031)  (IQUEST(J),J=1,40)
      WRITE (IQLOG,9011)  (IQUEST(J),J=1,40)
      WRITE (IQLOG,9035)  IVQCL
      WRITE (IQLOG,9011)  IVQCL
      WRITE (IQLOG,9036)  IVQCN
      WRITE (IQLOG,9011)  IVQCN
      CALL MZMAPS

#if defined(CERNLIB_CDC)
      CALL TRACEQR (IQLOG,12)
#elif defined (CERNLIB_CRAY)
      CALL TRBK (IQLOG)
#elif defined (CERNLIB_CONVEX)
      CALL TRACEBACK
#elif defined (CERNLIB_IBM)
      CALL ERRTRA
#elif defined (CERNLIB_IBMD)
      CALL ERRTRA
#else
      CALL TRACEQ (IQLOG,12)
#endif
      IQDLUN = IQLOG
      IXSTOR = 0
      CALL SBYT (JQSTOR,IXSTOR,27,4)
      CALL DZSNAP ('ZPOSTM',IXSTOR,CHDUMP)

      IF (NQERR.LT.100)  RETURN
      CALL MZEND
      CALL ABEND

 9001 FORMAT ('1ZEBRA SYSTEM Post-Mortem from ZPOSTM.'/1X)
#if (!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
 9011 FORMAT (2X,5O23)
 9031 FORMAT (' /QUEST/'/(2X,5I23))
#endif
#if (!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
 9011 FORMAT (2X,5O18)
 9031 FORMAT (' /QUEST/'/(2X,5I18))
#endif
#if (defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
 9011 FORMAT (2X,5Z18)
 9031 FORMAT (' /QUEST/'/(2X,5I18))
#endif
#if (defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
 9011 FORMAT (2X,8Z13)
 9031 FORMAT (' /QUEST/'/(2X,8I13))
#endif
 9035 FORMAT (1X/' Last Bank Lifted - '
     F,'COMMON /MZCL/LFW,LS,NIO,ID,NL,NS,ND,IOCH(1)'
     F/2X,2(1X,I9),1X,I3,1X,A5,3(1X,I7),
#if (!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
     FO22,' oct')
#endif
#if (!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
     FO17,' oct')
#endif
#if (defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
     FZ17,' hex')
#endif
#if (defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
     FZ13,' hex')
#endif
 9036 FORMAT (1X/' Last Bank analysed - '
     F,'COMMON /MZCN/LFW,LS,NIO,ID,NL,NS,ND'
     F/2X,2(1X,I9),1X,I3,1X,A5,3(1X,I7))
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
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"