SUBROUTINE RATCLOSE (FD)
      INTEGER FD
      COMMON /CHANNEL/ CHANNEL(0:15), APOS, VPOS, LINEBUF(68,0:15), NC(0
     *:15), IC(0:15), MD(0:15)
      INTEGER CHANNEL
      INTEGER APOS
      INTEGER VPOS
      INTEGER LINEBUF
      INTEGER NC
      INTEGER IC
      INTEGER MD
      IF(.NOT.(0 .LE. FD .AND. FD .LE. 15))GOTO 23000
      CALL FLUSH (FD)
      CALL CLOSE (FD, IER)
      CHANNEL(FD) = 10001
      MD(FD) = 2
23000 CONTINUE
      RETURN
      END