Fix #80 from @reeuwijk-altium

Remove a bunch of unused symbols

56 files changed, 77 insertions, 104 deletions

diff --git a/SRC/cgbrfsx.f b/SRC/cgbrfsx.f
index bf5d741b..f08fe8a1 100644
--- 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 f9862612..f276ef0a 100644
--- 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 d51a0789..b00da9aa 100644
--- 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 b6291522..d36df3fa 100644
--- 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 4c5d7956..2450388c 100644
--- 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 4260075a..b7702063 100644
--- 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 a0fd4274..a7e31800 100644
--- 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 d65fbfa9..6b7d7b65 100644
--- 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 3395ab65..14d5e0f8 100644
--- 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 973060d0..2294f248 100644
--- 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 f39f50bf..8a96d55d 100644
--- 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 b85bfef8..67613ac8 100644
--- 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 a0988ea8..428f30ed 100644
--- 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 94b0202c..8c5b7272 100644
--- 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 0560456d..6ed9290b 100644
--- 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 fb6de56f..723a0c2e 100644
--- 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 6f49bce1..11c6e7e6 100644
--- 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 7e501bd1..48e4e9bb 100644
--- 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 b6060b40..dbfc6bf9 100644
--- 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 696a4d69..fdec1310 100644
--- 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 428f2e55..d046d033 100644
--- 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 ddb2b616..be5e9e3f 100644
--- 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 20e3d47d..3492318b 100644
--- 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 35d38a80..ed9f1c3e 100644
--- 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 2e588771..192fa035 100644
--- 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 72da6633..420824c4 100644
--- 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 73d0ab85..3d06be00 100644
--- 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 b79911c3..bd7223c4 100644
--- 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 e4a2aabb..231ae10d 100644
--- 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 5d40833c..9134df44 100644
--- 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 2bcded66..f1a0989a 100644
--- 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 06f3d46e..a4ef8965 100644
--- 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 448d4e26..34531ba5 100644
--- 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 f272d344..56d123c6 100644
--- 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 50f5d345..0114a619 100644
--- 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 88fc8446..0dd4472c 100644
--- 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 e49fa6bf..3e8d2ee1 100644
--- 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 68761afc..34a8c087 100644
--- 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 119eb57c..aa0d24a2 100644
--- 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 1ac7f6b7..4ef498f4 100644
--- 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 ff89e1e1..8f30ff60 100644
--- 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 a7eb1d3d..35a7721c 100644
--- 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 8aab97e1..8020bca4 100644
--- 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 5fd803c1..a0ab717e 100644
--- 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 e39151e8..7bdab26c 100644
--- 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 64e65631..df290a13 100644
--- 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 0ad2c1c8..8fdffb30 100644
--- 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 6b7d829b..d6bc5c1d 100644
--- 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 691a02f5..4c25b673 100644
--- 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 b7924b57..9f8301f3 100644
--- 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 01c85226..c9acd4f9 100644
--- 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 a61792f9..09f6638d 100644
--- 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 3a8aa215..11945ef2 100644
--- 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 9ba2732a..dbcfcf0c 100644
--- 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 f9054cbd..9bb94486 100644
--- 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 50dac434..eeecb97a 100644
--- 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