* 1*: /*
* 2*: * Copyright (c) 1980 Regents of the University of California.
* 3*: * All rights reserved. The Berkeley software License Agreement
* 4*: * specifies the terms and conditions for redistribution.
* 5*: *
* 6*: * @(#)c_exp.c 5.1 6/7/85
* 7*: */
* 8*:
* 9*: #include "complex"
* 10*:
* 11*: c_exp(r, z)
* 12*: complex *r, *z;
* 13*: {
* 14*: double expx;
* 15*: double exp(), cos(), sin();
* 16*:
* 17*: expx = exp(z->real);
* 18*: r->real = expx * cos(z->imag);
* 19*: r->imag = expx * sin(z->imag);
* 20*: }

#### Defined functions

c_exp
defined in line

11;

*never used*