Declare DZASUM as EXTERNAL

2021-06-16 09:43:39 +02:00
parent cd0e4aadb1
commit 5958ffc9b6
1 changed files with 2 additions and 3 deletions
--- a/lapack-netlib/TESTING/EIG/zbdt05.f
+++ b/lapack-netlib/TESTING/EIG/zbdt05.f
@@ -158,9 +158,8 @@
 *     .. External Functions ..
      LOGICAL            LSAME
      INTEGER            IDAMAX
-      DOUBLE PRECISION   DASUM, DLAMCH, ZLANGE
-      EXTERNAL           LSAME, IDAMAX, DASUM, DLAMCH, ZLANGE
-      DOUBLE PRECISION   DZASUM
+      DOUBLE PRECISION   DASUM, DZASUM, DLAMCH, ZLANGE
+      EXTERNAL           LSAME, IDAMAX, DASUM, DZASUM, DLAMCH, ZLANGE
 *     ..
 *     .. External Subroutines ..
      EXTERNAL           ZGEMM