Merge pull request #1142 from Reference-LAPACK/revert-1129-issue1128

Revert "Avoid memory corruption with non-finite inputs in ?GEEV"
2025-06-26 09:24:50 -06:00
parent 49ff1770ef caf674f0d2
commit efbd2fdf44
4 changed files with 4 additions and 4 deletions
@@ -496,7 +496,7 @@
 *     Undo scaling if necessary
 *
   50 CONTINUE
-      IF( SCALEA .AND. INFO.GE.0) THEN
+      IF( SCALEA ) THEN
         CALL CLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,
     $                W( INFO+1 ),
     $                MAX( N-INFO, 1 ), IERR )
@@ -517,7 +517,7 @@
 *     Undo scaling if necessary
 *
   50 CONTINUE
-      IF( SCALEA .AND. INFO.GE.0 ) THEN
+      IF( SCALEA ) THEN
         CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,
     $                WR( INFO+1 ),
     $                MAX( N-INFO, 1 ), IERR )
@@ -519,7 +519,7 @@
 *     Undo scaling if necessary
 *
   50 CONTINUE
-      IF( SCALEA .AND. INFO.GE.0 ) THEN
+      IF( SCALEA ) THEN
         CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,
     $                WR( INFO+1 ),
     $                MAX( N-INFO, 1 ), IERR )
@@ -493,7 +493,7 @@
 *     Undo scaling if necessary
 *
   50 CONTINUE
-      IF( SCALEA .AND.INFO.GE.0) THEN
+      IF( SCALEA ) THEN
         CALL ZLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,
     $                W( INFO+1 ),
     $                MAX( N-INFO, 1 ), IERR )