C********************************************
C********************************************
      SUBROUTINE FCLOSE
C********************************************
C********************************************
C
      CLOSE (31)
      CLOSE (32)
      CLOSE (33)
      CLOSE (34)
      CLOSE (35)
      CLOSE (36)
      CLOSE (37)
      CLOSE (38)
      CLOSE (39)
C
C
      CLOSE (81)
      CLOSE (82)
      CLOSE (83)
      CLOSE (84)
      CLOSE (85)
      CLOSE (86)
      CLOSE (87)
      CLOSE (88)
      CLOSE (89)
C
      CLOSE(71)
      CLOSE(72)
C
      CLOSE(16)
C
      CLOSE(61)
C
      RETURN
      END
