SUBROUTINE LOGOUT(IOUT,MUIC,MBLOCK,INTT,INDATE,NDEV,SEC0)
C..
C..	BOHDEN K. CMAYLO, JUL 82
C..
C..	THIS ROUTINE (ALONG WITH KBLOCK) GETS LATEST
C..	LOGIN STORAGE OF INFO FROM FILE SX:[5,10]LOGGER.1ST
C..
C..	LOGGER.1ST   16 WORD RECORD; 1=TT0, 2=TT1, ETC
C..
C..	1=UIC (GROUP)
C..	2=UIC (MEMBER)
C..	3=YR
C..	4=MO
C..	5=DA
C..	6-7=SECONDS SINCE MIDNIGHT
C..	8=FILES LOGGED IN
C..	9-10=BLOCKS USED
C..	11-12=BLOCKS ALLOCATED
C..	13-14=MAX BLOCKS (RETURNED FROM LOGIN)
C..	15-16=DEVICE (NO COLON)
C..
	DIMENSION INPUT(16),MUIC(2),MBLOCK(2,4),INDATE(5)
	BYTE INFILE(24),INPUTB(32),NDEV(5)
	DOUBLE PRECISION XFILE(3)
	EQUIVALENCE (SECS,INPUT(6)),(INPUT,INPUTB)
	EQUIVALENCE (INFILE,XFILE)
	DATA XFILE/'SX:[5,10',']LOGGER.','1ST     '/
C..
	IF(INTT.LT.0.OR.INTT.GT.63) RETURN
	INREC=INTT+1
	INFILE(20)=0
	CALL ERRSET(29,.TRUE.,.FALSE.,.TRUE.,.FALSE.,100)
	OPEN(UNIT=IOUT,NAME=XFILE,ACCESS='DIRECT',FORM='UNFORMATTED',
     1 MAXREC=64,RECORDSIZE=8,SHARED,TYPE='OLD',ERR=99)
C..
C..	RECOVER STORED RESULTS
C..
	JREC=INREC
	READ(IOUT'INREC)INPUT
C.. RESET TO RESTART
C.. GET UIC
	MUIC(1)=INPUT(1)
	INPUT(1)=0
	WRITE(IOUT'JREC)INPUT
	CLOSE(UNIT=IOUT)
C..REST OF UICUIC
	MUIC(2)=INPUT(2)
C..FILES AND STORAGE
	CALL WORDDO(MBLOCK(2,1),MBLOCK(2,4),INPUT(8))
	MBLOCK(1,1)=0
C..DATE AND TIME
	CALL WORDDO(INDATE,INDATE(3),INPUT(3))
	SEC0=SECS
C.. DEVICE
	CALL BYTEDO(NDEV,NDEV(4),INPUTB(29))
	NDEV(5)=':'
C..
	RETURN
99	TYPE 199,(XFILE(I),I=1,3)
199	FORMAT('0*** ERROR *** LOGOUT *** BAD LOGGER FILE =',3A8)
	RETURN
	END