如何用fortran来读取批量文件，然后处理后在批量读出?已有程序只适合单个处理，怎样自动循环处理所有文件

假设有N个文件 1.txt, 2.txt,.......N.txt(可以是其它的文件类型)
新建一个txt文件，写入这N个文件的地址，如 d:\...\1.txt
c:\...\2.txt
............
在fortran中适当位置加入代码 character（79） aaaa
character (79) buffer
...................
open(10,file=刚才建立的文件的文件名,&
access="sequential", status="old")
do while(.true.)
read(10, fmt="(A79)") aaaa
open(11,file=aaaa,&
access="sequential", status="old")
read(11, fmt="(A79)") buffer
你的处理程序
end do
这个写得比较简陋

看到一个思路：把数据文件名取出来，写到一个文件list.txt里面，然后fortran循环读入这个文件，每次打开相应数据文件。具体不知怎么实现~求高手！