fix possible infinite loop on error (Reference-LAPACK PR 1024)

This commit is contained in:
Martin Kroeker 2024-06-18 11:21:33 +02:00 committed by GitHub
parent a9817b4212
commit 215279662e
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 2 additions and 2 deletions

View File

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