当前位置: 代码迷 >> 其他开发语言 >> fortran怎么在循环语句中多次读写同一个txt文件
  详细解决方案

fortran怎么在循环语句中多次读写同一个txt文件

热度:9916   发布时间:2013-02-26 00:00:00.0
fortran如何在循环语句中多次读写同一个txt文件
aj=1
do while(aj.le.10)
open(1,file='grbdata.txt',form='formatted',recl=150,position='rewind')
i=1
do While (i.le.645)
read(1,*)Epo,Epamin,Epamax,Fob,Fobmin,Fobmax
xxx=Epo
write(*,*)xxx,aj
end do 
aj=aj+1
close(1)
end do

每次循环后 如何再次重新读取txt啊 我这里循环一次就说grbdata.txt已经读到文件底部了

------解决方案--------------------------------------------------------
aj=1
do while(aj.le.10)
open(1,file='grbdata.txt',form='formatted',recl=150,position='rewind')
i=1
do While (i.le.645)
read(1,*,end=1)Epo,Epamin,Epamax,Fob,Fobmin,Fobmax
xxx=Epo
write(*,*)xxx,aj
end do 
aj=aj+1
1 close(1)!前面的1是用来标记的
end do



小修改一下就行了