Next: FLUSH, Previous: FINDLOC, Up: Intrinsic Procedures [Contents][Index]
FLOOR
— Integer floor functionFLOOR(A)
returns the greatest integer less than or equal to X.
Fortran 95 and later
Elemental function
RESULT = FLOOR(A [, KIND])
A | The type shall be REAL . |
KIND | (Optional) An INTEGER initialization
expression indicating the kind parameter of the result. |
The return value is of type INTEGER(KIND)
if KIND is present
and of default-kind INTEGER
otherwise.
program test_floor real :: x = 63.29 real :: y = -63.59 print *, floor(x) ! returns 63 print *, floor(y) ! returns -64 end program test_floor