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

end Real_Numbers;