libf2c/libF77/c_log.c

   1 #include "f2c.h"
   2
   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);
  10
  11 void c_log(complex *r, complex *z)
  12 #endif
  13 {
  14         double zi, zr;
  15         r->i = atan2(zi = z->i, zr = z->r);
  16         r->r = log( f__cabs(zr, zi) );
  17         }