epsilon(x)：ε 小量¶
Epsilon 函数。
声明¶
语法¶
retval = epsilon(x)
elemental real function epsilon(x)
参数¶
x ，输入值必须是实数类型。
返回值¶
返回值与输入参数的类型相同。
描述¶
epsilon(x) 计算与 x 相同类型的最小数 \(\epsilon\)，如下所示：
\(1 + \epsilon > 1\)
类型¶
支持的参数类型是实数。
interface epsilon
module procedure sepsilon, depsilon
end interface
contains
elemental real(sp) function sepsilon(x)
real(sp), intent(in) :: x
end function
elemental real(dp) function depsilon(x)
real(dp), intent(in) :: x
end function
示例¶
program intrinsics_epsilon
print *, epsilon(3.143)
end program
结果：
1.19209290E-07