fortran77读取前几列并赋值

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

1 2 3
4 5 6
7 8 9

要读取该文件的前两列，并将它们赋值给两个数组，可以使用以下 Fortran 77 代码：

      PROGRAM read_first_two_columns
      IMPLICIT NONE
      
      INTEGER i
      REAL column1(3), column2(3)
      
      OPEN(UNIT=10, FILE='data.txt', STATUS='OLD')
      
      DO i = 1, 3
         READ(10,*) column1(i), column2(i)
         ! Read the first and second columns of each row
      END DO
      
      CLOSE(10)
      
      ! Print the values of the first and second columns
      WRITE(*,*) 'First column:', column1
      WRITE(*,*) 'Second column:', column2
      
      END PROGRAM read_first_two_columns

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