在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變量的長度。
