newlib/libm/mathfp/sf_cosh.c

   1
   2 /* @(#)z_coshf.c 1.0 98/08/13 */
   3 /******************************************************************
   4  * Hyperbolic Cosine
   5  *
   6  * Input:
   7  *   x - floating point value
   8  *
   9  * Output:
  10  *   hyperbolic cosine of x
  11  *
  12  * Description:
  13  *   This routine returns the hyperbolic cosine of x.
  14  *
  15  *****************************************************************/
  16
  17 #include "fdlibm.h"
  18 #include "zmath.h"
  19
  20 float
  21 coshf (float x)
  22 {
  23   return (sinehf (x, 1));
  24 }
  25
  26 #ifdef _DOUBLE_IS_32BITS
  27 double cosh (double x)
  28 {
  29   return (double) sinehf ((float) x, 1);
  30 }
  31
  32 #endif /* defined(_DOUBLE_IS_32BITS) */