1 #include "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