SUBROUTINE LOGGER(IOUT,MUIC,MBLOCK,LBLOCK,INTT,INDATE,SEC)
C..   LOGGER.FTN     BOHDEN K. CMAYLO
C..
C..	WRITES AN ACCOUNTING FILE ON LOGOUT
C..
C..	LOGIN =LBLOCK(*,1)=+FILES
C..	LOGIN =LBLOCK(*,2)=TO EOF
C..	LOGIN =LBLOCK(*,3)=TOTAL ALLOCATED
C..	LOGIN =LBLOCK(*,4)=MAXIMUM
C..	LOGOUT =MBLOCK(*,1)=+FILES
C..	LOGOUT =MBLOCK(*,2)=TO EOF
C..	LOGOUT =MBLOCK(*,3)=TOTAL ALLOCATED
C..	LOGOUT =MBLOCK(*,4)=MAXIMUM
C..	INDATE
C..	1=YR, 2=MO, 3=DA
C..	SEC=START TIME
C..
	BYTE LGFILE(24)
C..
	DIMENSION MUIC(2),MBLOCK(2,4),LBLOCK(2,4),INDATE(5)
	DOUBLE PRECISION XFILE(3)
	EQUIVALENCE (LGFILE,XFILE)
	DATA XFILE/'SX:[005,','010]LOGG','ER.LOG  '/
	LGFILE(23)=0
C..
C..	GET DATE
C..
	CALL IDATE(IMO,IDA,IYR)
	TIM=SECNDS(0.)
C..
C..	OPEN LOGGER FILE FOR INFO
C..
	CALL ERRSET(29,.TRUE.,.FALSE.,.TRUE.,.FALSE.,100)
	IF(IOUT.GT.0) OPEN(UNIT=IOUT,NAME=XFILE,TYPE='OLD',
     1 CARRIAGECONTROL='LIST',SHARED,ACCESS='APPEND',ERR=99)
C..
C..	WRITE OUT INFO
C..
	IF(IOUT.GT.0)
     1 WRITE(IOUT,1)MUIC,INTT,(INDATE(I),I=1,3),SEC,IYR,IMO,IDA,TIM
     1 ,((LBLOCK(J,I),J=1,2),I=1,3),((MBLOCK(J,I),J=1,2),I=1,3)
1	FORMAT(2O4,O3,3I3,F8.0,3I3,F8.0,6(I4,I3))
	IF(IOUT.LE.0)
     1 TYPE 1,MUIC,INTT,(INDATE(I),I=1,3),SEC,IYR,IMO,IDA,TIM
     1 ,((LBLOCK(J,I),J=1,2),I=1,3),((MBLOCK(J,I),J=1,2),I=1,3)
	IF(IOUT.GT.0) CLOSE(UNIT=IOUT)
	RETURN
99	TYPE 199,(XFILE(I),I=1,3)
199	FORMAT('0*** ERROR *** LOGGER *** BAD LOGGER FILE =',3A8)
	RETURN
	END