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