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