From 5cc9ff49f5ee8471ead56c63b7265492da606cf9 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Wed, 24 Jun 2026 21:27:43 +0200
Subject: [PATCH] Fix description of QMAX to mark it as in/out
 (Reference-LAPACK PR 1307)

---
 lapack-netlib/SRC/dlasq3.f | 10 +++++-----
 lapack-netlib/SRC/slasq3.f | 10 +++++-----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/lapack-netlib/SRC/dlasq3.f b/lapack-netlib/SRC/dlasq3.f
index e4bdafe06e..78ab909e8c 100644
--- a/lapack-netlib/SRC/dlasq3.f
+++ b/lapack-netlib/SRC/dlasq3.f
@@ -5,7 +5,6 @@
 * Online html documentation available at
 *            http://www.netlib.org/lapack/explore-html/
 *
-*> \htmlonly
 *> Download DLASQ3 + dependencies
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlasq3.f">
 *> [TGZ]</a>
@@ -13,7 +12,6 @@
 *> [ZIP]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlasq3.f">
 *> [TXT]</a>
-*> \endhtmlonly
 *
 *  Definition:
 *  ===========
@@ -91,7 +89,7 @@
 *>         Lower order part of SIGMA
 *> \endverbatim
 *>
-*> \param[in] QMAX
+*> \param[in,out] QMAX
 *> \verbatim
 *>          QMAX is DOUBLE PRECISION
 *>         Maximum value of q.
@@ -173,12 +171,14 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup auxOTHERcomputational
+*> \ingroup lasq3
 *
 *  =====================================================================
-      SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL,
+      SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX,
+     $                   NFAIL,
      $                   ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1,
      $                   DN2, G, TAU )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/lapack-netlib/SRC/slasq3.f b/lapack-netlib/SRC/slasq3.f
index cd86ce8962..e574b39f61 100644
--- a/lapack-netlib/SRC/slasq3.f
+++ b/lapack-netlib/SRC/slasq3.f
@@ -5,7 +5,6 @@
 * Online html documentation available at
 *            http://www.netlib.org/lapack/explore-html/
 *
-*> \htmlonly
 *> Download SLASQ3 + dependencies
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slasq3.f">
 *> [TGZ]</a>
@@ -13,7 +12,6 @@
 *> [ZIP]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slasq3.f">
 *> [TXT]</a>
-*> \endhtmlonly
 *
 *  Definition:
 *  ===========
@@ -91,7 +89,7 @@
 *>         Lower order part of SIGMA
 *> \endverbatim
 *>
-*> \param[in] QMAX
+*> \param[in,out] QMAX
 *> \verbatim
 *>          QMAX is REAL
 *>         Maximum value of q.
@@ -173,12 +171,14 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \ingroup auxOTHERcomputational
+*> \ingroup lasq3
 *
 *  =====================================================================
-      SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL,
+      SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX,
+     $                   NFAIL,
      $                   ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1,
      $                   DN2, G, TAU )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --