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

#include "f2c.h"

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