Next: NOT, Previous: NEW_LINE, Up: Intrinsic Procedures

`NINT`

— Nearest whole number*Description*:`NINT(A)`

rounds its argument to the nearest whole number.*Standard*:- Fortran 77 and later, with
`KIND`argument Fortran 90 and later *Class*:- Elemental function
*Syntax*:`RESULT = NINT(A [, KIND])`

*Arguments*:-
`A`The type of the argument shall be `REAL`

.`KIND`(Optional) An `INTEGER`

initialization expression indicating the kind parameter of the result. *Return value*:- Returns
`A`with the fractional portion of its magnitude eliminated by rounding to the nearest whole number and with its sign preserved, converted to an`INTEGER`

of the default kind. *Example*:-
program test_nint real(4) x4 real(8) x8 x4 = 1.234E0_4 x8 = 4.321_8 print *, nint(x4), idnint(x8) end program test_nint

*Specific names*:-
Name Argument Standard `IDNINT(X)`

`REAL(8)`

Fortran 95 and later *See also*:- CEILING, FLOOR