Fortran批量生成文件

ScienceSoft 编程软件评论阅读模式

设要生成4000个文件,文件名为AA1-AA4000,如何写循环生成文件,而不用写4000次write命令呢?!这时可以用内部文件来实现该功能:

PROGRAM MAIN

CHARACTER(LEN=80) :: FILENAME,FORM

INTEGER :: I

DO I=1,4000

SELECT CASE (I)

CASE (1:9)

WRITE(FORM,"(I1)") I

CASE (10:99)

WRITE(FORM,"(I2)") I

CASE (100:999)

WRITE(FORM,"(I3)") I

CASE (1000:9999)

WRITE(FORM,"(I4)") I

END SELECT

WRITE(FILENAME,*) "AA",TRIM(FORM),".TXT"

OPEN(10,FILE=FILENAME)

WRITE(10,*) I

CLOSE(10)

END DO

END PROGRAM

上面程序中字符变量FORM、FILENAME充当了内部文件,用来存储临时内容,通过格式化输出,可以对其内容灵活控制。

via Fortran的点点滴滴——批量生成文件

weinxin
我的微信公众号
分享科研软件、科研方法,为你的科研助力。
ScienceSoft
  • 本文由 发表于 28 3 月, 2015 03:57:57
  • 转载请务必保留本文链接:https://www.sciencesoft.cn/fortran-bat-file-generate/
评论  0  访客  0
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定