diff options
Diffstat (limited to 'SRC')
| -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 .. |