diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-04-11 19:43:59 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-04-11 19:43:59 +0000 |
| commit | 55d43f3c3c6c20c045e215ef13bc418c1f27e43f (patch) | |
| tree | 5d329f1ec05053070baf1f7a9e67c63aa614935b /SRC/dlarrf.f | |
| parent | c254495b4de7667073f941bdfe89f8325c66687b (diff) | |
| download | lapack-55d43f3c3c6c20c045e215ef13bc418c1f27e43f.tar.gz lapack-55d43f3c3c6c20c045e215ef13bc418c1f27e43f.tar.bz2 lapack-55d43f3c3c6c20c045e215ef13bc418c1f27e43f.zip | |
Remove unused parameters
Diffstat (limited to 'SRC/dlarrf.f')
| -rw-r--r-- | SRC/dlarrf.f | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f index 1c11f929..9189e137 100644 --- a/SRC/dlarrf.f +++ b/SRC/dlarrf.f @@ -210,10 +210,9 @@ * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION FOUR, MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO, - $ ZERO - PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0, TWO = 2.0D0, - $ FOUR = 4.0D0, QUART = 0.25D0, + DOUBLE PRECISION MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO + PARAMETER ( ONE = 1.0D0, TWO = 2.0D0, + $ QUART = 0.25D0, $ MAXGROWTH1 = 8.D0, $ MAXGROWTH2 = 8.D0 ) * .. |