Hosted by
-- $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;