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 

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
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
8 changed files with 8 additions and 8 deletions
Show Stats 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 FS = FS*SAFMN2
GS = GS*SAFMN2 GS = GS*SAFMN2
SCALE = SCALE*SAFMN2 SCALE = SCALE*SAFMN2
IF( SCALE.GE.SAFMX2 ) IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20 )
$ GO TO 10 $ GO TO 10
ELSE IF( SCALE.LE.SAFMN2 ) THEN ELSE IF( SCALE.LE.SAFMN2 ) THEN
IF( G.EQ.CZERO ) THEN IF( G.EQ.CZERO ) THEN

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

@ -161,7 +161,7 @@
FS = FS*SAFMN2 FS = FS*SAFMN2
GS = GS*SAFMN2 GS = GS*SAFMN2
SCALE = SCALE*SAFMN2 SCALE = SCALE*SAFMN2
IF( SCALE.GE.SAFMX2 ) IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20)
$ GO TO 10 $ GO TO 10
ELSE IF( SCALE.LE.SAFMN2 ) THEN ELSE IF( SCALE.LE.SAFMN2 ) THEN
IF( G.EQ.CZERO.OR.SISNAN( ABS( G ) ) ) 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 F1 = F1*SAFMN2
G1 = G1*SAFMN2 G1 = G1*SAFMN2
SCALE = MAX( ABS( F1 ), ABS( G1 ) ) SCALE = MAX( ABS( F1 ), ABS( G1 ) )
IF( SCALE.GE.SAFMX2 ) IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20)
$ GO TO 10 $ GO TO 10
R = SQRT( F1**2+G1**2 ) R = SQRT( F1**2+G1**2 )
CS = F1 / R CS = F1 / R

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

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

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

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

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

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

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

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

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

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