Skip to content

Commit ee09e07

Browse files
echereshecheresh
committed
Fix external names and remove unused routines from external statements
1 parent 13e3907 commit ee09e07

17 files changed

Lines changed: 36 additions & 67 deletions

‎TESTING/EIG/cdrvst2stg.f‎

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -399,8 +399,7 @@ SUBROUTINE CDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH,
399399
$ CHET22, CHPEV, CHPEVD, CHPEVX, CLACPY, CLASET,
400400
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
401401
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
402-
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
403-
$ CHETRD_SB2ST, CLATMR, CLATMS
402+
$ CHBEVX_2STAGE, CLATMR, CLATMS
404403
* ..
405404
* .. Intrinsic Functions ..
406405
INTRINSIC ABS, REAL, INT, LOG, MAX, MIN, SQRT

‎TESTING/EIG/cerrst.f‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -27,8 +27,8 @@
2727
*> CHPEV, CHPEVX, CHPEVD, and CSTEDC.
2828
*> CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
2929
*> CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
30-
*> CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
31-
*> CHETRD_SB2ST
30+
*> CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
31+
*> CHETRD_HB2ST
3232
*> \endverbatim
3333
*
3434
* Arguments:
@@ -100,8 +100,8 @@ SUBROUTINE CERRST( PATH, NUNIT )
100100
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR,
101101
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
102102
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
103-
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
104-
$ CHETRD_SB2ST
103+
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
104+
$ CHETRD_HB2ST
105105
* ..
106106
* .. Scalars in Common ..
107107
LOGICAL LERR, OK

‎TESTING/LIN/cchkhe_aa.f‎

Lines changed: 4 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -218,18 +218,13 @@ SUBROUTINE CCHKHE_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
218218
INTEGER ISEED( 4 ), ISEEDY( 4 )
219219
REAL RESULT( NTESTS )
220220
* ..
221-
* .. External Functions ..
222-
REAL DGET06, CLANHE
223-
EXTERNAL DGET06, CLANHE
224-
* ..
225221
* .. External Subroutines ..
226-
EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CGET04,
227-
$ ZHECON, CHERFS, CHET01_AA, CHETRF_AA, ZHETRI2,
228-
$ CHETRS_AA, CLACPY, CLAIPD, CLARHS, CLATB4,
229-
$ CLATMS, CPOT02, ZPOT03, ZPOT05
222+
EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CHET01_AA,
223+
$ CHETRF_AA, CHETRS_AA, CLACPY, CLAIPD, CLARHS,
224+
$ CLATB4, CLATMS, CPOT02
230225
* ..
231226
* .. Intrinsic Functions ..
232-
INTRINSIC REAL, IMAG, MAX, MIN
227+
INTRINSIC MAX, MIN
233228
* ..
234229
* .. Scalars in Common ..
235230
LOGICAL LERR, OK

‎TESTING/LIN/cchksy_aa.f‎

Lines changed: 3 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -218,15 +218,10 @@ SUBROUTINE CCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
218218
INTEGER ISEED( 4 ), ISEEDY( 4 )
219219
REAL RESULT( NTESTS )
220220
* ..
221-
* .. External Functions ..
222-
REAL DGET06, CLANSY
223-
EXTERNAL DGET06, CLANSY
224-
* ..
225221
* .. External Subroutines ..
226-
EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CGET04, CLACPY,
227-
$ CLARHS, CLATB4, CLATMS, CSYT02, DSYT03, DSYT05,
228-
$ DSYCON, CSYRFS, CSYT01_AA, CSYTRF_AA,
229-
$ DSYTRI2, CSYTRS_AA, XLAENV
222+
EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CLACPY, CLARHS,
223+
$ CLATB4, CLATMS, CSYT02, CSYT01_AA, CSYTRF_AA,
224+
$ CSYTRS_AA, XLAENV
230225
* ..
231226
* .. Intrinsic Functions ..
232227
INTRINSIC MAX, MIN

