1 #include "v3p_f2c.h" 2 3 #ifdef KR_headers 4 extern double exp(), cos(), sin(); 5 c_exp(r,z)6 VOID c_exp(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_exp(complex *r, complex *z) 15 #endif 16 { 17 double expx, zi = z->i; 18 19 expx = exp(z->r); 20 r->r = expx * cos(zi); 21 r->i = expx * sin(zi); 22 } 23 #ifdef __cplusplus 24 } 25 #endif 26