-- $Date: 2004/01/17 04:26:52 $
-- $Revision: 1.3 $
-- $Author: jcrocholl $

package Real_Numbers is

   type Real is digits 11;

   function Square
     (This : in Real)
     return Real;

   function Cube
     (This : in Real)
     return Real;

   function Greater
     (Y : in Real)
     return Integer;

   function Greater_Or_Equal
     (Y : in Real)
     return Integer;

   function Smaller
     (Y : in Real)
     return Integer;

   function Smaller_Or_Equal
     (Y : in Real)
     return Integer;

end Real_Numbers;