lang/fortran/lib/libF77/z_log.c

   1 #include "f2c.h"
   2
   3 VOID z_log(r, z)
   4 doublecomplex *r, *z;
   5 {
   6 double log(), cabs(), atan2();
   7
   8 r->i = atan2(z->i, z->r);
   9 r->r = log( cabs( z->r, z->i ) );
  10 }