Merge pull request #189 from zerothi/external

Fixed (alot) missing external subroutines and removed "dead" variables

Author: julielangou

BLAS/TESTING/dblat1.f

@@ -139,7 +139,7 @@ SUBROUTINE CHECK0(SFAC)
       DOUBLE PRECISION  DA1(8), DATRUE(8), DB1(8), DBTRUE(8), DC1(8),
      $                  DS1(8), DAB(4,9), DTEMP(9), DTRUE(9,9)
 *     .. External Subroutines ..
-      EXTERNAL          DROTG, DROTMG, STEST1
+      EXTERNAL          DROTG, DROTMG, STEST, STEST1
 *     .. Common blocks ..
       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS
 *     .. Data statements ..
@@ -360,7 +360,8 @@ SUBROUTINE CHECK2(SFAC)
       DOUBLE PRECISION  DDOT, DSDOT
       EXTERNAL          DDOT, DSDOT
 *     .. External Subroutines ..
-      EXTERNAL          DAXPY, DCOPY, DROTM, DSWAP, STEST, STEST1
+      EXTERNAL          DAXPY, DCOPY, DROTM, DSWAP, STEST, STEST1,
+     $                  TESTDSDOT
 *     .. Intrinsic Functions ..
       INTRINSIC         ABS, MIN
 *     .. Common blocks ..

BLAS/TESTING/sblat1.f

@@ -139,7 +139,7 @@ SUBROUTINE CHECK0(SFAC)
       REAL              DA1(8), DATRUE(8), DB1(8), DBTRUE(8), DC1(8),
      +                  DS1(8), DAB(4,9), DTEMP(9), DTRUE(9,9)
 *     .. External Subroutines ..
-      EXTERNAL          SROTG, SROTMG, STEST1
+      EXTERNAL          SROTG, SROTMG, STEST, STEST1
 *     .. Common blocks ..
       COMMON            /COMBLA/ICASE, N, INCX, INCY, PASS
 *     .. Data statements ..

INSTALL/LAPACK_version.f

@@ -22,16 +22,20 @@
 *
 *> \ingroup auxOTHERauxiliary
 *
-*  =====================================================================      PROGRAM LAPACK_VERSION
+*  =====================================================================
+      PROGRAM LAPACK_VERSION
 *
 *  -- LAPACK auxiliary routine (version 3.7.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     December 2016
 *
       INTEGER MAJOR, MINOR, PATCH
+*     ..
+*     .. External Subroutines ..
+      EXTERNAL ILAVER
 *
-      CALL ILAVER ( MAJOR,MINOR, PATCH )
+      CALL ILAVER ( MAJOR, MINOR, PATCH )
       WRITE(*,*) "LAPACK ",MAJOR,".",MINOR,".",PATCH
 *
       END

INSTALL/dsecndtst.f

@@ -48,6 +48,9 @@
       DOUBLE PRECISION   DSECND
       EXTERNAL           DSECND
 *     ..
+*     .. External Subroutines ..
+      EXTERNAL           MYSUB
+*     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          DBLE
 *     ..

INSTALL/secondtst.f

@@ -44,6 +44,9 @@
       REAL               SECOND
       EXTERNAL           SECOND
 *     ..
+*     .. External Subroutines ..
+      EXTERNAL           MYSUB
+*     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          REAL
 *     ..

SRC/cgelqt3.f

@@ -134,7 +134,7 @@ RECURSIVE SUBROUTINE CGELQT3( M, N, A, LDA, T, LDT, INFO )
       PARAMETER ( ZERO = (0.0E+00,0.0E+00))
 *     ..
 *     .. Local Scalars ..
-      INTEGER   I, I1, J, J1, M1, M2, N1, N2, IINFO
+      INTEGER   I, I1, J, J1, M1, M2, IINFO
 *     ..
 *     .. External Subroutines ..
       EXTERNAL  CLARFG, CTRMM, CGEMM, XERBLA

SRC/cgemlqt.f

@@ -169,7 +169,7 @@ SUBROUTINE CGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT,
 *     ..
 *     .. Local Scalars ..
       LOGICAL            LEFT, RIGHT, TRAN, NOTRAN
-      INTEGER            I, IB, LDWORK, KF, Q
+      INTEGER            I, IB, LDWORK, KF
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

SRC/cgesvdx.f

@@ -309,7 +309,8 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU,
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           CGEBRD, CGELQF, CGEQRF, CLASCL, CLASET,
-     $                   SLASCL, XERBLA
+     $                   CUNMBR, CUNMQR, CUNMLQ, CLACPY, 
+     $                   SBDSVDX, SLASCL, XERBLA
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

SRC/cgesvj.f

@@ -409,7 +409,7 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V,
 *     .. External Subroutines ..
 *     ..
 *     from BLAS
-      EXTERNAL           CCOPY, CROT, CSSCAL, CSWAP
+      EXTERNAL           CCOPY, CROT, CSSCAL, CSWAP, CAXPY
 *     from LAPACK
       EXTERNAL           CLASCL, CLASET, CLASSQ, SLASCL, XERBLA
       EXTERNAL           CGSVJ0, CGSVJ1

SRC/cgghd3.f

@@ -271,7 +271,8 @@ SUBROUTINE CGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q,
       EXTERNAL           ILAENV, LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CGGHRD, CLARTG, CLASET, CUNM22, CROT, XERBLA
+      EXTERNAL           CGGHRD, CLARTG, CLASET, CUNM22, CROT, CGEMM,
+     $                   CGEMV, CTRMV, CLACPY, XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          REAL, CMPLX, CONJG, MAX