Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef KR_headers
00004 double exp(), cos(), sin();
00005 VOID z_exp(r, z) doublecomplex *r, *z;
00006 #else
00007 #undef abs
00008 #include "math.h"
00009 #ifdef __cplusplus
00010 extern "C" {
00011 #endif
00012 void z_exp(doublecomplex *r, doublecomplex *z)
00013 #endif
00014 {
00015 double expx, zi = z->i;
00016
00017 expx = exp(z->r);
00018 r->r = expx * cos(zi);
00019 r->i = expx * sin(zi);
00020 }
00021 #ifdef __cplusplus
00022 }
00023 #endif