利用fortran循环读取多个文件

LiShuangshuang

我将所有文件名均读入dir00.txt，里面有4个文本文件，分别存放一个整数，但是在运行时出现无法打开文件的情况（ps:编写这个程序为了检验能不能实现多个文件读取的问题，来解决自己的问题）
program main
implicit none
integer a ,i
integer::b=0
character*10 filename(4)
!读入文件名称
open(10,file='e:\3b42\txt\dir00.txt')
do i=1,4
    read(10,*) filename(i)
end do
do i=1,4
    open(12,file=filename(i))
    read (12,*) a
    close(12)
    b=a+b
end do
print*,b
close(10)
end
运行结果：

                               
登录/注册后可看大图

初次发帖，求大家帮帮忙，跪求啊

hupp1202

character*10 文件名是不是超了？

LiShuangshuang

的确是超了，但是改过来了还是不行

nomadprince

正在学习，多谢分享。。。

LiShuangshuang

问题出在12号文件需要加路径