-/* @(#)s_cos.c 5.1 93/09/24 */
/*
* ====================================================
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
* ====================================================
*/
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_cos.c,v 1.7 1995/05/10 20:47:02 jtc Exp $";
-#endif
-
/* cos(x)
* Return cosine function of x.
*
#include "math.h"
#include "math_private.h"
-libm_hidden_proto(cos)
-#ifdef __STDC__
- double cos(double x)
-#else
- double cos(x)
- double x;
-#endif
+double cos(double x)
{
double y[2],z=0.0;
int32_t n, ix;