Fortran Coder

查看: 8656|回复: 4

[求助] 和nint有关的问题

[复制链接]

25

帖子

10

主题

0

精华

熟手

F 币
149 元
贡献
97 点
发表于 2020-8-11 08:21:10 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
real(kind=8) :: L
write(12,"(I0)") NINT(L)
当L=9000.0000000000000没有问题,正常运行

错误是:Info:L=10000.000000000000

请问这个问题怎么解决,是L的问题,还是nint的问题

953

帖子

0

主题

0

精华

大师

F 币
180 元
贡献
73 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
发表于 2020-8-11 08:29:11 | 显示全部楼层
我试了一下,都没问题。不管L是9000还是10000

25

帖子

10

主题

0

精华

熟手

F 币
149 元
贡献
97 点
 楼主| 发表于 2020-8-11 08:34:31 | 显示全部楼层
谢谢
回复

使用道具 举报

25

帖子

10

主题

0

精华

熟手

F 币
149 元
贡献
97 点
 楼主| 发表于 2020-8-11 08:57:33 | 显示全部楼层
vvt 发表于 2020-8-11 08:29
我试了一下,都没问题。不管L是9000还是10000

你好,我发现代码是   character(len=4) :: mmm
write(mmm,"(I0)") NINT(L)
所以出了问题,是不是和mmm的定义有关呢?

790

帖子

2

主题

0

精华

大宗师

F 币
3765 元
贡献
2255 点
发表于 2020-8-11 10:02:39 | 显示全部楼层
增大mmm的长度
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-3-29 03:54

Powered by Tencent X3.4

© 2013-2024 Tencent

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