URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc1/] [newlib/] [libm/] [mathfp/] [s_cos.c] - Blame information for rev 345

Line No.	Rev	Author	Line
1	207	jeremybenn
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 */`