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