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

Break out of potentially infinite rescaling loop in LAPACK xLARGV/xLARTG/xLARTGP

Browse Source 
Reference-LAPACK issue 411
This commit is contained in:
Martin Kroeker
2020-06-07 14:30:20 +02:00
committed by GitHub
parent 0f9a935a5a
commit 522aaf53bf
8 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -200,7 +200,7 @@
FS = FS*SAFMN2
GS = GS*SAFMN2
SCALE = SCALE*SAFMN2
IF( SCALE.GE.SAFMX2 )
IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20 )
$ GO TO 10
ELSE IF( SCALE.LE.SAFMN2 ) THEN
IF( G.EQ.CZERO ) THEN

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

@@ -161,7 +161,7 @@
FS = FS*SAFMN2
GS = GS*SAFMN2
SCALE = SCALE*SAFMN2
IF( SCALE.GE.SAFMX2 )
IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20)
$ GO TO 10
ELSE IF( SCALE.LE.SAFMN2 ) THEN
IF( G.EQ.CZERO.OR.SISNAN( ABS( G ) ) ) THEN

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

@@ -163,7 +163,7 @@
F1 = F1*SAFMN2
G1 = G1*SAFMN2
SCALE = MAX( ABS( F1 ), ABS( G1 ) )
IF( SCALE.GE.SAFMX2 )
IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20)
$ GO TO 10
R = SQRT( F1**2+G1**2 )
CS = F1 / R

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

@@ -161,7 +161,7 @@
F1 = F1*SAFMN2
G1 = G1*SAFMN2
SCALE = MAX( ABS( F1 ), ABS( G1 ) )
IF( SCALE.GE.SAFMX2 )
IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20 )
$ GO TO 10
R = SQRT( F1**2+G1**2 )
CS = F1 / R

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

@@ -163,7 +163,7 @@
F1 = F1*SAFMN2
G1 = G1*SAFMN2
SCALE = MAX( ABS( F1 ), ABS( G1 ) )
IF( SCALE.GE.SAFMX2 )
IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20)
$ GO TO 10
R = SQRT( F1**2+G1**2 )
CS = F1 / R

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

@@ -161,7 +161,7 @@
F1 = F1*SAFMN2
G1 = G1*SAFMN2
SCALE = MAX( ABS( F1 ), ABS( G1 ) )
IF( SCALE.GE.SAFMX2 )
IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20)
$ GO TO 10
R = SQRT( F1**2+G1**2 )
CS = F1 / R

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

@@ -201,7 +201,7 @@
FS = FS*SAFMN2
GS = GS*SAFMN2
SCALE = SCALE*SAFMN2
IF( SCALE.GE.SAFMX2 )
IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20 )
$ GO TO 10
ELSE IF( SCALE.LE.SAFMN2 ) THEN
IF( G.EQ.CZERO ) THEN

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

@@ -161,7 +161,7 @@
FS = FS*SAFMN2
GS = GS*SAFMN2
SCALE = SCALE*SAFMN2
IF( SCALE.GE.SAFMX2 )
IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20 )
$ GO TO 10
ELSE IF( SCALE.LE.SAFMN2 ) THEN
IF( G.EQ.CZERO.OR.DISNAN( ABS( G ) ) ) THEN