summaryrefslogtreecommitdiff
path: root/TESTING/LIN/zhet01.f
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2011-11-03 20:32:56 +0000
committerjulie <julielangou@users.noreply.github.com>2011-11-03 20:32:56 +0000
commit1c3ba600671a59785b0c647d400226b4cc19a11f (patch)
tree2af647fcff119db522016721e10b5ee7768d22bb /TESTING/LIN/zhet01.f
parentd5c30c90bdecf38da1064e2ed52583634573e741 (diff)
downloadlapack-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 'TESTING/LIN/zhet01.f')
-rw-r--r--TESTING/LIN/zhet01.f24
1 files changed, 11 insertions, 13 deletions
diff --git a/TESTING/LIN/zhet01.f b/TESTING/LIN/zhet01.f
index 4f2a11f3..1e56ca67 100644
--- a/TESTING/LIN/zhet01.f
+++ b/TESTING/LIN/zhet01.f
@@ -5,8 +5,8 @@
* Online html documentation available at
* http://www.netlib.org/lapack/explore-html/
*
-* Definition
-* ==========
+* Definition:
+* ===========
*
* SUBROUTINE ZHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
* RWORK, RESID )
@@ -22,11 +22,11 @@
* COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ), C( LDC, * )
* ..
*
-* Purpose
-* =======
*
-*>\details \b Purpose:
-*>\verbatim
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
*>
*> ZHET01 reconstructs a Hermitian indefinite matrix A from its
*> block L*D*L' or U*D*U' factorization and computes the residual
@@ -34,11 +34,10 @@
*> where C is the reconstructed matrix, EPS is the machine epsilon,
*> L' is the conjugate transpose of L, and U' is the conjugate transpose
*> of U.
-*>
-*>\endverbatim
+*> \endverbatim
*
-* Arguments
-* =========
+* Arguments:
+* ==========
*
*> \param[in] UPLO
*> \verbatim
@@ -110,10 +109,9 @@
*> If UPLO = 'L', norm(L*D*L' - A) / ( N * norm(A) * EPS )
*> If UPLO = 'U', norm(U*D*U' - A) / ( N * norm(A) * EPS )
*> \endverbatim
-*>
*
-* Authors
-* =======
+* Authors:
+* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley