/* Copyright (C) 1994 by Thomas Glen Smith.	All Rights Reserved. */
/* dabsx APL2 V1.0.0 ***************************************************
* Magnitude for complex numbers.								 *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void dabsx(x, ret)
double *x, *ret;
{
	Power;
	double a, b;

	a = *x;
	b = *(x + 1);
	*ret = power(a * a + b * b, .5);
	*(ret+1) = 0e0;
}