和nint有关的问题

胆怯滴大侠 · 发表于 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的问题

vvt · 发表于 2020-8-11 08:29:11

我试了一下，都没问题。不管L是9000还是10000

胆怯滴大侠 · 发表于 2020-8-11 08:34:31

谢谢

胆怯滴大侠 · 发表于 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的定义有关呢？

li913 · 发表于 2020-8-11 10:02:39

增大mmm的长度

[求助] 和nint有关的问题