diff options
| author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2012-04-19 15:30:39 +0000 |
|---|---|---|
| committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2012-04-19 15:30:39 +0000 |
| commit | 73697fcf866e86cac63389661012920f5064a39b (patch) | |
| tree | cba5c3143969d497aac3f7251f0eb398ee4534e9 /SRC/dlarrf.f | |
| parent | 6abbc1aa1e9e393bcfa3a8c17d0274cbd8ecf20c (diff) | |
| download | lapack-73697fcf866e86cac63389661012920f5064a39b.tar.gz lapack-73697fcf866e86cac63389661012920f5064a39b.tar.bz2 lapack-73697fcf866e86cac63389661012920f5064a39b.zip | |
put FOUR parameter back since it is used in this routine
Diffstat (limited to 'SRC/dlarrf.f')
| -rw-r--r-- | SRC/dlarrf.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f index 9189e137..733756a8 100644 --- a/SRC/dlarrf.f +++ b/SRC/dlarrf.f @@ -210,8 +210,8 @@ * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO - PARAMETER ( ONE = 1.0D0, TWO = 2.0D0, + DOUBLE PRECISION FOUR, MAXGROWTH1, MAXGROWTH2, ONE, QUART, TWO + PARAMETER ( ONE = 1.0D0, TWO = 2.0D0, FOUR = 4.0D0, $ QUART = 0.25D0, $ MAXGROWTH1 = 8.D0, $ MAXGROWTH2 = 8.D0 ) |