1 #include "FLA_f2c.h"
2 
3 #ifdef __cplusplus
4 extern "C" {
5 #endif
6 
r_log(real * x)7     double r_log(real *x)
8     {
9         return( log(*x) );
10     }
d_log(doublereal * x)11     double d_log(doublereal *x)
12     {
13         return( log(*x) );
14     }
15 
c_log(complex * r,complex * z)16     void c_log(complex *r, complex *z)
17     {
18         double _Complex ret_val = clog(z->r + I*z->i);
19         r->r = creal(ret_val);
20         r->i = cimag(ret_val);
21     }
z_log(doublecomplex * r,doublecomplex * z)22     void z_log(doublecomplex *r, doublecomplex *z)
23     {
24         double _Complex ret_val = clog(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