/* sqrt --- return square root of x */

double sqrt (x)
double x;
{
        extern double dsqt$m();

        return (dsqt$m (x));
}