1 #include "FLA_f2c.h"
2 
3 #ifdef __cplusplus
4 extern "C" {
5 #endif
6 
r_exp(real * x)7     double r_exp(real *x)
8     {
9         return( exp(*x) );
10     }
d_exp(doublereal * x)11     double d_exp(doublereal *x)
12     {
13         return( exp(*x) );
14     }
15 
c_exp(complex * r,complex * z)16     void c_exp(complex *r, complex *z)
17     {
18         double _Complex ret_val = cexp(z->r + I*z->i);
19         r->r = creal(ret_val);
20         r->i = cimag(ret_val);
21     }
z_exp(doublecomplex * r,doublecomplex * z)22     void z_exp(doublecomplex *r, doublecomplex *z)
23     {
24         double _Complex ret_val = cexp(z->r + I*z->i);
25         r->r = creal(ret_val);
26         r->i = cimag(ret_val);
27     }
28 #ifdef __cplusplus
29 }
30 #endif
31