diff options
Diffstat (limited to 'libf2c/libF77/z_log.c')
-rw-r--r-- | libf2c/libF77/z_log.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/libf2c/libF77/z_log.c b/libf2c/libF77/z_log.c new file mode 100644 index 00000000000..48afca63d6d --- /dev/null +++ b/libf2c/libF77/z_log.c @@ -0,0 +1,20 @@ +#include "f2c.h" + +#ifdef KR_headers +double log(), f__cabs(), atan2(); +VOID z_log(resx, z) doublecomplex *resx, *z; +#else +#undef abs +#include <math.h> +extern double f__cabs(double, double); +void z_log(doublecomplex *resx, doublecomplex *z) +#endif +{ +doublecomplex res; + +res.i = atan2(z->i, z->r); +res.r = log( f__cabs( z->r, z->i ) ); + +resx->r = res.r; +resx->i = res.i; +} |