/*------------------------------------------------------------------------
 * filename - atanl.cas
 *
 * function(s)
 *        atanl - long double trigonometric function
 *-----------------------------------------------------------------------*/

/*
 *      C/C++ Run Time Library - Version 5.0
 *
 *      Copyright (c) 1987, 1992 by Borland International
 *      All Rights Reserved.
 *
 */


#pragma inline
#include <asmrules.h>

#include <_math.h>
#include <math.h>

/*--------------------------------------------------------------------------*

Name            atanl - trigonometric function

Usage           long double atanl(long double x);

Prototype in    math.h

Description     atanl returns the arc tangent  of the input value, which may
                be any finite value.

Return value    atanl returns a value in the range -pi/2 to pi/2.

*---------------------------------------------------------------------------*/
#pragma warn -rvl
long double     atanl (long double x)
{
asm     FLD     LONGDOUBLE (x)
#ifdef _Windows
        _f87_ArcTan();
#else
asm     _FAST_  (_FATAN_)
#endif
        return;
}
#pragma warn .rvl
