diff options
| author | julie <julielangou@users.noreply.github.com> | 2015-11-06 01:16:19 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2015-11-06 01:16:19 +0000 |
| commit | 79ea95e9a9fce8d82c47f2046103d4ce35129fb0 (patch) | |
| tree | 30ff3cdae6b8fda802afbafbc93de5ec11cb6b30 /TESTING | |
| parent | eedd28ee8d97e407f4b551e92dce4b193bfa674a (diff) | |
| download | lapack-79ea95e9a9fce8d82c47f2046103d4ce35129fb0.tar.gz lapack-79ea95e9a9fce8d82c47f2046103d4ce35129fb0.tar.bz2 lapack-79ea95e9a9fce8d82c47f2046103d4ce35129fb0.zip | |
Change DBLE cast by REAL - confirmed with Osni
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/serrbd.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/TESTING/EIG/serrbd.f b/TESTING/EIG/serrbd.f index 723629c2..1b57594d 100644 --- a/TESTING/EIG/serrbd.f +++ b/TESTING/EIG/serrbd.f @@ -102,7 +102,7 @@ COMMON / SRNAMC / SRNAMT * .. * .. Intrinsic Functions .. - INTRINSIC DBLE + INTRINSIC REAL * .. * .. Executable Statements .. * @@ -114,7 +114,7 @@ * DO 20 J = 1, NMAX DO 10 I = 1, NMAX - A( I, J ) = 1.D0 / DBLE( I+J ) + A( I, J ) = 1.D0 / REAL( I+J ) 10 CONTINUE 20 CONTINUE OK = .TRUE. |