Next: CHAR, Previous: BTEST, Up: Intrinsic Procedures
CEILING — Integer ceiling functionCEILING(X) returns the least integer greater than or equal to X.
RESULT = CEILING(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_ceiling
real :: x = 63.29
real :: y = -63.59
print *, ceiling(x) ! returns 64
print *, ceiling(y) ! returns -63
end program test_ceiling