fortran77 - 在线读取指定的实数

Question

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

1.0 2.0 3.0 4.0

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

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

谢谢

Answer 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

Answer 2

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

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

希望对你有效。