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