放到字符数组里面，数组循环可以不？
不会这个你没想到把？？

1楼的方法可以实现：读取文件名至定义的数组中去 ，然后用该数组实现循环。

新手，不知道如何实现，请明示

站内搜索了一下, 参考一下这个帖子, 命令有问题的话再站内找一下.
(似乎新版找不到站内搜索, 先切换到旧版然后到版面最下面.)
http://bbs.pfan.cn/post-316174.html

[quote]
新手，不知道如何实现，请明示[/quote]


CHARACTER(20)    CH(100)
CH(1)=
CH(2)=
.
.
.
以上为赋值。填入文名
DO I=1,100
OPEN(1,FILE=CH(I))  !1也可以改成I
中间过程

CLOSE(1)            !1也可以改成I
ENDDO

[quote][quote]
新手，不知道如何实现，请明示[/quote]


CHARACTER(20)    CH(100)
CH(1)=
CH(2)=
.
.
.
以上为赋值。填入文名
DO I=1,100
OPEN(1,FILE=CH(I))  !1也可以改成I
中间过程

CLOSE(1)            !1也可以改成I
ENDDO[/quote]
这样如果文件名很多，很不方便，可以先把文件名存放在一个自己新建的文件中，然后读取值数组中，方便以后更改和添加：
PROGRAM READFILE
CHARACTER(20)    CH(100)
OPEN(2010,FILE='NAME.TXT,'STATUS='OLD',FORM='FORMATTED')                 
!NAME.TXT是自己新建的存有这些文件名的文件
DO 1 I=1,N            !N是文件名个数
READ(2010,*),CH(I)
1  CONTINUE
DO 2 I=1,100
OPEN(1,FILE=CH(I))  !1也可以改成I
中间过程

CLOSE(1)            !1也可以改成I
2 CONTINUE
END PROGRAM

http://bbs.pfan.cn/post-316174.html
里面提供了用系统命令自动生成一个包含文件名的文件, 然后再结合读取方式实现.

如果你仔细观察
文件名都是
M09C0500.******

character*15 :: filename

do i=100000,999999
     write(filename,'(A9,I6)') 'M09C0500.',i
     open(100,file=filename,status='old',action='read',err=999)
     read(100,....
     close(100)
999 end do

或者
character*15 :: filename
logical :: exists

do i=100000,999999
     write(filename,'(A9,I6)') 'M09C0500.',i
     inquire(file= filename, exist= exists)
     if(exists) then
            open(100,file=filename,status='old',action='read')
            read(100,....
            close(100)
     end if
end do

"可以先把文件名存放在一个自己新建的文件中，然后读取值数组中，方便以后更改和添加"

这一步是手工的吗？还是可以用额外的程序实现？