Fix #80 from @reeuwijk-altium

Remove a bunch of unused symbols

diff --git a/SRC/cgbrfsx.f b/SRC/cgbrfsx.f
index bf5d741..f08fe8a 100644 (file)
--- a/SRC/cgbrfsx.f
+++ b/SRC/cgbrfsx.f
@@ -498,11 +498,10 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILATRANS, ILAPREC
       EXTERNAL           SLAMCH, CLANGB, CLA_GBRCOND_X, CLA_GBRCOND_C
       REAL               SLAMCH, CLANGB, CLA_GBRCOND_X, CLA_GBRCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
       INTEGER            ILATRANS, ILAPREC
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/cgerfsx.f b/SRC/cgerfsx.f
index f986261..f276ef0 100644 (file)
--- a/SRC/cgerfsx.f
+++ b/SRC/cgerfsx.f
@@ -475,11 +475,10 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILATRANS, ILAPREC
       EXTERNAL           SLAMCH, CLANGE, CLA_GERCOND_X, CLA_GERCOND_C
       REAL               SLAMCH, CLANGE, CLA_GERCOND_X, CLA_GERCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
       INTEGER            ILATRANS, ILAPREC
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/cgsvj0.f b/SRC/cgsvj0.f
index d51a078..b00da9a 100644 (file)
--- a/SRC/cgsvj0.f
+++ b/SRC/cgsvj0.f
@@ -268,7 +268,7 @@
 *     .. External Subroutines ..
 *     ..
 *     from BLAS
-      EXTERNAL           CCOPY, CROT, CSSCAL, CSWAP
+      EXTERNAL           CCOPY, CROT, CSWAP
 *     from LAPACK
       EXTERNAL           CLASCL, CLASSQ, XERBLA
 *     ..

diff --git a/SRC/cgsvj1.f b/SRC/cgsvj1.f
index b629152..d36df3f 100644 (file)
--- a/SRC/cgsvj1.f
+++ b/SRC/cgsvj1.f
@@ -281,7 +281,7 @@
 *     ..
 *     .. External Subroutines ..
 *     .. from BLAS
-      EXTERNAL           CCOPY, CROT, CSSCAL, CSWAP
+      EXTERNAL           CCOPY, CROT, CSWAP
 *     .. from LAPACK
       EXTERNAL           CLASCL, CLASSQ, XERBLA
 *     ..

diff --git a/SRC/cherfsx.f b/SRC/cherfsx.f
index 4c5d795..2450388 100644 (file)
--- a/SRC/cherfsx.f
+++ b/SRC/cherfsx.f
@@ -461,12 +461,11 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           SLAMCH, CLANHE, CLA_HERCOND_X, CLA_HERCOND_C
       REAL               SLAMCH, CLANHE, CLA_HERCOND_X, CLA_HERCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/chesvxx.f b/SRC/chesvxx.f
index 4260075..b770206 100644 (file)
--- a/SRC/chesvxx.f
+++ b/SRC/chesvxx.f
@@ -554,7 +554,7 @@
       REAL               SLAMCH, CLA_HERPVGRW
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CHECON, CHEEQUB, CHETRF, CHETRS, CLACPY,
+      EXTERNAL           CHEEQUB, CHETRF, CHETRS, CLACPY,
      $                   CLAQHE, XERBLA, CLASCL2, CHERFSX
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/SRC/chetrs2.f b/SRC/chetrs2.f
index a0fd427..a7e3180 100644 (file)
--- a/SRC/chetrs2.f
+++ b/SRC/chetrs2.f
@@ -158,7 +158,7 @@
       EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CSCAL, CSYCONV, CSWAP, CTRSM, XERBLA
+      EXTERNAL           CSSCAL, CSYCONV, CSWAP, CTRSM, XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          CONJG, MAX, REAL

diff --git a/SRC/clarft.f b/SRC/clarft.f
index d65fbfa..6b7d7b6 100644 (file)
--- a/SRC/clarft.f
+++ b/SRC/clarft.f
@@ -187,7 +187,7 @@
       INTEGER            I, J, PREVLASTV, LASTV
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CGEMV, CLACGV, CTRMV
+      EXTERNAL           CGEMV, CTRMV
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

