program ex0411
complex::a,b
a=(1.0,1.0)
b=(1.0,2.0)
write(*,*) "a+b=",a+b
write(*,*) "a-b=",a-b
write(*,*) "a*b=",a*b
write(*,*) "a/b=",a/b
stop
end
kyra 发表于 2018-7-27 13:52
浮点数误差,很正常的。单精度只有6-7位有效数字。
接受它就好了。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |