[unix-history] / .ref-BSD-3 / usr / src / libF77 / z_exp.c

#include "complex"

z_exp(r, z)
dcomplex *r, *z;
{
double expx;
double exp(), cos(), sin();

expx = exp(z->dreal);
r->dreal = expx * cos(z->dimag);
r->dimag = expx * sin(z->dimag);
}
Commit	Line	Data
0ee0e326 BJ	1	#include "complex"
	2
	3	z_exp(r, z)
	4	dcomplex r, z;
	5	{
	6	double expx;
	7	double exp(), cos(), sin();
	8
	9	expx = exp(z->dreal);
	10	r->dreal = expx * cos(z->dimag);
	11	r->dimag = expx * sin(z->dimag);
	12	}