From 52508f6632c094c4431c6fe5275ab9d9ea1c3842 Mon Sep 17 00:00:00 2001 From: julie Date: Tue, 17 Mar 2015 14:53:16 +0000 Subject: [PATCH] Correct issue reported by Elena (Oracle) Add SIGMA and EPS in a list of arguments and describe them in the "Arguments" section --- SRC/slasq5.f | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/SRC/slasq5.f b/SRC/slasq5.f index d1d68e3..3da76cd 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: * ======== -- 2.7.4