2 /* @(#)z_coshf.c 1.0 98/08/13 */
3 /******************************************************************
7 * x - floating point value
10 * hyperbolic cosine of x
13 * This routine returns the hyperbolic cosine of x.
15 *****************************************************************/
21 _DEFUN (coshf
, (float),
24 return (sinehf (x
, 1));
27 #ifdef _DOUBLE_IS_32BITS
28 double cosh (double x
)
30 return (double) sinehf ((float) x
, 1);
33 #endif /* defined(_DOUBLE_IS_32BITS) */