* 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 exp(), cos(), sin();
r
->real
= expx
* cos(z
->imag
);
r
->imag
= expx
* sin(z
->imag
);