fortran读取文件跳过前三行

Fortran是一种主要用于数值计算的编程语言，对于读取文件并跳过特定行的操作，你可以使用`INQUIRE`语句来获取文件的一些属性，然后结合`OPEN`和`READ`语句来实现。下面是一个简单的示例，展示如何跳过前3行：

! 首先，声明文件名和一些变量用于计数
character(len=*), dimension(3) :: skip_lines ! 存储需要跳过的行数
integer :: i, file_unit

! 使用INQUIRE获取文件的实际尺寸，假设文件名是'file.txt'
call inquire(file='file.txt', opened=file_unit)
skip_lines = (/ (i=1,3), size(skip_lines) /)

! 打开文件
open(unit=file_unit, file='file.txt', status='old')

! 跳过前三行
do i = 1, size(skip_lines)
   if (file_unit .ne. 0) then
      read(file_unit, *, end=exit_reading) ! 空格表示读取整行
   else
      exit_reading
   end if
end do

! 主体读取内容（从第四行开始）
exit_reading:
do
   read(file_unit, *) line ! 读取一行存储到变量line中
   ! ... 进行后续处理，如打印或分析line的内容
end do

! 关闭文件
close(file_unit)