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