NINT

 NINT (real-number [,kind])

 Class:  Elemental function - Generic

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

 The result is of type integer.  If "kind" is present, the kind
 parameter of the result is that specified by "kind"; otherwise, the
 kind parameter of the result is that shown in the following table.
 If the processor cannot represent the result value in the kind of
 the result, the result is undefined.
 +------+-----------+----------+------------+-------------+        
 | Args | Generic   | Specific |  Argument  | Result Type |
 +------+-----------+----------+------------+-------------+
 |   1  |           | ININT    | REAL*4     | INTEGER*2   |
 |      |see note1  | NINT     | REAL*4     | INTEGER*4   |
 |      |           | KNINT    | REAL*4     | INTEGER*8   |
 |      |           | IIDNNT   | REAL*8     | INTEGER*2   |
 |      |see note2  | IDNINT   | REAL*8     | INTEGER*4   |
 |      |           | KIDNNT   | REAL*8     | INTEGER*8   |
 |      |           | IIQNNT   | REAL*16    | INTEGER*2   |
 |      |see note3  | IQNINT   | REAL*16    | INTEGER*4   |
 |      |           | KIQNNT   | REAL*16    | INTEGER*8   |
 +------+-----------+----------+------------+-------------+

 Note1: Or JNINT.
 Note2: Or JIDNNT.  For compatibility with older versions 
        of Fortran, IDNINT can also be specified as a generic 
        function.
 Note3: Or JIQNNT. For compatibility with older versions 
        of Fortran,  IQNINT can also be specified as a generic 
        function.

 The setting of compiler options specifying integer size can affect
 NINT, IDNINT, and IQNINT.