在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变量的长度。
