fortran读txt

Fortran 读取文本文件可以使用 `OPEN` 和 `READ` 命令。以下是一个简单的例子：

program read_txt
  implicit none
  integer :: i, n
  real :: data(100)
  character(len=20) :: filename
  filename = "data.txt"
  
  ! 打开文件
  open(unit=10, file=filename, status="old")
  
  ! 读取数据
  n = 0
  do
    read(10, *, iostat=i)
    if (i /= 0) exit
    n = n + 1
    read(10, *) data(n)
  end do
  
  ! 关闭文件
  close(10)
  
  ! 输出数据
  do i = 1, n
    print *, data(i)
  end do
end program read_txt

在这个例子中，我们首先定义了一个 `filename` 字符串变量来指定要读取的文件名。然后，我们使用 `OPEN` 命令打开文件，并使用 `READ` 命令循环读取文件中的数据。每次读取一行数据，如果读取到文件末尾则退出循环。在每行数据中，我们使用 `*` 通配符来忽略数据格式，然后将读取到的数据存储在 `data` 数组中。最后，我们关闭文件并输出读取到的数据。