Merge pull request #50 from zerothi/unused

maint: removed unused variables

Author: langou

SRC/cgebal.f

@@ -190,7 +190,6 @@ SUBROUTINE CGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO )
  INTEGER I, ICA, IEXC, IRA, J, K, L, M
  REAL C, CA, F, G, R, RA, S, SFMAX1, SFMAX2, SFMIN1,
  $ SFMIN2
- COMPLEX CDUM
 * ..
 * .. External Functions ..
  LOGICAL SISNAN, LSAME

SRC/zgebal.f

@@ -189,7 +189,6 @@ SUBROUTINE ZGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO )
  INTEGER I, ICA, IEXC, IRA, J, K, L, M
  DOUBLE PRECISION C, CA, F, G, R, RA, S, SFMAX1, SFMAX2, SFMIN1,
  $ SFMIN2
- COMPLEX*16 CDUM
 * ..
 * .. External Functions ..
  LOGICAL DISNAN, LSAME

SRC/zunbdb.f

@@ -314,7 +314,7 @@ SUBROUTINE ZUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12,
 * ..
 * .. Local Scalars ..
  LOGICAL COLMAJOR, LQUERY
- INTEGER I, LWORKMIN, LWORKOPT, PI1, QI1
+ INTEGER I, LWORKMIN, LWORKOPT
  DOUBLE PRECISION Z1, Z2, Z3, Z4
 * ..
 * .. External Subroutines ..