1 #include "v3p_f2c.h" 2 3 #ifdef KR_headers 4 double exp(), cos(), sin(); z_exp(r,z)5VOID 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