用指针。

我一直不明白如何用 Fortran 指针操作文件，楼上的可否给个例子？

我一般是用直接读取方式

我的想法是，文件需要多次操作部分读入内存后，利用指针来改变变量，这样可以减少内存中的数据交换量，至于读入内存后的数据操作就是一般的指针操作，就是C语言操作文件也是要先读入内存的,其实没有什么所谓直接操作文件的说法,都要从外存读入内存.下面是彭国伦的例子(Fortran 95程序设计10-4),我这里就偷懒了.嘿嘿.

module func
! person类型最少占用18 bytes
! 因为它有10个字元及两个浮点数
type person
  character(len=10) :: name
  real :: height, weight
end type
! pperson类型通常占用4 bytes
! 因为它里面只有一个指针, 指针在PC中固定使用4 bytes
type pperson
  type(person), pointer :: p
end type

contains 
subroutine sort(p)
  implicit none
  type(pperson) :: p(:)
  type(pperson) :: temp
  integer i,j,s

  s = size(p,1)
  do i=1,s-1
    do j=i+1, s
      if ( p(j)%p%height < p(i)%p%height ) then
        temp = p(i)
        p(i) = p(j)
        p(j) = temp
      end if
    end do
  end do

  return
end subroutine

end module

program ex1009
  use func
  implicit none
  type(person), target :: p(5) = (/ person("陈同学", 180.0, 75.0), &
                                    person("黄同学", 170.0, 65.0), &
                                    person("刘同学", 175.0, 80.0), &
                                    person("蔡同学", 182.0, 78.0), &
                                    person("许同学", 178.0, 70.0)  &
                                 /) 
  type(pperson) :: pt(5)
  integer i
  ! 把pt数组中的指针全部指向数组p
  forall(i=1:5)
    pt(i)%p => p(i)
  end forall
  ! 依照身高从小到大排序
  call sort(pt)
  ! 输出排序的结果
  write(*,"(5(A8,F6.1,F5.1/))") (pt(i)%p, i=1,5)

  stop
end

指针我懂。

可是这跟楼主的问题好像没什么关系。

能否结合指针及较大的文件综合使用给予讲解？