diff options
Diffstat (limited to 'lib/libF77/z_cos.c')
-rw-r--r-- | lib/libF77/z_cos.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/libF77/z_cos.c b/lib/libF77/z_cos.c new file mode 100644 index 0000000..bc9e23e --- /dev/null +++ b/lib/libF77/z_cos.c @@ -0,0 +1,14 @@ +#include "f2c.h" + +#ifdef KR_headers +double sin(), cos(), sinh(), cosh(); +VOID z_cos(r, z) doublecomplex *r, *z; +#else +#undef abs +#include "math.h" +void z_cos(doublecomplex *r, doublecomplex *z) +#endif +{ +r->r = cos(z->r) * cosh(z->i); +r->i = - sin(z->r) * sinh(z->i); +} |