Next: CHAR, Previous: BTEST, Up: Intrinsic Procedures
CEILING
— Integer ceiling functionCEILING(X)
returns the least integer greater than or equal to X.
I = CEILING(X[,KIND])
X | The type shall be REAL(*) .
|
KIND | Optional scaler integer initialization expression.
|
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