anint in Fortran Wiki

## Description
`anint(a [, kind])` rounds its argument to the nearest whole number.
## Standard
[[FORTRAN 77]] and later
## Class
[[Elemental procedure|Elemental function]]
## Syntax
`result = anint(a [, kind])`
## Arguments
 - `a` - the type of the argument shall be `real`.
 - `kind` - (optional) an `integer` initialization expression
 indicating the kind parameter of the result.
## Return value
The return value is of type real with the kind type parameter of the
argument if the optional `kind` is absent; otherwise, the kind type
parameter will be given by `kind`. If `a` is greater than zero,
`anint(a)` returns `aint(x + 0.5)`. If `a` is less than or equal to
zero then it returns `aint(x - 0.5)`.
## Example
 program test_anint
 real(4) x4
 real(8) x8
 x4 = 1.234E0_4
 x8 = 4.321_8
 print *, anint(x4), dnint(x8)
 x8 = anint(x4,8)
 end program test_anint
{: lang=fortran }
category: intrinsics