Skip to content

Commit 5958ffc

Browse files
authored
Declare DZASUM as EXTERNAL
1 parent cd0e4aa commit 5958ffc

1 file changed

Lines changed: 2 additions & 3 deletions

File tree

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

0 commit comments

Comments
 (0)