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