# Fortran Wiki nearest

## Description

nearest(x, s) returns the processor-representable number nearest to x in the direction indicated by the sign of s.

## Standard

Fortran 95 and later

## Class

Elemental function

## Syntax

result = 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

category: intrinsics