Fortran Wiki
nearest (Rev #1, changes)

Skip the Navigation Links | Home Page | All Pages | Recently Revised | Authors | Feeds | Export |

Showing changes from revision #0 to #1: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

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

Revision from April 26, 2009 19:20:25 by Jason Blevins

Forward in time (2 more) | See current | History | Rollback | View: Source | Linked from: Intrinsic procedures