Retro68/gcc/newlib/libm/mathfp/s_atan.c
Wolfgang Thaller ec13cc9ce7 fix newlib
2018-12-29 09:59:36 +01:00

75 lines
1.3 KiB
C

/* @(#)z_atan.c 1.0 98/08/13 */
/*
FUNCTION
<<atan>>, <<atanf>>---arc tangent
INDEX
atan
INDEX
atanf
SYNOPSIS
#include <math.h>
double atan(double <[x]>);
float atanf(float <[x]>);
DESCRIPTION
<<atan>> computes the inverse tangent (arc tangent) of the input value.
<<atanf>> is identical to <<atan>>, save that it operates on <<floats>>.
RETURNS
@ifnottex
<<atan>> returns a value in radians, in the range of -pi/2 to pi/2.
@end ifnottex
@tex
<<atan>> returns a value in radians, in the range of $-\pi/2$ to $\pi/2$.
@end tex
PORTABILITY
<<atan>> is ANSI C. <<atanf>> is an extension.
*/
/******************************************************************
* Arctangent
*
* Input:
* x - floating point value
*
* Output:
* arctan of x
*
* Description:
* This routine returns the arctan of x.
*
*****************************************************************/
#include "fdlibm.h"
#include "zmath.h"
#ifndef _DOUBLE_IS_32BITS
double
atan (double x)
{
switch (numtest (x))
{
case NAN:
errno = EDOM;
return (x);
case INF:
/* this should check to see if neg NaN or pos NaN... */
return (__PI_OVER_TWO);
case 0:
return (0.0);
default:
return (atangent (x, 0, 0, 0));
}
}
#endif /* _DOUBLE_IS_32BITS */