libf2c/libF77/z_cos.c

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