Martin Kroeker
GitHub
9 months ago
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 3 additions and 3 deletions
Unified View
Diff Options
+ 3
- 3
lapack-netlib/SRC/sgeev.f
View File
| @@ -504,17 +504,17 @@ | |||||
| * Undo scaling if necessary | * Undo scaling if necessary | ||||
| * | * | ||||
| 50 CONTINUE | 50 CONTINUE | ||||
| IF( SCALEA ) THEN | |||||
| IF( SCALEA .AND. INFO.GT.0) THEN | |||||
| CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WR( INFO+1 ), | CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WR( INFO+1 ), | ||||
| $ MAX( N-INFO, 1 ), IERR ) | $ MAX( N-INFO, 1 ), IERR ) | ||||
| CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WI( INFO+1 ), | CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WI( INFO+1 ), | ||||
| $ MAX( N-INFO, 1 ), IERR ) | $ MAX( N-INFO, 1 ), IERR ) | ||||
| IF( INFO.GT.0 ) THEN | |||||
| CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WR, N, | CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WR, N, | ||||
| $ IERR ) | $ IERR ) | ||||
| CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WI, N, | CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WI, N, | ||||
| $ IERR ) | $ IERR ) | ||||
| END IF | |||||
| END IF | END IF | ||||
| * | * | ||||
| WORK( 1 ) = SROUNDUP_LWORK(MAXWRK) | WORK( 1 ) = SROUNDUP_LWORK(MAXWRK) | ||||