summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreugene.chereshnev <eugenechereshnev@gmail.com>2017-03-25 20:25:24 (GMT)
committereugene.chereshnev <eugenechereshnev@gmail.com>2017-03-27 02:04:37 (GMT)
commitee09e0720e729c268f91e42ec1bcb6c26402283b (patch)
tree4b79d9b2b132dbb5b58cbcf3a7e4c49058cb2056
parent13e3907347d43a4ebfe604c9e7370f1577417f78 (diff)
downloadlapack-ee09e0720e729c268f91e42ec1bcb6c26402283b.zip
lapack-ee09e0720e729c268f91e42ec1bcb6c26402283b.tar.gz
lapack-ee09e0720e729c268f91e42ec1bcb6c26402283b.tar.bz2
Fix external names and remove unused routines from external statements
-rw-r--r--TESTING/EIG/cdrvst2stg.f3
-rw-r--r--TESTING/EIG/cerrst.f8
-rw-r--r--TESTING/LIN/cchkhe_aa.f13
-rw-r--r--TESTING/LIN/cchksy_aa.f11
-rw-r--r--TESTING/LIN/cdrvsy_aa.f4
-rw-r--r--TESTING/LIN/dchklqtp.f2
-rw-r--r--TESTING/LIN/dchksy_aa.f11
-rw-r--r--TESTING/LIN/ddrvsy_aa.f2
-rw-r--r--TESTING/LIN/schklqtp.f2
-rw-r--r--TESTING/LIN/schksy_aa.f11
-rw-r--r--TESTING/LIN/sdrvsy_aa.f2
-rw-r--r--TESTING/LIN/serrsy.f2
-rw-r--r--TESTING/LIN/zchkhe_aa.f11
-rw-r--r--TESTING/LIN/zchksy_aa.f11
-rw-r--r--TESTING/LIN/zchktsqr.f4
-rw-r--r--TESTING/LIN/zdrvsy_aa.f4
-rw-r--r--TESTING/LIN/zerrsy.f2
17 files changed, 36 insertions, 67 deletions
diff --git a/TESTING/EIG/cdrvst2stg.f b/TESTING/EIG/cdrvst2stg.f
index 12a27e5..bb8fcac 100644
--- a/TESTING/EIG/cdrvst2stg.f
+++ b/TESTING/EIG/cdrvst2stg.f
@@ -399,8 +399,7 @@
$ CHET22, CHPEV, CHPEVD, CHPEVX, CLACPY, CLASET,
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
- $ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
- $ CHETRD_SB2ST, CLATMR, CLATMS
+ $ CHBEVX_2STAGE, CLATMR, CLATMS
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, REAL, INT, LOG, MAX, MIN, SQRT
diff --git a/TESTING/EIG/cerrst.f b/TESTING/EIG/cerrst.f
index 10b2de4..b9b487c 100644
--- a/TESTING/EIG/cerrst.f
+++ b/TESTING/EIG/cerrst.f
@@ -27,8 +27,8 @@
*> CHPEV, CHPEVX, CHPEVD, and CSTEDC.
*> CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
*> CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
-*> CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
-*> CHETRD_SB2ST
+*> CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
+*> CHETRD_HB2ST
*> \endverbatim
*
* Arguments:
@@ -100,8 +100,8 @@
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR,
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
- $ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
- $ CHETRD_SB2ST
+ $ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
+ $ CHETRD_HB2ST
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
diff --git a/TESTING/LIN/cchkhe_aa.f b/TESTING/LIN/cchkhe_aa.f
index cb1f07b..8b6308c 100644
--- a/TESTING/LIN/cchkhe_aa.f
+++ b/TESTING/LIN/cchkhe_aa.f
@@ -218,18 +218,13 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
-* .. External Functions ..
- REAL DGET06, CLANHE
- EXTERNAL DGET06, CLANHE
-* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CGET04,
- $ ZHECON, CHERFS, CHET01_AA, CHETRF_AA, ZHETRI2,
- $ CHETRS_AA, CLACPY, CLAIPD, CLARHS, CLATB4,
- $ CLATMS, CPOT02, ZPOT03, ZPOT05
+ EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CHET01_AA,
+ $ CHETRF_AA, CHETRS_AA, CLACPY, CLAIPD, CLARHS,
+ $ CLATB4, CLATMS, CPOT02
* ..
* .. Intrinsic Functions ..
- INTRINSIC REAL, IMAG, MAX, MIN
+ INTRINSIC MAX, MIN
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
diff --git a/TESTING/LIN/cchksy_aa.f b/TESTING/LIN/cchksy_aa.f
index 33bbad1..0b29117 100644
--- a/TESTING/LIN/cchksy_aa.f
+++ b/TESTING/LIN/cchksy_aa.f
@@ -218,15 +218,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
-* .. External Functions ..
- REAL DGET06, CLANSY
- EXTERNAL DGET06, CLANSY
-* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CGET04, CLACPY,
- $ CLARHS, CLATB4, CLATMS, CSYT02, DSYT03, DSYT05,
- $ DSYCON, CSYRFS, CSYT01_AA, CSYTRF_AA,
- $ DSYTRI2, CSYTRS_AA, XLAENV
+ EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CLACPY, CLARHS,
+ $ CLATB4, CLATMS, CSYT02, CSYT01_AA, CSYTRF_AA,
+ $ CSYTRS_AA, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
diff --git a/TESTING/LIN/cdrvsy_aa.f b/TESTING/LIN/cdrvsy_aa.f
index b1a5f11..ee8f16e 100644
--- a/TESTING/LIN/cdrvsy_aa.f
+++ b/TESTING/LIN/cdrvsy_aa.f
@@ -204,8 +204,8 @@
EXTERNAL DGET06, CLANSY
* ..
* .. External Subroutines ..
- EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, CGET04, CLACPY,
- $ CLARHS, CLASET, CLATB4, CLATMS, CSYT02, DSYT05,
+ EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CGET04, CLACPY,
+ $ CLARHS, CLASET, CLATB4, CLATMS, CSYT02,
$ CSYSV_AA, CSYT01_AA, CSYTRF_AA, XLAENV
* ..
* .. Scalars in Common ..
diff --git a/TESTING/LIN/dchklqtp.f b/TESTING/LIN/dchklqtp.f
index 42ebc96..936b22f 100644
--- a/TESTING/LIN/dchklqtp.f
+++ b/TESTING/LIN/dchklqtp.f
@@ -132,7 +132,7 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT04
+ EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
diff --git a/TESTING/LIN/dchksy_aa.f b/TESTING/LIN/dchksy_aa.f
index 53d7db6..f30495a 100644
--- a/TESTING/LIN/dchksy_aa.f
+++ b/TESTING/LIN/dchksy_aa.f
@@ -215,15 +215,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
-* .. External Functions ..
- DOUBLE PRECISION DGET06, DLANSY
- EXTERNAL DGET06, DLANSY
-* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, DERRSY, DGET04, DLACPY,
- $ DLARHS, DLATB4, DLATMS, DPOT02, DPOT03, DPOT05,
- $ DSYCON, DSYRFS, DSYT01_AA, DSYTRF_AA,
- $ DSYTRI2, DSYTRS_AA, XLAENV
+ EXTERNAL ALAERH, ALAHD, ALASUM, DERRSY, DLACPY, DLARHS,
+ $ DLATB4, DLATMS, DPOT02, DSYT01_AA, DSYTRF_AA,
+ $ DSYTRS_AA, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f
index af39303..51860d8 100644
--- a/TESTING/LIN/ddrvsy_aa.f
+++ b/TESTING/LIN/ddrvsy_aa.f
@@ -201,7 +201,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGET04, DLACPY,
- $ DLARHS, DLASET, DLATB4, DLATMS, DPOT02, DPOT05,
+ $ DLARHS, DLASET, DLATB4, DLATMS, DPOT02,
$ DSYSV_AA, DSYT01_AA, DSYTRF_AA, XLAENV
* ..
* .. Scalars in Common ..
diff --git a/TESTING/LIN/schklqtp.f b/TESTING/LIN/schklqtp.f
index 183882e..f09440d 100644
--- a/TESTING/LIN/schklqtp.f
+++ b/TESTING/LIN/schklqtp.f
@@ -132,7 +132,7 @@
REAL RESULT( NTESTS )
* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT04
+ EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQTP, SLQT05
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
diff --git a/TESTING/LIN/schksy_aa.f b/TESTING/LIN/schksy_aa.f
index 35b1d95..304cfc4 100644
--- a/TESTING/LIN/schksy_aa.f
+++ b/TESTING/LIN/schksy_aa.f
@@ -215,15 +215,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
REAL RESULT( NTESTS )
* ..
-* .. External Functions ..
- REAL DGET06, SLANSY
- EXTERNAL DGET06, SLANSY
-* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SGET04, SLACPY,
- $ SLARHS, SLATB4, SLATMS, SPOT02, DPOT03, DPOT05,
- $ DSYCON, SSYRFS, SSYT01_AA, SSYTRF_AA,
- $ DSYTRI2, SSYTRS_AA, XLAENV
+ EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SLACPY, SLARHS,
+ $ SLATB4, SLATMS, SPOT02, SSYT01_AA, SSYTRF_AA,
+ $ SSYTRS_AA, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f
index 8e5686f..f826e20 100644
--- a/TESTING/LIN/sdrvsy_aa.f
+++ b/TESTING/LIN/sdrvsy_aa.f
@@ -199,7 +199,7 @@
* ..
* .. External Subroutines ..
EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SGET04, SLACPY,
- $ SLARHS, SLASET, SLATB4, SLATMS, SPOT02, DPOT05,
+ $ SLARHS, SLASET, SLATB4, SLATMS, SPOT02,
$ SSYSV_AA, SSYT01_AA, SSYTRF_AA, XLAENV
* ..
* .. Scalars in Common ..
diff --git a/TESTING/LIN/serrsy.f b/TESTING/LIN/serrsy.f
index ce6975d..a4184cf 100644
--- a/TESTING/LIN/serrsy.f
+++ b/TESTING/LIN/serrsy.f
@@ -92,7 +92,7 @@
$ SSYTF2_RK, SSYTF2_ROOK, SSYTRF, SSYTRF_RK,
$ SSYTRF_ROOK, SSYTRI, SSYTF2, SSYTRI_3,
$ SSYTRI_3X, SSYTRI_ROOK, SSYTRF_AA, SSYTRI2,
- $ SYTRI2X, SSYTRS, SSYTRS_3, SSYTRS_ROOK,
+ $ SSYTRI2X, SSYTRS, SSYTRS_3, SSYTRS_ROOK,
$ SSYTRS_AA
* ..
* .. Scalars in Common ..
diff --git a/TESTING/LIN/zchkhe_aa.f b/TESTING/LIN/zchkhe_aa.f
index 36125cc..85d194a 100644
--- a/TESTING/LIN/zchkhe_aa.f
+++ b/TESTING/LIN/zchkhe_aa.f
@@ -218,15 +218,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
-* .. External Functions ..
- DOUBLE PRECISION DGET06, ZLANHE
- EXTERNAL DGET06, ZLANHE
-* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, ZERRHE, ZGET04,
- $ ZHECON, ZHERFS, ZHET01_AA, ZHETRF_AA, ZHETRI2,
- $ ZHETRS_AA, ZLACPY, ZLAIPD, ZLARHS, ZLATB4,
- $ ZLATMS, ZPOT02, ZPOT03, ZPOT05
+ EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, ZERRHE,
+ $ ZHET01_AA, ZHETRF_AA, ZHETRS_AA, ZLACPY,
+ $ ZLAIPD, ZLARHS, ZLATB4, ZLATMS, ZPOT02
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
diff --git a/TESTING/LIN/zchksy_aa.f b/TESTING/LIN/zchksy_aa.f
index 465f06d..ff4f6be 100644
--- a/TESTING/LIN/zchksy_aa.f
+++ b/TESTING/LIN/zchksy_aa.f
@@ -218,15 +218,10 @@
INTEGER ISEED( 4 ), ISEEDY( 4 )
DOUBLE PRECISION RESULT( NTESTS )
* ..
-* .. External Functions ..
- DOUBLE PRECISION DGET06, ZLANSY
- EXTERNAL DGET06, ZLANSY
-* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, ZERRSY, ZGET04, ZLACPY,
- $ ZLARHS, ZLATB4, ZLATMS, ZSYT02, DSYT03, DSYT05,
- $ DSYCON, ZSYRFS, ZSYT01_AA, ZSYTRF_AA,
- $ DSYTRI2, ZSYTRS_AA, XLAENV
+ EXTERNAL ALAERH, ALAHD, ALASUM, ZERRSY, ZLACPY, ZLARHS,
+ $ ZLATB4, ZLATMS, ZSYT02, ZSYT01_AA, ZSYTRF_AA,
+ $ ZSYTRS_AA, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
diff --git a/TESTING/LIN/zchktsqr.f b/TESTING/LIN/zchktsqr.f
index 2361609..3945d7a 100644
--- a/TESTING/LIN/zchktsqr.f
+++ b/TESTING/LIN/zchktsqr.f
@@ -132,8 +132,8 @@
DOUBLE PRECISION RESULT( NTESTS )
* ..
* .. External Subroutines ..
- EXTERNAL ALAERH, ALAHD, ALASUM, DERRTSQR,
- $ DTSQR01, XLAENV
+ EXTERNAL ALAERH, ALAHD, ALASUM, ZERRTSQR,
+ $ ZTSQR01, XLAENV
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
diff --git a/TESTING/LIN/zdrvsy_aa.f b/TESTING/LIN/zdrvsy_aa.f
index 7b96267..3963782 100644
--- a/TESTING/LIN/zdrvsy_aa.f
+++ b/TESTING/LIN/zdrvsy_aa.f
@@ -204,8 +204,8 @@
EXTERNAL DGET06, ZLANSY
* ..
* .. External Subroutines ..
- EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, ZGET04, ZLACPY,
- $ ZLARHS, ZLASET, ZLATB4, ZLATMS, ZSYT02, DSYT05,
+ EXTERNAL ALADHD, ALAERH, ALASVM, ZERRVX, ZGET04, ZLACPY,
+ $ ZLARHS, ZLASET, ZLATB4, ZLATMS, ZSYT02,
$ ZSYSV_AA, ZSYT01_AA, ZSYTRF_AA, XLAENV
* ..
* .. Scalars in Common ..
diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f
index 4179e98..fbbe7d7 100644
--- a/TESTING/LIN/zerrsy.f
+++ b/TESTING/LIN/zerrsy.f
@@ -91,7 +91,7 @@
$ ZSPTRS, ZSYCON, ZSYCON_3, ZSYCON_ROOK, ZSYRFS,
$ ZSYTF2, ZSYTF2_RK, ZSYTF2_ROOK, ZSYTRF,
$ ZSYTRF_RK, ZSYTRF_ROOK, ZSYTRI, ZSYTRI_3,
- $ ZSYTRI_3X, ZSYTRI_ROOK, ZSYTRI2, ZSYTRI2Z,
+ $ ZSYTRI_3X, ZSYTRI_ROOK, ZSYTRI2, ZSYTRI2X,
$ ZSYTRS, ZSYTRS_3, ZSYTRS_ROOK
* ..
* .. Scalars in Common ..