aboutsummaryrefslogtreecommitdiff
path: root/SRC/zlags2.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/zlags2.f')
-rw-r--r--SRC/zlags2.f34
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