‎TESTING/LIN/cdrvsy_aa.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -204,8 +204,8 @@ SUBROUTINE CDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
204204
EXTERNAL DGET06, CLANSY
205205
* ..
206206
* .. External Subroutines ..
207-
EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, CGET04, CLACPY,
208-
$ CLARHS, CLASET, CLATB4, CLATMS, CSYT02, DSYT05,
207+
EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CGET04, CLACPY,
208+
$ CLARHS, CLASET, CLATB4, CLATMS, CSYT02,
209209
$ CSYSV_AA, CSYT01_AA, CSYTRF_AA, XLAENV
210210
* ..
211211
* .. Scalars in Common ..

‎TESTING/LIN/dchklqtp.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -132,7 +132,7 @@ SUBROUTINE DCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
132132
DOUBLE PRECISION RESULT( NTESTS )
133133
* ..
134134
* .. External Subroutines ..
135-
EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT04
135+
EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT05
136136
* ..
137137
* .. Scalars in Common ..
138138
LOGICAL LERR, OK

‎TESTING/LIN/dchksy_aa.f‎

Lines changed: 3 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -215,15 +215,10 @@ SUBROUTINE DCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
215215
INTEGER ISEED( 4 ), ISEEDY( 4 )
216216
DOUBLE PRECISION RESULT( NTESTS )
217217
* ..
218-
* .. External Functions ..
219-
DOUBLE PRECISION DGET06, DLANSY
220-
EXTERNAL DGET06, DLANSY
221-
* ..
222218
* .. External Subroutines ..
223-
EXTERNAL ALAERH, ALAHD, ALASUM, DERRSY, DGET04, DLACPY,
224-
$ DLARHS, DLATB4, DLATMS, DPOT02, DPOT03, DPOT05,
225-
$ DSYCON, DSYRFS, DSYT01_AA, DSYTRF_AA,
226-
$ DSYTRI2, DSYTRS_AA, XLAENV
219+
EXTERNAL ALAERH, ALAHD, ALASUM, DERRSY, DLACPY, DLARHS,
220+
$ DLATB4, DLATMS, DPOT02, DSYT01_AA, DSYTRF_AA,
221+
$ DSYTRS_AA, XLAENV
227222
* ..
228223
* .. Intrinsic Functions ..
229224
INTRINSIC MAX, MIN

‎TESTING/LIN/ddrvsy_aa.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -201,7 +201,7 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR,
201201
* ..
202202
* .. External Subroutines ..
203203
EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGET04, DLACPY,
204-
$ DLARHS, DLASET, DLATB4, DLATMS, DPOT02, DPOT05,
204+
$ DLARHS, DLASET, DLATB4, DLATMS, DPOT02,
205205
$ DSYSV_AA, DSYT01_AA, DSYTRF_AA, XLAENV
206206
* ..
207207
* .. Scalars in Common ..

‎TESTING/LIN/schklqtp.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -132,7 +132,7 @@ SUBROUTINE SCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
132132
REAL RESULT( NTESTS )
133133
* ..
134134
* .. External Subroutines ..
135-
EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT04
135+
EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQTP, SLQT05
136136
* ..
137137
* .. Scalars in Common ..
138138
LOGICAL LERR, OK

‎TESTING/LIN/schksy_aa.f‎

Lines changed: 3 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -215,15 +215,10 @@ SUBROUTINE SCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
215215
INTEGER ISEED( 4 ), ISEEDY( 4 )
216216
REAL RESULT( NTESTS )
217217
* ..
218-
* .. External Functions ..
219-
REAL DGET06, SLANSY
220-
EXTERNAL DGET06, SLANSY
221-
* ..
222218
* .. External Subroutines ..
223-
EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SGET04, SLACPY,
224-
$ SLARHS, SLATB4, SLATMS, SPOT02, DPOT03, DPOT05,
225-
$ DSYCON, SSYRFS, SSYT01_AA, SSYTRF_AA,
226-
$ DSYTRI2, SSYTRS_AA, XLAENV
219+
EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SLACPY, SLARHS,
220+
$ SLATB4, SLATMS, SPOT02, SSYT01_AA, SSYTRF_AA,
221+
$ SSYTRS_AA, XLAENV
227222
* ..
228223
* .. Intrinsic Functions ..
229224
INTRINSIC MAX, MIN

0 commit comments

Comments
 (0)