EPSILON(X)
returns the smallest number E of the same kind as X such that 1 + E > 1.
Fortran 90 and later
Inquiry function
RESULT = EPSILON(X)
X | The type shall be REAL . |
The return value is of same type as the argument.
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-10.2.0/gfortran/EPSILON.html