/*Copyright (C) 1997 by Thomas Glen Smith.  All Rights Reserved.*/
/* asinx APL2 V1.0.0 ***************************************************
* Arc-sine for complex numbers.								 *
***********************************************************************/
#define INCLUDES MATH+TRIGKEYS
#include "includes.h"
void asinx(rrr,ret)
double *rrr,*ret;
{
	Asinhx; Timesx;
	double ixr[2],wa[2];
	static double
		iii[2]={0.0,1.0};

	IXR					/* ixr = iXr */
	asinhx(ixr,wa);		/* wa  = asinhx iXr */
	timesx(iii,wa,ret);		/* ret = iXasinhx iXr */
	PREFIX_MINUS(ret);		/* ret= _iXasinhx iXr */
}