Martin Kroeker
GitHub
1 year ago
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 5 additions and 3 deletions
Unified View
Diff Options
+ 5
- 3
lapack-netlib/TESTING/EIG/sdrvst.f
View File
| @@ -2772,7 +2772,7 @@ c LIWEDC = 12 | |||||
| RESULT( NTEST ) = ULPINV | RESULT( NTEST ) = ULPINV | ||||
| RESULT( NTEST+1 ) = ULPINV | RESULT( NTEST+1 ) = ULPINV | ||||
| RESULT( NTEST+2 ) = ULPINV | RESULT( NTEST+2 ) = ULPINV | ||||
| GO TO 700 | |||||
| GO TO 1750 | |||||
| END IF | END IF | ||||
| END IF | END IF | ||||
| * | * | ||||
| @@ -2797,13 +2797,13 @@ c LIWEDC = 12 | |||||
| RETURN | RETURN | ||||
| ELSE | ELSE | ||||
| RESULT( NTEST ) = ULPINV | RESULT( NTEST ) = ULPINV | ||||
| GO TO 700 | |||||
| GO TO 1750 | |||||
| END IF | END IF | ||||
| END IF | END IF | ||||
| * | * | ||||
| IF( M3.EQ.0 .AND. N.GT.0 ) THEN | IF( M3.EQ.0 .AND. N.GT.0 ) THEN | ||||
| RESULT( NTEST ) = ULPINV | RESULT( NTEST ) = ULPINV | ||||
| GO TO 700 | |||||
| GO TO 1750 | |||||
| END IF | END IF | ||||
| * | * | ||||
| * Do test 78 (or +54) | * Do test 78 (or +54) | ||||
| @@ -2819,6 +2819,8 @@ c LIWEDC = 12 | |||||
| $ MAX( UNFL, TEMP3*ULP ) | $ MAX( UNFL, TEMP3*ULP ) | ||||
| * | * | ||||
| CALL SLACPY( ' ', N, N, V, LDU, A, LDA ) | CALL SLACPY( ' ', N, N, V, LDU, A, LDA ) | ||||
| * | |||||
| 1750 CONTINUE | |||||
| * | * | ||||
| 1720 CONTINUE | 1720 CONTINUE | ||||
| * | * | ||||