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