cfiles.for

著名的berkeley大学开发的结构动力非线性分析程序

C*****
      SUBROUTINE CFILES
      CLOSE (1)
      CLOSE (2)
      CLOSE (3)
      CLOSE (4)
      CLOSE (7)
      CLOSE (8)
      CLOSE (9)
      CLOSE (11)
      CLOSE (12)
      CLOSE (13)
      CLOSE (21)
      CLOSE (22)
      CLOSE (23)
      CLOSE (24)
      CLOSE (25)
      CLOSE (26)
      CLOSE (27)
      STOP
      END