gcc/libf2c/libF77/c_exp.c
Kaveh R. Ghazi 4d85a6fea6 *: Delete KR_headers cruft.
* libF77/*: Delete KR_headers cruft.
	* libI77/*: Likewise.
	* libU77/*: Likewise.

From-SVN: r54132
2002-06-01 01:53:53 +00:00

14 lines
181 B
C

#include "f2c.h"
#undef abs
#include "math.h"
void c_exp(complex *r, complex *z)
{
double expx, zi = z->i;
expx = exp(z->r);
r->r = expx * cos(zi);
r->i = expx * sin(zi);
}