fortran77 读取txt第一行数据并赋值

在Fortran77中，可以使用OPEN语句打开文本文件，然后使用READ语句读取文件中的数据。要读取txt文件的第一行数据并赋值给变量，可以使用以下代码：

CHARACTER*80 :: line
REAL :: x, y, z

OPEN(1, FILE='data.txt', STATUS='OLD')
READ(1, '(A)') line
READ(line, *) x, y, z
CLOSE(1)

! 现在x, y, z中存储了文本文件中第一行的数据

上述代码打开名为"data.txt"的文本文件，并使用READ语句读取文件中的第一行数据。将读取到的数据存储在名为"line"的字符串变量中。接下来，使用READ语句将line字符串解析为三个实数x, y, z。最后，关闭文件。现在，x, y, z中存储了文本文件中第一行的数据，可以在之后的程序中使用它们。