Return to c_exp.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libF77

Power 6/32 Unix version 1.21

/*
 *	"@(#)c_expf.c	1.1"
 */

#include "complex"

c_exp(r, z)
complex *r, *z;
{
fortran float exp(), cos(), sin();
float expx;

expx = exp(z->real);
r->real = expx * cos(z->imag);
r->imag = expx * sin(z->imag);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.