URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [mathfp/] [sf_atan2.c] - Blame information for rev 158

Go to most recent revision | Details | Compare with Previous | View Log


 
/* @(#)z_atan2f.c 1.0 98/08/13 */
/******************************************************************
 * Arctangent2
 *
 * Input:
 *   v, u - floating point values
 *
 * Output:
 *   arctan2 of v / u
 *
 * Description:
 *   This routine returns the arctan2 of v / u.
 *
 *****************************************************************/
 
#include "fdlibm.h"
#include "zmath.h"
 
float
_DEFUN (atan2f, (float, float),
        float v _AND
        float u)
{
  return (atangentf (0.0, v, u, 1));
}
 
#ifdef _DOUBLE_IS_32BITS
double atan2 (double v, double u)
{
  return (double) atangentf (0.0, (float) v, (float) u, 1);
}
 
#endif /* defined(_DOUBLE_IS_32BITS) */

Line No.	Rev	Author	Line
1	148	jeremybenn
2			`/* @(#)z_atan2f.c 1.0 98/08/13 */`
3			`/******************************************************************`
4			`* Arctangent2`
5			`*`
6			`* Input:`
7			`* v, u - floating point values`
8			`*`
9			`* Output:`
10			`* arctan2 of v / u`
11			`*`
12			`* Description:`
13			`* This routine returns the arctan2 of v / u.`
14			`*`
15			`*****************************************************************/`
16
17			`#include "fdlibm.h"`
18			`#include "zmath.h"`
19
20			`float`
21			`_DEFUN (atan2f, (float, float),`
22			`float v _AND`
23			`float u)`
24			`{`
25			`return (atangentf (0.0, v, u, 1));`
26			`}`
27
28			`#ifdef _DOUBLE_IS_32BITS`
29			`double atan2 (double v, double u)`
30			`{`
31			`return (double) atangentf (0.0, (float) v, (float) u, 1);`
32			`}`
33
34			`#endif /* defined(_DOUBLE_IS_32BITS) */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [mathfp/] [sf_atan2.c] - Blame information for rev 158