Merge pull request #1206 from nakatamaho/fix/trsyl3-ldswork-overwrite

Fix LDSWORK being overwritten during workspace query in xTRSYL3
2026-03-24 06:59:14 -06:00
parent a52f5fa69d 989ffdd779
commit eb5f719947
4 changed files with 0 additions and 4 deletions
@@ -229,7 +229,6 @@
      INFO = 0
      LQUERY = ( LDSWORK.EQ.-1 )
      IF( LQUERY ) THEN
-         LDSWORK = 2
         SWORK(1,1) = REAL( MAX( NBA, NBB ) )
         SWORK(2,1) = REAL( 2 * NBB + NBA )
      END IF
@@ -260,7 +260,6 @@
      LQUERY = ( LIWORK.EQ.-1 .OR. LDSWORK.EQ.-1 )
      IWORK( 1 ) = NBA + NBB + 2
      IF( LQUERY ) THEN
-         LDSWORK = 2
         SWORK( 1, 1 ) = MAX( NBA, NBB )
         SWORK( 2, 1 ) = 2 * NBB + NBA
      END IF
@@ -259,7 +259,6 @@
      LQUERY = ( LIWORK.EQ.-1 .OR. LDSWORK.EQ.-1 )
      IWORK( 1 ) = NBA + NBB + 2
      IF( LQUERY ) THEN
-         LDSWORK = 2
         SWORK( 1, 1 ) = REAL( MAX( NBA, NBB ) )
         SWORK( 2, 1 ) = REAL( 2 * NBB + NBA )
      END IF
@@ -230,7 +230,6 @@
      INFO = 0
      LQUERY = ( LDSWORK.EQ.-1 )
      IF( LQUERY ) THEN
-         LDSWORK = 2
         SWORK(1,1) = MAX( NBA, NBB )
         SWORK(2,1) = 2 * NBB + NBA
      END IF