* 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 sin(), cos(), sinh(), cosh();
r
->dreal
= sin(z
->dreal
) * cosh(z
->dimag
);
r
->dimag
= cos(z
->dreal
) * sinh(z
->dimag
);