1 #include "f2c.h"
2 
3 #undef abs
4 #include "math.h"
5 
6 void
c_exp(complex * r,complex * z)7 c_exp (complex * r, complex * z)
8 {
9   double expx, zi = z->i;
10 
11   expx = exp (z->r);
12   r->r = expx * cos (zi);
13   r->i = expx * sin (zi);
14 }
15