Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	SUBROUTINE OUTAVE
C
C	--COMPUTE AND OUTPUT STATISTICS
C
	IMPLICIT INTEGER(A-Z)
	INCLUDE 'WEEKLY.PRM'
	DOUBLE PRECISION DAYX
C
C	--GET AVERAGE LOGINS
C
	ALOG = GETAVE(1,MLOG,NLOG)
C
C	--GET COMMANDS
C
	ACMD = GETAVE(2,MCMD,NCMD)
C
C	--GET AVERAGE %LOST
C
	ALST = GETAVE(3,MLST,NLST)
C
C	--GET AVERAGE %NULL,%OVH, AND %USER
C
	ANUL = GETAVE(11,MNUL,NNUL)
	AOVH = GETAVE(12,MOVH,NOVH)
	AUSR = GETAVE(13,MUSR,NUSR)
C
C	--GET AVERAGE SWAP I/O'S
C
	ASWP = GETAVE(9,MSWP,NSWP)
	MSWP = MSWP/100
C
C	--GET AVERAGE RESPONSE TIME
C
	ARSP = GETAVE(14,MRSP,NRSP)
	CALL DATOUT(DAYX,DAY1,MONTH)
C
C	--GET AVERAGE JOB SIZE
C
	AJBSZ = GETAVE(16,MJBSZ,NJBSZ)
C
C	--GET AVERAGE CTSW,UUO,WDCL
C
	ACTSW = GETAVE(5,MCTSW,NCTSW)
	AUUO = GETAVE(4,MUUO,NUUO)
	AWDCL = GETAVE(6,MWDCL,NWDCL)
C
C	--GET DAY OF WEEK
C
	CALL WDAYID(WKDAY)
C
C	--GATHER TOTAL STATISTICS
C
	KTOT = KTOT+1
	KLOG = KLOG+ALOG
	KCMD = KCMD+ACMD
	KLST = KLST+ALST
	KNUL = KNUL+ANUL
	KOVH = KOVH+AOVH
	KUSR = KUSR+AUSR
	KRASH = PLTST(5)
	KSWP = KSWP+ASWP
	KRSP = KRSP+ARSP
	KERROR = PLTST(4)
	IF (NUSR .LT. 0) NUSR = 0
	IF (WKDAY .EQ. 'Su') WRITE(22,30)
30	FORMAT(1X)
	WRITE(22,20) MONTH,DAY1,WKDAY,NLOG,ALOG,MLOG,ALST,MLST
	1,NNUL,ANUL,MNUL,NOVH,AOVH,MOVH,NUSR,AUSR,MUSR,MSWP
	2,ARSP,MRSP,KRASH,KERROR,AJBSZ,ACTSW,AUUO,AWDCL
20	FORMAT(1X,A3,1X,I2,1X,A2,2X,I2,2X,I2,2X,I2,3X,I2
	1,2X,I2,3X,I2,2X,I2,2X,I2,3X,I2,2X,I2,2X,I2,3X,I2,2X
	2,I2,2X,I2,4X,I5,2X,I4,2X,I4,3X,I4,2X,I4,2X,I4,2X,I4,1X
	3,I4,2X,I4)
	RETURN
	END