Fortran Coder

查看: 8495|回复: 3
打印 上一主题 下一主题

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

[复制链接]

4

帖子

2

主题

0

精华

新人

F 币
21 元
贡献
10 点

规矩勋章

跳转到指定楼层
楼主
发表于 2021-1-5 10:43:59 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
在网页查找过程中我找到了下面的方法


但是我在使用的过程中,程序报错

请问这种方法有效嘛
或者大大们有什么好的方法嘛
我只是想用这个方便处理一下数据,不然数据处理太麻烦了
输出的文件名最好可以按照某一个时间变量来输出

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

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

838

帖子

2

主题

0

精华

大宗师

F 币
3937 元
贡献
2339 点
沙发
发表于 2021-1-5 11:25:46 | 只看该作者
给出你的代码

4

帖子

2

主题

0

精华

新人

F 币
21 元
贡献
10 点

规矩勋章

板凳
 楼主| 发表于 2021-1-5 13:54:45 | 只看该作者
[Fortran] 纯文本查看 复制代码
01ENTRY OUTPUT
02      a0=float(iter)/10000.
03      C0=float(iter)/1000000.
04      b0=int(a0)
05      if(abs(a0-b0).le.1.D-08) then
06        WRITE(*,*)'          ITER=',ITER
07        write( cFilename , '(i05.5,a4)' ) c0, '.txt'
08        Open ( 13 , File = trim( cFilename ) )
09        do 420 k=1,Nz
10            write(13,*)Z(k),H(k),c0
11420     continue
12        Close( 13 )
13        write(12,*)'ITER=',ITER
14        CALL PRINT
15      endif

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

2038

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1675 元
贡献
715 点

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

地板
发表于 2021-1-5 15:27:55 | 只看该作者
新手建议每个程序单元(包括子程序)写上 implicit none

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

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

本版积分规则

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

GMT+8, 2025-4-21 21:45

Powered by Discuz! X3.4

© 2013-2025 Comsenz Inc.

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