diff options
author | julie <julielangou@users.noreply.github.com> | 2015-11-15 21:06:49 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2015-11-15 21:06:49 +0000 |
commit | 87ca83c468114c629872fa28703269cbcdd213c9 (patch) | |
tree | 9e8248f72d224b1a98b6999dc56c94323f436426 /TESTING | |
parent | 50d40d78527266d390700416e6c2ecdf666302ca (diff) | |
download | lapack-87ca83c468114c629872fa28703269cbcdd213c9.tar.gz lapack-87ca83c468114c629872fa28703269cbcdd213c9.tar.bz2 lapack-87ca83c468114c629872fa28703269cbcdd213c9.zip |
Missing parameter definition
Diffstat (limited to 'TESTING')
-rw-r--r-- | TESTING/LIN/cerrvxx.f | 2 | ||||
-rw-r--r-- | TESTING/LIN/derrvxx.f | 2 | ||||
-rw-r--r-- | TESTING/LIN/serrvxx.f | 2 | ||||
-rw-r--r-- | TESTING/LIN/zerrvxx.f | 2 |
4 files changed, 8 insertions, 0 deletions
diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f index 69d46da8..6134bf33 100644 --- a/TESTING/LIN/cerrvxx.f +++ b/TESTING/LIN/cerrvxx.f @@ -70,6 +70,8 @@ * .. Parameters .. INTEGER NMAX PARAMETER ( NMAX = 4 ) + REAL ONE + PARAMETER ( ONE = 1.0E+0 ) * .. * .. Local Scalars .. CHARACTER EQ diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f index da68375f..b4d0904b 100644 --- a/TESTING/LIN/derrvxx.f +++ b/TESTING/LIN/derrvxx.f @@ -70,6 +70,8 @@ * .. Parameters .. INTEGER NMAX PARAMETER ( NMAX = 4 ) + REAL ONE + PARAMETER ( ONE = 1.0D+0 ) * .. * .. Local Scalars .. CHARACTER EQ diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f index bb901c94..d3eb33c9 100644 --- a/TESTING/LIN/serrvxx.f +++ b/TESTING/LIN/serrvxx.f @@ -70,6 +70,8 @@ * .. Parameters .. INTEGER NMAX PARAMETER ( NMAX = 4 ) + REAL ONE + PARAMETER ( ONE = 1.0E+0 ) * .. * .. Local Scalars .. CHARACTER EQ diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f index 9261d0ed..52fd98b4 100644 --- a/TESTING/LIN/zerrvxx.f +++ b/TESTING/LIN/zerrvxx.f @@ -70,6 +70,8 @@ * .. Parameters .. INTEGER NMAX PARAMETER ( NMAX = 4 ) + REAL ONE + PARAMETER ( ONE = 1.0D+0 ) * .. * .. Local Scalars .. CHARACTER EQ |