1 #include "f2c.h"
2 
3 #undef abs
4 #include "math.h"
5 
6 void
c_sin(complex * r,complex * z)7 c_sin (complex * r, complex * z)
8 {
9   double zi = z->i, zr = z->r;
10   r->r = sin (zr) * cosh (zi);
11   r->i = cos (zr) * sinh (zi);
12 }
13