1 #include "v3p_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 *r, *z;
7 #else
8 #undef abs
9 #include "math.h"
10 #ifdef __cplusplus
11 extern "C" {
12 #endif
13 
14 void c_sin(complex *r, complex *z)
15 #endif
16 {
17         double zi = z->i, zr = z->r;
18         r->r = sin(zr) * cosh(zi);
19         r->i = cos(zr) * sinh(zi);
20         }
21 #ifdef __cplusplus
22 }
23 #endif
24