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