diff options
author | David E. O'Brien <obrien@FreeBSD.org> | 1999-09-18 10:51:31 +0000 |
---|---|---|
committer | David E. O'Brien <obrien@FreeBSD.org> | 1999-09-18 10:51:31 +0000 |
commit | c1f999a45c30f40a3964639c48761ad29a52c612 (patch) | |
tree | 0938eb35cebcf917f447463078144fc4832576c6 /contrib/libf2c/libF77/c_cos.c | |
parent | 2a266d02ba4304af542da2cc521ecc0edc1c9706 (diff) | |
download | src-c1f999a45c30f40a3964639c48761ad29a52c612.tar.gz src-c1f999a45c30f40a3964639c48761ad29a52c612.zip |
Virgin import of EGCS 1.1.2's libf2c
Notes
Notes:
svn path=/vendor/gcc/dist/; revision=51363
Diffstat (limited to 'contrib/libf2c/libF77/c_cos.c')
-rw-r--r-- | contrib/libf2c/libF77/c_cos.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/contrib/libf2c/libF77/c_cos.c b/contrib/libf2c/libF77/c_cos.c new file mode 100644 index 000000000000..9e833c168b3b --- /dev/null +++ b/contrib/libf2c/libF77/c_cos.c @@ -0,0 +1,21 @@ +#include "f2c.h" + +#ifdef KR_headers +extern double sin(), cos(), sinh(), cosh(); + +VOID c_cos(resx, z) complex *resx, *z; +#else +#undef abs +#include <math.h> + +void c_cos(complex *resx, complex *z) +#endif +{ +complex res; + +res.r = cos(z->r) * cosh(z->i); +res.i = - sin(z->r) * sinh(z->i); + +resx->r = res.r; +resx->i = res.i; +} |