generic
    type Argument is digits <>;      -- the type to take the log of.
    type Return_Value is digits <>;  -- the type returned by the log.
package Base_Ten is
    --======================================================
    --=                                                    =
    --= This package provides a function to return the log =
    --= (to the base 10) of a number.  The number must be a=
    --= floating point number.  This package currently does=
    --= minimal error anlysis and numerical analysis to    =
    --= keep the correct accuracy and could, therefore use =
    --= some improvement.                                  =
    --=                                                    =
    --=                                                    =
    --= written by Brad Balfour with help from Ed Berard   =
    --= version 1.0                                        =
    --= June 16, 1985                                      =
    --=                                                    =
    --======================================================

    function Log (Of_Value : in Argument) return Return_Value;
    -- computes the log to the base 10 of the number.

    Negative_Log : exception;
    -- raised if the argument to the log function is <= 0
    Value_Too_Large : exception;
    -- raised if the argument to the log function causes
    -- an overflow to occur.

end Base_Ten;