fix comments

add datatype declaration for LWORK
Reference-LAPACK · Apr 8, 2024 · 06fc0d8 · 06fc0d8
1 parent 7295ac1
commit 06fc0d8
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 0 deletions.
diff --git a/SRC/cgetsqrhrt.f b/SRC/cgetsqrhrt.f
@@ -130,6 +130,7 @@
 *>
 *> \param[in] LWORK
 *> \verbatim
+*>          LWORK is INTEGER
 *>          The dimension of the array WORK.
 *>          If MIN(M,N) = 0, LWORK >= 1, else
 *>          LWORK >= MAX( 1, LWT + LW1, MAX( LWT+N*N+LW2, LWT+N*N+N ) ),

diff --git a/SRC/cungtsqr_row.f b/SRC/cungtsqr_row.f
@@ -144,6 +144,7 @@
 *>
 *> \param[in] LWORK
 *> \verbatim
+*>          LWORK is INTEGER
 *>          The dimension of the array WORK.
 *>          LWORK >= NBLOCAL * MAX(NBLOCAL,(N-NBLOCAL)),
 *>          where NBLOCAL=MIN(NB,N).

diff --git a/SRC/dorgtsqr_row.f b/SRC/dorgtsqr_row.f
@@ -144,6 +144,7 @@
 *>
 *> \param[in] LWORK
 *> \verbatim
+*>          LWORK is INTEGER
 *>          The dimension of the array WORK.
 *>          LWORK >= NBLOCAL * MAX(NBLOCAL,(N-NBLOCAL)),
 *>          where NBLOCAL=MIN(NB,N).

diff --git a/SRC/sorgtsqr_row.f b/SRC/sorgtsqr_row.f
@@ -144,6 +144,7 @@
 *>
 *> \param[in] LWORK
 *> \verbatim
+*>          LWORK is INTEGER
 *>          The dimension of the array WORK.
 *>          LWORK >= NBLOCAL * MAX(NBLOCAL,(N-NBLOCAL)),
 *>          where NBLOCAL=MIN(NB,N).

diff --git a/SRC/zgetsqrhrt.f b/SRC/zgetsqrhrt.f
@@ -130,6 +130,7 @@
 *>
 *> \param[in] LWORK
 *> \verbatim
+*>          LWORK is INTEGER
 *>          The dimension of the array WORK.
 *>          If MIN(M,N) = 0, LWORK >= 1, else
 *>          LWORK >= MAX( 1, LWT + LW1, MAX( LWT+N*N+LW2, LWT+N*N+N ) ),

diff --git a/SRC/zungtsqr_row.f b/SRC/zungtsqr_row.f
@@ -144,6 +144,7 @@
 *>
 *> \param[in] LWORK
 *> \verbatim
+*>          LWORK is INTEGER
 *>          The dimension of the array WORK.
 *>          LWORK >= NBLOCAL * MAX(NBLOCAL,(N-NBLOCAL)),
 *>          where NBLOCAL=MIN(NB,N).