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