diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-06-22 09:45:40 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-06-22 09:45:40 +0000 |
| commit | 0d0b443c697874898ee9947afe634c1b89761dce (patch) | |
| tree | 27a6fd0102f166d128c1f5e9ae60942e788a242d /BLAS | |
| parent | ffd034b32b7f443988c8fb54274b97d5968dbd85 (diff) | |
| download | lapack-0d0b443c697874898ee9947afe634c1b89761dce.tar.gz lapack-0d0b443c697874898ee9947afe634c1b89761dce.tar.bz2 lapack-0d0b443c697874898ee9947afe634c1b89761dce.zip | |
Summer cleanup
Cleanup some codes, like unused variables.
Used -Walls to detect problems.
Diffstat (limited to 'BLAS')
| -rw-r--r-- | BLAS/SRC/drotmg.f | 1 | ||||
| -rw-r--r-- | BLAS/TESTING/cblat2.f | 1 | ||||
| -rw-r--r-- | BLAS/TESTING/cblat3.f | 1 | ||||
| -rw-r--r-- | BLAS/TESTING/dblat2.f | 1 | ||||
| -rw-r--r-- | BLAS/TESTING/dblat3.f | 1 | ||||
| -rw-r--r-- | BLAS/TESTING/sblat2.f | 1 | ||||
| -rw-r--r-- | BLAS/TESTING/sblat3.f | 1 | ||||
| -rw-r--r-- | BLAS/TESTING/zblat2.f | 1 | ||||
| -rw-r--r-- | BLAS/TESTING/zblat3.f | 1 |
9 files changed, 0 insertions, 9 deletions
diff --git a/BLAS/SRC/drotmg.f b/BLAS/SRC/drotmg.f index ca5de114..108c7949 100644 --- a/BLAS/SRC/drotmg.f +++ b/BLAS/SRC/drotmg.f @@ -186,7 +186,6 @@ DPARAM(5) = DH22 END IF - 260 CONTINUE DPARAM(1) = DFLAG RETURN END diff --git a/BLAS/TESTING/cblat2.f b/BLAS/TESTING/cblat2.f index 478a2205..e9484017 100644 --- a/BLAS/TESTING/cblat2.f +++ b/BLAS/TESTING/cblat2.f @@ -3083,7 +3083,6 @@ 50 CONTINUE END IF * - 60 CONTINUE LCERES = .TRUE. GO TO 80 70 CONTINUE diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f index 8885f89c..5cc4af5e 100644 --- a/BLAS/TESTING/cblat3.f +++ b/BLAS/TESTING/cblat3.f @@ -3287,7 +3287,6 @@ 50 CONTINUE END IF * - 60 CONTINUE LCERES = .TRUE. GO TO 80 70 CONTINUE diff --git a/BLAS/TESTING/dblat2.f b/BLAS/TESTING/dblat2.f index 36e5d988..297bce68 100644 --- a/BLAS/TESTING/dblat2.f +++ b/BLAS/TESTING/dblat2.f @@ -2986,7 +2986,6 @@ 50 CONTINUE END IF * - 60 CONTINUE LDERES = .TRUE. GO TO 80 70 CONTINUE diff --git a/BLAS/TESTING/dblat3.f b/BLAS/TESTING/dblat3.f index d21c39e9..dab3ce5e 100644 --- a/BLAS/TESTING/dblat3.f +++ b/BLAS/TESTING/dblat3.f @@ -2676,7 +2676,6 @@ 50 CONTINUE END IF * - 60 CONTINUE LDERES = .TRUE. GO TO 80 70 CONTINUE diff --git a/BLAS/TESTING/sblat2.f b/BLAS/TESTING/sblat2.f index c6c952c5..aa11fcc3 100644 --- a/BLAS/TESTING/sblat2.f +++ b/BLAS/TESTING/sblat2.f @@ -2986,7 +2986,6 @@ 50 CONTINUE END IF * - 60 CONTINUE LSERES = .TRUE. GO TO 80 70 CONTINUE diff --git a/BLAS/TESTING/sblat3.f b/BLAS/TESTING/sblat3.f index 0dd7c8bf..e9ac0eef 100644 --- a/BLAS/TESTING/sblat3.f +++ b/BLAS/TESTING/sblat3.f @@ -2676,7 +2676,6 @@ 50 CONTINUE END IF * - 60 CONTINUE LSERES = .TRUE. GO TO 80 70 CONTINUE diff --git a/BLAS/TESTING/zblat2.f b/BLAS/TESTING/zblat2.f index 9d849de2..8e49cabf 100644 --- a/BLAS/TESTING/zblat2.f +++ b/BLAS/TESTING/zblat2.f @@ -3091,7 +3091,6 @@ 50 CONTINUE END IF * - 60 CONTINUE LZERES = .TRUE. GO TO 80 70 CONTINUE diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f index 41a2e320..fb471255 100644 --- a/BLAS/TESTING/zblat3.f +++ b/BLAS/TESTING/zblat3.f @@ -3296,7 +3296,6 @@ 50 CONTINUE END IF * - 60 CONTINUE LZERES = .TRUE. GO TO 80 70 CONTINUE |