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
小修改一下就行了
