diff options
| author | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-11 21:52:11 +0000 |
|---|---|---|
| committer | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-11 21:52:11 +0000 |
| commit | 882ff1a5d2a2e44ebbbdf1b88acfca03e01be368 (patch) | |
| tree | 517d57a2c75e950b8dd3436cf48d9232f4322669 | |
| parent | 8caa8ba4f9d3af7101e678e790d983f48169e170 (diff) | |
| download | lapack-882ff1a5d2a2e44ebbbdf1b88acfca03e01be368.tar.gz lapack-882ff1a5d2a2e44ebbbdf1b88acfca03e01be368.tar.bz2 lapack-882ff1a5d2a2e44ebbbdf1b88acfca03e01be368.zip | |
Removed declaration of unused variables.
| -rw-r--r-- | INSTALL/dlamch.f | 4 | ||||
| -rw-r--r-- | SRC/cggev3.f | 2 |
2 files changed, 1 insertions, 5 deletions
diff --git a/INSTALL/dlamch.f b/INSTALL/dlamch.f index 25c2c8e6..eb307e5e 100644 --- a/INSTALL/dlamch.f +++ b/INSTALL/dlamch.f @@ -72,10 +72,6 @@ CHARACTER CMACH * .. * -* .. Scalar Arguments .. - DOUBLE PRECISION A, B -* .. -* * ===================================================================== * * .. Parameters .. diff --git a/SRC/cggev3.f b/SRC/cggev3.f index 5d8c7f8a..4a000fe1 100644 --- a/SRC/cggev3.f +++ b/SRC/cggev3.f @@ -246,7 +246,7 @@ CHARACTER CHTEMP INTEGER ICOLS, IERR, IHI, IJOBVL, IJOBVR, ILEFT, ILO, $ IN, IRIGHT, IROWS, IRWRK, ITAU, IWRK, JC, JR, - $ LWKMIN, LWKOPT + $ LWKOPT REAL ANRM, ANRMTO, BIGNUM, BNRM, BNRMTO, EPS, $ SMLNUM, TEMP COMPLEX X |