[unix-history] / usr / src / libF77 / c_abs.c

#include "complex"

float c_abs(z)
complex *z;
{
double cabs();

return( cabs( z->real, z->imag ) );
}
Commit	Line	Data
27d66adc KT	1	#include "complex"
	2
	3	float c_abs(z)
	4	complex *z;
	5	{
	6	double cabs();
	7
	8	return( cabs( z->real, z->imag ) );
	9	}