Fortran Coder

查看: 11445|回复: 8
打印 上一主题 下一主题

[文件读写] 计算结果无法写入文件

[复制链接]

4

帖子

2

主题

0

精华

新人

F 币
26 元
贡献
12 点
跳转到指定楼层
楼主
发表于 2018-12-19 20:22:32 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
图一出现异常,图二为源代码显示红色字体部分,大家知道是什么原因嘛。(个人觉得是不知道什么原因,将计算结果写入DAT文件中)
本人fortran新手,求指教。具体该怎么做。谢谢大家。


捕获.PNG (39.71 KB, 下载次数: 315)

捕获.PNG

捕获.PNG (12.94 KB, 下载次数: 321)

捕获.PNG
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2018-12-19 20:38:43 | 只看该作者

4

帖子

2

主题

0

精华

新人

F 币
26 元
贡献
12 点
板凳
 楼主| 发表于 2018-12-19 20:51:32 | 只看该作者
li913 发表于 2018-12-19 20:38
http://fcode.cn/guide-36-1.html
看问题 Q2003

先谢谢您了,那为什么我的程序可以运行,但是无法将计算结果写入文本文件呢

4

帖子

2

主题

0

精华

新人

F 币
26 元
贡献
12 点
地板
 楼主| 发表于 2018-12-19 20:52:12 | 只看该作者
鸡儿鸡儿帅 发表于 2018-12-19 20:51
先谢谢您了,那为什么我的程序可以运行,但是无法将计算结果写入文本文件呢 ...

就是程序运行完之后,打开文档还是空白

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

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

5#
发表于 2018-12-19 22:25:56 | 只看该作者
你都 end-of-file 了,还叫正常运行吗?

li913 给你的链接是否看过了?

9

帖子

1

主题

0

精华

入门

F 币
76 元
贡献
33 点
6#
发表于 2019-1-1 13:29:29 | 只看该作者
OPEN一个文件时,文件代码最好避开1、2、5、6,因为这几个数值都有特殊的含义:1、5时默认的输入位置,2、6时默认的输出位置。那么多整数为什么偏要选10以下的整数呢。

178

帖子

15

主题

0

精华

大宗师

F 币
4973 元
贡献
1152 点
7#
发表于 2019-1-7 19:12:52 | 只看该作者
潜龙勿用 发表于 2019-1-1 13:29
OPEN一个文件时,文件代码最好避开1、2、5、6,因为这几个数值都有特殊的含义:1、5时默认的输入位置,2、6 ...

其实我觉得现在的Fortran,不人为指定一个Unit号,而用“NewUnit= Unit1"这样的语句可能更好,哈哈~~

评分

参与人数 1贡献 +1 收起 理由
fcode + 1 你说得对

查看全部评分

79

帖子

17

主题

0

精华

专家

齊天大聖

F 币
433 元
贡献
266 点
8#
发表于 2019-1-13 22:34:29 | 只看该作者
liudy02 发表于 2019-1-7 19:12
其实我觉得现在的Fortran,不人为指定一个Unit号,而用“NewUnit= Unit1"这样的语句可能更好,哈哈~~ ...

挖个坟,大兄弟,这句话啥意思?能不能写全了看看

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

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

9#
发表于 2019-1-14 08:48:44 | 只看该作者
[Fortran] 纯文本查看 复制代码
Integer :: fu
Open(NewUnit=fu,File="a.txt")
Read(fu,*) a , b , c
Close(fu)
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-24 00:19

Powered by Tencent X3.4

© 2013-2024 Tencent

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