我倒不觉得是因为文件里是否存在内容而引起的效率差别。
个人认为是硬盘缓存惹的祸。(这个取决于操作系统,乃至硬盘配置)
把你的代码修改如下:
[Fortran] 纯文本查看 复制代码 program main
implicit none
real*16::x=1.0/3.0q0
real*16::y=1.0/5.0q0
integer i
REAL*4 :: T1,T2
CALL TTIME(T1)
open(unit=10,file='x:\xx.dat',status='old') !// 旧文件
do i=1,1000000
write(10,*)x
enddo
CLOSE(10,status='delete') !// 删除旧文件
CALL TTIME(T2)
WRITE(*,*)'写文件耗时:',T2-T1
CALL TTIME(T1)
open(unit=10,file='x:\xx.dat',status='new') !// 新建文件
do i=1,1000000
write(10,*)y
enddo
CLOSE(10)
CALL TTIME(T2)
WRITE(*,*)'写文件耗时:',T2-T1
pause
end
SUBROUTINE TTIME(T)
REAL(4) T,TA(2)
T=ETIME(TA)
END SUBROUTINE
运行结果,与你的代码差不多。这说明,先写已经存在的文件更慢,而后写新文件更快。
这说明效率与新旧文件无关,只与先后顺序有关。
|