-- $Date: 2004/01/17 04:26:45 $
-- $Revision: 1.2 $
-- $Author: jcrocholl $

package body Real_Numbers is

   function Square
     (This : in Real)
     return Real is
   begin
      return This * This;
   end Square;

   function Cube
     (This : in Real)
     return Real is
   begin
      return This * This * This;
   end Cube;

   function Greater
     (Y : in Real)
     return Integer
   is
      Result : Integer := Integer(Y);
   begin
      if Real(Result) <= Y then Result := Result + 1; end if;
      return Result;
   end Greater;

   function Greater_Or_Equal
     (Y : in Real)
     return Integer
   is
      Result : Integer := Integer(Y);
   begin
      if Real(Result) < Y then Result := Result + 1; end if;
      return Result;
   end Greater_Or_Equal;

   function Smaller
     (Y : in Real)
     return Integer
   is
      Result : Integer := Integer(Y);
   begin
      if Real(Result) >= Y then Result := Result - 1; end if;
      return Result;
   end Smaller;

   function Smaller_Or_Equal
     (Y : in Real)
     return Integer
   is
      Result : Integer := Integer(Y);
   begin
      if Real(Result) > Y then Result := Result - 1; end if;
      return Result;
   end Smaller_Or_Equal;

end Real_Numbers;