--  -----------------------------------------------------------------------
--  Title:       single_elementary_functions
--  Last Mod:    Thu Aug 30 08:47:54 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 single-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.
--	
--	mantissa size of 21 to 24 bits assumed.
-- 
-- 	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 single_elementary_functions is


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

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

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

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

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


    argument_error: exception
        renames elementary_functions_exceptions.argument_error;

end single_elementary_functions;

-- $Header: s_elementary_functions_s.a,v 3.21 90/08/30 08:52:46 broman Exp $