|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 9216 (0x2400) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Generic_Math, seg_01c4a9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
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;
nblk1=8 nid=0 hdr6=10 [0x00] rec0=14 rec1=00 rec2=01 rec3=04c [0x01] rec0=15 rec1=00 rec2=02 rec3=02c [0x02] rec0=16 rec1=00 rec2=03 rec3=07c [0x03] rec0=16 rec1=00 rec2=04 rec3=066 [0x04] rec0=16 rec1=00 rec2=05 rec3=050 [0x05] rec0=16 rec1=00 rec2=06 rec3=034 [0x06] rec0=15 rec1=00 rec2=07 rec3=034 [0x07] rec0=15 rec1=00 rec2=08 rec3=001 tail 0x21518b8a483657c8301a4 0x42a00088462060003