diff options
| author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-02-11 07:13:27 +0000 |
|---|---|---|
| committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-02-11 07:13:27 +0000 |
| commit | d4378b188447d533240d4a32ae3442f540cfcfa3 (patch) | |
| tree | e944f174903541d5cd0d5ff59557a6716767e1f4 /SRC/csyequb.f | |
| parent | 1f0792306441cdcd175199ad6720671df249dc47 (diff) | |
| download | lapack-d4378b188447d533240d4a32ae3442f540cfcfa3.tar.gz lapack-d4378b188447d533240d4a32ae3442f540cfcfa3.tar.bz2 lapack-d4378b188447d533240d4a32ae3442f540cfcfa3.zip | |
Modified {c,z}syequb to use 2*N WORK rather than 3*N.
Diffstat (limited to 'SRC/csyequb.f')
| -rw-r--r-- | SRC/csyequb.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/csyequb.f b/SRC/csyequb.f index 90d57d90..2d0315ad 100644 --- a/SRC/csyequb.f +++ b/SRC/csyequb.f @@ -185,10 +185,10 @@ AVG = AVG / N STD = 0.0 - DO I = 2*N+1, 3*N - WORK( I ) = S( I-2*N ) * WORK( I-2*N ) - AVG + DO I = N+1, 2*N + WORK( I ) = S( I-N ) * WORK( I-N ) - AVG END DO - CALL CLASSQ( N, WORK( 2*N+1 ), 1, SCALE, SUMSQ ) + CALL CLASSQ( N, WORK( N+1 ), 1, SCALE, SUMSQ ) STD = SCALE * SQRT( SUMSQ / N ) IF ( STD .LT. TOL * AVG ) GOTO 999 |