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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libm/] [mathfp/] [sf_atan2.c] - Diff between revs 148 and 158

Rev 148	Rev 158

`/* @(#)z_atan2f.c 1.0 98/08/13 */`	`/* @(#)z_atan2f.c 1.0 98/08/13 */`
`/******************************************************************`	`/******************************************************************`
`* Arctangent2`	`* Arctangent2`
`*`	`*`
`* Input:`	`* Input:`
`* v, u - floating point values`	`* v, u - floating point values`
`*`	`*`
`* Output:`	`* Output:`
`* arctan2 of v / u`	`* arctan2 of v / u`
`*`	`*`
`* Description:`	`* Description:`
`* This routine returns the arctan2 of v / u.`	`* This routine returns the arctan2 of v / u.`
`*`	`*`
`*****************************************************************/`	`*****************************************************************/`

`#include "fdlibm.h"`	`#include "fdlibm.h"`
`#include "zmath.h"`	`#include "zmath.h"`

`float`	`float`
`_DEFUN (atan2f, (float, float),`	`_DEFUN (atan2f, (float, float),`
`float v _AND`	`float v _AND`
`float u)`	`float u)`
`{`	`{`
`return (atangentf (0.0, v, u, 1));`	`return (atangentf (0.0, v, u, 1));`
`}`	`}`

`#ifdef _DOUBLE_IS_32BITS`	`#ifdef _DOUBLE_IS_32BITS`
`double atan2 (double v, double u)`	`double atan2 (double v, double u)`
`{`	`{`
`return (double) atangentf (0.0, (float) v, (float) u, 1);`	`return (double) atangentf (0.0, (float) v, (float) u, 1);`
`}`	`}`

`#endif /* defined(_DOUBLE_IS_32BITS) */`	`#endif /* defined(_DOUBLE_IS_32BITS) */`