DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦29fc337e8⟧ TextFile

    Length: 7704 (0x1e18)
    Types: TextFile
    Names: »V«

Derivation

└─⟦25882cbde⟧ Bits:30000536 8mm tape, Rational 1000, RCI_RS6000_AIX_IBM 2_0_2
    └─⟦b8efda8ac⟧ »DATA« 
        └─⟦7061b4ee8⟧ 
            └─⟦dea849e77⟧ 
                └─⟦this⟧

TextFile

with System;
generic
    Fast : Boolean := False;
package Generic_Math is
    M_E : constant Long_Float := 2.7182818284590452354E0;
    M_Log2e : constant Long_Float := 1.4426950408889633870E0;
    M_Log10e : constant Long_Float := 4.3429448190325181667E-1;
    M_Ln2 : constant Long_Float := 6.9314718055994530942E-1;
    M_Ln10 : constant Long_Float := 2.3025850929940456840E0;
    M_Pi : constant Long_Float := 3.1415926535897931160E0;
    M_2pi : constant Long_Float := 6.2831853071795862320E0;
    M_Pi_2 : constant Long_Float := 1.5707963267948965580E0;
    M_Pi_4 : constant Long_Float := 7.8539816339744827900E-1;
    M_1_Pi : constant Long_Float := 3.1830988618379067154E-1;
    M_2_Pi : constant Long_Float := 6.3661977236758134308E-1;
    M_2_Sqrtpi : constant Long_Float := 1.1283791670955125739E0;
    M_Sqrt2 : constant Long_Float := 1.4142135623730951455E0;
    M_Sqrt_2 : constant Long_Float := 7.0710678118654752440E-1;
    Erange : constant Integer := 34;  
    Edom : constant Integer := 33;  
    Fp_Plus_Norm : constant Integer := 0;  
    Fp_Minus_Norm : constant Integer := 1;  
    Fp_Plus_Denorm : constant Integer := 6;  
    Fp_Minus_Denorm : constant Integer := 7;  
    Fp_Plus_Zero : constant Integer := 2;  
    Fp_Minus_Zero : constant Integer := 3;  
    Fp_Plus_Inf : constant Integer := 4;  
    Fp_Minus_Inf : constant Integer := 5;  
    Fp_Snan : constant Integer := 8;  
    Fp_Qnan : constant Integer := 9;  
    subtype Long_Positive_Float is
       Long_Float range Long_Float'Safe_Small .. Long_Float'Safe_Large;
    subtype Long_Natural_Float is Long_Float range 0.0 .. Long_Float'Safe_Large;
    subtype Long_Plus1_Float is Long_Float range 1.0 .. Long_Float'Safe_Large;
    subtype Long_Minus1_Float is Long_Float range -1.0 .. Long_Float'Safe_Large;
    subtype Unity_Range is Long_Float range -1.0 .. 1.0;
    type Long_Complex_Float is
        record
            Real : Long_Float;
            Imaginary : Long_Float;
        end record;
    function Errno return Integer;
    pragma Inline (Errno);
    function Exponent (Value : in Long_Float) return Integer;
    pragma Inline (Exponent);
    function Mantissa (Value : in Long_Float) return Long_Float;
    pragma Inline (Mantissa);
    function Ldexp (Mant : in Long_Float; Exp : in Integer) return Long_Float;
    pragma Inline (Ldexp);
    function Fraction (Value : in Long_Float) return Long_Float;
    pragma Inline (Fraction);
    function Integral (Value : in Long_Float) return Long_Float;
    pragma Inline (Integral);
    function Atof (X : in String) return Long_Float;
    pragma Inline (Atof);
    function J0 (X : in Long_Float) return Long_Float;
    pragma Inline (J0);
    function J1 (X : in Long_Float) return Long_Float;
    pragma Inline (J1);
    function Jn (N : in Integer; X : in Long_Float) return Long_Float;
    pragma Inline (Jn);
    function Y0 (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Y0);
    function Y1 (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Y1);
    function Yn (N : in Integer; X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Yn);
    function Erf (X : in Long_Float) return Long_Float;
    pragma Inline (Erf);
    function Erfc (X : in Long_Float) return Long_Float;
    pragma Inline (Erfc);
    function Exp (X : in Long_Float) return Long_Float;
    pragma Inline (Exp);
    function Expm1 (X : in Long_Float) return Long_Float;
    pragma Inline (Expm1);
    function Log (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Log);
    function Log10 (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Log10);
    function Ln (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Ln);
    function "**" (X : in Long_Float; Y : in Long_Float) return Long_Float;
    pragma Inline ("**");
    function Sqrt (X : in Long_Natural_Float) return Long_Float;
    pragma Inline (Sqrt);
    function Ceil (X : in Long_Float) return Long_Float;
    pragma Inline (Ceil);
    function Floor (X : in Long_Float) return Long_Float;
    pragma Inline (Floor);
    function "abs" (X : in Long_Float) return Long_Float;
    pragma Inline ("abs");
    function "mod" (X : in Long_Float; Y : in Long_Float) return Long_Float;
    pragma Inline ("mod");
    function Gamma (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Gamma);
    function Signgam (X : in Long_Positive_Float) return Integer;
    pragma Inline (Signgam);
    function Hypot (X : in Long_Float; Y : in Long_Float) return Long_Float;
    pragma Inline (Hypot);
    function Sin (X : in Long_Float) return Long_Float;
    pragma Inline (Sin);
    function Cos (X : in Long_Float) return Long_Float;
    pragma Inline (Cos);
    function Tan (X : in Long_Float) return Long_Float;
    pragma Inline (Tan);
    function Asin (X : in Unity_Range) return Long_Float;
    pragma Inline (Asin);
    function Acos (X : in Unity_Range) return Long_Float;
    pragma Inline (Acos);
    function Atan (X : in Long_Float) return Long_Float;
    pragma Inline (Atan);
    function Sinh (X : in Long_Float) return Long_Float;
    pragma Inline (Sinh);
    function Cosh (X : in Long_Float) return Long_Float;
    pragma Inline (Cosh);
    function Tanh (X : in Long_Float) return Long_Float;
    pragma Inline (Tanh);
    function Atan2 (X : in Long_Float; Y : in Long_Float) return Long_Float;
    pragma Inline (Atan2);
    function Copysign (X : in Long_Float; Y : in Long_Float) return Long_Float;
    pragma Inline (Copysign);
    function "abs" (X : in Long_Complex_Float) return Long_Float;
    pragma Inline ("abs");
    function Nearest (X : in Long_Float) return Long_Float;
    pragma Inline (Nearest);
    function Truncate (X : in Long_Float) return Long_Float;
    pragma Inline (Truncate);
    function Truncate (X : in Long_Float) return Integer;
    pragma Inline (Truncate);
    function Rint (X : in Long_Float) return Long_Float;
    pragma Inline (Rint);
    function Exp_E (X : in Long_Float; Y : in Long_Float) return Long_Float;
    pragma Inline (Exp_E);
    function Log1p (X : in Long_Minus1_Float) return Long_Float;
    pragma Inline (Log1p);
    function Log_L (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Log_L);
    function Logb (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Logb);
    function Logb (X : in Long_Positive_Float) return Integer;
    pragma Inline (Logb);
    function Lgamma (X : in Long_Positive_Float) return Long_Float;
    pragma Inline (Lgamma);
    function Asinh (X : in Long_Float) return Long_Float;
    pragma Inline (Asinh);
    function Acosh (X : in Long_Plus1_Float) return Long_Float;
    pragma Inline (Acosh);
    function Atanh (X : in Long_Float) return Long_Float;
    pragma Inline (Atanh);
    function "rem" (X : in Long_Float; Y : in Long_Float) return Long_Float;
    pragma Inline ("rem");
    function Class (X : in Long_Float) return Integer;
    pragma Inline (Class);
    function Isnan (X : in Long_Float) return Integer;
    pragma Inline (Isnan);
    function Finite (X : in Long_Float) return Integer;
    pragma Inline (Finite);
    function Cbrt (X : in Long_Float) return Long_Float;
    pragma Inline (Cbrt);
    function Long_To_Int (X : in Long_Float) return Integer;
    pragma Inline (Long_To_Int);
    function Unordered (X : in Long_Float; Y : in Long_Float) return Integer;
    pragma Inline (Unordered);
    function Next_After
                (X : in Long_Float; Y : in Long_Float) return Long_Float;
    pragma Inline (Next_After);
    function Scalb (X : in Long_Float; N : in Integer) return Long_Float;
    pragma Inline (Scalb);
end Generic_Math;