数据类型转换

fcode

因为单精度浮点数，只有7位左右的有效位数。你需要双精度。

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

program test
  implicit none
  integer :: a = 509232994    ! 毫秒数
  real(kind=8) :: slope = 0.1d0
  real(kind=8) :: b
  b = a *slope
  print *, a, b
  write (*, fmt = '(F12.1)') b
end program test

fcode

补充一下，
0.1d0 是 0.1e0 的双精度版本。是指数类型的字面值。

也可以用 0.1_8 这种形式。_8 说明 kind=8 的 0.1