diff options
| author | obrien <obrien@FreeBSD.org> | 1999-04-21 16:43:03 +0000 |
|---|---|---|
| committer | obrien <obrien@FreeBSD.org> | 1999-04-21 16:43:03 +0000 |
| commit | 947085f7082572209374107061ccfc79a12a7397 (patch) | |
| tree | 37660d67894f66b335d19dab8b118860ed9b4aee /lib/libF77/c_log.c | |
| parent | b77bb336f91d563c94043b1d50ae78da2d23490c (diff) | |
| download | FreeBSD-src-947085f7082572209374107061ccfc79a12a7397.zip FreeBSD-src-947085f7082572209374107061ccfc79a12a7397.tar.gz | |
Remove the old libf2c. libg2c is now serving us well.
Diffstat (limited to 'lib/libF77/c_log.c')
| -rw-r--r-- | lib/libF77/c_log.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/lib/libF77/c_log.c b/lib/libF77/c_log.c deleted file mode 100644 index 6ac990c..0000000 --- a/lib/libF77/c_log.c +++ /dev/null @@ -1,17 +0,0 @@ -#include "f2c.h" - -#ifdef KR_headers -extern double log(), f__cabs(), atan2(); -VOID c_log(r, z) complex *r, *z; -#else -#undef abs -#include "math.h" -extern double f__cabs(double, double); - -void c_log(complex *r, complex *z) -#endif -{ - double zi; - r->i = atan2(zi = z->i, z->r); - r->r = log( f__cabs(z->r, zi) ); - } |
