From d61b9bb00a0ced5a725ba0c3556b299d0c934086 Mon Sep 17 00:00:00 2001 From: Igor Zhuravlov Date: Mon, 3 Apr 2023 09:39:21 +1000 Subject: [PATCH 1/2] fix doxygen markup --- SRC/cgejsv.f | 8 ++++---- SRC/cuncsd2by1.f | 2 +- SRC/zgejsv.f | 8 ++++---- SRC/zuncsd2by1.f | 2 +- 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/SRC/cgejsv.f b/SRC/cgejsv.f index 51a6cee4e1..8fe4159f62 100644 --- a/SRC/cgejsv.f +++ b/SRC/cgejsv.f @@ -52,10 +52,10 @@ *> are computed and stored in the arrays U and V, respectively. The diagonal *> of [SIGMA] is computed and stored in the array SVA. *> \endverbatim -*> -*> Arguments: -*> ========== -*> +* +* Arguments: +* ========== +* *> \param[in] JOBA *> \verbatim *> JOBA is CHARACTER*1 diff --git a/SRC/cuncsd2by1.f b/SRC/cuncsd2by1.f index 84129473de..f0c44f6707 100644 --- a/SRC/cuncsd2by1.f +++ b/SRC/cuncsd2by1.f @@ -218,7 +218,7 @@ *> and RWORK array, respectively, and no error message related *> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim -* +*> *> \param[out] IWORK *> \verbatim *> IWORK is INTEGER array, dimension (M-MIN(P,M-P,Q,M-Q)) diff --git a/SRC/zgejsv.f b/SRC/zgejsv.f index 5fe899e50f..464c4a0fa3 100644 --- a/SRC/zgejsv.f +++ b/SRC/zgejsv.f @@ -52,10 +52,10 @@ *> are computed and stored in the arrays U and V, respectively. The diagonal *> of [SIGMA] is computed and stored in the array SVA. *> \endverbatim -*> -*> Arguments: -*> ========== -*> +* +* Arguments: +* ========== +* *> \param[in] JOBA *> \verbatim *> JOBA is CHARACTER*1 diff --git a/SRC/zuncsd2by1.f b/SRC/zuncsd2by1.f index 6b76730b8e..399b598be0 100644 --- a/SRC/zuncsd2by1.f +++ b/SRC/zuncsd2by1.f @@ -217,7 +217,7 @@ *> and RWORK array, respectively, and no error message related *> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim -* +*> *> \param[out] IWORK *> \verbatim *> IWORK is INTEGER array, dimension (M-MIN(P,M-P,Q,M-Q)) From a608bc2bb41e184a598488851a2bf10312911037 Mon Sep 17 00:00:00 2001 From: Igor Zhuravlov Date: Mon, 3 Apr 2023 09:41:09 +1000 Subject: [PATCH 2/2] fix comments add datatype declaration for LWORK --- SRC/claswlq.f | 1 + SRC/clatsqr.f | 1 + SRC/cungtsqr.f | 1 + SRC/dlaswlq.f | 1 + SRC/dlatsqr.f | 1 + SRC/dorgtsqr.f | 1 + SRC/slaswlq.f | 1 + SRC/slatsqr.f | 1 + SRC/sorgtsqr.f | 1 + SRC/zlaswlq.f | 1 + SRC/zlatsqr.f | 1 + SRC/zungtsqr.f | 1 + 12 files changed, 12 insertions(+) diff --git a/SRC/claswlq.f b/SRC/claswlq.f index 63cbd02c6d..1a09b8305e 100644 --- a/SRC/claswlq.f +++ b/SRC/claswlq.f @@ -104,6 +104,7 @@ *> \endverbatim *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= MB*M. *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns diff --git a/SRC/clatsqr.f b/SRC/clatsqr.f index 7a0b85487d..377190081e 100644 --- a/SRC/clatsqr.f +++ b/SRC/clatsqr.f @@ -106,6 +106,7 @@ *> *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= NB*N. *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns diff --git a/SRC/cungtsqr.f b/SRC/cungtsqr.f index f20abec31e..1734be2aae 100644 --- a/SRC/cungtsqr.f +++ b/SRC/cungtsqr.f @@ -133,6 +133,7 @@ *> *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= (M+NB)*N. *> If LWORK = -1, then a workspace query is assumed. *> The routine only calculates the optimal size of the WORK diff --git a/SRC/dlaswlq.f b/SRC/dlaswlq.f index fb8857145f..c95c94cbc4 100644 --- a/SRC/dlaswlq.f +++ b/SRC/dlaswlq.f @@ -104,6 +104,7 @@ *> \endverbatim *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= MB*M. *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns diff --git a/SRC/dlatsqr.f b/SRC/dlatsqr.f index f5cbb76bb0..94a04be028 100644 --- a/SRC/dlatsqr.f +++ b/SRC/dlatsqr.f @@ -106,6 +106,7 @@ *> *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= NB*N. *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns diff --git a/SRC/dorgtsqr.f b/SRC/dorgtsqr.f index efc4b5b965..2e5cd40bec 100644 --- a/SRC/dorgtsqr.f +++ b/SRC/dorgtsqr.f @@ -133,6 +133,7 @@ *> *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= (M+NB)*N. *> If LWORK = -1, then a workspace query is assumed. *> The routine only calculates the optimal size of the WORK diff --git a/SRC/slaswlq.f b/SRC/slaswlq.f index bc7cf343d4..95e0ddccee 100644 --- a/SRC/slaswlq.f +++ b/SRC/slaswlq.f @@ -104,6 +104,7 @@ *> \endverbatim *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= MB * M. *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns diff --git a/SRC/slatsqr.f b/SRC/slatsqr.f index 33966c01f1..86733bb159 100644 --- a/SRC/slatsqr.f +++ b/SRC/slatsqr.f @@ -106,6 +106,7 @@ *> *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= NB*N. *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns diff --git a/SRC/sorgtsqr.f b/SRC/sorgtsqr.f index 67bda2b6cc..692eba1d9d 100644 --- a/SRC/sorgtsqr.f +++ b/SRC/sorgtsqr.f @@ -133,6 +133,7 @@ *> *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= (M+NB)*N. *> If LWORK = -1, then a workspace query is assumed. *> The routine only calculates the optimal size of the WORK diff --git a/SRC/zlaswlq.f b/SRC/zlaswlq.f index e4e7033430..be4c48539a 100644 --- a/SRC/zlaswlq.f +++ b/SRC/zlaswlq.f @@ -104,6 +104,7 @@ *> \endverbatim *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= MB*M. *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns diff --git a/SRC/zlatsqr.f b/SRC/zlatsqr.f index ffdbc68c0c..8c938aebc9 100644 --- a/SRC/zlatsqr.f +++ b/SRC/zlatsqr.f @@ -106,6 +106,7 @@ *> *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= NB*N. *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns diff --git a/SRC/zungtsqr.f b/SRC/zungtsqr.f index d4868d4035..23e28ac5c2 100644 --- a/SRC/zungtsqr.f +++ b/SRC/zungtsqr.f @@ -133,6 +133,7 @@ *> *> \param[in] LWORK *> \verbatim +*> LWORK is INTEGER *> The dimension of the array WORK. LWORK >= (M+NB)*N. *> If LWORK = -1, then a workspace query is assumed. *> The routine only calculates the optimal size of the WORK