1! PR 14837 2 INTEGER UNIT 3 OPEN(FILE='CSEQ', UNIT=23) 4 INQUIRE(FILE='CSEQ',NUMBER=UNIT) 5 IF (UNIT.NE.23) STOP 1 6 CLOSE(UNIT, STATUS='DELETE') 7 END 8