/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* signdblx APL2 V1.0.0 ************************************************
* Direction for complex numbers.                                       *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void signdblx(x, ret)
double *x, *ret;
{
	Dabsx;
	double r[2];

     dabsx(x, r);
     *ret = *x / r[0];
     *(ret+1) = *(x+1) / r[0];
}