diff options
author | julie <julielangou@users.noreply.github.com> | 2011-10-06 06:53:11 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-10-06 06:53:11 +0000 |
commit | e1d39294aee16fa6db9ba079b14442358217db71 (patch) | |
tree | 30e5aa04c1f6596991fda5334f63dfb9b8027849 /SRC/zsyswapr.f | |
parent | 5fe0466a14e395641f4f8a300ecc9dcb8058081b (diff) | |
download | lapack-e1d39294aee16fa6db9ba079b14442358217db71.tar.gz lapack-e1d39294aee16fa6db9ba079b14442358217db71.tar.bz2 lapack-e1d39294aee16fa6db9ba079b14442358217db71.zip |
Integrating Doxygen in comments
Diffstat (limited to 'SRC/zsyswapr.f')
-rw-r--r-- | SRC/zsyswapr.f | 127 |
1 files changed, 92 insertions, 35 deletions
diff --git a/SRC/zsyswapr.f b/SRC/zsyswapr.f index 40239000..0e5eeb41 100644 --- a/SRC/zsyswapr.f +++ b/SRC/zsyswapr.f @@ -1,54 +1,111 @@ - SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) +*> \brief \b ZSYSWAPR * -* -- LAPACK auxiliary routine (version 3.3.1) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* -- April 2011 -- +* =========== DOCUMENTATION =========== * -* .. Scalar Arguments .. - CHARACTER UPLO - INTEGER I1, I2, LDA, N -* .. -* .. Array Arguments .. - COMPLEX*16 A( LDA, N ) +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition +* ========== * +* SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) +* +* .. Scalar Arguments .. +* CHARACTER UPLO +* INTEGER I1, I2, LDA, N +* .. +* .. Array Arguments .. +* COMPLEX*16 A( LDA, N ) +* * Purpose * ======= * -* ZSYSWAPR applies an elementary permutation on the rows and the columns of -* a symmetric matrix. +*>\details \b Purpose: +*>\verbatim +*> +*> ZSYSWAPR applies an elementary permutation on the rows and the columns of +*> a symmetric matrix. +*> +*>\endverbatim * * Arguments * ========= * -* UPLO (input) CHARACTER*1 -* Specifies whether the details of the factorization are stored -* as an upper or lower triangular matrix. -* = 'U': Upper triangular, form is A = U*D*U**T; -* = 'L': Lower triangular, form is A = L*D*L**T. +*> \param[in] UPLO +*> \verbatim +*> UPLO is CHARACTER*1 +*> Specifies whether the details of the factorization are stored +*> as an upper or lower triangular matrix. +*> = 'U': Upper triangular, form is A = U*D*U**T; +*> = 'L': Lower triangular, form is A = L*D*L**T. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrix A. N >= 0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA,N) +*> On entry, the NB diagonal matrix D and the multipliers +*> used to obtain the factor U or L as computed by ZSYTRF. +*> \endverbatim +*> \verbatim +*> On exit, if INFO = 0, the (symmetric) inverse of the original +*> matrix. If UPLO = 'U', the upper triangular part of the +*> inverse is formed and the part of A below the diagonal is not +*> referenced; if UPLO = 'L' the lower triangular part of the +*> inverse is formed and the part of A above the diagonal is +*> not referenced. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max(1,N). +*> \endverbatim +*> +*> \param[in] I1 +*> \verbatim +*> I1 is INTEGER +*> Index of the first row to swap +*> \endverbatim +*> +*> \param[in] I2 +*> \verbatim +*> I2 is INTEGER +*> Index of the second row to swap +*> \endverbatim +*> +* +* Authors +* ======= * -* N (input) INTEGER -* The order of the matrix A. N >= 0. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * -* A (input/output) COMPLEX*16 array, dimension (LDA,N) -* On entry, the NB diagonal matrix D and the multipliers -* used to obtain the factor U or L as computed by ZSYTRF. +*> \date November 2011 * -* On exit, if INFO = 0, the (symmetric) inverse of the original -* matrix. If UPLO = 'U', the upper triangular part of the -* inverse is formed and the part of A below the diagonal is not -* referenced; if UPLO = 'L' the lower triangular part of the -* inverse is formed and the part of A above the diagonal is -* not referenced. +*> \ingroup complex16SYauxiliary * -* LDA (input) INTEGER -* The leading dimension of the array A. LDA >= max(1,N). +* ===================================================================== + SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* I1 (input) INTEGER -* Index of the first row to swap +* -- LAPACK auxiliary routine (version 3.3.1) -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* November 2011 * -* I2 (input) INTEGER -* Index of the second row to swap +* .. Scalar Arguments .. + CHARACTER UPLO + INTEGER I1, I2, LDA, N +* .. +* .. Array Arguments .. + COMPLEX*16 A( LDA, N ) * * ===================================================================== * |