C********************************************
C********************************************
      SUBROUTINE FCLOSE
C********************************************
C********************************************
C
      CLOSE (31)
      CLOSE (32)
      CLOSE (33)
      CLOSE (34)
      CLOSE (35)
C
C
      CLOSE (81)
      CLOSE (82)
      CLOSE (83)
      CLOSE (84)
      CLOSE (85)
C
      CLOSE(72)
C
      CLOSE(16)
C
C
      RETURN
      END
