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

#include "f2c.h"

#ifdef KR_headers
extern double f__cabs();

double c_abs(z) complex *z;
#else
extern double f__cabs(double, double);

double c_abs(complex *z)
#endif
{
return( f__cabs( z->r, z->i ) );
}
Commit	Line	Data
547779a8 WH	1	#include "f2c.h"
	2
	3	#ifdef KR_headers
	4	extern double f__cabs();
	5
	6	double c_abs(z) complex *z;
	7	#else
	8	extern double f__cabs(double, double);
	9
	10	double c_abs(complex *z)
	11	#endif
	12	{
	13	return( f__cabs( z->r, z->i ) );
	14	}