From 80c64e439468673db8ac424a1125003ef9132c79 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Tue, 20 Oct 2026 13:32:04 +0200
Subject: [PATCH] Remove the LIWORKS and LDSWORKS checks (Reference-LAPACK PR
 1426)

---
 lapack-netlib/SRC/strsyl3.c | 4 ----
 lapack-netlib/SRC/strsyl3.f | 4 ----
 2 files changed, 8 deletions(-)

diff --git a/lapack-netlib/SRC/strsyl3.c b/lapack-netlib/SRC/strsyl3.c
index e2cbc253dc..296ef28b7e 100644
--- a/lapack-netlib/SRC/strsyl3.c
+++ b/lapack-netlib/SRC/strsyl3.c
@@ -774,10 +774,6 @@ static real c_b32 = 1.f;
 	*info = -9;
     } else if (*ldc < f2cmax(1,*m)) {
 	*info = -11;
-    } else if (! lquery && *liwork < iwork[1]) {
-	*info = -14;
-    } else if (! lquery && *ldswork < f2cmax(nba,nbb)) {
-	*info = -16;
     }
     if (*info != 0) {
 	i__1 = -(*info);
diff --git a/lapack-netlib/SRC/strsyl3.f b/lapack-netlib/SRC/strsyl3.f
index 4189adb788..38b3294149 100644
--- a/lapack-netlib/SRC/strsyl3.f
+++ b/lapack-netlib/SRC/strsyl3.f
@@ -283,10 +283,6 @@ SUBROUTINE STRSYL3( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB,
          INFO = -9
       ELSE IF( LDC.LT.MAX( 1, M ) ) THEN
          INFO = -11
-      ELSE IF( .NOT.LQUERY .AND. LIWORK.LT.IWORK(1) ) THEN
-         INFO = -14
-      ELSE IF( .NOT.LQUERY .AND. LDSWORK.LT.MAX( NBA, NBB ) ) THEN
-         INFO = -16
       END IF
       IF( INFO.NE.0 ) THEN
          CALL XERBLA( 'STRSYL3', -INFO )