1 #include "v3p_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 *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