diff --git a/SRC/cporfsx.f b/SRC/cporfsx.f
index 3395ab6..14d5e0f 100644 (file)
--- a/SRC/cporfsx.f
+++ b/SRC/cporfsx.f
@@ -453,12 +453,11 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           SLAMCH, CLANHE, CLA_PORCOND_X, CLA_PORCOND_C
       REAL               SLAMCH, CLANHE, CLA_PORCOND_X, CLA_PORCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/cposvxx.f b/SRC/cposvxx.f
index 973060d..2294f24 100644 (file)
--- a/SRC/cposvxx.f
+++ b/SRC/cposvxx.f
@@ -540,7 +540,7 @@
       REAL               SLAMCH, CLA_PORPVGRW
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CPOCON, CPOEQUB, CPOTRF, CPOTRS, CLACPY,
+      EXTERNAL           CPOEQUB, CPOTRF, CPOTRS, CLACPY,
      $                   CLAQHE, XERBLA, CLASCL2, CPORFSX
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/SRC/cstein.f b/SRC/cstein.f
index f39f50b..8a96d55 100644 (file)
--- a/SRC/cstein.f
+++ b/SRC/cstein.f
@@ -221,8 +221,8 @@
 *     ..
 *     .. External Functions ..
       INTEGER            ISAMAX
-      REAL               SASUM, SLAMCH, SNRM2
-      EXTERNAL           ISAMAX, SASUM, SLAMCH, SNRM2
+      REAL               SLAMCH, SNRM2
+      EXTERNAL           ISAMAX, SLAMCH, SNRM2
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           SCOPY, SLAGTF, SLAGTS, SLARNV, SSCAL, XERBLA

diff --git a/SRC/csyrfsx.f b/SRC/csyrfsx.f
index b85bfef..67613ac 100644 (file)
--- a/SRC/csyrfsx.f
+++ b/SRC/csyrfsx.f
@@ -463,12 +463,11 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           SLAMCH, CLANSY, CLA_SYRCOND_X, CLA_SYRCOND_C
       REAL               SLAMCH, CLANSY, CLA_SYRCOND_X, CLA_SYRCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/csysvxx.f b/SRC/csysvxx.f
index a0988ea..428f30e 100644 (file)
--- a/SRC/csysvxx.f
+++ b/SRC/csysvxx.f
@@ -554,7 +554,7 @@
       REAL               SLAMCH, CLA_SYRPVGRW
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CSYCON, CSYEQUB, CSYTRF, CSYTRS, CLACPY,
+      EXTERNAL           CSYEQUB, CSYTRF, CSYTRS, CLACPY,
      $                   CLAQSY, XERBLA, CLASCL2, CSYRFSX
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/SRC/ctpmqrt.f b/SRC/ctpmqrt.f
index 94b0202..8c5b727 100644 (file)
--- a/SRC/ctpmqrt.f
+++ b/SRC/ctpmqrt.f
@@ -242,7 +242,7 @@
       EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           XERBLA, CLARFB
+      EXTERNAL           XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          MAX, MIN

diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f
index 0560456..6ed9290 100644 (file)
--- a/SRC/cuncsd.f
+++ b/SRC/cuncsd.f
@@ -363,8 +363,8 @@
       LOGICAL            LRQUERY
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           XERBLA, CBBCSD, CLACPY, CLAPMR, CLAPMT, CLASCL,
-     $                   CLASET, CUNBDB, CUNGLQ, CUNGQR
+      EXTERNAL           XERBLA, CBBCSD, CLACPY, CLAPMR, CLAPMT,
+     $                   CUNBDB, CUNGLQ, CUNGQR
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

diff --git a/SRC/cungbr.f b/SRC/cungbr.f
index fb6de56..723a0c2 100644 (file)
--- a/SRC/cungbr.f
+++ b/SRC/cungbr.f
@@ -183,8 +183,7 @@
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      INTEGER            ILAENV
-      EXTERNAL           ILAENV, LSAME
+      EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           CUNGLQ, CUNGQR, XERBLA

