Skip to content

Commit 31857f1

Browse files
Fix missing EXTERNAL declarations in DCKCSD and ZBDT05 thanks to @hokb
1 parent 0448336 commit 31857f1

File tree

6 files changed

+8
-10
lines changed

6 files changed

+8
-10
lines changed

TESTING/EIG/cbdt05.f

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -155,9 +155,8 @@ SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU,
155155
* .. External Functions ..
156156
LOGICAL LSAME
157157
INTEGER ISAMAX
158-
REAL SASUM, SLAMCH, CLANGE
159-
EXTERNAL LSAME, ISAMAX, SASUM, SLAMCH, CLANGE
160-
REAL SCASUM
158+
REAL SASUM, SCASUM, SLAMCH, CLANGE
159+
EXTERNAL LSAME, ISAMAX, SASUM, SCASUM, SLAMCH, CLANGE
161160
* ..
162161
* .. External Subroutines ..
163162
EXTERNAL CGEMM

TESTING/EIG/cckcsd.f

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

TESTING/EIG/dckcsd.f

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

TESTING/EIG/sckcsd.f

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

TESTING/EIG/zbdt05.f

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -155,9 +155,8 @@ SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU,
155155
* .. External Functions ..
156156
LOGICAL LSAME
157157
INTEGER IDAMAX
158-
DOUBLE PRECISION DASUM, DLAMCH, ZLANGE
159-
EXTERNAL LSAME, IDAMAX, DASUM, DLAMCH, ZLANGE
160-
DOUBLE PRECISION DZASUM
158+
DOUBLE PRECISION DASUM, DZASUM, DLAMCH, ZLANGE
159+
EXTERNAL LSAME, IDAMAX, DASUM, DZASUM, DLAMCH, ZLANGE
161160
* ..
162161
* .. External Subroutines ..
163162
EXTERNAL ZGEMM

TESTING/EIG/zckcsd.f

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

0 commit comments

Comments
 (0)