From 874eb5ecf0c1e4522de887af355e748f48f9d9a1 Mon Sep 17 00:00:00 2001 From: Julie Date: Wed, 15 Jun 2016 22:07:18 -0700 Subject: [PATCH] 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 --- SRC/cgesvdx.f | 2 -- SRC/zgesvdx.f | 2 -- 2 files changed, 4 deletions(-) diff --git a/SRC/cgesvdx.f b/SRC/cgesvdx.f index 693ce76..170f613 100644 --- 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 --- 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 -- 2.7.4