1 #include "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_type *r, *z; 7 #else 8 #undef abs 9 #include "math.h" 10 11 void c_exp(complex_type *r, complex_type *z) 12 #endif 13 { 14 double expx; 15 16 expx = exp(z->r); 17 r->r = expx * cos(z->i); 18 r->i = expx * sin(z->i); 19 } 20