Fortran批量生成文件

avatar 三月 28, 201503:57:57 评论 1,034 views

设要生成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
我的微信公众号
分享科研软件、科研方法,为你的科研助力。
avatar

发表评论

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