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