1#include "f2c.h" 2 3#ifdef KR_headers 4double sin(), cos(), sinh(), cosh(); 5VOID z_cos(r, z) doublecomplex *r, *z; 6#else 7#undef abs 8#include "math.h" 9void 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 } 16