/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* asinh APL2 V1.0.0 ***************************************************
* Inverse hyperbolic sine for real numbers.                            *
***********************************************************************/
#define INCLUDES MATH
#include "includes.h"
double asinh(rite)
double rite;
{
	if (rite < 0e0) {
		rite = -rite;
		return(-log(rite+sqrt(rite*rite+1.0)));
	} else
		return(log(rite+sqrt(rite*rite+1.0)));
}