Index: cgesvdx.f
===================================================================
--- cgesvdx.f	(revision 1738)
+++ cgesvdx.f	(working copy)
@@ -466,8 +466,6 @@
 *
 *     Set singular values indices accord to RANGE='A'.
 *
-      ALLS = LSAME( RANGE, 'A' )
-      INDS = LSAME( RANGE, 'I' )
       IF( ALLS ) THEN
          RNGTGK = 'I'
          ILTGK = 1
Index: zgesvdx.f
===================================================================
--- zgesvdx.f	(revision 1738)
+++ zgesvdx.f	(working copy)
@@ -466,8 +466,6 @@
 *
 *     Set singular values indices accord to RANGE='A'.
 *
-      ALLS = LSAME( RANGE, 'A' )
-      INDS = LSAME( RANGE, 'I' )
       IF( ALLS ) THEN
          RNGTGK = 'I'
          ILTGK = 1