-fortran：从文本文件中读取数字

Question

我有一个包含多个列和几行的数字文本文件。我已经尝试了几种方法，包括数组，但最好的结果是我只能得到整列的3列。我有什么想法可以读取Fortran 77中的所有数据吗？

open(unit=1, file='f', status='old')

do i = 1, 100
    read(1, *) x(i), y(i), z(i)
    write(6, * ) x(i), y(i), z(i)
enddo

甚至二维数组：

do i = 1, 100
    do j = 1, 50
        read(1, *) x(i, j)
        write(6, *) x(i, j)
    enddo 
enddo

或更改open(..., access='direct')

因为我有这样的文件，所以没有一个成功：

1 2 4.5 77 89 4 3 2...
2 4 4 5 6 73 5 3.4 ...
1 2 4 5  67  8 99...
...

Answer 1

数据似乎没有任何特定结构。 您可以使用列表导向输入：

  program main
  real a(100)
  read (*,*) a
  print *,a
  end

我建议您不要在代码中使用任何小于10的单位数字用于您自己的目的。