Typos in the comments of [s/d]tpmqrt.f reported by Andreas Noack Jensen on Sept....

See LAPACK forum: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4583

diff --git a/SRC/dtpmqrt.f b/SRC/dtpmqrt.f
index b8bf7ce97b2b55f93d08dd933d2913ba5e148fc4..7c7ca460cda932a3f757c4b1e0e9f9ad9a67e432 100644 (file)
--- 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 2763b9aff9335e2d8abd6215cc2aa15a95286da2..9435df0b1b22cfddefd85f96bedad72c148a15bc 100644 (file)
--- 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
 *>
 *  =====================================================================