/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* recipx APL2 V1.0.0 **************************************************
* Returns the reciprocal of a complex number.                          *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void recipx(rite,ret)
double *rite,*ret;
{
	Dividex;
	static double left[]={1.0,0.0};

	dividex(left,rite,ret);
}