0

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

1.0 2.0 3.0 4.0

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

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

谢谢

4

2 回答 2

0

您可以使用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
于 2013-01-07T12:46:09.447 回答
0

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

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

希望对你有效。

于 2013-07-18T09:54:55.927 回答