1
*> \brief \b SLAPY2 returns sqrt(x2+y2).
3
* =========== DOCUMENTATION ===========
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
9
*> Download SLAPY2 + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slapy2.f">
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slapy2.f">
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slapy2.f">
21
* REAL FUNCTION SLAPY2( X, Y )
23
* .. Scalar Arguments ..
33
*> SLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary
48
*> X and Y specify the values x and y.
54
*> \author Univ. of Tennessee
55
*> \author Univ. of California Berkeley
56
*> \author Univ. of Colorado Denver
59
*> \date September 2012
61
*> \ingroup auxOTHERauxiliary
63
* =====================================================================
1
64
REAL FUNCTION SLAPY2( X, Y )
3
* -- LAPACK auxiliary routine (version 2.0) --
4
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
5
* Courant Institute, Argonne National Lab, and Rice University
66
* -- LAPACK auxiliary routine (version 3.4.2) --
67
* -- LAPACK is a software package provided by Univ. of Tennessee, --
68
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
8
71
* .. Scalar Arguments ..
13
* $Id: slapy2.f 19697 2010-10-29 16:57:34Z d3y133 $
18
* SLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary
26
* X and Y specify the values x and y.
28
75
* =====================================================================