diff --git a/SRC/ctpmlqt.f b/SRC/ctpmlqt.f
index 97590c322a..5899a5335e 100644
--- a/SRC/ctpmlqt.f
+++ b/SRC/ctpmlqt.f
@@ -79,7 +79,7 @@
 *>
 *> \param[in] V
 *> \verbatim
-*>          V is COMPLEX array, dimension (LDA,K)
+*>          V is COMPLEX array, dimension (LDV,K)
 *>          The i-th row must contain the vector which defines the
 *>          elementary reflector H(i), for i = 1,2,...,k, as returned by
 *>          DTPLQT in B.  See Further Details.
diff --git a/SRC/ctpmqrt.f b/SRC/ctpmqrt.f
index fd3d1b1096..8d4a36ca88 100644
--- a/SRC/ctpmqrt.f
+++ b/SRC/ctpmqrt.f
@@ -94,7 +94,7 @@
 *>
 *> \param[in] V
 *> \verbatim
-*>          V is COMPLEX array, dimension (LDA,K)
+*>          V is COMPLEX array, dimension (LDV,K)
 *>          The i-th column must contain the vector which defines the
 *>          elementary reflector H(i), for i = 1,2,...,k, as returned by
 *>          CTPQRT in B.  See Further Details.
diff --git a/SRC/dtpmlqt.f b/SRC/dtpmlqt.f
index 3782d0c710..975ebdc27a 100644
--- a/SRC/dtpmlqt.f
+++ b/SRC/dtpmlqt.f
@@ -94,7 +94,7 @@
 *>
 *> \param[in] V
 *> \verbatim
-*>          V is DOUBLE PRECISION array, dimension (LDA,K)
+*>          V is DOUBLE PRECISION array, dimension (LDV,K)
 *>          The i-th row must contain the vector which defines the
 *>          elementary reflector H(i), for i = 1,2,...,k, as returned by
 *>          DTPLQT in B.  See Further Details.
diff --git a/SRC/dtpmqrt.f b/SRC/dtpmqrt.f
index 44985a80d2..a7888e1926 100644
--- a/SRC/dtpmqrt.f
+++ b/SRC/dtpmqrt.f
@@ -94,7 +94,7 @@
 *>
 *> \param[in] V
 *> \verbatim
-*>          V is DOUBLE PRECISION array, dimension (LDA,K)
+*>          V is DOUBLE PRECISION array, dimension (LDV,K)
 *>          The i-th column must contain the vector which defines the
 *>          elementary reflector H(i), for i = 1,2,...,k, as returned by
 *>          CTPQRT in B.  See Further Details.
diff --git a/SRC/stpmlqt.f b/SRC/stpmlqt.f
index 565dadd0c0..8fc7823c2a 100644
--- a/SRC/stpmlqt.f
+++ b/SRC/stpmlqt.f
@@ -94,7 +94,7 @@
 *>
 *> \param[in] V
 *> \verbatim
-*>          V is REAL array, dimension (LDA,K)
+*>          V is REAL array, dimension (LDV,K)
 *>          The i-th row must contain the vector which defines the
 *>          elementary reflector H(i), for i = 1,2,...,k, as returned by
 *>          DTPLQT in B.  See Further Details.
diff --git a/SRC/stpmqrt.f b/SRC/stpmqrt.f
index b1813b7dd4..6a5cbb9810 100644
--- a/SRC/stpmqrt.f
+++ b/SRC/stpmqrt.f
@@ -94,7 +94,7 @@
 *>
 *> \param[in] V
 *> \verbatim
-*>          V is REAL array, dimension (LDA,K)
+*>          V is REAL array, dimension (LDV,K)
 *>          The i-th column must contain the vector which defines the
 *>          elementary reflector H(i), for i = 1,2,...,k, as returned by
 *>          CTPQRT in B.  See Further Details.
diff --git a/SRC/ztpmlqt.f b/SRC/ztpmlqt.f
index 6a67e44433..cc333f5a2b 100644
--- a/SRC/ztpmlqt.f
+++ b/SRC/ztpmlqt.f
@@ -94,7 +94,7 @@
 *>
 *> \param[in] V
 *> \verbatim
-*>          V is COMPLEX*16 array, dimension (LDA,K)
+*>          V is COMPLEX*16 array, dimension (LDV,K)
 *>          The i-th row must contain the vector which defines the
 *>          elementary reflector H(i), for i = 1,2,...,k, as returned by
 *>          DTPLQT in B.  See Further Details.
diff --git a/SRC/ztpmqrt.f b/SRC/ztpmqrt.f
index aca7ff00f0..530dca458f 100644
--- a/SRC/ztpmqrt.f
+++ b/SRC/ztpmqrt.f
@@ -94,7 +94,7 @@
 *>
 *> \param[in] V
 *> \verbatim
-*>          V is COMPLEX*16 array, dimension (LDA,K)
+*>          V is COMPLEX*16 array, dimension (LDV,K)
 *>          The i-th column must contain the vector which defines the
 *>          elementary reflector H(i), for i = 1,2,...,k, as returned by
 *>          CTPQRT in B.  See Further Details.