fortran读取第一列并赋值

假设你有一个名为 `data.txt` 的文本文件，其中包含以下数据：

1 2 3
4 5 6
7 8 9

要读取该文件的第一列，并将其赋值给一个数组，可以使用以下 Fortran 代码：

PROGRAM read_first_column
  IMPLICIT NONE
  
  INTEGER :: i
  REAL :: column(3)
  
  OPEN(UNIT=10, FILE='data.txt', STATUS='OLD')
  
  DO i = 1, 3
    READ(10,*) column(i), _
              ! Read the first column of each row
  END DO
  
  CLOSE(10)
  
  ! Print the values of the first column
  PRINT*, 'First column:', column
  
END PROGRAM read_first_column

在上述代码中，我们首先定义了一个名为 `column` 的实数数组，大小为 3。然后，我们使用 `OPEN` 语句打开名为 `data.txt` 的文件，并使用 `READ` 语句在循环中逐行读取文件的第一列，并将其存储在 `column` 数组中。最后，我们使用 `CLOSE` 语句关闭文件，并使用 `PRINT` 语句打印 `column` 数组的值。

相关问题

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中存储了文本文件中第一行的数据，可以在之后的程序中使用它们。