Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50437/totper.for
There are no other files named totper.for in the archive.
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