Re: Way to use Ada Mod function on floats?

[Stephen Leake <stephen_leake@stephe-leake.org>]

"AAFellow@hotmail.com" <AAFellow@hotmail.com> writes:

> Hi guys,
>
> I need to perform the mod operation on floats.  Does anyone know of a
> simple way to do this in Ada? It seems the mod function is only for
> integers.  I can probably multiply out the decimal places, and then
> divide my answer back, but if there is a more simple way that saves
> computations, I'd rather do that.

SAL (http://stephe-leake.org/ada/sal.html) has:

   function Modulo (Dividend, Divisor : in Real_Type) return Real_Type
   is
      --  match names in Ada LRM 4.5.5

      A : Real_Type renames Dividend;
      B : Real_Type renames Divisor;
      N : constant Integer := Integer (Real_Type'Floor (A / B));
   begin
      return A - B * Real_Type (N);
   end Modulo;

-- 
-- Stephe