libf2c/libF77/z_cos.c

   1 #include "f2c.h"
   2
   3 #ifdef KR_headers
   4 double sin(), cos(), sinh(), cosh();
   5 VOID z_cos(r, z) doublecomplex *r, *z;
   6 #else
   7 #undef abs
   8 #include "math.h"
   9 void z_cos(doublecomplex *r, doublecomplex *z)
  10 #endif
  11 {
  12         double zi = z->i, zr = z->r;
  13         r->r =   cos(zr) * cosh(zi);
  14         r->i = - sin(zr) * sinh(zi);
  15         }