diff options
| author | langou <julien.langou@ucdenver.edu> | 2017-06-03 19:51:37 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-06-03 19:51:37 +0000 |
| commit | 0b0dcee3f8c2d2cea5aba274f56018bbdc979e72 (patch) | |
| tree | 3225276d7cffc79b2983c72c4bd389514c788bce /SRC/dlaqr5.f | |
| parent | a3fb05f665cae999625f82dc91eccad8388a97c5 (diff) | |
| parent | bd1af2e5f3ea836aaaa638d9356a1ca91bc1c889 (diff) | |
| download | lapack-0b0dcee3f8c2d2cea5aba274f56018bbdc979e72.tar.gz lapack-0b0dcee3f8c2d2cea5aba274f56018bbdc979e72.tar.bz2 lapack-0b0dcee3f8c2d2cea5aba274f56018bbdc979e72.zip | |
Merge pull request #160 from thielema/cleanup-comments
more cleaned up comments
Diffstat (limited to 'SRC/dlaqr5.f')
| -rw-r--r-- | SRC/dlaqr5.f | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index 9b8763f0..a5a49610 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -48,14 +48,14 @@ * *> \param[in] WANTT *> \verbatim -*> WANTT is logical scalar +*> WANTT is LOGICAL *> WANTT = .true. if the quasi-triangular Schur factor *> is being computed. WANTT is set to .false. otherwise. *> \endverbatim *> *> \param[in] WANTZ *> \verbatim -*> WANTZ is logical scalar +*> WANTZ is LOGICAL *> WANTZ = .true. if the orthogonal Schur factor is being *> computed. WANTZ is set to .false. otherwise. *> \endverbatim @@ -108,12 +108,12 @@ *> *> \param[in,out] SR *> \verbatim -*> SR is DOUBLE PRECISION array of size (NSHFTS) +*> SR is DOUBLE PRECISION array, dimension (NSHFTS) *> \endverbatim *> *> \param[in,out] SI *> \verbatim -*> SI is DOUBLE PRECISION array of size (NSHFTS) +*> SI is DOUBLE PRECISION array, dimension (NSHFTS) *> SR contains the real parts and SI contains the imaginary *> parts of the NSHFTS shifts of origin that define the *> multi-shift QR sweep. On output SR and SI may be @@ -122,7 +122,7 @@ *> *> \param[in,out] H *> \verbatim -*> H is DOUBLE PRECISION array of size (LDH,N) +*> H is DOUBLE PRECISION array, dimension (LDH,N) *> On input H contains a Hessenberg matrix. On output a *> multi-shift QR sweep with shifts SR(J)+i*SI(J) is applied *> to the isolated diagonal block in rows and columns KTOP @@ -150,7 +150,7 @@ *> *> \param[in,out] Z *> \verbatim -*> Z is DOUBLE PRECISION array of size (LDZ,IHIZ) +*> Z is DOUBLE PRECISION array, dimension (LDZ,IHIZ) *> If WANTZ = .TRUE., then the QR Sweep orthogonal *> similarity transformation is accumulated into *> Z(ILOZ:IHIZ,ILOZ:IHIZ) from the right. @@ -166,7 +166,7 @@ *> *> \param[out] V *> \verbatim -*> V is DOUBLE PRECISION array of size (LDV,NSHFTS/2) +*> V is DOUBLE PRECISION array, dimension (LDV,NSHFTS/2) *> \endverbatim *> *> \param[in] LDV @@ -178,8 +178,7 @@ *> *> \param[out] U *> \verbatim -*> U is DOUBLE PRECISION array of size -*> (LDU,3*NSHFTS-3) +*> U is DOUBLE PRECISION array, dimension (LDU,3*NSHFTS-3) *> \endverbatim *> *> \param[in] LDU @@ -198,7 +197,7 @@ *> *> \param[out] WH *> \verbatim -*> WH is DOUBLE PRECISION array of size (LDWH,NH) +*> WH is DOUBLE PRECISION array, dimension (LDWH,NH) *> \endverbatim *> *> \param[in] LDWH @@ -217,8 +216,7 @@ *> *> \param[out] WV *> \verbatim -*> WV is DOUBLE PRECISION array of size -*> (LDWV,3*NSHFTS-3) +*> WV is DOUBLE PRECISION array, dimension (LDWV,3*NSHFTS-3) *> \endverbatim *> *> \param[in] LDWV |