C******************************************************************************
	SUBROUTINE AK$DSK_USG(ISTAT)
C******************************************************************************
C AKDSKUSG.FOR
C
C  written by:  M. Serrer
C  date:        March 1984
C
	INCLUDE 'AK.INC/NOLIST'
C
	INTEGER*2 GRP,MEM
	INTEGER*4 BLK
C
  10	CONTINUE
C
C_Get next record from file 'SYS$SYSTEM:DSKUSG.LIS'
C
	READ(DSK_FIL,200,END=999,ERR=10) GRP,MEM,BLK
 200	FORMAT(X,I6,X,I6,4X,I9)
C
C_UIC's [1,1] to [1,10] are all grouped as [1,4] and charged to
C_User SYSTEM.
C
	IF (GRP.EQ.1.AND.MEM.LE.10) THEN
	  MEM=4
	  DO I=1,TOT_USR
	    AK$RECORD=AK$SUMMARY(I)
	    IF (AK$USR_NAM.EQ.'SYSTEM') THEN
	      AK$DSK_BLK=AK$DSK_BLK+BLK
	      AK$SUMMARY(I)=AK$RECORD
	      GOTO 10
	    END IF
	  END DO
	END IF
C
C_All other UIC's get the disk usage charged to the first USERNAME
C_(alphabetically ordered) with the current UIC.
C
	DO I=1,TOT_USR
	  AK$RECORD=AK$SUMMARY(I)
	  IF (GRP.EQ.AK$USR_GRP.AND.MEM.EQ.AK$USR_MEM) THEN
	    AK$DSK_BLK=AK$DSK_BLK+BLK
	    AK$SUMMARY(I)=AK$RECORD
	    GOTO 10
	  END IF
	END DO
C
	TYPE 210,GRP,MEM,BLK
 210	FORMAT('*** INFO, No match for UIC ['I3.3','I3.3'] ',/,
     &	       '          in SYSUAF.DAT,  # of DISK BLOCKS used =',I9)
C
	GOTO 10
C
 999	RETURN
	END