date and time created 83/01/21 11:17:49 by dlw

[unix-history] / usr / src / usr.bin / f77 / libF77 / c_log.c

/*
*      "@(#)c_log.c    1.1"
*/

#include "complex"

c_log(r, z)
complex *r, *z;
{
double log(), cabs(), atan2();

r->imag = atan2(z->imag, z->real);
r->real = log( cabs(z->real, z->imag) );
}