Fortran Coder

标题: 和nint有关的问题 [打印本页]

作者: 胆怯滴大侠 时间: 2020-8-11 08:21
标题: 和nint有关的问题

[Fortran] 纯文本查看 复制代码

real(kind=8) :: L

write(12,"(I0)") NINT(L)

当L=9000.0000000000000没有问题，正常运行

错误是：Info:L=10000.000000000000

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

作者: vvt 时间: 2020-8-11 08:29
我试了一下，都没问题。不管L是9000还是10000

作者: 胆怯滴大侠 时间: 2020-8-11 08:34
谢谢

作者: 胆怯滴大侠 时间: 2020-8-11 08:57

vvt 发表于 2020-8-11 08:29
我试了一下，都没问题。不管L是9000还是10000

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

作者: li913 时间: 2020-8-11 10:02
增大mmm的长度

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)