[unix-history] / lib / libF77 / cabs.c

#ifdef KR_headers
extern double sqrt();
double f__cabs(real, imag) double real, imag;
#else
#undef abs
#include "math.h"
double f__cabs(double real, double imag)
#endif
{
struct {double x, y;} z;
z.x = real;
z.y = imag;
return cabs(z);
}
Commit	Line	Data
547779a8 WH	1	#ifdef KR_headers
	2	extern double sqrt();
	3	double f__cabs(real, imag) double real, imag;
	4	#else
	5	#undef abs
	6	#include "math.h"
	7	double f__cabs(double real, double imag)
	8	#endif
	9	{
ad4581d8 WH	10	struct {double x, y;} z;
	11	z.x = real;
	12	z.y = imag;
	13	return cabs(z);
547779a8	14	}