diff options
Diffstat (limited to 'SRC/cbbcsd.f')
-rw-r--r-- | SRC/cbbcsd.f | 34 |
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)) |