From 06fc0d8970bcd26f9947fb21dc82210f78811482 Mon Sep 17 00:00:00 2001 From: Igor Zhuravlov Date: Mon, 8 Apr 2024 19:12:19 +1000 Subject: [PATCH] fix comments add datatype declaration for LWORK --- SRC/cgetsqrhrt.f | 1 + SRC/cungtsqr_row.f | 1 + SRC/dorgtsqr_row.f | 1 + SRC/sorgtsqr_row.f | 1 + SRC/zgetsqrhrt.f | 1 + SRC/zungtsqr_row.f | 1 + 6 files changed, 6 insertions(+) diff --git a/SRC/cgetsqrhrt.f b/SRC/cgetsqrhrt.f index 9134014c72..2eb63e3dac 100644 --- 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 index 4515440a16..98df2aef69 100644 --- 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 index 95cb02cc2e..3fc924ce72 100644 --- 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 index 5a1e1ff072..29172919e0 100644 --- 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 index b9ebaadd47..f541135903 100644 --- 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 index 96a27d260b..ee70f292e0 100644 --- 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).