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