-- $Date: 2004/01/10 11:48:59 $
-- $Revision: 1.1 $
-- $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;

end Real_Numbers;