1 #include "f2c.h" 2 3 #ifdef KR_headers 4 extern double sin(), cos(), sinh(), cosh(); 5 c_sin(r,z)6VOID 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