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

Merge pull request #1356 from martin-frbg/lapack-issue196 

Break out of potentially infinite rescaling loop after 1000 iterations
This commit is contained in:
Martin Kroeker 2017-11-10 22:15:27 +01:00 committed by GitHub
parent 4271b2b158 2df1e3372d
commit bd3546704c
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/clarfg.f
View File

@ -175,7 +175,7 @@
BETA = BETA*RSAFMN
ALPHI = ALPHI*RSAFMN
ALPHR = ALPHR*RSAFMN
IF( ABS( BETA ).LT.SAFMIN )
IF( ABS( BETA ).LT.SAFMIN .AND. KNT .LT. 1000)
$ GO TO 10
*
* New BETA is at most 1, at least SAFMIN

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

@ -197,7 +197,7 @@
BETA = BETA*BIGNUM
ALPHI = ALPHI*BIGNUM
ALPHR = ALPHR*BIGNUM
IF( ABS( BETA ).LT.SMLNUM )
IF( ABS( BETA ).LT.SMLNUM .AND. KNT .LT. 1000 )
$ GO TO 10
*
* New BETA is at most 1, at least SMLNUM

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

@ -170,7 +170,7 @@
CALL DSCAL( N-1, RSAFMN, X, INCX )
BETA = BETA*RSAFMN
ALPHA = ALPHA*RSAFMN
IF( ABS( BETA ).LT.SAFMIN )
IF( ABS( BETA ).LT.SAFMIN .AND. KNT .LT. 1000 )
$ GO TO 10
*
* New BETA is at most 1, at least SAFMIN

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

@ -181,7 +181,7 @@
CALL DSCAL( N-1, BIGNUM, X, INCX )
BETA = BETA*BIGNUM
ALPHA = ALPHA*BIGNUM
IF( ABS( BETA ).LT.SMLNUM )
IF( ABS( BETA ).LT.SMLNUM .AND. KNT .LT. 1000)
$ GO TO 10
*
* New BETA is at most 1, at least SMLNUM

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

@ -170,7 +170,7 @@
CALL SSCAL( N-1, RSAFMN, X, INCX )
BETA = BETA*RSAFMN
ALPHA = ALPHA*RSAFMN
IF( ABS( BETA ).LT.SAFMIN )
IF( ABS( BETA ).LT.SAFMIN .AND. KNT .LT. 1000)
$ GO TO 10
*
* New BETA is at most 1, at least SAFMIN

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

@ -181,7 +181,7 @@
CALL SSCAL( N-1, BIGNUM, X, INCX )
BETA = BETA*BIGNUM
ALPHA = ALPHA*BIGNUM
IF( ABS( BETA ).LT.SMLNUM )
IF( ABS( BETA ).LT.SMLNUM .AND. KNT .LT. 1000 )
$ GO TO 10
*
* New BETA is at most 1, at least SMLNUM

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

@ -175,7 +175,7 @@
BETA = BETA*RSAFMN
ALPHI = ALPHI*RSAFMN
ALPHR = ALPHR*RSAFMN
IF( ABS( BETA ).LT.SAFMIN )
IF( ABS( BETA ).LT.SAFMIN .AND. KNT .LT. 1000)
$ GO TO 10
*
* New BETA is at most 1, at least SAFMIN

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

@ -197,7 +197,7 @@
BETA = BETA*BIGNUM
ALPHI = ALPHI*BIGNUM
ALPHR = ALPHR*BIGNUM
IF( ABS( BETA ).LT.SMLNUM )
IF( ABS( BETA ).LT.SMLNUM .AND. KNT .LT. 1000)
$ GO TO 10
*
* New BETA is at most 1, at least SMLNUM