diff --git a/SRC/dgbrfsx.f b/SRC/dgbrfsx.f
index 6f49bce..11c6e7e 100644 (file)
--- a/SRC/dgbrfsx.f
+++ b/SRC/dgbrfsx.f
@@ -502,11 +502,10 @@
       INTRINSIC          MAX, SQRT
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILATRANS, ILAPREC
       EXTERNAL           DLAMCH, DLANGB, DLA_GBRCOND
       DOUBLE PRECISION   DLAMCH, DLANGB, DLA_GBRCOND
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
       INTEGER            ILATRANS, ILAPREC
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/dgerfsx.f b/SRC/dgerfsx.f
index 7e501bd..48e4e9b 100644 (file)
--- a/SRC/dgerfsx.f
+++ b/SRC/dgerfsx.f
@@ -475,11 +475,10 @@
       INTRINSIC          MAX, SQRT
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILATRANS, ILAPREC
       EXTERNAL           DLAMCH, DLANGE, DLA_GERCOND
       DOUBLE PRECISION   DLAMCH, DLANGE, DLA_GERCOND
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
       INTEGER            ILATRANS, ILAPREC
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/dgesvdx.f b/SRC/dgesvdx.f
index b6060b4..dbfc6bf 100644 (file)
--- a/SRC/dgesvdx.f
+++ b/SRC/dgesvdx.f
@@ -299,13 +299,13 @@
 *     .. External Subroutines ..
       EXTERNAL           DBDSVDX, DGEBRD, DGELQF, DGEQRF, DLACPY,
      $                   DLASCL, DLASET, DORMBR, DORMLQ, DORMQR,
-     $                   DSCAL, XERBLA
+     $                   XERBLA
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
       INTEGER            ILAENV
-      DOUBLE PRECISION   DLAMCH, DLANGE, DNRM2
-      EXTERNAL           LSAME, ILAENV, DLAMCH, DLANGE, DNRM2
+      DOUBLE PRECISION   DLAMCH, DLANGE
+      EXTERNAL           LSAME, ILAENV, DLAMCH, DLANGE
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          MAX, MIN, SQRT

diff --git a/SRC/dla_porcond.f b/SRC/dla_porcond.f
index 696a4d6..fdec131 100644 (file)
--- a/SRC/dla_porcond.f
+++ b/SRC/dla_porcond.f
@@ -169,8 +169,7 @@
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      INTEGER            IDAMAX
-      EXTERNAL           LSAME, IDAMAX
+      EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           DLACN2, DPOTRS, XERBLA

diff --git a/SRC/dla_syrcond.f b/SRC/dla_syrcond.f
index 428f2e5..d046d03 100644 (file)
--- a/SRC/dla_syrcond.f
+++ b/SRC/dla_syrcond.f
@@ -175,12 +175,11 @@
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      INTEGER            IDAMAX
       DOUBLE PRECISION   DLAMCH
-      EXTERNAL           LSAME, IDAMAX, DLAMCH
+      EXTERNAL           LSAME, DLAMCH
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           DLACN2, DLATRS, DRSCL, XERBLA, DSYTRS
+      EXTERNAL           DLACN2, XERBLA, DSYTRS
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, MAX

diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f
index ddb2b61..be5e9e3 100644 (file)
--- a/SRC/dorcsd.f
+++ b/SRC/dorcsd.f
@@ -340,7 +340,7 @@
      $                   WANTV1T, WANTV2T
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           DBBCSD, DLACPY, DLAPMR, DLAPMT, DLASCL, DLASET,
+      EXTERNAL           DBBCSD, DLACPY, DLAPMR, DLAPMT,
      $                   DORBDB, DORGLQ, DORGQR, XERBLA
 *     ..
 *     .. External Functions ..

diff --git a/SRC/dorgbr.f b/SRC/dorgbr.f
index 20e3d47..3492318 100644 (file)
--- a/SRC/dorgbr.f
+++ b/SRC/dorgbr.f
@@ -182,8 +182,7 @@
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      INTEGER            ILAENV
-      EXTERNAL           LSAME, ILAENV
+      EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           DORGLQ, DORGQR, XERBLA

diff --git a/SRC/dporfsx.f b/SRC/dporfsx.f
index 35d38a8..ed9f1c3 100644 (file)
--- a/SRC/dporfsx.f
+++ b/SRC/dporfsx.f
@@ -455,12 +455,11 @@
       INTRINSIC          MAX, SQRT
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           DLAMCH, DLANSY, DLA_PORCOND
       DOUBLE PRECISION   DLAMCH, DLANSY, DLA_PORCOND
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/dstein.f b/SRC/dstein.f
index 2e58877..192fa03 100644 (file)
--- a/SRC/dstein.f
+++ b/SRC/dstein.f
@@ -209,8 +209,8 @@
 *     ..
 *     .. External Functions ..
       INTEGER            IDAMAX
-      DOUBLE PRECISION   DASUM, DDOT, DLAMCH, DNRM2
-      EXTERNAL           IDAMAX, DASUM, DDOT, DLAMCH, DNRM2
+      DOUBLE PRECISION   DDOT, DLAMCH, DNRM2
+      EXTERNAL           IDAMAX, DDOT, DLAMCH, DNRM2
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           DAXPY, DCOPY, DLAGTF, DLAGTS, DLARNV, DSCAL,

diff --git a/SRC/dsyrfsx.f b/SRC/dsyrfsx.f
index 72da663..420824c 100644 (file)
--- a/SRC/dsyrfsx.f
+++ b/SRC/dsyrfsx.f
@@ -462,12 +462,11 @@
       INTRINSIC          MAX, SQRT
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           DLAMCH, DLANSY, DLA_SYRCOND
       DOUBLE PRECISION   DLAMCH, DLANSY, DLA_SYRCOND
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/dsysvxx.f b/SRC/dsysvxx.f
index 73d0ab8..3d06be0 100644 (file)
--- a/SRC/dsysvxx.f
+++ b/SRC/dsysvxx.f
@@ -550,7 +550,7 @@
       DOUBLE PRECISION   DLAMCH, DLA_SYRPVGRW
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           DSYCON, DSYEQUB, DSYTRF, DSYTRS,
+      EXTERNAL           DSYEQUB, DSYTRF, DSYTRS,
      $                   DLACPY, DLAQSY, XERBLA, DLASCL2, DSYRFSX
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/SRC/dtpmqrt.f b/SRC/dtpmqrt.f
index b79911c..bd7223c 100644 (file)
--- a/SRC/dtpmqrt.f
+++ b/SRC/dtpmqrt.f
@@ -242,7 +242,7 @@
       EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           XERBLA, DLARFB
+      EXTERNAL           XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          MAX, MIN

diff --git a/SRC/sgbrfsx.f b/SRC/sgbrfsx.f
index e4a2aab..231ae10 100644 (file)
--- a/SRC/sgbrfsx.f
+++ b/SRC/sgbrfsx.f
@@ -502,11 +502,10 @@
       INTRINSIC          MAX, SQRT
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILATRANS, ILAPREC
       EXTERNAL           SLAMCH, SLANGB, SLA_GBRCOND
       REAL               SLAMCH, SLANGB, SLA_GBRCOND
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
       INTEGER            ILATRANS, ILAPREC
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/sgerfsx.f b/SRC/sgerfsx.f
index 5d40833..9134df4 100644 (file)
--- a/SRC/sgerfsx.f
+++ b/SRC/sgerfsx.f
@@ -475,11 +475,10 @@
       INTRINSIC          MAX, SQRT
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILATRANS, ILAPREC
       EXTERNAL           SLAMCH, SLANGE, SLA_GERCOND
       REAL               SLAMCH, SLANGE, SLA_GERCOND
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
       INTEGER            ILATRANS, ILAPREC
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/sgesvdx.f b/SRC/sgesvdx.f
index 2bcded6..f1a0989 100644 (file)
--- a/SRC/sgesvdx.f
+++ b/SRC/sgesvdx.f
@@ -299,13 +299,13 @@
 *     .. External Subroutines ..
       EXTERNAL           SBDSVDX, SGEBRD, SGELQF, SGEQRF, SLACPY,
      $                   SLASCL, SLASET, SORMBR, SORMLQ, SORMQR,
-     $                   SSCAL, XERBLA
+     $                   XERBLA
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
       INTEGER            ILAENV
-      REAL               SLAMCH, SLANGE, SNRM2
-      EXTERNAL           LSAME, ILAENV, SLAMCH, SLANGE, SNRM2
+      REAL               SLAMCH, SLANGE
+      EXTERNAL           LSAME, ILAENV, SLAMCH, SLANGE
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          MAX, MIN, SQRT

diff --git a/SRC/sla_porcond.f b/SRC/sla_porcond.f
index 06f3d46..a4ef896 100644 (file)
--- a/SRC/sla_porcond.f
+++ b/SRC/sla_porcond.f
@@ -167,8 +167,7 @@
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      INTEGER            ISAMAX
-      EXTERNAL           LSAME, ISAMAX
+      EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           SLACN2, SPOTRS, XERBLA

