Next: FLUSH, Previous: FLOAT, Up: Intrinsic Procedures
FLOOR
— Integer floor functionFLOOR(X)
returns the greatest integer less than or equal to X.
RESULT = FLOOR(X [, KIND])
X | The type shall be REAL(*) .
|
KIND | (Optional) An INTEGER(*) initialization
expression indicating the kind parameter of
the result.
|
INTEGER(KIND)
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