From 009c0d2e5a8140232b2ba37e892ad4fc3212dd1a Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 22 Feb 2017 21:41:07 +0100 Subject: [PATCH 1/3] Fix typo in EXTERNAL declaration ZHBTRD_HB2ST should be ZHETRD_HB2ST --- lapack-netlib/TESTING/EIG/zchkhb2stg.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/zchkhb2stg.f b/lapack-netlib/TESTING/EIG/zchkhb2stg.f index 9420be83b..88c049919 100644 --- a/lapack-netlib/TESTING/EIG/zchkhb2stg.f +++ b/lapack-netlib/TESTING/EIG/zchkhb2stg.f @@ -373,7 +373,7 @@ * .. * .. External Subroutines .. EXTERNAL DLASUM, XERBLA, ZHBT21, ZHBTRD, ZLACPY, ZLASET, - $ ZLATMR, ZLATMS, ZHBTRD_HB2ST, ZSTEQR + $ ZLATMR, ZLATMS, ZHETRD_HB2ST, ZSTEQR * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, MAX, MIN, SQRT From 6bdee6d50ae047334b874840b74883698f5b8cd5 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 22 Feb 2017 21:45:27 +0100 Subject: [PATCH 2/3] Remove spurious names from EXTERNAL list Remove unused (and nonexistent) ZHETRD_SY2SB and ZHETRD_SB2ST --- lapack-netlib/TESTING/EIG/zdrvst2stg.f | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/zdrvst2stg.f b/lapack-netlib/TESTING/EIG/zdrvst2stg.f index b3f2eaef6..dbf8d8037 100644 --- a/lapack-netlib/TESTING/EIG/zdrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/zdrvst2stg.f @@ -399,8 +399,7 @@ $ ZHET22, ZHPEV, ZHPEVD, ZHPEVX, ZLACPY, ZLASET, $ ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE, $ ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE, - $ ZHBEVX_2STAGE, ZHETRD_2STAGE, ZHETRD_SY2SB, - $ ZHETRD_SB2ST, ZLATMR, ZLATMS + $ ZHBEVX_2STAGE, ZHETRD_2STAGE, ZLATMR, ZLATMS * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, INT, LOG, MAX, MIN, SQRT From c7bc0ee823968af39860257820cc97dbfdf44ac1 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 22 Feb 2017 21:48:35 +0100 Subject: [PATCH 3/3] Remove spurious names from EXTERNAL list Remove unused (and nonexistent) functions ZHETRD_SY2SB and ZHETRD_SB2ST from comment and EXTERNAL declaration --- lapack-netlib/TESTING/EIG/zerrst.f | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/zerrst.f b/lapack-netlib/TESTING/EIG/zerrst.f index 1688f5346..38fc85793 100644 --- a/lapack-netlib/TESTING/EIG/zerrst.f +++ b/lapack-netlib/TESTING/EIG/zerrst.f @@ -29,8 +29,7 @@ *> ZHPEV, CHPEVX, CHPEVD, and ZSTEDC. *> ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE, *> ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE, -*> ZHBEVX_2STAGE, ZHETRD_2STAGE, ZHETRD_SY2SB, -*> ZHETRD_SB2ST +*> ZHBEVX_2STAGE, ZHETRD_2STAGE *> \endverbatim * * Arguments: @@ -102,8 +101,7 @@ $ ZUNGTR, ZUNMTR, ZUPGTR, ZUPMTR, $ ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE, $ ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE, - $ ZHBEVX_2STAGE, ZHETRD_2STAGE, ZHETRD_SY2SB, - $ ZHETRD_SB2ST + $ ZHBEVX_2STAGE, ZHETRD_2STAGE * .. * .. Scalars in Common .. LOGICAL LERR, OK