file-io - 在 Fortran 90 中从文件末尾读取

Question

我的问题是如何从文本文件的末尾开始阅读。例如，

do
  read(1,*) i
  print *,i
end do

将读取文件 1 中的每一行，并将内容打印到终端。我如何从文件末尾开始执行此操作？

Answer 1

您可以通过在读取语句中使用inquire、access=stream 和pos 标记来实现您想要的。 10 分钟的快速练习给出以下结果。

program foo
   implicit none
   integer fd, i, j, m, n
   character, allocatable :: s(:)
   character :: c
   open(newunit=fd,file='foo.f90',access='stream',status='old', &
   position='append')
   inquire(fd, pos=n)
   allocate(s(n))
   m = 1
   do i = n-1, 1, -1
      read(fd, pos=i) c
      s(m:m) = c
      if (iachar(c) == 10) then
         do j = m, 1, -1
            write(*,'(A1)',advance='no') s(j)
         end do
         m = 1
      else
         m = m + 1
      end if
   end do
   write(*,*)
   do j = m-1, 1, -1
      write(*,'(A1)',advance='no') s(j)
   end do
   write(*,*)
   close(fd)
end program foo

将其保存到名为 foo.f90 的文件中，编译并运行。这里有人可以让它更优雅。编辑原始版本:不需要为 s(j) 使用数组部分。