FORTRAN 写()

Question

在开始之前，我必须先声明一下，我是 FORTRAN 的新手。 我正在维护 1978 年的一段遗留代码。它的目的是从文件中读取一些数据值，处理这些值，然后将处理后的值输出到另一个文本文件。

给出以下 FORTRAN 代码：

      INTEGER NM,STUBS,I,J,K
      PARAMETER (NM=67,STUBS=43)
      INTEGER*4 MDS(STUBS,NM)

      CALL OPEN$A(A$RDWR,'/home/test/data.txt', MAXPATHLEN,1)
      CALL OPEN$A(A$WRIT,'out',11,2)

      DO 90 I=1,2
          READ(1,82) STUB     
          !-- data processing --!     
          WRITE(2,80) STUB,(MDS(I,J),J=1,24)
90    CONTINUE

80    FORMAT(/1X,A24,25I5)
82    FORMAT(1X,A24,25F5,1)

我的问题是关于 WRITE() 语句。

我理解 (2,80) 指的是打开的文件输出流并指向文件 'out' 并由数字 2 引用。我理解 80 指的是标签 80 引用的格式语句。

STUB 用于存储从文件输入 1 读取的值。这些值经过处理，并保存到 MDS(I,J) > 在我省略的 !-- 数据处理 --! 部分中。

我假设 (MDS(I,J),J=1,24) 会将 24 个整数值写入输出文件是否正确？ 换句话说，从1循环到24？

Answer 1

是的，你是对的。 语法 (MDS(I,J), J=1,24) 是一个“隐含 DO-loop" 通常用于此类情况。