summaryrefslogtreecommitdiff
path: root/SRC/cbbcsd.f
diff options
context:
space:
mode:
Diffstat (limited to 'SRC/cbbcsd.f')
-rw-r--r--SRC/cbbcsd.f34
1 files changed, 34 insertions, 0 deletions
diff --git a/SRC/cbbcsd.f b/SRC/cbbcsd.f
index 18568579..410d6d2d 100644
--- a/SRC/cbbcsd.f
+++ b/SRC/cbbcsd.f
@@ -236,6 +236,40 @@
*> partially reduced top-right block.
*> \endverbatim
*>
+*> \param[out] B21D
+*> \verbatim
+*> B21D is REAL array, dimension (Q)
+*> When CBBCSD converges, B21D contains the negative sines of
+*> THETA(1), ..., THETA(Q). If CBBCSD fails to converge, then
+*> B21D contains the diagonal of the partially reduced bottom-left
+*> block.
+*> \endverbatim
+*>
+*> \param[out] B21E
+*> \verbatim
+*> B21E is REAL array, dimension (Q-1)
+*> When CBBCSD converges, B21E contains zeros. If CBBCSD fails
+*> to converge, then B21E contains the subdiagonal of the
+*> partially reduced bottom-left block.
+*> \endverbatim
+*>
+*> \param[out] B22D
+*> \verbatim
+*> B22D is REAL array, dimension (Q)
+*> When CBBCSD converges, B22D contains the negative sines of
+*> THETA(1), ..., THETA(Q). If CBBCSD fails to converge, then
+*> B22D contains the diagonal of the partially reduced bottom-right
+*> block.
+*> \endverbatim
+*>
+*> \param[out] B22E
+*> \verbatim
+*> B22E is REAL array, dimension (Q-1)
+*> When CBBCSD converges, B22E contains zeros. If CBBCSD fails
+*> to converge, then B22E contains the subdiagonal of the
+*> partially reduced bottom-right block.
+*> \endverbatim
+*>
*> \param[out] RWORK
*> \verbatim
*> RWORK is REAL array, dimension (MAX(1,LWORK))