diff options
Diffstat (limited to 'TESTING/EIG/dbdt05.f')
-rw-r--r-- | TESTING/EIG/dbdt05.f | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/TESTING/EIG/dbdt05.f b/TESTING/EIG/dbdt05.f index ef5a2cbc..4ab86d0c 100644 --- a/TESTING/EIG/dbdt05.f +++ b/TESTING/EIG/dbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,14 +62,14 @@ *> \param[in] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -111,17 +111,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- |