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