From 92e024bbb30d4445ce48be982d2625cac3c1df49 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 16 Jun 2021 09:33:23 +0200 Subject: [PATCH 1/6] Declare SCASUM as EXTERNAL --- lapack-netlib/TESTING/EIG/cbdt05.f | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/cbdt05.f b/lapack-netlib/TESTING/EIG/cbdt05.f index 5a08ccce3..4ed157431 100644 --- a/lapack-netlib/TESTING/EIG/cbdt05.f +++ b/lapack-netlib/TESTING/EIG/cbdt05.f @@ -158,9 +158,8 @@ * .. External Functions .. LOGICAL LSAME INTEGER ISAMAX - REAL SASUM, SLAMCH, CLANGE - EXTERNAL LSAME, ISAMAX, SASUM, SLAMCH, CLANGE - REAL SCASUM + REAL SASUM, SCASUM, SLAMCH, CLANGE + EXTERNAL LSAME, ISAMAX, SASUM, SCASUM, SLAMCH, CLANGE * .. * .. External Subroutines .. EXTERNAL CGEMM From 52693481784bbafba40edb2671540cccdb4c387e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 16 Jun 2021 09:35:12 +0200 Subject: [PATCH 2/6] Declare CSROT as EXTERNAL --- lapack-netlib/TESTING/EIG/cckcsd.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/cckcsd.f b/lapack-netlib/TESTING/EIG/cckcsd.f index 9783f0361..9524cb30b 100644 --- a/lapack-netlib/TESTING/EIG/cckcsd.f +++ b/lapack-netlib/TESTING/EIG/cckcsd.f @@ -228,7 +228,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAHDG, ALAREQ, ALASUM, CCSDTS, CLACSG, CLAROR, - $ CLASET + $ CLASET, CSROT * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN From 9e1b43ea9b12fba1768d2b095149523704af76bd Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 16 Jun 2021 09:39:28 +0200 Subject: [PATCH 3/6] Declare DROT as EXTERNAL --- lapack-netlib/TESTING/EIG/dckcsd.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/dckcsd.f b/lapack-netlib/TESTING/EIG/dckcsd.f index 50db6baa0..063a5ef5c 100644 --- a/lapack-netlib/TESTING/EIG/dckcsd.f +++ b/lapack-netlib/TESTING/EIG/dckcsd.f @@ -226,7 +226,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAHDG, ALAREQ, ALASUM, DCSDTS, DLACSG, DLAROR, - $ DLASET + $ DLASET, DROT * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN From e2621ef93ae32b0fef33437c91ed774aa469277a Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 16 Jun 2021 09:40:15 +0200 Subject: [PATCH 4/6] Declare SROT as EXTERNAL --- lapack-netlib/TESTING/EIG/sckcsd.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/sckcsd.f b/lapack-netlib/TESTING/EIG/sckcsd.f index 5a6e4a099..be91eed51 100644 --- a/lapack-netlib/TESTING/EIG/sckcsd.f +++ b/lapack-netlib/TESTING/EIG/sckcsd.f @@ -226,7 +226,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAHDG, ALAREQ, ALASUM, SCSDTS, SLACSG, SLAROR, - $ SLASET + $ SLASET, SROT * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN From cd0e4aadb1ee504371ba6fd516dcd5a3d9b65e95 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 16 Jun 2021 09:41:18 +0200 Subject: [PATCH 5/6] Declare ZDROT as EXTERNAL --- lapack-netlib/TESTING/EIG/zckcsd.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/EIG/zckcsd.f b/lapack-netlib/TESTING/EIG/zckcsd.f index f77b111a4..92760337c 100644 --- a/lapack-netlib/TESTING/EIG/zckcsd.f +++ b/lapack-netlib/TESTING/EIG/zckcsd.f @@ -228,7 +228,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAHDG, ALAREQ, ALASUM, ZCSDTS, ZLACSG, ZLAROR, - $ ZLASET + $ ZLASET, ZDROT * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN From 5958ffc9b6b01046f160c6afa085444cb3b0204a Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 16 Jun 2021 09:43:39 +0200 Subject: [PATCH 6/6] Declare DZASUM as EXTERNAL --- lapack-netlib/TESTING/EIG/zbdt05.f | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/zbdt05.f b/lapack-netlib/TESTING/EIG/zbdt05.f index bbf0208b7..f262351e4 100644 --- a/lapack-netlib/TESTING/EIG/zbdt05.f +++ b/lapack-netlib/TESTING/EIG/zbdt05.f @@ -158,9 +158,8 @@ * .. External Functions .. LOGICAL LSAME INTEGER IDAMAX - DOUBLE PRECISION DASUM, DLAMCH, ZLANGE - EXTERNAL LSAME, IDAMAX, DASUM, DLAMCH, ZLANGE - DOUBLE PRECISION DZASUM + DOUBLE PRECISION DASUM, DZASUM, DLAMCH, ZLANGE + EXTERNAL LSAME, IDAMAX, DASUM, DZASUM, DLAMCH, ZLANGE * .. * .. External Subroutines .. EXTERNAL ZGEMM