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/zhptrf.f | |
| parent | d5c30c90bdecf38da1064e2ed52583634573e741 (diff) | |
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/zhptrf.f')
| -rw-r--r-- | SRC/zhptrf.f | 40 |
1 files changed, 19 insertions, 21 deletions
diff --git a/SRC/zhptrf.f b/SRC/zhptrf.f index 97007053..07c5a824 100644 --- a/SRC/zhptrf.f +++ b/SRC/zhptrf.f @@ -15,8 +15,8 @@ *> [TXT]</a> *> \endhtmlonly * -* Definition -* ========== +* Definition: +* =========== * * SUBROUTINE ZHPTRF( UPLO, N, AP, IPIV, INFO ) * @@ -29,11 +29,11 @@ * COMPLEX*16 AP( * ) * .. * -* Purpose -* ======= * -*>\details \b Purpose: -*>\verbatim +*> \par Purpose: +* ============= +*> +*> \verbatim *> *> ZHPTRF computes the factorization of a complex Hermitian packed *> matrix A using the Bunch-Kaufman diagonal pivoting method: @@ -43,11 +43,10 @@ *> where U (or L) is a product of permutation and unit upper (lower) *> triangular matrices, and D is Hermitian and block diagonal with *> 1-by-1 and 2-by-2 diagonal blocks. -*> -*>\endverbatim +*> \endverbatim * -* Arguments -* ========= +* Arguments: +* ========== * *> \param[in] UPLO *> \verbatim @@ -99,10 +98,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 @@ -113,14 +111,10 @@ * *> \ingroup complex16OTHERcomputational * -* -* Further Details -* =============== -*>\details \b Further \b Details -*> \verbatim +*> \par Further Details: +* ===================== *> -*> 5-96 - Based on modifications by J. Lewis, Boeing Computer Services -*> Company +*> \verbatim *> *> If UPLO = 'U', then A = U*D*U**H, where *> U = P(n)*U(n)* ... *P(k)U(k)* ..., @@ -155,9 +149,13 @@ *> 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: +* ================== *> +*> J. Lewis, Boeing Computer Services Company +* * ===================================================================== SUBROUTINE ZHPTRF( UPLO, N, AP, IPIV, INFO ) * |