Next: ALARM, Previous: AIMAG, Up: Intrinsic Procedures
AINT
— Truncate to a whole numberAINT(A [, KIND])
truncates its argument to a whole number.
RESULT = AINT(A [, KIND])
A | The type of the argument shall be REAL .
|
KIND | (Optional) An INTEGER initialization
expression indicating the kind parameter of the result.
|
REAL
with the kind type parameter of the
argument if the optional KIND is absent; otherwise, the kind
type parameter will be given by KIND. If the magnitude of
X is less than one, AINT(X)
returns zero. If the
magnitude is equal to or greater than one then it returns the largest
whole number that does not exceed its magnitude. The sign is the same
as the sign of X.
program test_aint real(4) x4 real(8) x8 x4 = 1.234E0_4 x8 = 4.321_8 print *, aint(x4), dint(x8) x8 = aint(x4,8) end program test_aint
Name | Argument | Return type | Standard
|
DINT(X) | REAL(8) X | REAL(8) | Fortran 77 and later
|