ANINT (real-number [,kind])

  Class:  Elemental function - Generic

  Returns the value of the integer nearest to the value of the
  argument.

  If real number x is greater than zero, ANINT (x) has the value AINT
  (x + 0.5).  If x is less than or equal to zero, ANINT (x) has the
  value AINT (x - 0.5).

  +------+---------+----------+------------+-------------+
  | Args | Generic | Specific |  Argument  | Result Type |
  +------+---------+----------+------------+-------------+
  |  1   | ANINT   | ANINT    | REAL*4     | REAL*4      |
  |      |         | DNINT    | REAL*8     | REAL*8      |
  |      |         | QNINT    | REAL*16    | REAL*16     |
  +------+---------+----------+------------+-------------+

  See also the NINT intrinsic function.