diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-11-03 20:32:56 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-11-03 20:32:56 +0000 |
| commit | 1c3ba600671a59785b0c647d400226b4cc19a11f (patch) | |
| tree | 2af647fcff119db522016721e10b5ee7768d22bb /SRC/ssytf2.f | |
| parent | d5c30c90bdecf38da1064e2ed52583634573e741 (diff) | |
| download | lapack-1c3ba600671a59785b0c647d400226b4cc19a11f.tar.gz lapack-1c3ba600671a59785b0c647d400226b4cc19a11f.tar.bz2 lapack-1c3ba600671a59785b0c647d400226b4cc19a11f.zip | |
Cosmetic changes in Doxygen presentation.
Use \par instead of \details for section.
add a Contributors Section and a Reference Section.
Remove (some) verbatim section when not needed.
Those changes have been done by hand so I am not sure I manage to catch them all.
Diffstat (limited to 'SRC/ssytf2.f')
| -rw-r--r-- | SRC/ssytf2.f | 67 |
1 files changed, 35 insertions, 32 deletions
diff --git a/SRC/ssytf2.f b/SRC/ssytf2.f index 2ac172a3..0641343b 100644 --- a/SRC/ssytf2.f +++ b/SRC/ssytf2.f @@ -15,8 +15,8 @@ *> [TXT]</a> *> \endhtmlonly * -* Definition -* ========== +* Definition: +* =========== * * SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * @@ -29,11 +29,11 @@ * REAL A( LDA, * ) * .. * -* Purpose -* ======= * -*>\details \b Purpose: -*>\verbatim +*> \par Purpose: +* ============= +*> +*> \verbatim *> *> SSYTF2 computes the factorization of a real symmetric matrix A using *> the Bunch-Kaufman diagonal pivoting method: @@ -45,11 +45,10 @@ *> block diagonal with 1-by-1 and 2-by-2 diagonal blocks. *> *> This is the unblocked version of the algorithm, calling Level 2 BLAS. -*> -*>\endverbatim +*> \endverbatim * -* Arguments -* ========= +* Arguments: +* ========== * *> \param[in] UPLO *> \verbatim @@ -110,10 +109,9 @@ *> exactly singular, and division by zero will occur if it *> is used to solve a system of equations. *> \endverbatim -*> * -* Authors -* ======= +* Authors: +* ======== * *> \author Univ. of Tennessee *> \author Univ. of California Berkeley @@ -124,25 +122,10 @@ * *> \ingroup realSYcomputational * -* -* Further Details -* =============== -*>\details \b Further \b Details -*> \verbatim -*> -*> 09-29-06 - patch from -*> Bobby Cheng, MathWorks -*> -*> Replace l.204 and l.372 -*> IF( MAX( ABSAKK, COLMAX ).EQ.ZERO ) THEN -*> by -*> IF( (MAX( ABSAKK, COLMAX ).EQ.ZERO) .OR. SISNAN(ABSAKK) ) THEN +*> \par Further Details: +* ===================== *> -*> 01-01-96 - Based on modifications by -*> J. Lewis, Boeing Computer Services Company -*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA -*> 1-96 - Based on modifications by J. Lewis, Boeing Computer Services -*> Company +*> \verbatim *> *> If UPLO = 'U', then A = U*D*U**T, where *> U = P(n)*U(n)* ... *P(k)U(k)* ..., @@ -177,9 +160,29 @@ *> If s = 1, D(k) overwrites A(k,k), and v overwrites A(k+1:n,k). *> If s = 2, the lower triangle of D(k) overwrites A(k,k), A(k+1,k), *> and A(k+1,k+1), and v overwrites A(k+2:n,k:k+1). -*> *> \endverbatim +* +*> \par Contributors: +* ================== *> +*> \verbatim +*> +*> 09-29-06 - patch from +*> Bobby Cheng, MathWorks +*> +*> Replace l.204 and l.372 +*> IF( MAX( ABSAKK, COLMAX ).EQ.ZERO ) THEN +*> by +*> IF( (MAX( ABSAKK, COLMAX ).EQ.ZERO) .OR. SISNAN(ABSAKK) ) THEN +*> +*> 01-01-96 - Based on modifications by +*> J. Lewis, Boeing Computer Services Company +*> A. Petitet, Computer Science Dept., Univ. of Tenn., Knoxville, USA +*> 1-96 - Based on modifications by J. Lewis, Boeing Computer Services +*> Company +*> +*> \endverbatim +* * ===================================================================== SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * |