Return to standard_floating_numbers.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/standard_floating_numbers.ads, Revision 1.1.1.1

1.1       maekawa     1: package Standard_Floating_Numbers is
                      2:
                      3: -- DESCRIPTION :
                      4: --   This package sets floating-point types to be independent
                      5: --   of the compiler predefined floating-point declarations.
                      6:
                      7:   type single_float is digits 7;                  -- single precision
                      8:   type double_float is digits 15;                 -- double precision
                      9:
                     10:   function Create ( n : natural ) return single_float;
                     11:   function Create ( n : natural ) return double_float;
                     12:
                     13:   function Equal ( a,b : single_float ) return boolean;
                     14:   function Equal ( a,b : double_float ) return boolean;
                     15:
                     16:   function AbsVal ( a : single_float ) return single_float;
                     17:   function AbsVal ( a : double_float ) return double_float;
                     18:
                     19:   procedure Copy ( a : in single_float; b : in out single_float );
                     20:   procedure Copy ( a : in double_float; b : in out double_float );
                     21:
                     22:   procedure Add ( a : in out single_float; b : in single_float ); -- a := a+b
                     23:   procedure Add ( a : in out double_float; b : in double_float );
                     24:
                     25:   procedure Sub ( a : in out single_float; b : in single_float ); -- a := a-b
                     26:   procedure Sub ( a : in out double_float; b : in double_float );
                     27:
                     28:   procedure Min ( a : in out single_float );                      -- a := -a
                     29:   procedure Min ( a : in out double_float );
                     30:
                     31:   procedure Mul ( a : in out single_float; b : in single_float ); -- a := a*b
                     32:   procedure Mul ( a : in out double_float; b : in double_float );
                     33:
                     34:   procedure Div ( a : in out single_float; b : in single_float ); -- a := a/b
                     35:   procedure Div ( a : in out double_float; b : in double_float );
                     36:
                     37:   procedure Clear ( a : in out single_float );
                     38:   procedure Clear ( a : in out double_float );
                     39:
                     40: end Standard_Floating_Numbers;