OpenMathLib/OpenBLAS
1
0
Fork 0
mirror of https://github.com/OpenMathLib/OpenBLAS synced 2026-06-12 00:41:42 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Merge pull request #4055 from martin-frbg/lapack830

Browse Source 
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
2 changed files with 2 additions and 2 deletions
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 )
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
*

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

@@ -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
*