Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50437/schout.for
There are no other files named schout.for in the archive.
	SUBROUTINE SCHOUT
	INCLUDE 'SYSREP.PRM'
	REAL REQSEC
C
C	SCHEDULER,SWAPPER, AND KL10 ONLY STATISTICS FIGURED HERE
C
C	VARIABLE DEFINITIONS:
C
C	TOTJIF	TOTAL JIFFIES IN TIME SPAN
C	SWPNUL	SWAPPER NULL TIME (JIFFIES)
C	SWPLOS	SWAPPER LOST TIME (JIFFIES)
C	SNUL	PERCENT SWAPPER NULL
C	SLOS	PERCENT SWAPPER LOST
C	REQ	NUMBER OF REQUES
C	SECOND	NUMBER OF SECONDS IN SPAN (TOTJIF/60)
C	REQSEC	REQUES PER SECOND
C	OFO	JOBS OUT OF ORDER
C	AVEJOB	AVERAGE JOB SIZE (P FOR KL)
C	EBOX	JIFFIES IN EBOX (KL ONLY)
C	MBOX	JIFFIES IN MBOX
C	CACHE	CACHE REQUESTS
C	CACSEC	CACHE REQUESTS PER SECOND X 100
C
C
C	--GET TOTAL JIFFIES IN SPAN (NULL,LOST)
C
	TOTJIF = REC501(4,2)-REC501(4,1)
	SWPNUL = REC403(3,2)-REC403(3,1)
	SWPLOS = REC403(4,2)-REC403(4,1)
C
C	--GET PERCENTAGES
C
	SNUL = (SWPNUL*100)/TOTJIF
	SLOS = (SWPLOS*100)/TOTJIF
	CALL PLTIT(SNUL,15)
C
C	--GET REQUES AND OUT OF ORDER JOBS
C
	REQ = REC403(5,2)-REC403(5,1)
	SECOND = TOTJIF/60
	IF (SECOND .NE. 0) GOTO 20
	REQSEC = 0.0
	REQPS = 0
	GOTO 30
20	REQSEC = FLOAT(REQ)/FLOAT(SECOND)
	OFO = REC403(2,2)-REC403(2,1)
	CALL PLTIT(OFO,8)
	REQPS = REQ/SECOND
30	CALL PLTIT(REQPS,10)
C
C	--GET AVERAGE JOB SIZE
C
	AVEJOB = REC403(6,2)
	CALL PLTIT(AVEJOB,16)
C
C	--GET EBOX-MBOX TIME
C
	EBOX = REC403(7,2)-REC403(7,1)
	MBOX = REC403(8,2)-REC403(8,1)
C
C	--GET CACHE REQUESTS PER SECOND
C
	CACHE = REC403(9,2)-REC403(9,1)
	CACSEC = (CACHE/SECOND)/100
	IF (CACSEC .LT. 0) CACSEC = CACSEC * -1
	CALL PLTIT(CACSEC,17)
C
C	--GET READY FOR PRINT OUT
C
	IF (REC000(9,1) .EQ. REC000(9,2)) CALL SKONTM(REC000
	1(9,1),24)
10	FORMAT(1X,I2,':',2I1,2X,I2,':',2I1,6X,I3,6X,I5
	1,6X,F4.1,5X,I2,2X,I6,1X,I6,I8)
	CALL DTOUT(X1,X2,1)
	CALL DTOUT(Y1,Y2,2)
	WRITE(24,10) REC000(9,1),X1,X2,REC000(9,2)
	1,Y1,Y2,AVEJOB,OFO,REQSEC,SNUL,EBOX,MBOX,CACSEC
	RETURN
	END