	SUBROUTINE TOTPER
	INCLUDE 'WEEKLY.PRM'
C
C	--OUTPUT STATS FOR ENTIRE PERIOD
C
	JLOG = KLOG/KTOT
	JCMD = KCMD/KTOT
	JLST = KLST/KTOT
	JNUL = KNUL/KTOT
	JOVH = KOVH/KTOT
	JUSR = KUSR/KTOT
	JSWP = KSWP/KTOT
	JRSP = KRSP/KTOT
C
C	--**[MRB] SKIP THIS FOR NOW
C
	GOTO 80
10	FORMAT(//,' FOR THE ENTIRE PERIOD:',/)
20	FORMAT(1X,'AVERAGE LOGGED IN: ',I2)
30	FORMAT(' AVERAGE NUMBER OF COMMANDS: ',I4)
40	FORMAT(1X,I2,'% USER',3X,I2,'% NULL',3X,I2
	1,'% OVERHEAD',3X,I2,'% LOST')
50	FORMAT(' AVERAGE RESPONSE TIME: ',I2)
70	FORMAT(' AVERAGE NUMBER OF SWAP I/O''S: ',I6)
	WRITE(22,10) ; WRITE(22,20) JLOG ; WRITE(22,30) JCMD
	WRITE(22,40) JUSR,JNUL,JOVH,JLST
	WRITE(22,50) JRSP
	WRITE(22,70) JSWP
80	CLOSE(UNIT = 22)
	RETURN
	END

