Fortran Coder

查看: 10246|回复: 5
打印 上一主题 下一主题

[输入输出] FORTRAN77 输出后数值发生变化

[复制链接]

10

帖子

3

主题

0

精华

入门

F 币
63 元
贡献
35 点
跳转到指定楼层
楼主
发表于 2019-8-21 17:31:25 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
[Fortran] 纯文本查看 复制代码
      WRITE(6,38)K1,AK1,K21,AK21,K31,AK31,K01,AK01                      00007890
   38 FORMAT(1H ,' K1=',1PE10.3,2X,F7.3,5X,'K21=',1PE10.3,2X,           00007900
     1F7.3,5X,'K31=',1PE10.3,2X,F7.3,5X,'K01=',1PE10.3,2X,              00007910
     2F7.3/)


这段代码中变量AK1,AK21,AK31,AK01用浮点数输出后数值是用科学计数法输出的10倍,结果如图。
是什么导致了这个现象呢?求各位大佬解答。


捕获.PNG (5.05 KB, 下载次数: 281)

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

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2019-8-21 21:34:26 | 只看该作者
1、给出用两种形式输出的结果 and 代码.
2、看看P编辑符。
3、我试了,没有你说的情况。

QQ截图20190821213231.png (23.2 KB, 下载次数: 289)

QQ截图20190821213231.png

10

帖子

3

主题

0

精华

入门

F 币
63 元
贡献
35 点
板凳
 楼主| 发表于 2019-8-22 14:21:13 | 只看该作者
li913 发表于 2019-8-21 21:34
1、给出用两种形式输出的结果 and 代码.
2、看看P编辑符。
3、我试了,没有你说的情况。

我重新截了下图,上面那一段是原来的代码,后面两个write是我加的。
我如果把原来代码里的F7.3改成1PE10.3,结果就是对的。但是用Fx.x,就是原来的十倍。

002.PNG (15.79 KB, 下载次数: 283)

002.PNG

001.PNG (18.12 KB, 下载次数: 255)

001.PNG

10

帖子

3

主题

0

精华

入门

F 币
63 元
贡献
35 点
地板
 楼主| 发表于 2019-8-22 14:23:22 | 只看该作者
FlagArchitect 发表于 2019-8-22 14:21
我重新截了下图,上面那一段是原来的代码,后面两个write是我加的。
我如果把原来代码里的F7.3改成1PE10. ...

会不会是编译器的问题呢,我用的simply fortran,学校这破电脑的VS死活装不上intel的编译器

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
5#
发表于 2019-8-23 15:37:54 | 只看该作者
本帖最后由 li913 于 2019-8-23 20:54 编辑

如果你认真看看P编辑符的说明就明白了。1、输出时,P遇到E,输出值不变,但输出样式会变(比如1p结果: 1.0e1 变为 0.1e2);
2、P遇到f,输出值改变(1p结果: 10.0 变为 100.0);
3、同一行输出两个或多个数据,如果第一个格式出现P, 后续的输出默认继承前一个P的效果;
4、可用0P取消该继承效果。"(1Pe12.3,e12.3)" 两个都具有P效果;"(1Pe12.3,0Pe12.3,f12.3)"仅第一个具有P效果。

QQ截图20190823152239.png (23.9 KB, 下载次数: 276)

QQ截图20190823152239.png

QQ截图20190823153455.png (84.08 KB, 下载次数: 283)

QQ截图20190823153455.png

10

帖子

3

主题

0

精华

入门

F 币
63 元
贡献
35 点
6#
 楼主| 发表于 2019-8-27 14:22:15 | 只看该作者
li913 发表于 2019-8-23 15:37
如果你认真看看P编辑符的说明就明白了。1、输出时,P遇到E,输出值不变,但输出样式会变(比如1p结果: 1.0e1 ...

明白了,感谢大佬指点!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-23 05:43

Powered by Tencent X3.4

© 2013-2024 Tencent

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