在线实数读取指定的数字

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)
...................

希望它适合你。