-- $Date: 2004/01/02 03:46:21 $
-- $Revision: 1.2 $
-- $Author: jcrocholl $

with Real_Numbers; use Real_Numbers;
with Real_Functions; use Real_Functions;

package body Integer_Functions is

   function Sqrt
     (Value : in Integer)
     return Integer is
   begin
      return Integer(Sqrt(Real(Value)));
   end Sqrt;

end Integer_Functions;