490
4
0
大宗师
program test_epsilon real :: x = 3.143 real(8) :: y = 2.33 print *, EPSILON(x) print *, EPSILON(y) end program test_epsilon
使用道具 举报
shaoqikao100 发表于 2017-11-13 15:41 十分感谢,我的代码在上面的回复里贴出来了,这里如果要求的精度很明确的话怎么操作。我是看的白海波老师 ...
IMPLICIT REAL*8(A-Z)
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-16 03:38
Powered by Tencent X3.4
© 2013-2024 Tencent