1 /* 2 * "@(#)c_log.c 1.1" 3 */ 4 5 #include "complex" 6 7 c_log(r, z) 8 complex *r, *z; 9 { 10 double log(), cabs(), atan2(); 11 12 r->imag = atan2(z->imag, z->real); 13 r->real = log( cabs(z->real, z->imag) ); 14 } 15