Fortran实现批量处理的方法总结（读取一个目录下所有文件）(支持WIN7)

奚言之梦

好棒呀！！！！毕业论文刚好要用，特别及时！

xuehaograds

谢谢楼主，之前写代码还在为这个问题犯难

applewen

感谢分享，我怎么才能下载下来呀

3415519943

open(1,file='dir.txt',status='old')
        10 continue
        read(1,*,end=20)path
        !print*,index(Path,"dir.txt")
        if(index(Path,"dir.txt")==0)then
                !print*,path
                open(2,file=''//trim(Path)//'',status='old')
                read(2,*) a
                close(2)
                b=b+a
        endif
        goto 10
20 close(1)
第一个文件这段代码会导致运行报错，因为读入path后，再打开path，a不一定是integer，而在定义中a，b是integer