diff options
Diffstat (limited to 'gnu/lib/libf2c/libF77/c_log.c')
-rw-r--r-- | gnu/lib/libf2c/libF77/c_log.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/gnu/lib/libf2c/libF77/c_log.c b/gnu/lib/libf2c/libF77/c_log.c deleted file mode 100644 index 7d5b9513167..00000000000 --- a/gnu/lib/libf2c/libF77/c_log.c +++ /dev/null @@ -1,13 +0,0 @@ -#include "f2c.h" - -#undef abs -#include "math.h" -extern double f__cabs (double, double); - -void -c_log (complex * r, complex * z) -{ - double zi, zr; - r->i = atan2 (zi = z->i, zr = z->r); - r->r = log (f__cabs (zr, zi)); -} |