implicit none in INSTALL

Author: mgates3

INSTALL/LAPACK_version.f

@@ -22,6 +22,7 @@
 *
 * =====================================================================
  PROGRAM LAPACK_VERSION
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

INSTALL/dlamch.f

@@ -66,6 +66,7 @@
 *
 * =====================================================================
  DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --
@@ -169,6 +170,7 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
 *> \ingroup lamc3
 *>
  DOUBLE PRECISION FUNCTION DLAMC3( A, B )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..

INSTALL/dlamchf77.f

@@ -65,6 +65,7 @@
 *
 * =====================================================================
  DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --
@@ -205,6 +206,7 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
 *> \endverbatim
 *>
  SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
@@ -416,6 +418,7 @@ SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 )
 *> W. Kahan of the University of California at Berkeley.
 *> \endverbatim
  SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
@@ -639,6 +642,7 @@ SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
 *> \ingroup lamc3
 *>
  DOUBLE PRECISION FUNCTION DLAMC3( A, B )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
@@ -686,6 +690,7 @@ DOUBLE PRECISION FUNCTION DLAMC3( A, B )
 *> \ingroup lamc4
 *>
  SUBROUTINE DLAMC4( EMIN, START, BASE )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
@@ -793,6 +798,7 @@ SUBROUTINE DLAMC4( EMIN, START, BASE )
 *> \ingroup lamc5
 *>
  SUBROUTINE DLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..

INSTALL/droundup_lwork.f

@@ -56,6 +56,7 @@
 *
 * =====================================================================
  DOUBLE PRECISION FUNCTION DROUNDUP_LWORK( LWORK )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

INSTALL/dsecnd_EXT_ETIME.f

@@ -32,6 +32,7 @@
 *
 * =====================================================================
  DOUBLE PRECISION FUNCTION DSECND( )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

INSTALL/dsecnd_EXT_ETIME_.f

@@ -32,6 +32,7 @@
 *
 * =====================================================================
  DOUBLE PRECISION FUNCTION DSECND( )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..

INSTALL/dsecnd_INT_CPU_TIME.f

@@ -32,6 +32,7 @@
 *
 * =====================================================================
  DOUBLE PRECISION FUNCTION DSECND( )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

INSTALL/dsecnd_INT_ETIME.f

@@ -32,6 +32,7 @@
 *
 * =====================================================================
  DOUBLE PRECISION FUNCTION DSECND( )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

INSTALL/dsecnd_NONE.f

@@ -34,6 +34,7 @@
 *
 * =====================================================================
  DOUBLE PRECISION FUNCTION DSECND( )
+ IMPLICIT NONE
 *
 * -- LAPACK auxiliary routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

INSTALL/dsecndtst.f

@@ -118,6 +118,7 @@
  CALL MYSUB(NMAX,X,Y)
  END
  SUBROUTINE MYSUB(N,X,Y)
+ IMPLICIT NONE
  INTEGER N
  DOUBLE PRECISION X(N), Y(N)
  RETURN