	PARAMETER DIR_RECORD_LENGTH = 115

	COMMON /BULL_DIR/ DESCRIP,FROM,DATE,TIME,LENGTH,EXDATE,EXTIME
     &	,SYSTEM,BLOCK,NEWEST_EXDATE,NEWEST_EXTIME,NEWEST_DATE,NEWEST_TIME
     &	,NBULL,NBLOCK,SHUTDOWN,SHUTDOWN_DATE,SHUTDOWN_TIME,NEMPTY
	CHARACTER*53 DESCRIP
	CHARACTER*12 FROM
	CHARACTER*11 DATE,EXDATE,NEWEST_EXDATE,NEWEST_DATE,SHUTDOWN_DATE
	CHARACTER*8 TIME,EXTIME,NEWEST_EXTIME,NEWEST_TIME,SHUTDOWN_TIME
	LOGICAL SYSTEM

	CHARACTER*(DIR_RECORD_LENGTH) BULLDIR_ENTRY
	EQUIVALENCE (DESCRIP,BULLDIR_ENTRY)

	CHARACTER*(DIR_RECORD_LENGTH) BULLDIR_HEADER
	EQUIVALENCE (NEWEST_EXDATE,BULLDIR_HEADER)

	CHARACTER*116 BULLDIR_COM		! This value + 12 must be
	EQUIVALENCE (DESCRIP,BULLDIR_COM)	! divisable by 4
