floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #4055 from martin-frbg/lapack830 

Fix scaling in LAPACK STGSNA/DTGSNA (Reference-LAPACK PR 830)
This commit is contained in:
Martin Kroeker 2023-05-24 20:52:02 +02:00 committed by GitHub
parent 2bca1970db 912bfd9bfb
commit 188889b3ee
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/dtgsna.f
View File

@ -632,8 +632,8 @@
C1 = TWO*( ALPHAR*ALPHAR+ALPHAI*ALPHAI+BETA*BETA ) C1 = TWO*( ALPHAR*ALPHAR+ALPHAI*ALPHAI+BETA*BETA )
C2 = FOUR*BETA*BETA*ALPHAI*ALPHAI C2 = FOUR*BETA*BETA*ALPHAI*ALPHAI
ROOT1 = C1 + SQRT( C1*C1-4.0D0*C2 ) ROOT1 = C1 + SQRT( C1*C1-4.0D0*C2 )
ROOT2 = C2 / ROOT1
ROOT1 = ROOT1 / TWO ROOT1 = ROOT1 / TWO
ROOT2 = C2 / ROOT1
COND = MIN( SQRT( ROOT1 ), SQRT( ROOT2 ) ) COND = MIN( SQRT( ROOT1 ), SQRT( ROOT2 ) )
END IF END IF
* *

2
lapack-netlib/SRC/stgsna.f
View File

@ -632,8 +632,8 @@
C1 = TWO*( ALPHAR*ALPHAR+ALPHAI*ALPHAI+BETA*BETA ) C1 = TWO*( ALPHAR*ALPHAR+ALPHAI*ALPHAI+BETA*BETA )
C2 = FOUR*BETA*BETA*ALPHAI*ALPHAI C2 = FOUR*BETA*BETA*ALPHAI*ALPHAI
ROOT1 = C1 + SQRT( C1*C1-4.0*C2 ) ROOT1 = C1 + SQRT( C1*C1-4.0*C2 )
ROOT2 = C2 / ROOT1
ROOT1 = ROOT1 / TWO ROOT1 = ROOT1 / TWO
ROOT2 = C2 / ROOT1
COND = MIN( SQRT( ROOT1 ), SQRT( ROOT2 ) ) COND = MIN( SQRT( ROOT1 ), SQRT( ROOT2 ) )
END IF END IF
* *