Browse Source
Merge pull request #4055 from martin-frbg/lapack830
Fix scaling in LAPACK STGSNA/DTGSNA (Reference-LAPACK PR 830)
tags/v0.3.24
Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with
2 additions and
2 deletions
-
lapack-netlib/SRC/dtgsna.f
-
lapack-netlib/SRC/stgsna.f
|
|
|
@@ -632,8 +632,8 @@ |
|
|
|
C1 = TWO*( ALPHAR*ALPHAR+ALPHAI*ALPHAI+BETA*BETA ) |
|
|
|
C2 = FOUR*BETA*BETA*ALPHAI*ALPHAI |
|
|
|
ROOT1 = C1 + SQRT( C1*C1-4.0D0*C2 ) |
|
|
|
ROOT2 = C2 / ROOT1 |
|
|
|
ROOT1 = ROOT1 / TWO |
|
|
|
ROOT2 = C2 / ROOT1 |
|
|
|
COND = MIN( SQRT( ROOT1 ), SQRT( ROOT2 ) ) |
|
|
|
END IF |
|
|
|
* |
|
|
|
|
|
|
|
@@ -632,8 +632,8 @@ |
|
|
|
C1 = TWO*( ALPHAR*ALPHAR+ALPHAI*ALPHAI+BETA*BETA ) |
|
|
|
C2 = FOUR*BETA*BETA*ALPHAI*ALPHAI |
|
|
|
ROOT1 = C1 + SQRT( C1*C1-4.0*C2 ) |
|
|
|
ROOT2 = C2 / ROOT1 |
|
|
|
ROOT1 = ROOT1 / TWO |
|
|
|
ROOT2 = C2 / ROOT1 |
|
|
|
COND = MIN( SQRT( ROOT1 ), SQRT( ROOT2 ) ) |
|
|
|
END IF |
|
|
|
* |
|
|
|
|
