* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
double log(), cabs(), atan2();
r
->dimag
= atan2(z
->dimag
, z
->dreal
);
r
->dreal
= log( cabs( z
->dreal
, z
->dimag
) );