Daily bump.
[official-gcc.git] / libf2c / libF77 / c_log.c
blob24d1a3c957b43d8edddfcc353571817fbeee1c3b
1 #include "f2c.h"
3 #ifdef KR_headers
4 extern double log(), f__cabs(), atan2();
5 VOID c_log(r, z) complex *r, *z;
6 #else
7 #undef abs
8 #include "math.h"
9 extern double f__cabs(double, double);
11 void c_log(complex *r, complex *z)
12 #endif
14 double zi, zr;
15 r->i = atan2(zi = z->i, zr = z->r);
16 r->r = log( f__cabs(zr, zi) );