implicit none in TESTING

Author: mgates3

TESTING/EIG/alahdg.f

@@ -59,6 +59,7 @@
 *
 * =====================================================================
  SUBROUTINE ALAHDG( IOUNIT, PATH )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/alareq.f

@@ -87,6 +87,7 @@
 *
 * =====================================================================
  SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/alarqg.f

@@ -87,6 +87,7 @@
 *
 * =====================================================================
  SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/alasmg.f

@@ -70,6 +70,7 @@
 *
 * =====================================================================
  SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/alasum.f

@@ -70,6 +70,7 @@
 *
 * =====================================================================
  SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/alasvm.f

@@ -70,6 +70,7 @@
 *
 * =====================================================================
  SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/cbdt01.f

@@ -144,6 +144,7 @@
 * =====================================================================
  SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
  $ RWORK, RESID )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/cbdt02.f

@@ -117,6 +117,7 @@
 * =====================================================================
  SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK,
  $ RESID )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/cbdt03.f

@@ -132,6 +132,7 @@
 * =====================================================================
  SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
  $ RESID )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

TESTING/EIG/cbdt05.f

@@ -122,6 +122,7 @@
 * =====================================================================
  SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU,
  $ VT, LDVT, WORK, RESID )
+ IMPLICIT NONE
 *
 * -- LAPACK test routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --