newlib/libm/mathfp/s_asin.c

   1
   2 /* @(#)z_asin.c 1.0 98/08/13 */
   3 /******************************************************************
   4  * Arcsine
   5  *
   6  * Input:
   7  *   x - floating point value
   8  *
   9  * Output:
  10  *   arcsine of x
  11  *
  12  * Description:
  13  *   This routine returns the arcsine of x.
  14  *
  15  *****************************************************************/
  16
  17 #include "fdlibm.h"
  18 #include "zmath.h"
  19
  20 #ifndef _DOUBLE_IS_32BITS
  21
  22 double
  23 _DEFUN (asin, (double),
  24         double x)
  25 {
  26   return (asine (x, 0));
  27 }
  28
  29 #endif /* _DOUBLE_IS_32BITS */