NINT intrinsic function
Standard: (F77) F90 F95 F2003 F2008Example Program

<Syntax>

NINT ( A [ , KIND ] )

A : Real;
KIND : scalar Integer constant expression;

Result : Integer or Integer(Kind=KIND).

<Semantics>

The value of the result is the nearest integer to A; if two integers are equally near, the one with the larger absolute value is chosen.
Like many intrinsic functions, this is elemental;
the result has the same shape as A, with the operation being applied elementwise.