diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-09-30 18:34:50 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-09-30 18:34:50 +0000 |
| commit | 13acf3d65eb8df4cb8df221509bf0178396dcff1 (patch) | |
| tree | e3adc3e2fab395b82d4e1bc5111ad5a74afe4be3 /SRC/dlaqr5.f | |
| parent | d3718a28ef2fad11da862ba0782d39ce506d249f (diff) | |
Comments fix to be able to generate the new layout and the corresponding Doxygen documentation
Diffstat (limited to 'SRC/dlaqr5.f')
| -rw-r--r-- | SRC/dlaqr5.f | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index 0615eaf8..1560d8bf 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -18,9 +18,15 @@ $ Z( LDZ, * ) * .. * -* This auxiliary subroutine called by DLAQR0 performs a +* Purpose +* ======= +* +* DLAQR5, called by DLAQR0, performs a * single small-bulge multi-shift QR sweep. * +* Arguments +* ========= +* * WANTT (input) logical scalar * WANTT = .true. if the quasi-triangular Schur factor * is being computed. WANTT is set to .false. otherwise. @@ -47,6 +53,7 @@ * subroutine operates. * * KTOP (input) integer scalar +* * KBOT (input) integer scalar * These are the first and last rows and columns of an * isolated diagonal block upon which the QR sweep is to be @@ -60,6 +67,7 @@ * must be positive and even. * * SR (input/output) DOUBLE PRECISION array of size (NSHFTS) +* * SI (input/output) DOUBLE PRECISION array of size (NSHFTS) * SR contains the real parts and SI contains the imaginary * parts of the NSHFTS shifts of origin that define the @@ -77,6 +85,7 @@ * calling procedure. LDH.GE.MAX(1,N). * * ILOZ (input) INTEGER +* * IHIZ (input) INTEGER * Specify the rows of Z to which transformations must be * applied if WANTZ is .TRUE.. 1 .LE. ILOZ .LE. IHIZ .LE. N @@ -125,12 +134,13 @@ * LDWV is the leading dimension of WV as declared in the * in the calling subroutine. LDWV.GE.NV. * -* ================================================================ +* Further Details +* =============== +* * Based on contributions by * Karen Braman and Ralph Byers, Department of Mathematics, * University of Kansas, USA * -* ================================================================ * Reference: * * K. Braman, R. Byers and R. Mathias, The Multi-Shift QR @@ -138,7 +148,7 @@ * Level 3 Performance, SIAM Journal of Matrix Analysis, * volume 23, pages 929--947, 2002. * -* ================================================================ +* ================================================================ * .. Parameters .. DOUBLE PRECISION ZERO, ONE PARAMETER ( ZERO = 0.0d0, ONE = 1.0d0 ) |