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