Next: CHAR, Previous: C_SIZEOF, Up: Intrinsic Procedures
CEILING
— Integer ceiling functionCEILING(A)
returns the least integer greater than or equal to A.
RESULT = CEILING(A [, KIND])
A | The type shall be REAL .
|
KIND | (Optional) An INTEGER initialization
expression indicating the kind parameter of the result.
|
INTEGER(KIND)
if KIND is present
and a default-kind INTEGER
otherwise.
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