Re: Way to use Ada Mod function on floats?

[Gautier <gautier@fakeaddress.nil>]

Stephen Leake:

> 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;

Out of curiosity, what is the need of converting Real_Type'Floor (A / B) to an 
Integer and back to a Real_Type ?
______________________________________________________________
Gautier         -- http://www.mysunrise.ch/users/gdm/index.htm
Ada programming -- http://www.mysunrise.ch/users/gdm/gsoft.htm

NB: For a direct answer, e-mail address on the Web site!