NINT intrinsic function
Standard: (F77) F90 F95 F2003 F2008
  Example Program
NINT ( A [ , KIND ] )

A : Real;
KIND : scalar Integer constant expression;

Result : Integer or Integer(Kind=KIND).
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.
AINT intrinsic function, ANINT intrinsic function, CEILING intrinsic function, FLOOR intrinsic function, INT intrinsic function