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

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

#include "complex"

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

return( cabs( z->real, z->imag ) );
}
Commit	Line	Data
c93fbb1f DW	1	/*
	2	* "@(#)c_abs.c 1.1"
	3	*/
	4
	5	#include "complex"
	6
	7	float c_abs(z)
	8	complex *z;
	9	{
	10	double cabs();
	11
	12	return( cabs( z->real, z->imag ) );
	13	}