OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Daily bump.
[pf3gnuchains/gcc-fork.git]
/
libf2c
/
libF77
/
c_cos.c
1
#include "f2c.h"
2
3
#ifdef KR_headers
4
extern double sin(), cos(), sinh(), cosh();
5
6
VOID c_cos(resx, z) complex *resx, *z;
7
#else
8
#undef abs
9
#include <math.h>
10
11
void c_cos(complex *resx, complex *z)
12
#endif
13
{
14
complex res;
15
16
res.r = cos(z->r) * cosh(z->i);
17
res.i = - sin(z->r) * sinh(z->i);
18
19
resx->r = res.r;
20
resx->i = res.i;
21
}