diff --git a/SRC/cgelqt3.f b/SRC/cgelqt3.f
index 397cafc16..c051a56d6 100644
--- a/SRC/cgelqt3.f
+++ b/SRC/cgelqt3.f
@@ -43,7 +43,7 @@
 *> \param[in,out] A
 *> \verbatim
 *>          A is COMPLEX array, dimension (LDA,N)
-*>          On entry, the real M-by-N matrix A.  On exit, the elements on and
+*>          On entry, the complex M-by-N matrix A.  On exit, the elements on and
 *>          below the diagonal contain the N-by-N lower triangular matrix L; the
 *>          elements above the diagonal are the rows of V.  See below for
 *>          further details.
diff --git a/SRC/zgelqt3.f b/SRC/zgelqt3.f
index 12331921c..87997d1d8 100644
--- a/SRC/zgelqt3.f
+++ b/SRC/zgelqt3.f
@@ -58,7 +58,7 @@
 *> \param[in,out] A
 *> \verbatim
 *>          A is COMPLEX*16 array, dimension (LDA,N)
-*>          On entry, the real M-by-N matrix A.  On exit, the elements on and
+*>          On entry, the complex M-by-N matrix A.  On exit, the elements on and
 *>          below the diagonal contain the N-by-N lower triangular matrix L; the
 *>          elements above the diagonal are the rows of V.  See below for
 *>          further details.