Next: NINT, Previous: MODULO, Up: Intrinsic Procedures

`NEAREST`

— Nearest representable number*Description*:`NEAREST(X, S)`

returns the processor-representable number nearest to`X`

in the direction indicated by the sign of`S`

.*Option*:- f95, gnu
*Class*:- elemental function
*Syntax*:`Y = NEAREST(X, S)`

*Arguments*:-
`X`shall be of type `REAL`

.`S`(Optional) shall be of type `REAL`

and not equal to zero. *Return value*:- 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. *Example*:-
program test_nearest 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 test_nearest