From 7656583a53460025b331d3eafce940f4ebd46dc6 Mon Sep 17 00:00:00 2001
From: scr2016 <1015908+scr2016@users.noreply.github.com>
Date: Tue, 14 Nov 2023 04:42:10 -0800
Subject: [PATCH]  changed formatting in the RELTOL description WE recomment
 RELTOL to be ... and for complex case added a factor of 10 as min(
 10*max(M,N)*EPS, sqrt(EPS) ) <= RELTOL

---
 SRC/dgeqp3rk.f | 2 +-
 SRC/zgeqp3rk.f | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/SRC/dgeqp3rk.f b/SRC/dgeqp3rk.f
index fd1a6060e..8571f8477 100755
--- a/SRC/dgeqp3rk.f
+++ b/SRC/dgeqp3rk.f
@@ -272,7 +272,7 @@
 *>          modified, and the matrix A is itself the residual.
 *>
 *>          NOTE: We recommend that RELTOL satisfy
-*>                min(max(M,N)*EPS, sqrt(EPS)) <= RELTOL
+*>                min( max(M,N)*EPS, sqrt(EPS) ) <= RELTOL
 *> \endverbatim
 *>
 *> \param[in,out] A
diff --git a/SRC/zgeqp3rk.f b/SRC/zgeqp3rk.f
index d9c26fb65..d12ed5e58 100755
--- a/SRC/zgeqp3rk.f
+++ b/SRC/zgeqp3rk.f
@@ -273,7 +273,7 @@
 *>          modified, and the matrix A is itself the residual.
 *>
 *>          NOTE: We recommend that RELTOL satisfy
-*>                min(max(M,N)*EPS, sqrt(EPS)) <= RELTOL
+*>                min( 10*max(M,N)*EPS, sqrt(EPS) ) <= RELTOL
 *> \endverbatim
 *>
 *> \param[in,out] A