Next: FLUSH, Previous: FLOAT, Up: Intrinsic Procedures
FLOOR — Integer floor functionFLOOR(X) returns the greatest integer less than or equal to X.
     RESULT = FLOOR(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_floor
              real :: x = 63.29
              real :: y = -63.59
              print *, floor(x) ! returns 63
              print *, floor(y) ! returns -64
          end program test_floor