From 5684d01e6f50a09b5489e2a8a3c705921ec49037 Mon Sep 17 00:00:00 2001
From: langou <langou@users.noreply.github.com>
Date: Tue, 16 Sep 2014 03:51:58 +0000
Subject: [PATCH] Typos in the comments of [s/d]tpmqrt.f reported by Andreas
 Noack Jensen on Sept. 15 2014. See LAPACK forum:
 http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4583

---
 SRC/dtpmqrt.f |  2 +-
 SRC/stpmqrt.f | 14 +++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/SRC/dtpmqrt.f b/SRC/dtpmqrt.f
index b8bf7ce9..7c7ca460 100644
--- a/SRC/dtpmqrt.f
+++ b/SRC/dtpmqrt.f
@@ -55,7 +55,7 @@
 *> \verbatim
 *>          TRANS is CHARACTER*1
 *>          = 'N':  No transpose, apply Q;
-*>          = 'C':  Transpose, apply Q**T.
+*>          = 'T':  Transpose, apply Q**T.
 *> \endverbatim
 *>
 *> \param[in] M
diff --git a/SRC/stpmqrt.f b/SRC/stpmqrt.f
index 2763b9af..9435df0b 100644
--- a/SRC/stpmqrt.f
+++ b/SRC/stpmqrt.f
@@ -47,15 +47,15 @@
 *> \param[in] SIDE
 *> \verbatim
 *>          SIDE is CHARACTER*1
-*>          = 'L': apply Q or Q^H from the Left;
-*>          = 'R': apply Q or Q^H from the Right.
+*>          = 'L': apply Q or Q^T from the Left;
+*>          = 'R': apply Q or Q^T from the Right.
 *> \endverbatim
 *>
 *> \param[in] TRANS
 *> \verbatim
 *>          TRANS is CHARACTER*1
 *>          = 'N':  No transpose, apply Q;
-*>          = 'C':  Transpose, apply Q^H.
+*>          = 'T':  Transpose, apply Q^T.
 *> \endverbatim
 *>
 *> \param[in] M
@@ -128,7 +128,7 @@
 *>          (LDA,K) if SIDE = 'R'
 *>          On entry, the K-by-N or M-by-K matrix A.
 *>          On exit, A is overwritten by the corresponding block of 
-*>          Q*C or Q^H*C or C*Q or C*Q^H.  See Further Details.
+*>          Q*C or Q^T*C or C*Q or C*Q^T.  See Further Details.
 *> \endverbatim
 *>
 *> \param[in] LDA
@@ -144,7 +144,7 @@
 *>          B is REAL array, dimension (LDB,N)
 *>          On entry, the M-by-N matrix B.
 *>          On exit, B is overwritten by the corresponding block of
-*>          Q*C or Q^H*C or C*Q or C*Q^H.  See Further Details.
+*>          Q*C or Q^T*C or C*Q or C*Q^T.  See Further Details.
 *> \endverbatim
 *>
 *> \param[in] LDB
@@ -205,11 +205,11 @@
 *>
 *>  If TRANS='N' and SIDE='L', C is on exit replaced with Q * C.
 *>
-*>  If TRANS='C' and SIDE='L', C is on exit replaced with Q^H * C.
+*>  If TRANS='T' and SIDE='L', C is on exit replaced with Q^T * C.
 *>
 *>  If TRANS='N' and SIDE='R', C is on exit replaced with C * Q.
 *>
-*>  If TRANS='C' and SIDE='R', C is on exit replaced with C * Q^H.
+*>  If TRANS='T' and SIDE='R', C is on exit replaced with C * Q^T.
 *> \endverbatim
 *>
 *  =====================================================================
-- 
2.34.1