diff options
Diffstat (limited to 'TESTING/EIG/cbdt03.f')
-rw-r--r-- | TESTING/EIG/cbdt03.f | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/TESTING/EIG/cbdt03.f b/TESTING/EIG/cbdt03.f index ad26cf7d..09875c33 100644 --- a/TESTING/EIG/cbdt03.f +++ b/TESTING/EIG/cbdt03.f @@ -5,8 +5,8 @@ * Online html documentation available at * http://www.netlib.org/lapack/explore-html/ * -* Definition -* ========== +* Definition: +* =========== * * SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) @@ -21,11 +21,11 @@ * COMPLEX U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. * -* Purpose -* ======= * -*>\details \b Purpose: -*>\verbatim +*> \par Purpose: +* ============= +*> +*> \verbatim *> *> CBDT03 reconstructs a bidiagonal matrix B from its SVD: *> S = U' * B * V @@ -34,11 +34,10 @@ *> The test ratio to test the singular value decomposition is *> RESID = norm( B - U * S * VT ) / ( n * norm(B) * EPS ) *> where VT = V' and EPS is the machine precision. -*> -*>\endverbatim +*> \endverbatim * -* Arguments -* ========= +* Arguments: +* ========== * *> \param[in] UPLO *> \verbatim @@ -119,10 +118,9 @@ *> RESID is REAL *> The test ratio: norm(B - U * S * V') / ( n * norm(A) * EPS ) *> \endverbatim -*> * -* Authors -* ======= +* Authors: +* ======== * *> \author Univ. of Tennessee *> \author Univ. of California Berkeley |