lang/fortran/lib/libF77/c_log.c

   1 #include "f2c.h"
   2
   3 VOID c_log(r, z)
   4 complex *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 }