Skip to content

Commit 9499ab0

Browse files
authored
Merge pull request #3275 from martin-frbg/lapack580
Fix missing EXTERNAL declarations in LAPACK TESTING (LAPACK PR 580)
2 parents c4b464c + 5958ffc commit 9499ab0

6 files changed

Lines changed: 8 additions & 10 deletions

File tree

lapack-netlib/TESTING/EIG/cbdt05.f

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -158,9 +158,8 @@ SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU,
158158
* .. External Functions ..
159159
LOGICAL LSAME
160160
INTEGER ISAMAX
161-
REAL SASUM, SLAMCH, CLANGE
162-
EXTERNAL LSAME, ISAMAX, SASUM, SLAMCH, CLANGE
163-
REAL SCASUM
161+
REAL SASUM, SCASUM, SLAMCH, CLANGE
162+
EXTERNAL LSAME, ISAMAX, SASUM, SCASUM, SLAMCH, CLANGE
164163
* ..
165164
* .. External Subroutines ..
166165
EXTERNAL CGEMM

lapack-netlib/TESTING/EIG/cckcsd.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -228,7 +228,7 @@ SUBROUTINE CCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH,
228228
* ..
229229
* .. External Subroutines ..
230230
EXTERNAL ALAHDG, ALAREQ, ALASUM, CCSDTS, CLACSG, CLAROR,
231-
$ CLASET
231+
$ CLASET, CSROT
232232
* ..
233233
* .. Intrinsic Functions ..
234234
INTRINSIC ABS, MIN

lapack-netlib/TESTING/EIG/dckcsd.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -226,7 +226,7 @@ SUBROUTINE DCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH,
226226
* ..
227227
* .. External Subroutines ..
228228
EXTERNAL ALAHDG, ALAREQ, ALASUM, DCSDTS, DLACSG, DLAROR,
229-
$ DLASET
229+
$ DLASET, DROT
230230
* ..
231231
* .. Intrinsic Functions ..
232232
INTRINSIC ABS, MIN

lapack-netlib/TESTING/EIG/sckcsd.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -226,7 +226,7 @@ SUBROUTINE SCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH,
226226
* ..
227227
* .. External Subroutines ..
228228
EXTERNAL ALAHDG, ALAREQ, ALASUM, SCSDTS, SLACSG, SLAROR,
229-
$ SLASET
229+
$ SLASET, SROT
230230
* ..
231231
* .. Intrinsic Functions ..
232232
INTRINSIC ABS, MIN

lapack-netlib/TESTING/EIG/zbdt05.f

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -158,9 +158,8 @@ SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU,
158158
* .. External Functions ..
159159
LOGICAL LSAME
160160
INTEGER IDAMAX
161-
DOUBLE PRECISION DASUM, DLAMCH, ZLANGE
162-
EXTERNAL LSAME, IDAMAX, DASUM, DLAMCH, ZLANGE
163-
DOUBLE PRECISION DZASUM
161+
DOUBLE PRECISION DASUM, DZASUM, DLAMCH, ZLANGE
162+
EXTERNAL LSAME, IDAMAX, DASUM, DZASUM, DLAMCH, ZLANGE
164163
* ..
165164
* .. External Subroutines ..
166165
EXTERNAL ZGEMM

lapack-netlib/TESTING/EIG/zckcsd.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -228,7 +228,7 @@ SUBROUTINE ZCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH,
228228
* ..
229229
* .. External Subroutines ..
230230
EXTERNAL ALAHDG, ALAREQ, ALASUM, ZCSDTS, ZLACSG, ZLAROR,
231-
$ ZLASET
231+
$ ZLASET, ZDROT
232232
* ..
233233
* .. Intrinsic Functions ..
234234
INTRINSIC ABS, MIN

0 commit comments

Comments
 (0)