nearest(3f) - [FORTRAN:INTRINSIC:MODEL_COMPONENTS] Nearest representable number
result = nearest(x, s)
nearest(x, s) returns the processor-representable number nearest to X in the direction indicated by the sign of S.
X Shall be of type REAL. S Shall be of type REAL and not equal to zero.
The return value is of the same type as X. If S is positive, NEAREST returns the processor-representable number greater than X and nearest to it. If S is negative, NEAREST returns the processor-representable number smaller than X and nearest to it.
Sample program:
program demo_nearest implicit none real :: x, y x = nearest(42.0, 1.0) y = nearest(42.0, -1.0) write (*,"(3(g20.15))") x, y, x - y end program demo_nearest
[[Fortran 95]] and later
[[Elemental procedure|Elemental function]]
nearest (3) | March 11, 2021 |