projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 8caa8ba)
Removed declaration of unused variables.
authorphilippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971>
Tue, 11 Aug 2015 21:52:11 +0000 (21:52 +0000)
committerphilippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971>
Tue, 11 Aug 2015 21:52:11 +0000 (21:52 +0000)
INSTALL/dlamch.f patch | blob | history
SRC/cggev3.f patch | blob | history

diff --git a/INSTALL/dlamch.f b/INSTALL/dlamch.f
index 25c2c8e6ed43bfa0bb22e11fb408125cefbfe63f..eb307e5e1c74fb769fdc10e6a6d983c22d65a6f2 100644 (file)
--- 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 5d8c7f8acfaccfe53f0dfd2a30ec97a033860dba..4a000fe10b431f9956d1b8289cfe0b9ba0bcac5f 100644 (file)
--- 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
Domain: System / Base;