uc-sdk
Main Page
Related Pages
Modules
Classes
Files
File List
File Members
All
Classes
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Macros
Groups
Pages
w_atan2.c
Go to the documentation of this file.
1
2
/* @(#)w_atan2.c 1.3 95/01/18 */
3
/*
4
* ====================================================
5
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6
*
7
* Developed at SunSoft, a Sun Microsystems, Inc. business.
8
* Permission to use, copy, modify, and distribute this
9
* software is freely granted, provided that this notice
10
* is preserved.
11
* ====================================================
12
*
13
*/
14
15
/*
16
* wrapper atan2(y,x)
17
*/
18
19
#include "
fdlibm.h
"
20
21
22
#ifdef __STDC__
23
double
atan2
(
double
y,
double
x)
/* wrapper atan2 */
24
#else
25
double
atan2
(y,x)
/* wrapper atan2 */
26
double y,x;
27
#endif
28
{
29
#ifdef _IEEE_LIBM
30
return
__ieee754_atan2
(y,x);
31
#else
32
double
z;
33
z =
__ieee754_atan2
(y,x);
34
if
(
_LIB_VERSION
==
_IEEE_
||
isnan
(x)||
isnan
(y))
return
z;
35
if
(x==0.0&&y==0.0) {
36
return
__kernel_standard
(y,x,3);
/* atan2(+-0,+-0) */
37
}
else
38
return
z;
39
#endif
40
}
libm
src
w_atan2.c
Generated on Fri Nov 15 2013 05:00:19 for uc-sdk by
1.8.4