Removed declaration of unused variables.

2015-08-11 21:52:11 +00:00
parent 8caa8ba4f9
commit 882ff1a5d2
2 changed files with 1 additions and 5 deletions
@@ -72,10 +72,6 @@
      CHARACTER          CMACH
 *     ..
 *
-*     .. Scalar Arguments ..
-      DOUBLE PRECISION   A, B
-*     ..
-*
 * =====================================================================
 *
 *     .. Parameters ..
@@ -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