DO I=1,4 
     WRITE(FILENAME,"(a2,i1)") "QQ",I 
 END DO

这样就行了。因为有 "QQ"，所以必须为它指定格式符，也就是 a2，表示2个字符。然后才是 i

不过我不明白，你这样循环输入到同一个字符串 FILENAME 里有什么意义？

他就等同于：

     WRITE(FILENAME,"(a2,i1)") "QQ",4

[quote]DO I=1,4
WRITE(FILENAME,"(a2,i1)") "QQ",I
END DO

这样就行了。因为有 "QQ"，所以必须为它指定格式符，也就是 a2，表示2个字符。然后才是 i

不过我不明白，你这样循环输入到同一个字符串 FILENAME 里有什么意义？

他就等同于：

WRITE(FILENAME,"(a2,i1)") "QQ",4[/quote]
这只是我摘取的代码的一部分，主要是读入一些名称相近的文件。