diff --git a/SRC/sla_syrcond.f b/SRC/sla_syrcond.f
index 448d4e2..34531ba 100644 (file)
--- a/SRC/sla_syrcond.f
+++ b/SRC/sla_syrcond.f
@@ -173,9 +173,8 @@
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      INTEGER            ISAMAX
       REAL               SLAMCH
-      EXTERNAL           LSAME, ISAMAX, SLAMCH
+      EXTERNAL           LSAME, SLAMCH
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           SLACN2, XERBLA, SSYTRS

diff --git a/SRC/slasq2.f b/SRC/slasq2.f
index f272d34..56d123c 100644 (file)
--- a/SRC/slasq2.f
+++ b/SRC/slasq2.f
@@ -147,9 +147,8 @@
       EXTERNAL           SLASQ3, SLASRT, XERBLA
 *     ..
 *     .. External Functions ..
-      INTEGER            ILAENV
       REAL               SLAMCH
-      EXTERNAL           ILAENV, SLAMCH
+      EXTERNAL           SLAMCH
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, MAX, MIN, REAL, SQRT

diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f
index 50f5d34..0114a61 100644 (file)
--- a/SRC/sorcsd.f
+++ b/SRC/sorcsd.f
@@ -343,7 +343,7 @@
      $                   WANTV1T, WANTV2T
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           SBBCSD, SLACPY, SLAPMR, SLAPMT, SLASCL, SLASET,
+      EXTERNAL           SBBCSD, SLACPY, SLAPMR, SLAPMT,
      $                   SORBDB, SORGLQ, SORGQR, XERBLA
 *     ..
 *     .. External Functions ..

diff --git a/SRC/sorgbr.f b/SRC/sorgbr.f
index 88fc844..0dd4472 100644 (file)
--- a/SRC/sorgbr.f
+++ b/SRC/sorgbr.f
@@ -182,8 +182,7 @@
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      INTEGER            ILAENV
-      EXTERNAL           ILAENV, LSAME
+      EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           SORGLQ, SORGQR, XERBLA

diff --git a/SRC/sporfsx.f b/SRC/sporfsx.f
index e49fa6b..3e8d2ee 100644 (file)
--- a/SRC/sporfsx.f
+++ b/SRC/sporfsx.f
@@ -455,12 +455,11 @@
       INTRINSIC          MAX, SQRT
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           SLAMCH, SLANSY, SLA_PORCOND
       REAL               SLAMCH, SLANSY, SLA_PORCOND
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/spotrf2.f b/SRC/spotrf2.f
index 68761af..34a8c08 100644 (file)
--- a/SRC/spotrf2.f
+++ b/SRC/spotrf2.f
@@ -134,7 +134,7 @@
       EXTERNAL           LSAME, SISNAN
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           SGEMM, SSYRK, XERBLA
+      EXTERNAL           SSYRK, XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          MAX, SQRT

diff --git a/SRC/sstein.f b/SRC/sstein.f
index 119eb57..aa0d24a 100644 (file)
--- a/SRC/sstein.f
+++ b/SRC/sstein.f
@@ -209,8 +209,8 @@
 *     ..
 *     .. External Functions ..
       INTEGER            ISAMAX
-      REAL               SASUM, SDOT, SLAMCH, SNRM2
-      EXTERNAL           ISAMAX, SASUM, SDOT, SLAMCH, SNRM2
+      REAL               SDOT, SLAMCH, SNRM2
+      EXTERNAL           ISAMAX, SDOT, SLAMCH, SNRM2
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           SAXPY, SCOPY, SLAGTF, SLAGTS, SLARNV, SSCAL,

diff --git a/SRC/ssyrfsx.f b/SRC/ssyrfsx.f
index 1ac7f6b..4ef498f 100644 (file)
--- a/SRC/ssyrfsx.f
+++ b/SRC/ssyrfsx.f
@@ -462,12 +462,11 @@
       INTRINSIC          MAX, SQRT
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           SLAMCH, SLANSY, SLA_SYRCOND
       REAL               SLAMCH, SLANSY, SLA_SYRCOND
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/ssysvxx.f b/SRC/ssysvxx.f
index ff89e1e..8f30ff6 100644 (file)
--- a/SRC/ssysvxx.f
+++ b/SRC/ssysvxx.f
@@ -553,7 +553,7 @@
       REAL               SLAMCH, SLA_SYRPVGRW
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           SSYCON, SSYEQUB, SSYTRF, SSYTRS,
+      EXTERNAL           SSYEQUB, SSYTRF, SSYTRS,
      $                   SLACPY, SLAQSY, XERBLA, SLASCL2, SSYRFSX
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/SRC/stpmqrt.f b/SRC/stpmqrt.f
index a7eb1d3..35a7721 100644 (file)
--- a/SRC/stpmqrt.f
+++ b/SRC/stpmqrt.f
@@ -242,7 +242,7 @@
       EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           XERBLA, SLARFB
