CGESVDX and ZGESVDX contain double assignment to ALLS and INDS variables

reported by Eugene Chereshnev on April 4th 2016
See:
http://icl.cs.utk.edu/lapack-forum/posting.php?mode=reply&f=13&t=4942

diff --git a/SRC/cgesvdx.f b/SRC/cgesvdx.f
index 693ce76..170f613 100644 (file)
--- a/SRC/cgesvdx.f
+++ b/SRC/cgesvdx.f
@@ -472,8 +472,6 @@
 *
 *     Set singular values indices accord to RANGE='A'.
 *
-      ALLS = LSAME( RANGE, 'A' )
-      INDS = LSAME( RANGE, 'I' )
       IF( ALLS ) THEN
          RNGTGK = 'I'
          ILTGK = 1

diff --git a/SRC/zgesvdx.f b/SRC/zgesvdx.f
index cf7ae4c..3c319a8 100644 (file)
--- a/SRC/zgesvdx.f
+++ b/SRC/zgesvdx.f
@@ -472,8 +472,6 @@
 *
 *     Set singular values indices accord to RANGE='A'.
 *
-      ALLS = LSAME( RANGE, 'A' )
-      INDS = LSAME( RANGE, 'I' )
       IF( ALLS ) THEN
          RNGTGK = 'I'
          ILTGK = 1