fix possible infinite loop on error (Reference-LAPACK PR 1024)
This commit is contained in:
parent
a9817b4212
commit
215279662e
|
@ -2819,9 +2819,9 @@ c LIWEDC = 12
|
||||||
$ MAX( UNFL, TEMP3*ULP )
|
$ MAX( UNFL, TEMP3*ULP )
|
||||||
*
|
*
|
||||||
CALL DLACPY( ' ', N, N, V, LDU, A, LDA )
|
CALL DLACPY( ' ', N, N, V, LDU, A, LDA )
|
||||||
|
*
|
||||||
1750 CONTINUE
|
1750 CONTINUE
|
||||||
|
*
|
||||||
1720 CONTINUE
|
1720 CONTINUE
|
||||||
*
|
*
|
||||||
* End of Loop -- Check for RESULT(j) > THRESH
|
* End of Loop -- Check for RESULT(j) > THRESH
|
||||||
|
|
Loading…
Reference in New Issue