From c49b3300a4b37d1508ca0addbe95a635757366db Mon Sep 17 00:00:00 2001 From: Igor Zhuravlov Date: Tue, 29 Dec 2020 12:24:54 +1000 Subject: [PATCH] comments fixed: datatype 'real' replaced by 'complex' --- SRC/cgelqt3.f | 2 +- SRC/zgelqt3.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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.