diff options
Diffstat (limited to 'w_atan2.c')
-rw-r--r-- | w_atan2.c | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/w_atan2.c b/w_atan2.c deleted file mode 100644 index f4cc0eb..0000000 --- a/w_atan2.c +++ /dev/null @@ -1,40 +0,0 @@ - -/* @(#)w_atan2.c 1.3 95/01/18 */ -/* - * ==================================================== - * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. - * - * Developed at SunSoft, a Sun Microsystems, Inc. business. - * Permission to use, copy, modify, and distribute this - * software is freely granted, provided that this notice - * is preserved. - * ==================================================== - * - */ - -/* - * wrapper ieee_atan2(y,x) - */ - -#include "fdlibm.h" - - -#ifdef __STDC__ - double ieee_atan2(double y, double x) /* wrapper atan2 */ -#else - double ieee_atan2(y,x) /* wrapper atan2 */ - double y,x; -#endif -{ -#ifdef _IEEE_LIBM - return __ieee754_atan2(y,x); -#else - double z; - z = __ieee754_atan2(y,x); - if(_LIB_VERSION == _IEEE_||ieee_isnan(x)||ieee_isnan(y)) return z; - if(x==0.0&&y==0.0) { - return __kernel_standard(y,x,3); /* ieee_atan2(+-0,+-0) */ - } else - return z; -#endif -} |