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