Next: NEW_LINE, Previous: MVBITS, Up: Intrinsic Procedures [Contents][Index]

`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`

.*Standard*:Fortran 90 and later

*Class*:Elemental function

*Syntax*:`RESULT = NEAREST(X, S)`

*Arguments*:`X`Shall be of type `REAL`

.`S`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