1 #include "f2c.h" 2 3 #ifdef KR_headers 4 extern double log(), f__cabs(), atan2(); c_log(r,z)5VOID c_log(r, z) complex *r, *z; 6 #else 7 #undef abs 8 #include "mathh.h" 9 extern double f__cabs(double, double); 10 11 void c_log(complex *r, complex *z) 12 #endif 13 { 14 r->i = atan2(z->i, z->r); 15 r->r = log( f__cabs(z->r, z->i) ); 16 } 17