3 doublereal slapy2_(real *x, real *y)
5 /* System generated locals */
8 /* Builtin functions */
9 double sqrt(doublereal);
12 real w, z__, xabs, yabs;
15 /* -- LAPACK auxiliary routine (version 3.1) -- */
16 /* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */
19 /* .. Scalar Arguments .. */
25 /* SLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary */
33 /* X and Y specify the values x and y. */
35 /* ===================================================================== */
37 /* .. Parameters .. */
39 /* .. Local Scalars .. */
41 /* .. Intrinsic Functions .. */
43 /* .. Executable Statements .. */
48 z__ = dmin(xabs,yabs);
52 /* Computing 2nd power */
54 ret_val = w * sqrt(r__1 * r__1 + 1.f);