1 #include "v3p_f2c.h"
2 
3 #ifdef KR_headers
4 double exp(), cos(), sin();
z_exp(r,z)5 VOID z_exp(r, z) doublecomplex *r, *z;
6 #else
7 #undef abs
8 #include "math.h"
9 #ifdef __cplusplus
10 extern "C" {
11 #endif
12 void z_exp(doublecomplex *r, doublecomplex *z)
13 #endif
14 {
15         double expx, zi = z->i;
16 
17         expx = exp(z->r);
18         r->r = expx * cos(zi);
19         r->i = expx * sin(zi);
20         }
21 #ifdef __cplusplus
22 }
23 #endif
24