+      EXTERNAL           XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          MAX, MIN

diff --git a/SRC/zgbrfsx.f b/SRC/zgbrfsx.f
index 8aab97e..8020bca 100644 (file)
--- a/SRC/zgbrfsx.f
+++ b/SRC/zgbrfsx.f
@@ -498,11 +498,10 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           DLAMCH, ZLANGB, ZLA_GBRCOND_X, ZLA_GBRCOND_C
       DOUBLE PRECISION   DLAMCH, ZLANGB, ZLA_GBRCOND_X, ZLA_GBRCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
       INTEGER            ILATRANS, ILAPREC
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/zgerfsx.f b/SRC/zgerfsx.f
index 5fd803c..a0ab717 100644 (file)
--- a/SRC/zgerfsx.f
+++ b/SRC/zgerfsx.f
@@ -475,11 +475,10 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILATRANS, ILAPREC
       EXTERNAL           DLAMCH, ZLANGE, ZLA_GERCOND_X, ZLA_GERCOND_C
       DOUBLE PRECISION   DLAMCH, ZLANGE, ZLA_GERCOND_X, ZLA_GERCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
       INTEGER            ILATRANS, ILAPREC
 *     ..
 *     .. Executable Statements ..

diff --git a/SRC/zherfsx.f b/SRC/zherfsx.f
index e39151e..7bdab26 100644 (file)
--- a/SRC/zherfsx.f
+++ b/SRC/zherfsx.f
@@ -461,12 +461,11 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           DLAMCH, ZLANHE, ZLA_HERCOND_X, ZLA_HERCOND_C
       DOUBLE PRECISION   DLAMCH, ZLANHE, ZLA_HERCOND_X, ZLA_HERCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/zhesvxx.f b/SRC/zhesvxx.f
index 64e6563..df290a1 100644 (file)
--- a/SRC/zhesvxx.f
+++ b/SRC/zhesvxx.f
@@ -551,7 +551,7 @@
       DOUBLE PRECISION   DLAMCH, ZLA_HERPVGRW
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           ZHECON, ZHEEQUB, ZHETRF, ZHETRS, ZLACPY,
+      EXTERNAL           ZHEEQUB, ZHETRF, ZHETRS, ZLACPY,
      $                   ZLAQHE, XERBLA, ZLASCL2, ZHERFSX
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/SRC/zhetrs2.f b/SRC/zhetrs2.f
index 0ad2c1c..8fdffb3 100644 (file)
--- a/SRC/zhetrs2.f
+++ b/SRC/zhetrs2.f
@@ -158,7 +158,7 @@
       EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           ZLACGV, ZSCAL, ZSYCONV, ZSWAP, ZTRSM, XERBLA
+      EXTERNAL           ZDSCAL, ZSYCONV, ZSWAP, ZTRSM, XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          DBLE, DCONJG, MAX

diff --git a/SRC/zlarft.f b/SRC/zlarft.f
index 6b7d829..d6bc5c1 100644 (file)
--- a/SRC/zlarft.f
+++ b/SRC/zlarft.f
@@ -187,7 +187,7 @@
       INTEGER            I, J, PREVLASTV, LASTV
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           ZGEMV, ZLACGV, ZTRMV, ZGEMM
+      EXTERNAL           ZGEMV, ZTRMV, ZGEMM
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

diff --git a/SRC/zporfsx.f b/SRC/zporfsx.f
index 691a02f..4c25b67 100644 (file)
--- a/SRC/zporfsx.f
+++ b/SRC/zporfsx.f
@@ -453,12 +453,11 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           DLAMCH, ZLANHE, ZLA_PORCOND_X, ZLA_PORCOND_C
       DOUBLE PRECISION   DLAMCH, ZLANHE, ZLA_PORCOND_X, ZLA_PORCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/zposvxx.f b/SRC/zposvxx.f
