toolchain/gcc/newlib/libm/mathfp/sf_atan2.c

   1
   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) */