[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jztrac.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/18 16:11:08  mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1  1996/03/06 10:47:17  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE JZTRAC (MODEP)

C-    Dump processor trace for JZ91

#include "zebra/mzcn.inc"
#include "zebra/zbcd.inc"
#include "zebra/zstate.inc"
#include "zebra/zunit.inc"
#include "zebra/mqsys.inc"
#include "zebra/jzuc.inc"
#include "zebra/jzc.inc"
C--------------    END CDE                             -----------------  ------
      DIMENSION    MODEP(9)
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HJZTR, 4HAC   /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HJZTRAC /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'JZTRAC  ')
#endif

#include "zebra/q_jbit.inc"
#include "zebra/q_jbyt.inc"
#include "zebra/q_sbit1.inc"

C     For bits in MODE - mark critical
C                 bit 1  SV banks
C                     2  Call banks
C                     3  Banks pointed to by links
C                        in current LQDW and LQUP

      IF (LQJZ.EQ.0)               RETURN

#include "zebra/qtraceq.inc"
#include "zebra/qstorjz.inc"
      MODE = MODEP(1)
      WRITE (IQLOG,9000) JQLEV
      NQUSED = NQUSED + 4

      LEV = MIN (JQLEV,JQMLEV)
      KHI = LQJZ - 6
      KLO = KHI - LEV

      LDW = LQ(KQS+KLO)
      IF (LQDW.EQ.0)  LDW=0

      DO 49 K=KLO,KHI
      LSV = LQ(KQS+K-JQMLEV)

C--                Check LSV valid

      CALL MZCHLS (-7,LSV)
      IF (IQFOUL.EQ.0)             GO TO 23
      ID = IQBLAN
      GO TO 24

   23 ID = IQ(KQS+LSV+1)
      IF (JBIT(MODE,1).EQ.0)       GO TO 24
      IQ(KQS+LSV) = MSBIT1 (IQ(KQS+LSV),IQCRIT)

C----              Print 1 line for this level

   24 WRITE (IQLOG,9024) LEV,ID,LSV,LDW
      NQUSED = NQUSED + 2
      IF (IQFOUL.NE.0)  WRITE (IQLOG,9025)

C----              Check down bank

      IF (LDW.EQ.0)                GO TO 36
      CALL MZCHLS (-7,LDW)
      IF (IQFOUL.EQ.0)             GO TO 31
      WRITE (IQLOG,9026)
      GO TO 36

   31 J = JBYT (MODE,2,2)
      IF (J.EQ.0)                  GO TO 36
      IQ(KQS+LDW) = MSBIT1 (IQ(KQS+LDW),IQCRIT)
      IF (J.LT.2)                  GO TO 36
      IF (LEV.LT.JQLEV-1)          GO TO 36

      DO 34  J=1,IQNL
      L = LQ(KQS+LDW-J)
      IF (L.EQ.0)                  GO TO 34
      CALL MZCHLS (-7,L)
      IF (IQFOUL.NE.0)             GO TO 34
      IQ(KQS+L) = MSBIT1 (IQ(KQS+L),IQCRIT)
   34 CONTINUE
   36 CONTINUE
      LDW = LQ(KQS+K+1)
   49 LEV = LEV - 1
