diff options
| author | langou <julien.langou@ucdenver.edu> | 2016-09-15 22:05:38 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-09-15 22:05:38 +0200 |
| commit | 9e6bfe88acd54561d987c973671dea74c804d0ab (patch) | |
| tree | da68eaba9aa788699b73172542d1f8a9b07ffa34 | |
| parent | 3a4585b67e8cba600cca746a9ba1562518b97ba4 (diff) | |
| parent | 8af8bb6802755abecd4e22356895b312db3b71df (diff) | |
| download | lapack-9e6bfe88acd54561d987c973671dea74c804d0ab.tar.gz lapack-9e6bfe88acd54561d987c973671dea74c804d0ab.tar.bz2 lapack-9e6bfe88acd54561d987c973671dea74c804d0ab.zip | |
Merge pull request #50 from zerothi/unused
maint: removed unused variables
| -rw-r--r-- | SRC/cgebal.f | 1 | ||||
| -rw-r--r-- | SRC/zgebal.f | 1 | ||||
| -rw-r--r-- | SRC/zunbdb.f | 2 |
3 files changed, 1 insertions, 3 deletions
diff --git a/SRC/cgebal.f b/SRC/cgebal.f index f0e01c7b..5da3de3b 100644 --- a/SRC/cgebal.f +++ b/SRC/cgebal.f @@ -190,7 +190,6 @@ 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 diff --git a/SRC/zgebal.f b/SRC/zgebal.f index f8b552ec..216ebe2f 100644 --- a/SRC/zgebal.f +++ b/SRC/zgebal.f @@ -189,7 +189,6 @@ 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 diff --git a/SRC/zunbdb.f b/SRC/zunbdb.f index fc190b9f..b05273a1 100644 --- a/SRC/zunbdb.f +++ b/SRC/zunbdb.f @@ -314,7 +314,7 @@ * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY - INTEGER I, LWORKMIN, LWORKOPT, PI1, QI1 + INTEGER I, LWORKMIN, LWORKOPT DOUBLE PRECISION Z1, Z2, Z3, Z4 * .. * .. External Subroutines .. |