Fortran Coder

查看: 8041|回复: 3

[输入输出] 如何在fortran中输出带有变量的文件名

[复制链接]

4

帖子

2

主题

0

精华

新人

F 币
21 元
贡献
10 点

规矩勋章

发表于 2021-1-5 10:43:59 | 显示全部楼层 |阅读模式
在网页查找过程中我找到了下面的方法

9ZSVNN]5LS(K@X[H4NH2.png
但是我在使用的过程中,程序报错
LW3{_5QT9QVY5`1I)$)1HIE.png
请问这种方法有效嘛
或者大大们有什么好的方法嘛
我只是想用这个方便处理一下数据,不然数据处理太麻烦了
输出的文件名最好可以按照某一个时间变量来输出

如果不行也可以按照0,1,2,3 。。。这种顺序
各位大大帮帮孩子

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
发表于 2021-1-5 11:25:46 | 显示全部楼层
给出你的代码

4

帖子

2

主题

0

精华

新人

F 币
21 元
贡献
10 点

规矩勋章

 楼主| 发表于 2021-1-5 13:54:45 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
ENTRY OUTPUT
      a0=float(iter)/10000.
      C0=float(iter)/1000000.
      b0=int(a0)
      if(abs(a0-b0).le.1.D-08) then
        WRITE(*,*)'          ITER=',ITER
        write( cFilename , '(i05.5,a4)' ) c0, '.txt'
        Open ( 13 , File = trim( cFilename ) )
        do 420 k=1,Nz
            write(13,*)Z(k),H(k),c0
420     continue
        Close( 13 )
        write(12,*)'ITER=',ITER
        CALL PRINT
      endif

这是代码其中的一部分,求助大大帮帮忙
还有一句,character(9) :: cFilename 在整个程序最初的地方

2031

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1632 元
贡献
705 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2021-1-5 15:27:55 | 显示全部楼层
新手建议每个程序单元(包括子程序)写上 implicit none

字符串需要定义。
character(len=12) :: cFilename

定义需要写在使用它的程序单元里。不同程序单元之间,变量命名是独立的。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-9 20:37

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表