1#include "f2c.h" 2 3#ifdef KR_headers 4extern double log(), f__cabs(), atan2(); 5VOID c_log(r, z) complex *r, *z; 6#else 7#undef abs 8#include "math.h" 9extern double f__cabs(double, double); 10 11void 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 } 18