我正在用 Fortran 77 编写一个程序,我需要在一行上读取指定数量的 REAL 数字。例如,输入可能如下所示:
1.0 2.0 3.0 4.0
将指定一行上的值的数量。这将保持在某个值中,称为 M。
如何在一行上读取 M REAL 值。我试过用循环来做这件事,但我相信 READ 语句在执行后会跳到下一行。另外,我使用 VARIABLE INFILE 来引用文件单元。
谢谢
我正在用 Fortran 77 编写一个程序,我需要在一行上读取指定数量的 REAL 数字。例如,输入可能如下所示:
1.0 2.0 3.0 4.0
将指定一行上的值的数量。这将保持在某个值中,称为 M。
如何在一行上读取 M REAL 值。我试过用循环来做这件事,但我相信 READ 语句在执行后会跳到下一行。另外,我使用 VARIABLE INFILE 来引用文件单元。
谢谢
您可以使用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
将您的变量定义为适合您的问题的实际大小数组。数组名称为VAR1
,其大小为100
。你可以把它做成任何大小。
REAL VAR1(100)
....................
READ(INFILE,*)(VAR1(I),I=1,M)
...................
希望对你有效。