5 * Revision 1.2 1996/04/18 16:11:04 mclareni
6 * Incorporate changes from J.Zoll for version 3.77
8 * Revision 1.1.1.1 1996/03/06 10:47:16 mclareni
12 #include "zebra/pilot.h"
15 C- PRINT PROCESSOR SUMMARY
17 #include "zebra/mzcn.inc"
18 #include "zebra/zbcd.inc"
19 #include "zebra/zunit.inc"
20 #include "zebra/mqsys.inc"
21 #include "zebra/jzuc.inc"
22 #include "zebra/jzc.inc"
23 C-------------- END CDE ----------------- ------
24 DIMENSION IDV(5), IDSHV(2), TIMEV(3)
25 EQUIVALENCE (IDV(1), IQUEST(1))
26 EQUIVALENCE (IDSHV(1),IQUEST(1))
27 EQUIVALENCE (TIMEV(1), IQUEST(6))
30 EQUIVALENCE (NUMS(1),IQNUM2(2))
31 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
33 DATA NAMESR / 4HJZEN, 4HD /
35 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
36 DATA NAMESR / 6HJZEND /
38 #if !defined(CERNLIB_QTRHOLL)
40 PARAMETER (NAMESR = 'JZEND ')
43 #include "zebra/q_jbit.inc"
44 #include "zebra/q_jbyt.inc"
50 #include "zebra/qtraceq.inc"
51 #include "zebra/qstorjz.inc"
54 IF (IQFOUL.EQ.0) GO TO 12
55 WRITE (IQLOG,9000) LQJZ
56 #include "zebra/qtrace99.inc"
62 WRITE (IQLOG,9002) NUMS
68 IF (JQTIME.EQ.0) GO TO 999
69 IF (IFLAG .NE.0) GO TO 999
76 NCR = IULAST (0,IQ(KQS+LCR+1),IQ(KQS+LCR)) + 1
77 LLC = LCR + IQ(KQS+LCR)
79 IQUEST(1) = IQ(KQS+LLC+1)
81 IF (JBIT(IQ(KQS+LSV),17).NE.0) IQUEST(2)=MYES
82 IQUEST(3) = JBYT(IQ(KQS+LSV),1,8)
83 IQUEST(4) = IQ(KQS+LSV+1)
84 IQUEST(5) = IQ(KQS+LSV+2)
85 IF (IFLAG .NE.0) GO TO 24
86 WRITE (IQLOG,9008) IDV,(IQ(KQS+J+LCR-1),J=1,NCR)
89 24 IQUEST(1) = IQUEST(4)
91 IF (IQUEST(2).LE.0) GO TO 22
92 Q(KQS+LSV+8) = Q(KQS+LSV+8) + Q(KQS+LSV+5)
93 Q(KQS+LSV+7) = Q(KQS+LSV+7) + Q(KQS+LSV+8)
96 TIMEV(1) = Q(KQS+LSV+7)
97 TIMEV(2) = Q(KQS+LSV+6)
98 TIMEV(3) = TIMEV(1)/FLOAT(IQUEST(2))
99 WRITE (IQLOG,9009) IDSHV,TIMEV
102 9000 FORMAT (/' JZEND. Bad address LQJZ = ',I6)
103 9001 FORMAT (/' JZEND. Summary of processor usage'/1X)
104 9002 FORMAT (' NAN T LV Name Calls Conditions'
105 F/7X,1HT,20X,1HN,10(6X,A1))
106 9003 FORMAT (/12X,'Name Calls Total Maximum Mean time')
107 9008 FORMAT (/1X,I5,A2,I3,1X,A4,I7,I6,10I7,:/(29X,10I7))
108 9009 FORMAT (/12X,A4,I7,F9.1,2F9.4)
110 * ==================================================
111 #include "zebra/qcardl.inc"