index b7924b5..9f8301f 100644 (file)
--- a/SRC/zposvxx.f
+++ b/SRC/zposvxx.f
@@ -537,7 +537,7 @@
       DOUBLE PRECISION   DLAMCH, ZLA_PORPVGRW
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           ZPOCON, ZPOEQUB, ZPOTRF, ZPOTRS, ZLACPY,
+      EXTERNAL           ZPOEQUB, ZPOTRF, ZPOTRS, ZLACPY,
      $                   ZLAQHE, XERBLA, ZLASCL2, ZPORFSX
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/SRC/zstein.f b/SRC/zstein.f
index 01c8522..c9acd4f 100644 (file)
--- a/SRC/zstein.f
+++ b/SRC/zstein.f
@@ -221,8 +221,8 @@
 *     ..
 *     .. External Functions ..
       INTEGER            IDAMAX
-      DOUBLE PRECISION   DASUM, DLAMCH, DNRM2
-      EXTERNAL           IDAMAX, DASUM, DLAMCH, DNRM2
+      DOUBLE PRECISION   DLAMCH, DNRM2
+      EXTERNAL           IDAMAX, DLAMCH, DNRM2
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           DCOPY, DLAGTF, DLAGTS, DLARNV, DSCAL, XERBLA

diff --git a/SRC/zsyrfsx.f b/SRC/zsyrfsx.f
index a61792f..09f6638 100644 (file)
--- a/SRC/zsyrfsx.f
+++ b/SRC/zsyrfsx.f
@@ -463,12 +463,11 @@
       INTRINSIC          MAX, SQRT, TRANSFER
 *     ..
 *     .. External Functions ..
-      EXTERNAL           LSAME, BLAS_FPINFO_X, ILATRANS, ILAPREC
+      EXTERNAL           LSAME, ILAPREC
       EXTERNAL           DLAMCH, ZLANSY, ZLA_SYRCOND_X, ZLA_SYRCOND_C
       DOUBLE PRECISION   DLAMCH, ZLANSY, ZLA_SYRCOND_X, ZLA_SYRCOND_C
       LOGICAL            LSAME
-      INTEGER            BLAS_FPINFO_X
-      INTEGER            ILATRANS, ILAPREC
+      INTEGER            ILAPREC
 *     ..
 *     .. Executable Statements ..
 *

diff --git a/SRC/zsysvxx.f b/SRC/zsysvxx.f
index 3a8aa21..11945ef 100644 (file)
--- a/SRC/zsysvxx.f
+++ b/SRC/zsysvxx.f
@@ -551,7 +551,7 @@
       DOUBLE PRECISION   DLAMCH, ZLA_SYRPVGRW
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           ZSYCON, ZSYEQUB, ZSYTRF, ZSYTRS, ZLACPY,
+      EXTERNAL           ZSYEQUB, ZSYTRF, ZSYTRS, ZLACPY,
      $                   ZLAQSY, XERBLA, ZLASCL2, ZSYRFSX
 *     ..
 *     .. Intrinsic Functions ..

diff --git a/SRC/ztpmqrt.f b/SRC/ztpmqrt.f
index 9ba2732..dbcfcf0 100644 (file)
--- a/SRC/ztpmqrt.f
+++ b/SRC/ztpmqrt.f
@@ -242,7 +242,7 @@
       EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           XERBLA, ZLARFB
+      EXTERNAL           XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          MAX, MIN

diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f
index f9054cb..9bb9448 100644 (file)
--- a/SRC/zuncsd.f
+++ b/SRC/zuncsd.f
@@ -363,8 +363,8 @@
       LOGICAL            LRQUERY
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           XERBLA, ZBBCSD, ZLACPY, ZLAPMR, ZLAPMT, ZLASCL,
-     $                   ZLASET, ZUNBDB, ZUNGLQ, ZUNGQR
+      EXTERNAL           XERBLA, ZBBCSD, ZLACPY, ZLAPMR, ZLAPMT,
+     $                   ZUNBDB, ZUNGLQ, ZUNGQR
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

diff --git a/SRC/zungbr.f b/SRC/zungbr.f
index 50dac43..eeecb97 100644 (file)
--- a/SRC/zungbr.f
+++ b/SRC/zungbr.f
@@ -183,8 +183,7 @@
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      INTEGER            ILAENV
-      EXTERNAL           LSAME, ILAENV
+      EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           XERBLA, ZUNGLQ, ZUNGQR