Update dgeev.f

martin-frbg · web-flow · commit 4ac1c6922e79 · 2025-05-17T14:58:27.000+02:00
diff --git a/SRC/dgeev.f b/SRC/dgeev.f
@@ -517,7 +517,7 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL,
 *     Undo scaling if necessary
 *
    50 CONTINUE
-      IF( SCALEA ) THEN
+      IF( SCALEA .AND. INFO.GE.0 ) THEN
          CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,
      $                WR( INFO+1 ),
      $                MAX( N-INFO, 1 ), IERR )

Original file line number	Diff line number	Diff line change
`@@ -517,7 +517,7 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL,`
`517`	`517`	`* Undo scaling if necessary`
`518`	`518`	`*`
`519`	`519`	`50 CONTINUE`
`520`		`- IF( SCALEA ) THEN`
	`520`	`+ IF( SCALEA .AND. INFO.GE.0 ) THEN`
`521`	`521`	`CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,`
`522`	`522`	`$ WR( INFO+1 ),`
`523`	`523`	`$ MAX( N-INFO, 1 ), IERR )`