open(20,file="n100Phi="
        1        //char(48+int(dphi+1.e-6))//"."
        1        //char(48+mod(int((dphi+1.e-6)*10),10))
        1        //char(48+mod(int((dphi+1.e-6)*100),10))
        1        //".dat")

Originally posted by tjyl at 2009-8-27 09:31:
http://bbs.pfan.cn/post-102851.html
引用比别人的现成的例子：

2. 如何用Fortran批量生成文件？
设要生成4000个文件，文件名为AA1-AA4000，如何写循环生成文件,而不用写4000次write命令呢?

...

Originally posted by argo at 2009-8-27 14:33:
以前用的一种方法，供参考，f77的语法
[code]
        open(20,file="n100Phi="
        1        //char(48+int(dphi+1.e-6))//"."
        1        //char(48+mod(int((dphi+1.e-6)*10),10))
        1        //char(48+mod(int((dphi ...