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