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