Fortran批量生成文件

ScienceSoft
ScienceSoft
ScienceSoft
240
文章
67
评论
3月 28, 201503:57:57
评论

设要生成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
  • 本文由 发表于 3月 28, 201503:57:57
  • 转载请务必保留本文链接:https://www.sciencesoft.cn/fortran-bat-file-generate/
Fortran 语法备忘录 (高级) 编程软件

Fortran 语法备忘录 (高级)

混合语言编程  Mixed-Language-Programming 用Fortran调用C++语言的程序 例如一个简单的C++语言程序,求直角三角形斜边长度的达哥拉斯公式:保存为crout.cpp文...
福利:intel Fortran教育版免费申请 编程软件

福利:intel Fortran教育版免费申请

使用Fortran编程的同学用得最多的编译器恐怕就是intel Fortran了,但是这个编译器超级贵,于是到处找破解版,现在intel公司提供给学生申请免费教育版的机会,当然前提是你要有教育邮箱,国...
学习Fortran必备网站-Fortran Coder 编程软件

学习Fortran必备网站-Fortran Coder

目前使用Fortran语言编程的人应该是小众了,好在有一部分人还在在坚守,并且为大家默默做着贡献。 Fortran Coder 始于2006年,是一个以科学计算编程为主题的非盈利性研讨团体。大多数由各...
匿名

发表评论

匿名网友 填写信息

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