VMS Help FORTRAN, Intrinsic Procedures, NINT  *Conan The Librarian (sorry for the slow response - running on an old VAX)

  NINT (real-number)

  A function that returns the value of the integer nearest to the
  value of the argument.
  +------+---------+----------+------------+-------------+
  | Args | Generic | Specific |  Argument  | Result Type |
  +------+---------+----------+------------+-------------+
  |   1  |  NINT   | ININT    | REAL*4     | INTEGER*2   |
  |      |         | JNINT    | REAL*4     | INTEGER*4   |
  |      |         | IIDNNT   | REAL*8     | INTEGER*2   |
  |      |         | JIDNNT   | REAL*8     | INTEGER*4   |
  |      |         | IIQNNT   | REAL*16    | INTEGER*2   |
  |      |         | JIQNNT   | REAL*16    | INTEGER*4   |
  +------+---------+----------+------------+-------------+
  The function returns an INTEGER*4 value if the /I4 command
  qualifier is in effect; otherwise it returns an INTEGER*2 value.

  See also the ANINT, IDNINT, and IQNINT intrinsic functions.