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

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

#include "complex"

double z_abs(z)
dcomplex *z;
{
double cabs();

return( cabs( z->dreal, z->dimag ) );
}
Commit	Line	Data
dcd5c11f DW	1	/*
	2	* "@(#)z_abs.c 1.1"
	3	*/
	4
	5	#include "complex"
	6
	7	double z_abs(z)
	8	dcomplex *z;
	9	{
	10	double cabs();
	11
	12	return( cabs( z->dreal, z->dimag ) );
	13	}