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.