您所在位置：主题：问一个精度问题
cepheid
[专家分：70] 发布于 2010-08-08 11:53:00
program test
implicit none
real(8) :: a, b, c
a = 5.111111111111111111
b = 6.
c = a*b
write(*,*)cmplx(a,b), a*b, c
end
用ifort编译后得结果
(5.111111,6.000000) 30.6666669845581 30.6666669845581
用gfortran编译的结果
( 5.1111112 , 6.0000000 ) 30.666666984558105 30.666666984558105
用g95编译结果
(5.111111,6.) 30.666666984558105 30.666666984558105
后几位不确定，请问如何解决
implicit none
real(8) :: a, b, c
a = 5.111111111111111111
b = 6.
c = a*b
write(*,*)cmplx(a,b), a*b, c
end
用ifort编译后得结果
(5.111111,6.000000) 30.6666669845581 30.6666669845581
用gfortran编译的结果
( 5.1111112 , 6.0000000 ) 30.666666984558105 30.666666984558105
用g95编译结果
(5.111111,6.) 30.666666984558105 30.666666984558105
后几位不确定，请问如何解决
