--  -----------------------------------------------------------------------
--  Title:       longest_float_elementary_functions
--  Last Mod:    Thu Aug 30 08:34:55 1990
--  Author:      Vincent Broman <broman@nosc.mil>
--   Copyright 1990 Vincent Broman
--     Permission granted to copy, modify, or compile this software for
--   one's own use, provided that this copyright notice is preserved intact.
--     Permission granted to distribute compiled binary copies of this
--   software which are linked in with some other application.
--     Permission granted to distribute other copies of this software,
--   provided that (1) any copy which is not source code, i.e. not in the
--   form in which the software is usually maintained, must be accompanied
--   by a copy of the source code from which it was compiled, and (2) the
--   one distributing it must refrain from imposing on the recipient
--   further restrictions on the distribution of this software.
--   
--  Visibility:  withed by generic_elementary_functions body
--  Description:
--
--	a longest_float_precision implementation of 
--	the proposed standard generic package of elementary functions, 
--	from the ISO-IEC/JTC1/SC22/WG9 (Ada)
--	Numerics Rapporteur Group proposal, Draft 1.1.
--	
-- 	This will evolve to conform to later drafts.
-- 
--  Exceptions:  argument_error, numeric_error are raised.
--  -----------------------------------------------------------------------
with elementary_functions_exceptions,
     float_types;

use float_types;

package longest_float_elementary_functions is


    function sqrt    ( x         : longest_float )        return longest_float;
    function log     ( x         : longest_float )        return longest_float;
    function log     ( x , base  : longest_float )        return longest_float;
    function exp     ( x         : longest_float )        return longest_float;
    function "**"    ( x , y     : longest_float )        return longest_float;

    function sin     ( x         : longest_float )        return longest_float;
    function sin     ( x , cycle : longest_float )        return longest_float;
    function cos     ( x         : longest_float )        return longest_float;
    function cos     ( x , cycle : longest_float )        return longest_float;
    function tan     ( x         : longest_float )        return longest_float;
    function tan     ( x , cycle : longest_float )        return longest_float;
    function cot     ( x         : longest_float )        return longest_float;
    function cot     ( x , cycle : longest_float )        return longest_float;

    function arcsin  ( x         : longest_float )        return longest_float;
    function arcsin  ( x , cycle : longest_float )        return longest_float;
    function arccos  ( x         : longest_float )        return longest_float;
    function arccos  ( x , cycle : longest_float )        return longest_float;
    function arctan  ( y         : longest_float;
		       x         : longest_float := 1.0 ) return longest_float;
    function arctan  ( y         : longest_float;
		       x         : longest_float := 1.0;
		       cycle     : longest_float )        return longest_float;
    function arccot  ( x         : longest_float;
		       y         : longest_float := 1.0 ) return longest_float;
    function arccot  ( x         : longest_float;
		       y         : longest_float := 1.0;
		       cycle     : longest_float )        return longest_float;

    function sinh    ( x         : longest_float )        return longest_float;
    function cosh    ( x         : longest_float )        return longest_float;
    function tanh    ( x         : longest_float )        return longest_float;
    function coth    ( x         : longest_float )        return longest_float;

    function arcsinh ( x         : longest_float )        return longest_float;
    function arccosh ( x         : longest_float )        return longest_float;
    function arctanh ( x         : longest_float )        return longest_float;
    function arccoth ( x         : longest_float )        return longest_float;


    argument_error: exception
        renames elementary_functions_exceptions.argument_error;

end longest_float_elementary_functions;

-- $Header: l_elementary_functions_s.a,v 3.21 90/08/30 08:53:08 broman Exp $