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