diff options
| author | julie <julielangou@users.noreply.github.com> | 2015-03-17 14:53:16 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2015-03-17 14:53:16 +0000 |
| commit | 52508f6632c094c4431c6fe5275ab9d9ea1c3842 (patch) | |
| tree | 6a7aa8502456773d9d2b97670692766fac08b9db /SRC/slasq5.f | |
| parent | 6e0f116827a68c37dcd064660a40e8c2c133ed34 (diff) | |
| download | lapack-52508f6632c094c4431c6fe5275ab9d9ea1c3842.tar.gz lapack-52508f6632c094c4431c6fe5275ab9d9ea1c3842.tar.bz2 lapack-52508f6632c094c4431c6fe5275ab9d9ea1c3842.zip | |
Correct issue reported by Elena (Oracle)
Add SIGMA and EPS in a list of arguments and describe them in the "Arguments" section
Diffstat (limited to 'SRC/slasq5.f')
| -rw-r--r-- | SRC/slasq5.f | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/SRC/slasq5.f b/SRC/slasq5.f index d1d68e3c..3da76cd7 100644 --- a/SRC/slasq5.f +++ b/SRC/slasq5.f @@ -18,13 +18,13 @@ * Definition: * =========== * -* SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, DMIN, DMIN1, DMIN2, DN, -* DNM1, DNM2, IEEE ) +* SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, DN, +* DNM1, DNM2, IEEE, EPS ) * * .. Scalar Arguments .. * LOGICAL IEEE * INTEGER I0, N0, PP -* REAL DMIN, DMIN1, DMIN2, DN, DNM1, DNM2, TAU +* REAL EPS, DMIN, DMIN1, DMIN2, DN, DNM1, DNM2, SIGMA, TAU * .. * .. Array Arguments .. * REAL Z( * ) @@ -74,6 +74,11 @@ *> This is the shift. *> \endverbatim *> +*> \param[in] SIGMA +*> SIGMA is REAL +*> This is the accumulated shift up to this step. +*> \endverbatim +*> *> \param[out] DMIN *> \verbatim *> DMIN is REAL @@ -115,6 +120,12 @@ *> IEEE is LOGICAL *> Flag for IEEE or non IEEE arithmetic. *> \endverbatim +*> +*> \param[in] EPS +*> \verbatim +*> EPS is REAL +*> This is the value of epsilon used. +*> \endverbatim * * Authors: * ======== |