fortran读取文件的代码

在Fortran中，读取文件通常使用内置的I/O模块（如`FILE`或`IO_FILE`），这里提供一个基本的例子，展示如何打开一个文本文件并逐行读取内容：

program read_file_example
implicit none
character(len=100) :: filename, line
integer :: unit, status

! 定义文件名
filename = 'example.txt'

! 打开文件（假设是追加模式）
unit = 10
open(newunit=unit, file=filename, access='append', &
     form='formatted', action='read', status='old', iostat=status)

if (status .ne. 0) then
    write(*,*) "Error opening file:", status
    stop
end if

! 读取文件内容
do
    ! 打开一个新的记录（line）
    open(unit=unit, position='new', recl=1)
    
    ! 读取一行数据
    read(unit, *, end=exit_loop) line
    
    ! 输出读取的内容
    write(*,*) "Line:", line
    
exit_loop: close(unit)
end do

close(unit)

contains
subroutine exit_loop()
    write(*,*) "End of file reached."
    exit
end subroutine
end program read_file_example

在这个例子中，我们首先尝试打开文件，并检查是否成功。然后通过循环不断读取文件直到文件结束。每个新记录都表示文件的一行，`read`语句会读取这一行的数据。