DataMuseum.dk

top - metrics - download

    Length: 3040 (0xbe0)
    Types: TextFile
    Names: »MATH_LIB_SPEC«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

generic
    type Real is digits <>;
package Math_Lib is

    -- This is an interface package to the VAX/VMS RTL Mathematical
    -- Library routines.  Details on the routines can be found in
    -- the VAX/VMS Run-Time Library Reference Manual.  (See MTH$ routines.)


    -- Square root
    --
    function Sqrt (A : Real) return Real;

    -- Natural logarithm - log base e (A)
    --
    function Log (A : Real) return Real;

    -- Common logarithm - log base 10 (A)
    --
    function Log10 (A : Real) return Real;

    -- Base 2 logarithm - log base 2 (A) 	*** not in FORTRAN
    --
    function Log2 (A : Real) return Real;

    -- Exponential
    --
    function Exp (A : Real) return Real;

    -- Sine, cosine, and tangent of an angle given in radians
    --
    function Sin (A : Real) return Real;
    function Cos (A : Real) return Real;
    function Tan (A : Real) return Real;

    -- Arc sine, arc cosine, and arc tangent - return an angle
    -- expressed in radians
    --
    function Asin (A : Real) return Real;
    function Acos (A : Real) return Real;
    function Atan (A : Real) return Real;

    -- Arc tangent with two parameters - Arc Tan (A1/A2) - returns
    -- an angle expressed in radians
    --
    function Atan2 (A1, A2 : Real) return Real;

    -- Hyperbolic sine, cosine, and tangent of an angle in radians
    --
    function Sinh (A : Real) return Real;
    function Cosh (A : Real) return Real;
    function Tanh (A : Real) return Real;

    -- Trigonometric functions for angles expressed in degrees
    --
    function Sind (A : Real) return Real;
    function Cosd (A : Real) return Real;
    function Tand (A : Real) return Real;
    function Asind (A : Real) return Real;
    function Acosd (A : Real) return Real;
    function Atand (A : Real) return Real;
    function Atan2d (A1, A2 : Real) return Real;

    -- Exceptions:  The following exceptions are raised by various
    -- RTL math library routines.  See the VAX/VMS Run-Time Library
    -- Reference Manual for details.

    Roprand : exception; -- Reserved operand fault
    Invargmat : exception; -- Invalid argument
    Floovemat : exception; -- Floating point overflow in Math Library
    Floundmat : exception; -- Floating point underflow in Math Library
    Logzerneg : exception; -- Logarithm of zero or negative value
    Squrooneg : exception; -- Square root of a negative number

private

    pragma Inline (Sqrt, Log, Log10, Log2, Exp, Sin, Cos, Tan,
                   Asin, Acos, Atan, Atan2, Sinh, Cosh, Tanh,
                   Sind, Cosd, Tand, Asind, Acosd, Atand, Atan2d);

    pragma Import_Exception (Roprand, "SS$_ROPRAND", Form => Vms);
    pragma Import_Exception (Invargmat, "MTH$_INVARGMAT", Form => Vms);
    pragma Import_Exception (Floovemat, "MTH$_FLOOVEMAT", Form => Vms);
    pragma Import_Exception (Floundmat, "MTH$_FLOUNDMAT", Form => Vms);
    pragma Import_Exception (Logzerneg, "MTH$_LOGZERNEG", Form => Vms);
    pragma Import_Exception (Squrooneg, "MTH$_SQUROONEG", Form => Vms);

end Math_Lib;