cfiles.for

来自「著名的berkeley大学开发的结构动力非线性分析程序」· FOR 代码 · 共 22 行

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