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` 数组的值。