Fix potential memory corruption if INFO<0

martin-frbg · web-flow · commit 8f2d86aff65c · 2025-05-17T14:52:15.000+02:00
diff --git a/SRC/cgeev.f b/SRC/cgeev.f
@@ -496,7 +496,7 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR,
 *     Undo scaling if necessary
 *
    50 CONTINUE
-      IF( SCALEA ) THEN
+      IF( SCALEA .AND. INFO.GE.0) THEN
          CALL CLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,
      $                W( INFO+1 ),
      $                MAX( N-INFO, 1 ), IERR )

Original file line number	Diff line number	Diff line change
`@@ -496,7 +496,7 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR,`
`496`	`496`	`* Undo scaling if necessary`
`497`	`497`	`*`
`498`	`498`	`50 CONTINUE`
`499`		`- IF( SCALEA ) THEN`
	`499`	`+ IF( SCALEA .AND. INFO.GE.0) THEN`
`500`	`500`	`CALL CLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,`
`501`	`501`	`$ W( INFO+1 ),`
`502`	`502`	`$ MAX( N-INFO, 1 ), IERR )`