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