1*1e651e1eSRoland Levillain 2*1e651e1eSRoland Levillain /* @(#)w_atan2.c 1.3 95/01/18 */ 3*1e651e1eSRoland Levillain /* 4*1e651e1eSRoland Levillain * ==================================================== 5*1e651e1eSRoland Levillain * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 6*1e651e1eSRoland Levillain * 7*1e651e1eSRoland Levillain * Developed at SunSoft, a Sun Microsystems, Inc. business. 8*1e651e1eSRoland Levillain * Permission to use, copy, modify, and distribute this 9*1e651e1eSRoland Levillain * software is freely granted, provided that this notice 10*1e651e1eSRoland Levillain * is preserved. 11*1e651e1eSRoland Levillain * ==================================================== 12*1e651e1eSRoland Levillain * 13*1e651e1eSRoland Levillain */ 14*1e651e1eSRoland Levillain 15*1e651e1eSRoland Levillain /* 16*1e651e1eSRoland Levillain * wrapper ieee_atan2(y,x) 17*1e651e1eSRoland Levillain */ 18*1e651e1eSRoland Levillain 19*1e651e1eSRoland Levillain #include "fdlibm.h" 20*1e651e1eSRoland Levillain 21*1e651e1eSRoland Levillain 22*1e651e1eSRoland Levillain #ifdef __STDC__ ieee_atan2(double y,double x)23*1e651e1eSRoland Levillain double ieee_atan2(double y, double x) /* wrapper atan2 */ 24*1e651e1eSRoland Levillain #else 25*1e651e1eSRoland Levillain double ieee_atan2(y,x) /* wrapper atan2 */ 26*1e651e1eSRoland Levillain double y,x; 27*1e651e1eSRoland Levillain #endif 28*1e651e1eSRoland Levillain { 29*1e651e1eSRoland Levillain #ifdef _IEEE_LIBM 30*1e651e1eSRoland Levillain return __ieee754_atan2(y,x); 31*1e651e1eSRoland Levillain #else 32*1e651e1eSRoland Levillain double z; 33*1e651e1eSRoland Levillain z = __ieee754_atan2(y,x); 34*1e651e1eSRoland Levillain if(_LIB_VERSION == _IEEE_||ieee_isnan(x)||ieee_isnan(y)) return z; 35*1e651e1eSRoland Levillain if(x==0.0&&y==0.0) { 36*1e651e1eSRoland Levillain return __kernel_standard(y,x,3); /* ieee_atan2(+-0,+-0) */ 37*1e651e1eSRoland Levillain } else 38*1e651e1eSRoland Levillain return z; 39*1e651e1eSRoland Levillain #endif 40*1e651e1eSRoland Levillain } 41