/* asin --- return arc sine of x */

double asin (x)
double x;
{
        extern double dasn$m();

        return (dasn$m (x));
}