fortran在linux如何读取文件

在Fortran中，可以使用标准库中的文件I/O函数来读取文件

program read_file
    implicit none

    character(len=256) :: filename
    character(len=100) :: line
    integer :: i, io_status

    filename = 'input.txt'  ! 你可以将此处的文件名更改为你要读取的文件名

    open(unit=10, file=filename, status='old', access='sequential', iostat=io_status)
    if (io_status /= 0) then
        write(*, '(A)') 'Error opening file: ', filename
        stop 1
    end if

    do i = 1, 10  ! 读取前10行，你可以根据需要更改这个值
        read(10, '(A)', iostat=io_status) line
        if (io_status /= 0) then
            exit  ! 如果到达文件末尾，退出循环
        end if
        write(*, '(A)') line
    end do

    close(10)
end program read_file

这个示例程序首先打开一个名为input.txt的文件（你可以将其更改为你要读取的文件名），然后逐行读取文件的前10行（你可以根据需要更改这个值），并将每一行输出到屏幕上。在读取完文件后，程序将关闭文件。

注意：这个示例假设文件中的每一行都不超过100个字符。如果文件中的某些行可能更长，你需要相应地调整line变量的长度。