diff options
Diffstat (limited to 'SRC/zlags2.f')
-rw-r--r-- | SRC/zlags2.f | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/SRC/zlags2.f b/SRC/zlags2.f index 4c59246c..b7d2062e 100644 --- a/SRC/zlags2.f +++ b/SRC/zlags2.f @@ -2,31 +2,31 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download ZLAGS2 + dependencies -*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlags2.f"> -*> [TGZ]</a> -*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlags2.f"> -*> [ZIP]</a> -*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlags2.f"> +*> Download ZLAGS2 + dependencies +*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlags2.f"> +*> [TGZ]</a> +*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlags2.f"> +*> [ZIP]</a> +*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlags2.f"> *> [TXT]</a> -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE ZLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, * SNV, CSQ, SNQ ) -* +* * .. Scalar Arguments .. * LOGICAL UPPER * DOUBLE PRECISION A1, A3, B1, B3, CSQ, CSU, CSV * COMPLEX*16 A2, B2, SNQ, SNU, SNV * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -176,8 +176,8 @@ PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION A, AUA11, AUA12, AUA21, AUA22, AVB12, AVB11, - $ AVB21, AVB22, CSL, CSR, D, FB, FC, S1, S2, + DOUBLE PRECISION A, AUA11, AUA12, AUA21, AUA22, AVB12, AVB11, + $ AVB21, AVB22, CSL, CSR, D, FB, FC, S1, S2, $ SNL, SNR, UA11R, UA22R, VB11R, VB22R COMPLEX*16 B, C, D1, R, T, UA11, UA12, UA21, UA22, VB11, $ VB12, VB21, VB22 |