diff options
author | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
commit | ff981f106bde4ce6a74aa4f4a572c943f5a395b2 (patch) | |
tree | a386cad907bcaefd6893535c31d67ec9468e693e /SRC/claqr1.f | |
parent | e58b61578b55644f6391f3333262b72c1dc88437 (diff) | |
download | lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.gz lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.bz2 lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.zip |
Diffstat (limited to 'SRC/claqr1.f')
-rw-r--r-- | SRC/claqr1.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/claqr1.f b/SRC/claqr1.f index c491268f..c51bcb67 100644 --- a/SRC/claqr1.f +++ b/SRC/claqr1.f @@ -1,7 +1,7 @@ SUBROUTINE CLAQR1( N, H, LDH, S1, S2, V ) * -* -- LAPACK auxiliary routine (version 3.1) -- -* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. +* -- LAPACK auxiliary routine (version 3.2) -- +* Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd.. * November 2006 * * .. Scalar Arguments .. @@ -54,8 +54,8 @@ PARAMETER ( RZERO = 0.0e0 ) * .. * .. Local Scalars .. - COMPLEX CDUM - REAL H21S, H31S, S + COMPLEX CDUM, H21S, H31S + REAL S * .. * .. Intrinsic Functions .. INTRINSIC ABS, AIMAG, REAL |