在线阅读卷轴上的特定编号答案

【问题标题】：Read specified number on reals on line在线阅读卷轴上的特定编号
【发布时间】：2013-07-18 17:54:55
【问题描述】：

我正在用 Fortran 77 编写一个程序，我需要在一行上读取指定数量的 REAL 数字。例如，输入可能如下所示：

1.0 2.0 3.0 4.0

将指定一行中的值的数量。这将保存在某个值中，称为 M。

如何在一行中读取 M REAL 值。我试过用循环来做这件事，但我相信 READ 语句在执行后会跳到下一行。另外，我使用 VARIABLE INFILE 来引用文件单元。

谢谢

【问题讨论】：

stackoverflow.com/questions/11523763/…

标签： fortran77

【解决方案1】：

您可以使用READ 读取指定长度的整个数组。这是一个例子：

         PROGRAM READRL
         PARAMETER (SIZELM=100)
         DIMENSION RLIST(SIZELM)
  C      Define your M here. 
         M = 3
  C      Read the M values into the first M positions of RLIST.
         CALL RDNMRS(M,RLIST)
         END PROGRAM READ

         SUBROUTINE RDNMRS(M, RLIST)
         DIMENSION RLIST(M)
         READ(*,*) RLIST
         END SUBROUTINE RDNMRS

【讨论】：

【解决方案2】：

将您的变量定义为适合您的问题的实际大小数组。数组名称为VAR1，其大小为100。你可以把它做成任何大小。

REAL VAR1(100)
....................
READ(INFILE,*)(VAR1(I),I=1,M)
...................

希望它对你有用。

【讨论】：