#include "zebra/qtrace99.inc"
      RETURN

 9000 FORMAT (/' JZTRAC.  Processor trace at level',I3
     F/10X,'Depth Name   LQSV   LQDW')
 9024 FORMAT (/10X,I5,1X,A4,2I7)
 9025 FORMAT (' !!!',32X,'***  bank SV bad !!!')
 9026 FORMAT (' !!!',32X,'***  bank DW bad !!!')
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/18 16:11:08 mclareni
	6	* Incorporate changes from J.Zoll for version 3.77
	7	*
	8	* Revision 1.1.1.1 1996/03/06 10:47:17 mclareni
	9	* Zebra
	10	*
	11	*
	12	#include "zebra/pilot.h"
	13	SUBROUTINE JZTRAC (MODEP)
	14
	15	C- Dump processor trace for JZ91
	16
	17	#include "zebra/mzcn.inc"
	18	#include "zebra/zbcd.inc"
	19	#include "zebra/zstate.inc"
	20	#include "zebra/zunit.inc"
	21	#include "zebra/mqsys.inc"
	22	#include "zebra/jzuc.inc"
	23	#include "zebra/jzc.inc"
	24	C-------------- END CDE ----------------- ------
	25	DIMENSION MODEP(9)
	26	#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
	27	DIMENSION NAMESR(2)
	28	DATA NAMESR / 4HJZTR, 4HAC /
	29	#endif
	30	#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
	31	DATA NAMESR / 6HJZTRAC /
	32	#endif
	33	#if !defined(CERNLIB_QTRHOLL)
	34	CHARACTER NAMESR*8
	35	PARAMETER (NAMESR = 'JZTRAC ')
	36	#endif
	37
	38	#include "zebra/q_jbit.inc"
	39	#include "zebra/q_jbyt.inc"
	40	#include "zebra/q_sbit1.inc"
	41
	42	C For bits in MODE - mark critical
	43	C bit 1 SV banks
	44	C 2 Call banks
	45	C 3 Banks pointed to by links
	46	C in current LQDW and LQUP
	47
	48	IF (LQJZ.EQ.0) RETURN
	49
	50	#include "zebra/qtraceq.inc"
	51	#include "zebra/qstorjz.inc"
	52	MODE = MODEP(1)
	53	WRITE (IQLOG,9000) JQLEV
	54	NQUSED = NQUSED + 4
	55
	56	LEV = MIN (JQLEV,JQMLEV)
	57	KHI = LQJZ - 6
	58	KLO = KHI - LEV
	59
	60	LDW = LQ(KQS+KLO)
	61	IF (LQDW.EQ.0) LDW=0
	62
	63	DO 49 K=KLO,KHI
	64	LSV = LQ(KQS+K-JQMLEV)
65
66	C-- Check LSV valid
67
68	CALL MZCHLS (-7,LSV)
69	IF (IQFOUL.EQ.0) GO TO 23
70	ID = IQBLAN
71	GO TO 24
72
73	23 ID = IQ(KQS+LSV+1)
74	IF (JBIT(MODE,1).EQ.0) GO TO 24
75	IQ(KQS+LSV) = MSBIT1 (IQ(KQS+LSV),IQCRIT)
76
77	C---- Print 1 line for this level
78
79	24 WRITE (IQLOG,9024) LEV,ID,LSV,LDW
80	NQUSED = NQUSED + 2
81	IF (IQFOUL.NE.0) WRITE (IQLOG,9025)
82
83	C---- Check down bank
84
85	IF (LDW.EQ.0) GO TO 36
86	CALL MZCHLS (-7,LDW)
87	IF (IQFOUL.EQ.0) GO TO 31
88	WRITE (IQLOG,9026)
89	GO TO 36
90
91	31 J = JBYT (MODE,2,2)
92	IF (J.EQ.0) GO TO 36
93	IQ(KQS+LDW) = MSBIT1 (IQ(KQS+LDW),IQCRIT)
94	IF (J.LT.2) GO TO 36
95	IF (LEV.LT.JQLEV-1) GO TO 36
96
97	DO 34 J=1,IQNL
98	L = LQ(KQS+LDW-J)
99	IF (L.EQ.0) GO TO 34
100	CALL MZCHLS (-7,L)
101	IF (IQFOUL.NE.0) GO TO 34
102	IQ(KQS+L) = MSBIT1 (IQ(KQS+L),IQCRIT)
103	34 CONTINUE
104	36 CONTINUE
105	LDW = LQ(KQS+K+1)
106	49 LEV = LEV - 1
107	#include "zebra/qtrace99.inc"
108	RETURN
109
110	9000 FORMAT (/' JZTRAC. Processor trace at level',I3
111	F/10X,'Depth Name LQSV LQDW')
112	9024 FORMAT (/10X,I5,1X,A4,2I7)
113	9025 FORMAT (' !!!',32X,'*** bank SV bad !!!')
114	9026 FORMAT (' !!!',32X,'*** bank DW bad !!!')
115	END
116	* ==================================================
117	#include "zebra/qcardl.inc"