主题:fortran读取文件批处理
我的程序是:
……………………
open(3,file='ordinary.txt') !ordinary.txt.为读取文件目录
1003 read(3,'(a11)',end=3000)n_n !n_n为读取文件名
open(2)
open(1)
………………………… !计算过程
…………………………
………………………… !输出数据
close(1)
close(2)
goto 1003
3000 continue
stop
end
如上所示,程序运行无误,可出现结果却是将各个读取文件的数据累加求得,意即:
针对1.txt的输出结果无误,针对2.txt的输出结果为1和2输入数据累加的结果,3.txt的输出结果为1、2、3输入数据累加的结果,何解?
请不吝赐教,谢谢!
……………………
open(3,file='ordinary.txt') !ordinary.txt.为读取文件目录
1003 read(3,'(a11)',end=3000)n_n !n_n为读取文件名
open(2)
open(1)
………………………… !计算过程
…………………………
………………………… !输出数据
close(1)
close(2)
goto 1003
3000 continue
stop
end
如上所示,程序运行无误,可出现结果却是将各个读取文件的数据累加求得,意即:
针对1.txt的输出结果无误,针对2.txt的输出结果为1和2输入数据累加的结果,3.txt的输出结果为1、2、3输入数据累加的结果,何解?
请不吝赐教,谢谢!