diff --git a/BLAS/SRC/caxpy.f b/BLAS/SRC/caxpy.f index f50a6bae50..6503a80c11 100644 --- a/BLAS/SRC/caxpy.f +++ b/BLAS/SRC/caxpy.f @@ -85,6 +85,7 @@ *> * ===================================================================== SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ccopy.f b/BLAS/SRC/ccopy.f index 01ee79aab4..7d8c04dc16 100644 --- a/BLAS/SRC/ccopy.f +++ b/BLAS/SRC/ccopy.f @@ -78,6 +78,7 @@ *> * ===================================================================== SUBROUTINE CCOPY(N,CX,INCX,CY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cdotc.f b/BLAS/SRC/cdotc.f index 4f9d8d8d72..bc38c7af46 100644 --- a/BLAS/SRC/cdotc.f +++ b/BLAS/SRC/cdotc.f @@ -80,6 +80,7 @@ *> * ===================================================================== COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cdotu.f b/BLAS/SRC/cdotu.f index a482875f47..aa57e32031 100644 --- a/BLAS/SRC/cdotu.f +++ b/BLAS/SRC/cdotu.f @@ -80,6 +80,7 @@ *> * ===================================================================== COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f index 4666747f2c..238bf87e2d 100644 --- a/BLAS/SRC/cgbmv.f +++ b/BLAS/SRC/cgbmv.f @@ -187,6 +187,7 @@ * ===================================================================== SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX, + BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cgemm.f b/BLAS/SRC/cgemm.f index 7e7965a50c..7d62b66f69 100644 --- a/BLAS/SRC/cgemm.f +++ b/BLAS/SRC/cgemm.f @@ -206,6 +206,7 @@ * ===================================================================== SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB, + BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f index b9fd84619c..cb1232bc4d 100644 --- a/BLAS/SRC/cgemv.f +++ b/BLAS/SRC/cgemv.f @@ -157,6 +157,7 @@ *> * ===================================================================== SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cgerc.f b/BLAS/SRC/cgerc.f index ed6061331f..3df05a5c5e 100644 --- a/BLAS/SRC/cgerc.f +++ b/BLAS/SRC/cgerc.f @@ -127,6 +127,7 @@ *> * ===================================================================== SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cgeru.f b/BLAS/SRC/cgeru.f index 4802cef117..065397831a 100644 --- a/BLAS/SRC/cgeru.f +++ b/BLAS/SRC/cgeru.f @@ -127,6 +127,7 @@ *> * ===================================================================== SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/chbmv.f b/BLAS/SRC/chbmv.f index afa447c8d6..25113ecb2b 100644 --- a/BLAS/SRC/chbmv.f +++ b/BLAS/SRC/chbmv.f @@ -184,6 +184,7 @@ *> * ===================================================================== SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/chemm.f b/BLAS/SRC/chemm.f index c9a2c3a0ff..bc65e5323b 100644 --- a/BLAS/SRC/chemm.f +++ b/BLAS/SRC/chemm.f @@ -188,6 +188,7 @@ *> * ===================================================================== SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/chemv.f b/BLAS/SRC/chemv.f index 2b8866b038..fbc4eca8f8 100644 --- a/BLAS/SRC/chemv.f +++ b/BLAS/SRC/chemv.f @@ -151,6 +151,7 @@ *> * ===================================================================== SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cher.f b/BLAS/SRC/cher.f index 9bec62166c..63b630e7bd 100644 --- a/BLAS/SRC/cher.f +++ b/BLAS/SRC/cher.f @@ -132,6 +132,7 @@ *> * ===================================================================== SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cher2.f b/BLAS/SRC/cher2.f index 025c2e5b99..d6770a295e 100644 --- a/BLAS/SRC/cher2.f +++ b/BLAS/SRC/cher2.f @@ -147,6 +147,7 @@ *> * ===================================================================== SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cher2k.f b/BLAS/SRC/cher2k.f index 1d9910c493..8cffc18211 100644 --- a/BLAS/SRC/cher2k.f +++ b/BLAS/SRC/cher2k.f @@ -194,6 +194,7 @@ *> * ===================================================================== SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cherk.f b/BLAS/SRC/cherk.f index 01b5d4e37e..aad09b7dab 100644 --- a/BLAS/SRC/cherk.f +++ b/BLAS/SRC/cherk.f @@ -170,6 +170,7 @@ *> * ===================================================================== SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/chpmv.f b/BLAS/SRC/chpmv.f index e8b42d69d8..241906a8d8 100644 --- a/BLAS/SRC/chpmv.f +++ b/BLAS/SRC/chpmv.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/chpr.f b/BLAS/SRC/chpr.f index a5b378830d..3d197f5142 100644 --- a/BLAS/SRC/chpr.f +++ b/BLAS/SRC/chpr.f @@ -127,6 +127,7 @@ *> * ===================================================================== SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/chpr2.f b/BLAS/SRC/chpr2.f index a16f08a2a2..13e9d51848 100644 --- a/BLAS/SRC/chpr2.f +++ b/BLAS/SRC/chpr2.f @@ -142,6 +142,7 @@ *> * ===================================================================== SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/crotg.f90 b/BLAS/SRC/crotg.f90 index d16c6af905..08f6cb1bf7 100644 --- a/BLAS/SRC/crotg.f90 +++ b/BLAS/SRC/crotg.f90 @@ -86,6 +86,7 @@ ! ! ===================================================================== subroutine CROTG( a, b, c, s ) + implicit none integer, parameter :: wp = kind(1.e0) ! ! -- Reference BLAS level1 routine -- diff --git a/BLAS/SRC/cscal.f b/BLAS/SRC/cscal.f index 0fbfb72b4a..9f61933a85 100644 --- a/BLAS/SRC/cscal.f +++ b/BLAS/SRC/cscal.f @@ -75,6 +75,7 @@ *> * ===================================================================== SUBROUTINE CSCAL(N,CA,CX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/csrot.f b/BLAS/SRC/csrot.f index 45f62c2d2d..795448e6b0 100644 --- a/BLAS/SRC/csrot.f +++ b/BLAS/SRC/csrot.f @@ -95,6 +95,7 @@ * * ===================================================================== SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S ) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/csscal.f b/BLAS/SRC/csscal.f index 45702c5afa..b78c0acfa5 100644 --- a/BLAS/SRC/csscal.f +++ b/BLAS/SRC/csscal.f @@ -75,6 +75,7 @@ *> * ===================================================================== SUBROUTINE CSSCAL(N,SA,CX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/cswap.f b/BLAS/SRC/cswap.f index 9962431c9c..fcd3e60658 100644 --- a/BLAS/SRC/cswap.f +++ b/BLAS/SRC/cswap.f @@ -78,6 +78,7 @@ *> * ===================================================================== SUBROUTINE CSWAP(N,CX,INCX,CY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/csymm.f b/BLAS/SRC/csymm.f index 9a7b360009..96251885db 100644 --- a/BLAS/SRC/csymm.f +++ b/BLAS/SRC/csymm.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/csyr2k.f b/BLAS/SRC/csyr2k.f index 5354c39b5b..c688b8d361 100644 --- a/BLAS/SRC/csyr2k.f +++ b/BLAS/SRC/csyr2k.f @@ -185,6 +185,7 @@ *> * ===================================================================== SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/csyrk.f b/BLAS/SRC/csyrk.f index b6ff32da4e..ec6ced98ae 100644 --- a/BLAS/SRC/csyrk.f +++ b/BLAS/SRC/csyrk.f @@ -164,6 +164,7 @@ *> * ===================================================================== SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ctbmv.f b/BLAS/SRC/ctbmv.f index 2008d839f1..adf9ca6ab7 100644 --- a/BLAS/SRC/ctbmv.f +++ b/BLAS/SRC/ctbmv.f @@ -183,6 +183,7 @@ *> * ===================================================================== SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ctbsv.f b/BLAS/SRC/ctbsv.f index 25592412cb..c997997b89 100644 --- a/BLAS/SRC/ctbsv.f +++ b/BLAS/SRC/ctbsv.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f index 318738611c..efb5dd9255 100644 --- a/BLAS/SRC/ctpmv.f +++ b/BLAS/SRC/ctpmv.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f index c7ba280af4..0ee6cf8db5 100644 --- a/BLAS/SRC/ctpsv.f +++ b/BLAS/SRC/ctpsv.f @@ -141,6 +141,7 @@ *> * ===================================================================== SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ctrmm.f b/BLAS/SRC/ctrmm.f index c4c3b9a926..01ada82975 100644 --- a/BLAS/SRC/ctrmm.f +++ b/BLAS/SRC/ctrmm.f @@ -174,6 +174,7 @@ *> * ===================================================================== SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ctrmv.f b/BLAS/SRC/ctrmv.f index 52ec618daf..63a6c2a9b9 100644 --- a/BLAS/SRC/ctrmv.f +++ b/BLAS/SRC/ctrmv.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f index eff616343d..6275d4a59b 100644 --- a/BLAS/SRC/ctrsm.f +++ b/BLAS/SRC/ctrsm.f @@ -177,6 +177,7 @@ *> * ===================================================================== SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ctrsv.f b/BLAS/SRC/ctrsv.f index 3e80e442e8..8340bd12e9 100644 --- a/BLAS/SRC/ctrsv.f +++ b/BLAS/SRC/ctrsv.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dasum.f b/BLAS/SRC/dasum.f index 7a1c208c5c..3a1c399a1f 100644 --- a/BLAS/SRC/dasum.f +++ b/BLAS/SRC/dasum.f @@ -68,6 +68,7 @@ *> * ===================================================================== DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/daxpy.f b/BLAS/SRC/daxpy.f index 1a6dab447d..3385e30b6a 100644 --- a/BLAS/SRC/daxpy.f +++ b/BLAS/SRC/daxpy.f @@ -86,6 +86,7 @@ *> * ===================================================================== SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dcabs1.f b/BLAS/SRC/dcabs1.f index 6505ffc61e..9014cd6bfe 100644 --- a/BLAS/SRC/dcabs1.f +++ b/BLAS/SRC/dcabs1.f @@ -44,6 +44,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DCABS1(Z) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dcopy.f b/BLAS/SRC/dcopy.f index 1bf4fd2d09..284caac1bc 100644 --- a/BLAS/SRC/dcopy.f +++ b/BLAS/SRC/dcopy.f @@ -79,6 +79,7 @@ *> * ===================================================================== SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ddot.f b/BLAS/SRC/ddot.f index 4f85fcd786..467123fa30 100644 --- a/BLAS/SRC/ddot.f +++ b/BLAS/SRC/ddot.f @@ -79,6 +79,7 @@ *> * ===================================================================== DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f index d2353a8d87..c54d5bde1f 100644 --- a/BLAS/SRC/dgbmv.f +++ b/BLAS/SRC/dgbmv.f @@ -185,6 +185,7 @@ * ===================================================================== SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX, + BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dgemm.f b/BLAS/SRC/dgemm.f index f2a7af4fb3..e8b15794d7 100644 --- a/BLAS/SRC/dgemm.f +++ b/BLAS/SRC/dgemm.f @@ -212,6 +212,7 @@ * ===================================================================== SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB, + BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dgemv.f b/BLAS/SRC/dgemv.f index b2c9cdea8a..f6defb8c29 100644 --- a/BLAS/SRC/dgemv.f +++ b/BLAS/SRC/dgemv.f @@ -155,6 +155,7 @@ *> * ===================================================================== SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dger.f b/BLAS/SRC/dger.f index 32bfc0d9b2..24a6d86bb2 100644 --- a/BLAS/SRC/dger.f +++ b/BLAS/SRC/dger.f @@ -127,6 +127,7 @@ *> * ===================================================================== SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dnrm2.f90 b/BLAS/SRC/dnrm2.f90 index ef5cee78af..638687c81b 100644 --- a/BLAS/SRC/dnrm2.f90 +++ b/BLAS/SRC/dnrm2.f90 @@ -85,7 +85,8 @@ !> \endverbatim !> ! ===================================================================== -function DNRM2( n, x, incx ) +function DNRM2( n, x, incx ) + implicit none integer, parameter :: wp = kind(1.d0) real(wp) :: DNRM2 ! diff --git a/BLAS/SRC/drot.f b/BLAS/SRC/drot.f index e50e151275..973a0c759b 100644 --- a/BLAS/SRC/drot.f +++ b/BLAS/SRC/drot.f @@ -89,6 +89,7 @@ *> * ===================================================================== SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/drotg.f90 b/BLAS/SRC/drotg.f90 index fa1f7c02ef..b1abba914b 100644 --- a/BLAS/SRC/drotg.f90 +++ b/BLAS/SRC/drotg.f90 @@ -89,6 +89,7 @@ ! ! ===================================================================== subroutine DROTG( a, b, c, s ) + implicit none integer, parameter :: wp = kind(1.d0) ! ! -- Reference BLAS level1 routine -- diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f index 46eb283092..1eb7d89509 100644 --- a/BLAS/SRC/drotm.f +++ b/BLAS/SRC/drotm.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/drotmg.f b/BLAS/SRC/drotmg.f index 920734ae7b..61007239bb 100644 --- a/BLAS/SRC/drotmg.f +++ b/BLAS/SRC/drotmg.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsbmv.f b/BLAS/SRC/dsbmv.f index fdf20620b8..9b3f76faa6 100644 --- a/BLAS/SRC/dsbmv.f +++ b/BLAS/SRC/dsbmv.f @@ -181,6 +181,7 @@ *> * ===================================================================== SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dscal.f b/BLAS/SRC/dscal.f index 625afba92a..24437f5d14 100644 --- a/BLAS/SRC/dscal.f +++ b/BLAS/SRC/dscal.f @@ -76,6 +76,7 @@ *> * ===================================================================== SUBROUTINE DSCAL(N,DA,DX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsdot.f b/BLAS/SRC/dsdot.f index fcfa1aa7b1..78983b2929 100644 --- a/BLAS/SRC/dsdot.f +++ b/BLAS/SRC/dsdot.f @@ -116,6 +116,7 @@ *> * ===================================================================== DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dspmv.f b/BLAS/SRC/dspmv.f index 518ab77a2b..42331e9f9a 100644 --- a/BLAS/SRC/dspmv.f +++ b/BLAS/SRC/dspmv.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dspr.f b/BLAS/SRC/dspr.f index 2bc025ec51..50a164697d 100644 --- a/BLAS/SRC/dspr.f +++ b/BLAS/SRC/dspr.f @@ -124,6 +124,7 @@ *> * ===================================================================== SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dspr2.f b/BLAS/SRC/dspr2.f index 32c9cd50cf..a946802504 100644 --- a/BLAS/SRC/dspr2.f +++ b/BLAS/SRC/dspr2.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dswap.f b/BLAS/SRC/dswap.f index ae85389db5..720f944a25 100644 --- a/BLAS/SRC/dswap.f +++ b/BLAS/SRC/dswap.f @@ -79,6 +79,7 @@ *> * ===================================================================== SUBROUTINE DSWAP(N,DX,INCX,DY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsymm.f b/BLAS/SRC/dsymm.f index 8027389c86..7bb289c868 100644 --- a/BLAS/SRC/dsymm.f +++ b/BLAS/SRC/dsymm.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsymv.f b/BLAS/SRC/dsymv.f index ebd6e9e3e4..bfead2aedb 100644 --- a/BLAS/SRC/dsymv.f +++ b/BLAS/SRC/dsymv.f @@ -149,6 +149,7 @@ *> * ===================================================================== SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsyr.f b/BLAS/SRC/dsyr.f index dd722c417a..9d89db9643 100644 --- a/BLAS/SRC/dsyr.f +++ b/BLAS/SRC/dsyr.f @@ -129,6 +129,7 @@ *> * ===================================================================== SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsyr2.f b/BLAS/SRC/dsyr2.f index 93616ff7eb..3eab4fd6a1 100644 --- a/BLAS/SRC/dsyr2.f +++ b/BLAS/SRC/dsyr2.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsyr2k.f b/BLAS/SRC/dsyr2k.f index 54e4ea721d..2e1a48984a 100644 --- a/BLAS/SRC/dsyr2k.f +++ b/BLAS/SRC/dsyr2k.f @@ -189,6 +189,7 @@ *> * ===================================================================== SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dsyrk.f b/BLAS/SRC/dsyrk.f index b62fb6d128..c6ca791e14 100644 --- a/BLAS/SRC/dsyrk.f +++ b/BLAS/SRC/dsyrk.f @@ -166,6 +166,7 @@ *> * ===================================================================== SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dtbmv.f b/BLAS/SRC/dtbmv.f index cdf1e8b075..25b1664c18 100644 --- a/BLAS/SRC/dtbmv.f +++ b/BLAS/SRC/dtbmv.f @@ -183,6 +183,7 @@ *> * ===================================================================== SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dtbsv.f b/BLAS/SRC/dtbsv.f index 683a5eb08d..a18c235825 100644 --- a/BLAS/SRC/dtbsv.f +++ b/BLAS/SRC/dtbsv.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dtpmv.f b/BLAS/SRC/dtpmv.f index a45bf9823e..08bd667ff4 100644 --- a/BLAS/SRC/dtpmv.f +++ b/BLAS/SRC/dtpmv.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dtpsv.f b/BLAS/SRC/dtpsv.f index 72bbb88e29..7e297ef6b3 100644 --- a/BLAS/SRC/dtpsv.f +++ b/BLAS/SRC/dtpsv.f @@ -141,6 +141,7 @@ *> * ===================================================================== SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dtrmm.f b/BLAS/SRC/dtrmm.f index 2424ca821e..541d180748 100644 --- a/BLAS/SRC/dtrmm.f +++ b/BLAS/SRC/dtrmm.f @@ -174,6 +174,7 @@ *> * ===================================================================== SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dtrmv.f b/BLAS/SRC/dtrmv.f index 48f2b44450..332ac7d56f 100644 --- a/BLAS/SRC/dtrmv.f +++ b/BLAS/SRC/dtrmv.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dtrsm.f b/BLAS/SRC/dtrsm.f index 44b91f4bac..0cd4a91a25 100644 --- a/BLAS/SRC/dtrsm.f +++ b/BLAS/SRC/dtrsm.f @@ -178,6 +178,7 @@ *> * ===================================================================== SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dtrsv.f b/BLAS/SRC/dtrsv.f index dadb4eff78..4c1f40ae16 100644 --- a/BLAS/SRC/dtrsv.f +++ b/BLAS/SRC/dtrsv.f @@ -140,6 +140,7 @@ * * ===================================================================== SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dzasum.f b/BLAS/SRC/dzasum.f index 98f45b06f4..9cf841c197 100644 --- a/BLAS/SRC/dzasum.f +++ b/BLAS/SRC/dzasum.f @@ -69,6 +69,7 @@ *> * ===================================================================== DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/dznrm2.f90 b/BLAS/SRC/dznrm2.f90 index 3055f02a0c..68aa6d496f 100644 --- a/BLAS/SRC/dznrm2.f90 +++ b/BLAS/SRC/dznrm2.f90 @@ -86,7 +86,8 @@ !> \endverbatim !> ! ===================================================================== -function DZNRM2( n, x, incx ) +function DZNRM2( n, x, incx ) + implicit none integer, parameter :: wp = kind(1.d0) real(wp) :: DZNRM2 ! diff --git a/BLAS/SRC/icamax.f90 b/BLAS/SRC/icamax.f90 index cf19199f96..a53cb1c4a9 100644 --- a/BLAS/SRC/icamax.f90 +++ b/BLAS/SRC/icamax.f90 @@ -66,6 +66,7 @@ !> ! ===================================================================== integer function icamax(n, x, incx) + implicit none integer, parameter :: wp = kind(1.e0) ! ! -- Reference BLAS level1 routine -- diff --git a/BLAS/SRC/idamax.f b/BLAS/SRC/idamax.f index 06d7d7ee80..35042300d7 100644 --- a/BLAS/SRC/idamax.f +++ b/BLAS/SRC/idamax.f @@ -68,6 +68,7 @@ *> * ===================================================================== INTEGER FUNCTION IDAMAX(N,DX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/isamax.f b/BLAS/SRC/isamax.f index 91e8f27537..6104adbf50 100644 --- a/BLAS/SRC/isamax.f +++ b/BLAS/SRC/isamax.f @@ -68,6 +68,7 @@ *> * ===================================================================== INTEGER FUNCTION ISAMAX(N,SX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/izamax.f90 b/BLAS/SRC/izamax.f90 index 6bbb5a1686..02d97dcf9e 100644 --- a/BLAS/SRC/izamax.f90 +++ b/BLAS/SRC/izamax.f90 @@ -66,6 +66,7 @@ !> ! ===================================================================== integer function izamax(n, x, incx) + implicit none integer, parameter :: wp = kind(1.d0) ! ! -- Reference BLAS level1 routine -- diff --git a/BLAS/SRC/lsame.f b/BLAS/SRC/lsame.f index eef9ee513d..10246991e4 100644 --- a/BLAS/SRC/lsame.f +++ b/BLAS/SRC/lsame.f @@ -50,6 +50,7 @@ * * ===================================================================== LOGICAL FUNCTION LSAME(CA,CB) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sasum.f b/BLAS/SRC/sasum.f index 95e99b3ab9..8b3136898a 100644 --- a/BLAS/SRC/sasum.f +++ b/BLAS/SRC/sasum.f @@ -69,6 +69,7 @@ *> * ===================================================================== REAL FUNCTION SASUM(N,SX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/saxpy.f b/BLAS/SRC/saxpy.f index f33a35875b..52296e5b37 100644 --- a/BLAS/SRC/saxpy.f +++ b/BLAS/SRC/saxpy.f @@ -86,6 +86,7 @@ *> * ===================================================================== SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/scabs1.f b/BLAS/SRC/scabs1.f index 6fed4267be..f6e6cbb7cc 100644 --- a/BLAS/SRC/scabs1.f +++ b/BLAS/SRC/scabs1.f @@ -43,6 +43,7 @@ * * ===================================================================== REAL FUNCTION SCABS1(Z) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/scasum.f b/BLAS/SRC/scasum.f index a562746ae2..054859ff37 100644 --- a/BLAS/SRC/scasum.f +++ b/BLAS/SRC/scasum.f @@ -69,6 +69,7 @@ *> * ===================================================================== REAL FUNCTION SCASUM(N,CX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/scnrm2.f90 b/BLAS/SRC/scnrm2.f90 index e8a7b72332..1885d7bf71 100644 --- a/BLAS/SRC/scnrm2.f90 +++ b/BLAS/SRC/scnrm2.f90 @@ -86,7 +86,8 @@ !> \endverbatim !> ! ===================================================================== -function SCNRM2( n, x, incx ) +function SCNRM2( n, x, incx ) + implicit none integer, parameter :: wp = kind(1.e0) real(wp) :: SCNRM2 ! diff --git a/BLAS/SRC/scopy.f b/BLAS/SRC/scopy.f index 29e0c74e11..76503a20f3 100644 --- a/BLAS/SRC/scopy.f +++ b/BLAS/SRC/scopy.f @@ -79,6 +79,7 @@ *> * ===================================================================== SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sdot.f b/BLAS/SRC/sdot.f index da8574c07e..2271ff03b1 100644 --- a/BLAS/SRC/sdot.f +++ b/BLAS/SRC/sdot.f @@ -79,6 +79,7 @@ *> * ===================================================================== REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sdsdot.f b/BLAS/SRC/sdsdot.f index 329a716dda..4271c2be98 100644 --- a/BLAS/SRC/sdsdot.f +++ b/BLAS/SRC/sdsdot.f @@ -110,6 +110,7 @@ *> * ===================================================================== REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f index 4888fdd1e3..942cd29a7d 100644 --- a/BLAS/SRC/sgbmv.f +++ b/BLAS/SRC/sgbmv.f @@ -185,6 +185,7 @@ * ===================================================================== SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX, + BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sgemm.f b/BLAS/SRC/sgemm.f index a93f44f284..c88cae7d46 100644 --- a/BLAS/SRC/sgemm.f +++ b/BLAS/SRC/sgemm.f @@ -212,6 +212,7 @@ * ===================================================================== SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB, + BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sgemv.f b/BLAS/SRC/sgemv.f index b988208b80..07efa04307 100644 --- a/BLAS/SRC/sgemv.f +++ b/BLAS/SRC/sgemv.f @@ -155,6 +155,7 @@ *> * ===================================================================== SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sger.f b/BLAS/SRC/sger.f index 1b8aceaf23..befc1e3390 100644 --- a/BLAS/SRC/sger.f +++ b/BLAS/SRC/sger.f @@ -127,6 +127,7 @@ *> * ===================================================================== SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/snrm2.f90 b/BLAS/SRC/snrm2.f90 index 83526c3b37..1e849f19b6 100644 --- a/BLAS/SRC/snrm2.f90 +++ b/BLAS/SRC/snrm2.f90 @@ -85,7 +85,8 @@ !> \endverbatim !> ! ===================================================================== -function SNRM2( n, x, incx ) +function SNRM2( n, x, incx ) + implicit none integer, parameter :: wp = kind(1.e0) real(wp) :: SNRM2 ! diff --git a/BLAS/SRC/srot.f b/BLAS/SRC/srot.f index ab7bc1efff..2a778906f1 100644 --- a/BLAS/SRC/srot.f +++ b/BLAS/SRC/srot.f @@ -89,6 +89,7 @@ *> * ===================================================================== SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/srotg.f90 b/BLAS/SRC/srotg.f90 index ce536a5bea..93b2e2b54e 100644 --- a/BLAS/SRC/srotg.f90 +++ b/BLAS/SRC/srotg.f90 @@ -89,6 +89,7 @@ ! ! ===================================================================== subroutine SROTG( a, b, c, s ) + implicit none integer, parameter :: wp = kind(1.e0) ! ! -- Reference BLAS level1 routine -- diff --git a/BLAS/SRC/srotm.f b/BLAS/SRC/srotm.f index 9232e47fbe..f5c2e3c9cd 100644 --- a/BLAS/SRC/srotm.f +++ b/BLAS/SRC/srotm.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/srotmg.f b/BLAS/SRC/srotmg.f index 9273927d45..bd1bb57624 100644 --- a/BLAS/SRC/srotmg.f +++ b/BLAS/SRC/srotmg.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ssbmv.f b/BLAS/SRC/ssbmv.f index c2a0b3eb60..487a610626 100644 --- a/BLAS/SRC/ssbmv.f +++ b/BLAS/SRC/ssbmv.f @@ -181,6 +181,7 @@ *> * ===================================================================== SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sscal.f b/BLAS/SRC/sscal.f index b535f222bf..1079418637 100644 --- a/BLAS/SRC/sscal.f +++ b/BLAS/SRC/sscal.f @@ -76,6 +76,7 @@ *> * ===================================================================== SUBROUTINE SSCAL(N,SA,SX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sspmv.f b/BLAS/SRC/sspmv.f index 4ca5e3e529..22a9ce25cf 100644 --- a/BLAS/SRC/sspmv.f +++ b/BLAS/SRC/sspmv.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sspr.f b/BLAS/SRC/sspr.f index f57364956a..9c6d961ea3 100644 --- a/BLAS/SRC/sspr.f +++ b/BLAS/SRC/sspr.f @@ -124,6 +124,7 @@ *> * ===================================================================== SUBROUTINE SSPR(UPLO,N,ALPHA,X,INCX,AP) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sspr2.f b/BLAS/SRC/sspr2.f index a51ed32ba4..31adc3e817 100644 --- a/BLAS/SRC/sspr2.f +++ b/BLAS/SRC/sspr2.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE SSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/sswap.f b/BLAS/SRC/sswap.f index 57af902b78..29136e5492 100644 --- a/BLAS/SRC/sswap.f +++ b/BLAS/SRC/sswap.f @@ -79,6 +79,7 @@ *> * ===================================================================== SUBROUTINE SSWAP(N,SX,INCX,SY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ssymm.f b/BLAS/SRC/ssymm.f index 4174fa6e4a..4a26cf42ba 100644 --- a/BLAS/SRC/ssymm.f +++ b/BLAS/SRC/ssymm.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE SSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ssymv.f b/BLAS/SRC/ssymv.f index 4a15c24837..23020d8374 100644 --- a/BLAS/SRC/ssymv.f +++ b/BLAS/SRC/ssymv.f @@ -149,6 +149,7 @@ *> * ===================================================================== SUBROUTINE SSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ssyr.f b/BLAS/SRC/ssyr.f index 0588966ddb..0f4edfcdbd 100644 --- a/BLAS/SRC/ssyr.f +++ b/BLAS/SRC/ssyr.f @@ -129,6 +129,7 @@ *> * ===================================================================== SUBROUTINE SSYR(UPLO,N,ALPHA,X,INCX,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ssyr2.f b/BLAS/SRC/ssyr2.f index 2593986459..b184d79dcc 100644 --- a/BLAS/SRC/ssyr2.f +++ b/BLAS/SRC/ssyr2.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE SSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ssyr2k.f b/BLAS/SRC/ssyr2k.f index 027927a0c3..859f56d81e 100644 --- a/BLAS/SRC/ssyr2k.f +++ b/BLAS/SRC/ssyr2k.f @@ -189,6 +189,7 @@ *> * ===================================================================== SUBROUTINE SSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ssyrk.f b/BLAS/SRC/ssyrk.f index d1dcd124c6..9bb69668a3 100644 --- a/BLAS/SRC/ssyrk.f +++ b/BLAS/SRC/ssyrk.f @@ -166,6 +166,7 @@ *> * ===================================================================== SUBROUTINE SSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/stbmv.f b/BLAS/SRC/stbmv.f index 1af11e4fff..f111b30495 100644 --- a/BLAS/SRC/stbmv.f +++ b/BLAS/SRC/stbmv.f @@ -183,6 +183,7 @@ *> * ===================================================================== SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/stbsv.f b/BLAS/SRC/stbsv.f index 24d1105243..ee12cd0b26 100644 --- a/BLAS/SRC/stbsv.f +++ b/BLAS/SRC/stbsv.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE STBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/stpmv.f b/BLAS/SRC/stpmv.f index b36ecd3cdc..4cfee1448f 100644 --- a/BLAS/SRC/stpmv.f +++ b/BLAS/SRC/stpmv.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE STPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/stpsv.f b/BLAS/SRC/stpsv.f index b409964c3e..fbeac84974 100644 --- a/BLAS/SRC/stpsv.f +++ b/BLAS/SRC/stpsv.f @@ -141,6 +141,7 @@ *> * ===================================================================== SUBROUTINE STPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/strmm.f b/BLAS/SRC/strmm.f index 113999835d..bdef18c401 100644 --- a/BLAS/SRC/strmm.f +++ b/BLAS/SRC/strmm.f @@ -174,6 +174,7 @@ *> * ===================================================================== SUBROUTINE STRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/strmv.f b/BLAS/SRC/strmv.f index ee4032399c..4a303b9d6b 100644 --- a/BLAS/SRC/strmv.f +++ b/BLAS/SRC/strmv.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE STRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/strsm.f b/BLAS/SRC/strsm.f index 66a295adfe..45fbb315b2 100644 --- a/BLAS/SRC/strsm.f +++ b/BLAS/SRC/strsm.f @@ -178,6 +178,7 @@ *> * ===================================================================== SUBROUTINE STRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/strsv.f b/BLAS/SRC/strsv.f index 46c96deb74..1d6adbd461 100644 --- a/BLAS/SRC/strsv.f +++ b/BLAS/SRC/strsv.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE STRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/xerbla.f b/BLAS/SRC/xerbla.f index 8262cf498c..622f91959b 100644 --- a/BLAS/SRC/xerbla.f +++ b/BLAS/SRC/xerbla.f @@ -57,6 +57,7 @@ * * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/xerbla_array.f b/BLAS/SRC/xerbla_array.f index 5eeb548047..3faee74f24 100644 --- a/BLAS/SRC/xerbla_array.f +++ b/BLAS/SRC/xerbla_array.f @@ -77,6 +77,7 @@ * * ===================================================================== SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zaxpy.f b/BLAS/SRC/zaxpy.f index d39ccfc300..f9081e957a 100644 --- a/BLAS/SRC/zaxpy.f +++ b/BLAS/SRC/zaxpy.f @@ -85,6 +85,7 @@ *> * ===================================================================== SUBROUTINE ZAXPY(N,ZA,ZX,INCX,ZY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zcopy.f b/BLAS/SRC/zcopy.f index c1ea412c93..736bb9f680 100644 --- a/BLAS/SRC/zcopy.f +++ b/BLAS/SRC/zcopy.f @@ -78,6 +78,7 @@ *> * ===================================================================== SUBROUTINE ZCOPY(N,ZX,INCX,ZY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zdotc.f b/BLAS/SRC/zdotc.f index 96b957e988..bdb6e8c6f8 100644 --- a/BLAS/SRC/zdotc.f +++ b/BLAS/SRC/zdotc.f @@ -80,6 +80,7 @@ *> * ===================================================================== COMPLEX*16 FUNCTION ZDOTC(N,ZX,INCX,ZY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zdotu.f b/BLAS/SRC/zdotu.f index 82eed8b5d8..aeed01201d 100644 --- a/BLAS/SRC/zdotu.f +++ b/BLAS/SRC/zdotu.f @@ -80,6 +80,7 @@ *> * ===================================================================== COMPLEX*16 FUNCTION ZDOTU(N,ZX,INCX,ZY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zdrot.f b/BLAS/SRC/zdrot.f index 10ac3ac5ee..6c4c2f6fe6 100644 --- a/BLAS/SRC/zdrot.f +++ b/BLAS/SRC/zdrot.f @@ -95,6 +95,7 @@ * * ===================================================================== SUBROUTINE ZDROT( N, ZX, INCX, ZY, INCY, C, S ) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zdscal.f b/BLAS/SRC/zdscal.f index 28fa829942..14a6e98c40 100644 --- a/BLAS/SRC/zdscal.f +++ b/BLAS/SRC/zdscal.f @@ -75,6 +75,7 @@ *> * ===================================================================== SUBROUTINE ZDSCAL(N,DA,ZX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f index 25903cff26..bb162da970 100644 --- a/BLAS/SRC/zgbmv.f +++ b/BLAS/SRC/zgbmv.f @@ -187,6 +187,7 @@ * ===================================================================== SUBROUTINE ZGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX, + BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zgemm.f b/BLAS/SRC/zgemm.f index a33a00ce8b..de8b2f2c4d 100644 --- a/BLAS/SRC/zgemm.f +++ b/BLAS/SRC/zgemm.f @@ -206,6 +206,7 @@ * ===================================================================== SUBROUTINE ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB, + BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zgemv.f b/BLAS/SRC/zgemv.f index ccc256b779..4d41239193 100644 --- a/BLAS/SRC/zgemv.f +++ b/BLAS/SRC/zgemv.f @@ -157,6 +157,7 @@ *> * ===================================================================== SUBROUTINE ZGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zgerc.f b/BLAS/SRC/zgerc.f index 42060d3899..a5f1cfd280 100644 --- a/BLAS/SRC/zgerc.f +++ b/BLAS/SRC/zgerc.f @@ -127,6 +127,7 @@ *> * ===================================================================== SUBROUTINE ZGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zgeru.f b/BLAS/SRC/zgeru.f index 65df5edc1c..601eee645a 100644 --- a/BLAS/SRC/zgeru.f +++ b/BLAS/SRC/zgeru.f @@ -127,6 +127,7 @@ *> * ===================================================================== SUBROUTINE ZGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zhbmv.f b/BLAS/SRC/zhbmv.f index c98a3e4156..c760e35abd 100644 --- a/BLAS/SRC/zhbmv.f +++ b/BLAS/SRC/zhbmv.f @@ -184,6 +184,7 @@ *> * ===================================================================== SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zhemm.f b/BLAS/SRC/zhemm.f index 3eb5ee6c80..abc36e5d56 100644 --- a/BLAS/SRC/zhemm.f +++ b/BLAS/SRC/zhemm.f @@ -188,6 +188,7 @@ *> * ===================================================================== SUBROUTINE ZHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zhemv.f b/BLAS/SRC/zhemv.f index 444f15647e..390d002056 100644 --- a/BLAS/SRC/zhemv.f +++ b/BLAS/SRC/zhemv.f @@ -151,6 +151,7 @@ *> * ===================================================================== SUBROUTINE ZHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zher.f b/BLAS/SRC/zher.f index fd4265e16b..c572daa8b1 100644 --- a/BLAS/SRC/zher.f +++ b/BLAS/SRC/zher.f @@ -132,6 +132,7 @@ *> * ===================================================================== SUBROUTINE ZHER(UPLO,N,ALPHA,X,INCX,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zher2.f b/BLAS/SRC/zher2.f index 7d0a5537cd..6d59b00bef 100644 --- a/BLAS/SRC/zher2.f +++ b/BLAS/SRC/zher2.f @@ -147,6 +147,7 @@ *> * ===================================================================== SUBROUTINE ZHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zher2k.f b/BLAS/SRC/zher2k.f index f507ff2520..6000487f8d 100644 --- a/BLAS/SRC/zher2k.f +++ b/BLAS/SRC/zher2k.f @@ -195,6 +195,7 @@ *> * ===================================================================== SUBROUTINE ZHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zherk.f b/BLAS/SRC/zherk.f index ebe35d51e3..1ee4bd61f3 100644 --- a/BLAS/SRC/zherk.f +++ b/BLAS/SRC/zherk.f @@ -170,6 +170,7 @@ *> * ===================================================================== SUBROUTINE ZHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zhpmv.f b/BLAS/SRC/zhpmv.f index ac12365b1a..9e4d455b2f 100644 --- a/BLAS/SRC/zhpmv.f +++ b/BLAS/SRC/zhpmv.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zhpr.f b/BLAS/SRC/zhpr.f index 5ef5562235..2a8a9249b8 100644 --- a/BLAS/SRC/zhpr.f +++ b/BLAS/SRC/zhpr.f @@ -127,6 +127,7 @@ *> * ===================================================================== SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zhpr2.f b/BLAS/SRC/zhpr2.f index 8f5a088ce8..3ab26ac690 100644 --- a/BLAS/SRC/zhpr2.f +++ b/BLAS/SRC/zhpr2.f @@ -142,6 +142,7 @@ *> * ===================================================================== SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zrotg.f90 b/BLAS/SRC/zrotg.f90 index 551bea12a5..0dae53b837 100644 --- a/BLAS/SRC/zrotg.f90 +++ b/BLAS/SRC/zrotg.f90 @@ -86,6 +86,7 @@ ! ! ===================================================================== subroutine ZROTG( a, b, c, s ) + implicit none integer, parameter :: wp = kind(1.d0) ! ! -- Reference BLAS level1 routine -- diff --git a/BLAS/SRC/zscal.f b/BLAS/SRC/zscal.f index 8bbb4fdc0e..29db3b1f92 100644 --- a/BLAS/SRC/zscal.f +++ b/BLAS/SRC/zscal.f @@ -75,6 +75,7 @@ *> * ===================================================================== SUBROUTINE ZSCAL(N,ZA,ZX,INCX) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zswap.f b/BLAS/SRC/zswap.f index d27d4321ef..a13bfffc80 100644 --- a/BLAS/SRC/zswap.f +++ b/BLAS/SRC/zswap.f @@ -78,6 +78,7 @@ *> * ===================================================================== SUBROUTINE ZSWAP(N,ZX,INCX,ZY,INCY) + IMPLICIT NONE * * -- Reference BLAS level1 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zsymm.f b/BLAS/SRC/zsymm.f index 7da6a0ee64..6990fed816 100644 --- a/BLAS/SRC/zsymm.f +++ b/BLAS/SRC/zsymm.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE ZSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zsyr2k.f b/BLAS/SRC/zsyr2k.f index 40d6fe88e5..3c0aab1432 100644 --- a/BLAS/SRC/zsyr2k.f +++ b/BLAS/SRC/zsyr2k.f @@ -185,6 +185,7 @@ *> * ===================================================================== SUBROUTINE ZSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/zsyrk.f b/BLAS/SRC/zsyrk.f index c9ddc6cad8..7589727406 100644 --- a/BLAS/SRC/zsyrk.f +++ b/BLAS/SRC/zsyrk.f @@ -164,6 +164,7 @@ *> * ===================================================================== SUBROUTINE ZSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ztbmv.f b/BLAS/SRC/ztbmv.f index 1a11d3a15b..eb4e1a7c17 100644 --- a/BLAS/SRC/ztbmv.f +++ b/BLAS/SRC/ztbmv.f @@ -183,6 +183,7 @@ *> * ===================================================================== SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ztbsv.f b/BLAS/SRC/ztbsv.f index b3042ac8f8..7275df32b5 100644 --- a/BLAS/SRC/ztbsv.f +++ b/BLAS/SRC/ztbsv.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE ZTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ztpmv.f b/BLAS/SRC/ztpmv.f index be20048da9..433ee5ebae 100644 --- a/BLAS/SRC/ztpmv.f +++ b/BLAS/SRC/ztpmv.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE ZTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ztpsv.f b/BLAS/SRC/ztpsv.f index 436fb07c12..de9ce14d55 100644 --- a/BLAS/SRC/ztpsv.f +++ b/BLAS/SRC/ztpsv.f @@ -141,6 +141,7 @@ *> * ===================================================================== SUBROUTINE ZTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ztrmm.f b/BLAS/SRC/ztrmm.f index e11313dffc..b158403211 100644 --- a/BLAS/SRC/ztrmm.f +++ b/BLAS/SRC/ztrmm.f @@ -174,6 +174,7 @@ *> * ===================================================================== SUBROUTINE ZTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ztrmv.f b/BLAS/SRC/ztrmv.f index f72def8a4b..5c1962ba47 100644 --- a/BLAS/SRC/ztrmv.f +++ b/BLAS/SRC/ztrmv.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE ZTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ztrsm.f b/BLAS/SRC/ztrsm.f index 8479bf7766..192190f6ce 100644 --- a/BLAS/SRC/ztrsm.f +++ b/BLAS/SRC/ztrsm.f @@ -177,6 +177,7 @@ *> * ===================================================================== SUBROUTINE ZTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) + IMPLICIT NONE * * -- Reference BLAS level3 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/SRC/ztrsv.f b/BLAS/SRC/ztrsv.f index 6587355324..9b96211d25 100644 --- a/BLAS/SRC/ztrsv.f +++ b/BLAS/SRC/ztrsv.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE ZTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) + IMPLICIT NONE * * -- Reference BLAS level2 routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/TESTING/cblat1.f b/BLAS/TESTING/cblat1.f index 82798fe0b6..4a533e97a4 100644 --- a/BLAS/TESTING/cblat1.f +++ b/BLAS/TESTING/cblat1.f @@ -34,6 +34,7 @@ * * ===================================================================== PROGRAM CBLAT1 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -88,6 +89,7 @@ PROGRAM CBLAT1 * END SUBROUTINE HEADER + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -119,6 +121,7 @@ SUBROUTINE HEADER * END SUBROUTINE CHECK1(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT REAL THRESH @@ -345,6 +348,7 @@ SUBROUTINE CHECK1(SFAC) * END SUBROUTINE CHECK2(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -611,6 +615,7 @@ SUBROUTINE CHECK2(SFAC) * END SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + IMPLICIT NONE * ********************************* STEST ************************** * * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO @@ -670,6 +675,7 @@ SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) * END SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) + IMPLICIT NONE * ************************* STEST1 ***************************** * * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN @@ -698,6 +704,7 @@ SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) * END REAL FUNCTION SDIFF(SA,SB) + IMPLICIT NONE * ********************************* SDIFF ************************** * COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 * @@ -711,6 +718,7 @@ REAL FUNCTION SDIFF(SA,SB) * END SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) + IMPLICIT NONE * **************************** CTEST ***************************** * * C.L. LAWSON, JPL, 1978 DEC 6 @@ -745,6 +753,7 @@ SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) * END SUBROUTINE ITEST1(ICOMP,ITRUE) + IMPLICIT NONE * ********************************* ITEST1 ************************* * * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR @@ -788,6 +797,7 @@ SUBROUTINE ITEST1(ICOMP,ITRUE) * END SUBROUTINE CB1NRM2(N,INCX,THRESH) + IMPLICIT NONE * Compare NRM2 with a reference computation using combinations * of the following values: * @@ -991,6 +1001,7 @@ SUBROUTINE CB1NRM2(N,INCX,THRESH) RETURN CONTAINS REAL FUNCTION SXVALS(XX,K) + IMPLICIT NONE * .. Scalar Arguments .. REAL XX INTEGER K diff --git a/BLAS/TESTING/cblat2.f b/BLAS/TESTING/cblat2.f index abbc26224b..a29c1a63ad 100644 --- a/BLAS/TESTING/cblat2.f +++ b/BLAS/TESTING/cblat2.f @@ -100,6 +100,7 @@ * * ===================================================================== PROGRAM CBLAT2 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -435,6 +436,7 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G ) + IMPLICIT NONE * * Tests CGEMV and CGBMV. * @@ -808,6 +810,7 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G ) + IMPLICIT NONE * * Tests CHEMV, CHBMV and CHPMV. * @@ -1155,6 +1158,7 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z ) + IMPLICIT NONE * * Tests CTRMV, CTBMV, CTPMV, CTRSV, CTBSV and CTPSV. * @@ -1517,6 +1521,7 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests CGERC and CGERU. * @@ -1794,6 +1799,7 @@ SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests CHER and CHPR. * @@ -2078,6 +2084,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests CHER2 and CHPR2. * @@ -2397,6 +2404,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT ) + IMPLICIT NONE * * Tests the error exits from the Level 2 Blas. * Requires a special version of the error-handling routine XERBLA. @@ -2741,6 +2749,7 @@ SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT ) END SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, $ KU, RESET, TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A within the bandwidth * defined by KL and KU. @@ -2933,6 +2942,7 @@ SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, END SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -3064,6 +3074,7 @@ SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, * END LOGICAL FUNCTION LCE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -3094,6 +3105,7 @@ LOGICAL FUNCTION LCE( RI, RJ, LR ) * END LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -3153,6 +3165,7 @@ LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA ) * END COMPLEX FUNCTION CBEG( RESET ) + IMPLICIT NONE * * Generates complex numbers as pairs of random numbers uniformly * distributed between -0.5 and 0.5. @@ -3205,6 +3218,7 @@ COMPLEX FUNCTION CBEG( RESET ) * END REAL FUNCTION SDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 2 Blas. * @@ -3221,6 +3235,7 @@ REAL FUNCTION SDIFF( X, Y ) * END SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) + IMPLICIT NONE * * Tests whether XERBLA has detected an error when it should. * @@ -3250,6 +3265,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) END SUBROUTINE CREGR1( TRANS, M, N, LY, KL, KU, ALPHA, A, LDA, X, $ INCX, BETA, Y, INCY, YS ) + IMPLICIT NONE * * Input initialization for regression test. * @@ -3282,6 +3298,7 @@ SUBROUTINE CREGR1( TRANS, M, N, LY, KL, KU, ALPHA, A, LDA, X, RETURN END SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * This is a special version of XERBLA to be used only as part of * the test program for testing error exits from the Level 2 BLAS diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f index 8dda0a658d..06d8b2b78f 100644 --- a/BLAS/TESTING/cblat3.f +++ b/BLAS/TESTING/cblat3.f @@ -83,6 +83,7 @@ * * ===================================================================== PROGRAM CBLAT3 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/TESTING/dblat1.f b/BLAS/TESTING/dblat1.f index 95da39d12e..bbab816acd 100644 --- a/BLAS/TESTING/dblat1.f +++ b/BLAS/TESTING/dblat1.f @@ -34,6 +34,7 @@ * * ===================================================================== PROGRAM DBLAT1 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -127,6 +128,7 @@ SUBROUTINE HEADER * END SUBROUTINE CHECK0(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -246,6 +248,7 @@ SUBROUTINE CHECK0(SFAC) * END SUBROUTINE CHECK1(SFAC) + IMPLICIT NONE * .. Parameters .. DOUBLE PRECISION THRESH INTEGER NOUT @@ -365,6 +368,7 @@ SUBROUTINE CHECK1(SFAC) * END SUBROUTINE CHECK2(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -731,6 +735,7 @@ SUBROUTINE CHECK2(SFAC) * END SUBROUTINE CHECK3(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -940,6 +945,7 @@ SUBROUTINE CHECK3(SFAC) * END SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + IMPLICIT NONE * ********************************* STEST ************************** * * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO @@ -999,6 +1005,7 @@ SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) * END SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC) + IMPLICIT NONE * ********************************* STEST ************************** * * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO @@ -1050,6 +1057,7 @@ SUBROUTINE TESTDSDOT(SCOMP,STRUE,SSIZE,SFAC) * END SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) + IMPLICIT NONE * ************************* STEST1 ***************************** * * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN @@ -1078,6 +1086,7 @@ SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) * END DOUBLE PRECISION FUNCTION SDIFF(SA,SB) + IMPLICIT NONE * ********************************* SDIFF ************************** * COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 * @@ -1091,6 +1100,7 @@ DOUBLE PRECISION FUNCTION SDIFF(SA,SB) * END SUBROUTINE ITEST1(ICOMP,ITRUE) + IMPLICIT NONE * ********************************* ITEST1 ************************* * * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR @@ -1135,6 +1145,7 @@ SUBROUTINE ITEST1(ICOMP,ITRUE) * END SUBROUTINE DB1NRM2(N,INCX,THRESH) + IMPLICIT NONE * Compare NRM2 with a reference computation using combinations * of the following values: * @@ -1323,6 +1334,7 @@ SUBROUTINE DB1NRM2(N,INCX,THRESH) RETURN CONTAINS DOUBLE PRECISION FUNCTION DXVALS(XX,K) + IMPLICIT NONE * .. Scalar Arguments .. DOUBLE PRECISION XX INTEGER K diff --git a/BLAS/TESTING/dblat2.f b/BLAS/TESTING/dblat2.f index 15d712499b..ae1c8e8dcb 100644 --- a/BLAS/TESTING/dblat2.f +++ b/BLAS/TESTING/dblat2.f @@ -99,6 +99,7 @@ * * ===================================================================== PROGRAM DBLAT2 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -428,6 +429,7 @@ SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G ) + IMPLICIT NONE * * Tests DGEMV and DGBMV. * @@ -797,6 +799,7 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G ) + IMPLICIT NONE * * Tests DSYMV, DSBMV and DSPMV. * @@ -1139,6 +1142,7 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z ) + IMPLICIT NONE * * Tests DTRMV, DTBMV, DTPMV, DTRSV, DTBSV and DTPSV. * @@ -1497,6 +1501,7 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests DGER. * @@ -1758,6 +1763,7 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests DSYR and DSPR. * @@ -2036,6 +2042,7 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests DSYR2 and DSPR2. * @@ -2348,6 +2355,7 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT ) + IMPLICIT NONE * * Tests the error exits from the Level 2 Blas. * Requires a special version of the error-handling routine XERBLA. @@ -2675,6 +2683,7 @@ SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT ) END SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, $ KU, RESET, TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A within the bandwidth * defined by KL and KU. @@ -2851,6 +2860,7 @@ SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, END SUBROUTINE DMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2967,6 +2977,7 @@ SUBROUTINE DMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, * END LOGICAL FUNCTION LDE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2997,6 +3008,7 @@ LOGICAL FUNCTION LDE( RI, RJ, LR ) * END LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -3056,6 +3068,7 @@ LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA ) * END DOUBLE PRECISION FUNCTION DBEG( RESET ) + IMPLICIT NONE * * Generates random numbers uniformly distributed between -0.5 and 0.5. * @@ -3102,6 +3115,7 @@ DOUBLE PRECISION FUNCTION DBEG( RESET ) * END DOUBLE PRECISION FUNCTION DDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 2 Blas. * @@ -3118,6 +3132,7 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y ) * END SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) + IMPLICIT NONE * * Tests whether XERBLA has detected an error when it should. * @@ -3147,6 +3162,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) END SUBROUTINE DREGR1( TRANS, M, N, LY, KL, KU, ALPHA, A, LDA, X, $ INCX, BETA, Y, INCY, YS ) + IMPLICIT NONE * * Input initialization for regression test. * @@ -3179,6 +3195,7 @@ SUBROUTINE DREGR1( TRANS, M, N, LY, KL, KU, ALPHA, A, LDA, X, RETURN END SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * This is a special version of XERBLA to be used only as part of * the test program for testing error exits from the Level 2 BLAS diff --git a/BLAS/TESTING/dblat3.f b/BLAS/TESTING/dblat3.f index f9dbb49ae1..281c428f47 100644 --- a/BLAS/TESTING/dblat3.f +++ b/BLAS/TESTING/dblat3.f @@ -80,6 +80,7 @@ * * ===================================================================== PROGRAM DBLAT3 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -400,6 +401,7 @@ PROGRAM DBLAT3 SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G ) + IMPLICIT NONE * * Tests DGEMM. * @@ -681,6 +683,7 @@ SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G ) + IMPLICIT NONE * * Tests DSYMM. * @@ -951,6 +954,7 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, $ B, BB, BS, CT, G, C ) + IMPLICIT NONE * * Tests DTRMM and DTRSM. * @@ -1256,6 +1260,7 @@ SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G ) + IMPLICIT NONE * * Tests DSYRK. * @@ -1531,6 +1536,7 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W ) + IMPLICIT NONE * * Tests DSYR2K. * @@ -1843,6 +1849,7 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT ) + IMPLICIT NONE * * Tests the error exits from the Level 3 Blas. * Requires a special version of the error-handling routine XERBLA. @@ -2478,6 +2485,7 @@ SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT ) END SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, $ TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A. * Stores the values in the array AA in the data structure required @@ -2592,6 +2600,7 @@ SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, $ NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2712,6 +2721,7 @@ SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, * END LOGICAL FUNCTION LDE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2744,6 +2754,7 @@ LOGICAL FUNCTION LDE( RI, RJ, LR ) * END LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2805,6 +2816,7 @@ LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA ) * END DOUBLE PRECISION FUNCTION DBEG( RESET ) + IMPLICIT NONE * * Generates random numbers uniformly distributed between -0.5 and 0.5. * @@ -2851,6 +2863,7 @@ DOUBLE PRECISION FUNCTION DBEG( RESET ) * END DOUBLE PRECISION FUNCTION DDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 3 Blas. * @@ -2870,6 +2883,7 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y ) * END SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) + IMPLICIT NONE * * Tests whether XERBLA has detected an error when it should. * @@ -2900,6 +2914,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) * END SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * This is a special version of XERBLA to be used only as part of * the test program for testing error exits from the Level 3 BLAS @@ -2961,6 +2976,7 @@ SUBROUTINE XERBLA( SRNAME, INFO ) SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G ) + IMPLICIT NONE * * Tests DGEMMTR. * @@ -3246,6 +3262,7 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE DMMTCH( UPLO, TRANSA, TRANSB, N, KK, ALPHA, A, LDA, $ B, LDB, BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, $ FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * diff --git a/BLAS/TESTING/sblat1.f b/BLAS/TESTING/sblat1.f index e68ee09c1a..fe0c8f8a19 100644 --- a/BLAS/TESTING/sblat1.f +++ b/BLAS/TESTING/sblat1.f @@ -34,6 +34,7 @@ * * ===================================================================== PROGRAM SBLAT1 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/BLAS/TESTING/sblat2.f b/BLAS/TESTING/sblat2.f index 01b5c357f1..ff5acffa83 100644 --- a/BLAS/TESTING/sblat2.f +++ b/BLAS/TESTING/sblat2.f @@ -99,6 +99,7 @@ * * ===================================================================== PROGRAM SBLAT2 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -428,6 +429,7 @@ SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G ) + IMPLICIT NONE * * Tests SGEMV and SGBMV. * @@ -797,6 +799,7 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G ) + IMPLICIT NONE * * Tests SSYMV, SSBMV and SSPMV. * @@ -1139,6 +1142,7 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z ) + IMPLICIT NONE * * Tests STRMV, STBMV, STPMV, STRSV, STBSV and STPSV. * @@ -1497,6 +1501,7 @@ SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests SGER. * @@ -1758,6 +1763,7 @@ SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests SSYR and SSPR. * @@ -2036,6 +2042,7 @@ SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests SSYR2 and SSPR2. * @@ -2348,6 +2355,7 @@ SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT ) + IMPLICIT NONE * * Tests the error exits from the Level 2 Blas. * Requires a special version of the error-handling routine XERBLA. @@ -2675,6 +2683,7 @@ SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT ) END SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, $ KU, RESET, TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A within the bandwidth * defined by KL and KU. @@ -2851,6 +2860,7 @@ SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, END SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2967,6 +2977,7 @@ SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, * END LOGICAL FUNCTION LSE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2997,6 +3008,7 @@ LOGICAL FUNCTION LSE( RI, RJ, LR ) * END LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -3056,6 +3068,7 @@ LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA ) * END REAL FUNCTION SBEG( RESET ) + IMPLICIT NONE * * Generates random numbers uniformly distributed between -0.5 and 0.5. * @@ -3102,6 +3115,7 @@ REAL FUNCTION SBEG( RESET ) * END REAL FUNCTION SDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 2 Blas. * @@ -3118,6 +3132,7 @@ REAL FUNCTION SDIFF( X, Y ) * END SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) + IMPLICIT NONE * * Tests whether XERBLA has detected an error when it should. * @@ -3147,6 +3162,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) END SUBROUTINE SREGR1( TRANS, M, N, LY, KL, KU, ALPHA, A, LDA, X, $ INCX, BETA, Y, INCY, YS ) + IMPLICIT NONE * * Input initialization for regression test. * @@ -3179,6 +3195,7 @@ SUBROUTINE SREGR1( TRANS, M, N, LY, KL, KU, ALPHA, A, LDA, X, RETURN END SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * This is a special version of XERBLA to be used only as part of * the test program for testing error exits from the Level 2 BLAS diff --git a/BLAS/TESTING/sblat3.f b/BLAS/TESTING/sblat3.f index 51479d9f40..d8f2ed85cb 100644 --- a/BLAS/TESTING/sblat3.f +++ b/BLAS/TESTING/sblat3.f @@ -80,6 +80,7 @@ * * ===================================================================== PROGRAM SBLAT3 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -400,6 +401,7 @@ PROGRAM SBLAT3 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G ) + IMPLICIT NONE * * Tests SGEMM. * @@ -681,6 +683,7 @@ SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G ) + IMPLICIT NONE * * Tests SSYMM. * @@ -951,6 +954,7 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, $ B, BB, BS, CT, G, C ) + IMPLICIT NONE * * Tests STRMM and STRSM. * @@ -1256,6 +1260,7 @@ SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G ) + IMPLICIT NONE * * Tests SSYRK. * @@ -1531,6 +1536,7 @@ SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W ) + IMPLICIT NONE * * Tests SSYR2K. * @@ -1843,6 +1849,7 @@ SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT ) + IMPLICIT NONE * * Tests the error exits from the Level 3 Blas. * Requires a special version of the error-handling routine XERBLA. @@ -2478,6 +2485,7 @@ SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT ) END SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, $ TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A. * Stores the values in the array AA in the data structure required @@ -2592,6 +2600,7 @@ SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, $ NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2712,6 +2721,7 @@ SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, * END LOGICAL FUNCTION LSE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2744,6 +2754,7 @@ LOGICAL FUNCTION LSE( RI, RJ, LR ) * END LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2805,6 +2816,7 @@ LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA ) * END REAL FUNCTION SBEG( RESET ) + IMPLICIT NONE * * Generates random numbers uniformly distributed between -0.5 and 0.5. * @@ -2851,6 +2863,7 @@ REAL FUNCTION SBEG( RESET ) * END REAL FUNCTION SDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 3 Blas. * @@ -2870,6 +2883,7 @@ REAL FUNCTION SDIFF( X, Y ) * END SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) + IMPLICIT NONE * * Tests whether XERBLA has detected an error when it should. * @@ -2900,6 +2914,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) * END SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * This is a special version of XERBLA to be used only as part of * the test program for testing error exits from the Level 3 BLAS @@ -2962,6 +2977,7 @@ SUBROUTINE XERBLA( SRNAME, INFO ) SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G ) + IMPLICIT NONE * * Tests SGEMMTR. * @@ -3247,6 +3263,7 @@ SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE SMMTCH( UPLO, TRANSA, TRANSB, N, KK, ALPHA, A, LDA, $ B, LDB, BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, $ FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * diff --git a/BLAS/TESTING/zblat1.f b/BLAS/TESTING/zblat1.f index 29daad5741..eb38218c89 100644 --- a/BLAS/TESTING/zblat1.f +++ b/BLAS/TESTING/zblat1.f @@ -34,6 +34,7 @@ * * ===================================================================== PROGRAM ZBLAT1 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -119,6 +120,7 @@ SUBROUTINE HEADER * END SUBROUTINE CHECK1(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT DOUBLE PRECISION THRESH @@ -345,6 +347,7 @@ SUBROUTINE CHECK1(SFAC) * END SUBROUTINE CHECK2(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -611,6 +614,7 @@ SUBROUTINE CHECK2(SFAC) * END SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + IMPLICIT NONE * ********************************* STEST ************************** * * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO @@ -670,6 +674,7 @@ SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) * END SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) + IMPLICIT NONE * ************************* STEST1 ***************************** * * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN @@ -698,6 +703,7 @@ SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) * END DOUBLE PRECISION FUNCTION SDIFF(SA,SB) + IMPLICIT NONE * ********************************* SDIFF ************************** * COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 * @@ -711,6 +717,7 @@ DOUBLE PRECISION FUNCTION SDIFF(SA,SB) * END SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) + IMPLICIT NONE * **************************** CTEST ***************************** * * C.L. LAWSON, JPL, 1978 DEC 6 @@ -745,6 +752,7 @@ SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) * END SUBROUTINE ITEST1(ICOMP,ITRUE) + IMPLICIT NONE * ********************************* ITEST1 ************************* * * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR @@ -788,6 +796,7 @@ SUBROUTINE ITEST1(ICOMP,ITRUE) * END SUBROUTINE ZB1NRM2(N,INCX,THRESH) + IMPLICIT NONE * Compare NRM2 with a reference computation using combinations * of the following values: * @@ -991,6 +1000,7 @@ SUBROUTINE ZB1NRM2(N,INCX,THRESH) RETURN CONTAINS DOUBLE PRECISION FUNCTION DXVALS(XX,K) + IMPLICIT NONE * .. Scalar Arguments .. DOUBLE PRECISION XX INTEGER K diff --git a/BLAS/TESTING/zblat2.f b/BLAS/TESTING/zblat2.f index 07b98f9c1d..b7f4a3c716 100644 --- a/BLAS/TESTING/zblat2.f +++ b/BLAS/TESTING/zblat2.f @@ -100,6 +100,7 @@ * * ===================================================================== PROGRAM ZBLAT2 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- @@ -436,6 +437,7 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G ) + IMPLICIT NONE * * Tests ZGEMV and ZGBMV. * @@ -810,6 +812,7 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G ) + IMPLICIT NONE * * Tests ZHEMV, ZHBMV and ZHPMV. * @@ -1158,6 +1161,7 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z ) + IMPLICIT NONE * * Tests ZTRMV, ZTBMV, ZTPMV, ZTRSV, ZTBSV and ZTPSV. * @@ -1521,6 +1525,7 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests ZGERC and ZGERU. * @@ -1799,6 +1804,7 @@ SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests ZHER and ZHPR. * @@ -2084,6 +2090,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z ) + IMPLICIT NONE * * Tests ZHER2 and ZHPR2. * @@ -2404,6 +2411,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT ) + IMPLICIT NONE * * Tests the error exits from the Level 2 Blas. * Requires a special version of the error-handling routine XERBLA. @@ -2748,6 +2756,7 @@ SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT ) END SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, $ KU, RESET, TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A within the bandwidth * defined by KL and KU. @@ -2941,6 +2950,7 @@ SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, END SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -3072,6 +3082,7 @@ SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, * END LOGICAL FUNCTION LZE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -3102,6 +3113,7 @@ LOGICAL FUNCTION LZE( RI, RJ, LR ) * END LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -3161,6 +3173,7 @@ LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA ) * END COMPLEX*16 FUNCTION ZBEG( RESET ) + IMPLICIT NONE * * Generates complex numbers as pairs of random numbers uniformly * distributed between -0.5 and 0.5. @@ -3213,6 +3226,7 @@ COMPLEX*16 FUNCTION ZBEG( RESET ) * END DOUBLE PRECISION FUNCTION DDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 2 Blas. * @@ -3229,6 +3243,7 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y ) * END SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) + IMPLICIT NONE * * Tests whether XERBLA has detected an error when it should. * @@ -3258,6 +3273,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) END SUBROUTINE ZREGR1( TRANS, M, N, LY, KL, KU, ALPHA, A, LDA, X, $ INCX, BETA, Y, INCY, YS ) + IMPLICIT NONE * * Input initialization for regression test. * @@ -3290,6 +3306,7 @@ SUBROUTINE ZREGR1( TRANS, M, N, LY, KL, KU, ALPHA, A, LDA, X, RETURN END SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * This is a special version of XERBLA to be used only as part of * the test program for testing error exits from the Level 2 BLAS diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f index 1be68d34ee..ccb492a657 100644 --- a/BLAS/TESTING/zblat3.f +++ b/BLAS/TESTING/zblat3.f @@ -84,6 +84,7 @@ * * ===================================================================== PROGRAM ZBLAT3 + IMPLICIT NONE * * -- Reference BLAS test routine -- * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- diff --git a/CBLAS/src/cdotcsub.f b/CBLAS/src/cdotcsub.f index f97d7159ee..1141e9582e 100644 --- a/CBLAS/src/cdotcsub.f +++ b/CBLAS/src/cdotcsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine cdotcsub(n,x,incx,y,incy,dotc) + implicit none c external cdotc complex cdotc,dotc diff --git a/CBLAS/src/cdotusub.f b/CBLAS/src/cdotusub.f index 5107c0402b..f7168c22d9 100644 --- a/CBLAS/src/cdotusub.f +++ b/CBLAS/src/cdotusub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine cdotusub(n,x,incx,y,incy,dotu) + implicit none c external cdotu complex cdotu,dotu diff --git a/CBLAS/src/dasumsub.f b/CBLAS/src/dasumsub.f index 3d64d17e67..9a8f3648a6 100644 --- a/CBLAS/src/dasumsub.f +++ b/CBLAS/src/dasumsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine dasumsub(n,x,incx,asum) + implicit none c external dasum double precision dasum,asum diff --git a/CBLAS/src/dcabs1sub.f b/CBLAS/src/dcabs1sub.f index 0c085f7670..5b71052dc6 100644 --- a/CBLAS/src/dcabs1sub.f +++ b/CBLAS/src/dcabs1sub.f @@ -3,6 +3,7 @@ c The program is a fortran wrapper for dcabs1. c subroutine dcabs1sub(z, cabs1) + implicit none c external dcabs1 double complex z diff --git a/CBLAS/src/ddotsub.f b/CBLAS/src/ddotsub.f index 205f3b46f0..911a49e6d3 100644 --- a/CBLAS/src/ddotsub.f +++ b/CBLAS/src/ddotsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine ddotsub(n,x,incx,y,incy,dot) + implicit none c external ddot double precision ddot diff --git a/CBLAS/src/dnrm2sub.f b/CBLAS/src/dnrm2sub.f index 88f17db8bc..40beababa0 100644 --- a/CBLAS/src/dnrm2sub.f +++ b/CBLAS/src/dnrm2sub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine dnrm2sub(n,x,incx,nrm2) + implicit none c external dnrm2 double precision dnrm2,nrm2 diff --git a/CBLAS/src/dsdotsub.f b/CBLAS/src/dsdotsub.f index ef53b881a2..0a5936a8de 100644 --- a/CBLAS/src/dsdotsub.f +++ b/CBLAS/src/dsdotsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine dsdotsub(n,x,incx,y,incy,dot) + implicit none c external dsdot double precision dsdot,dot diff --git a/CBLAS/src/dzasumsub.f b/CBLAS/src/dzasumsub.f index 9aaf163872..486b54dd25 100644 --- a/CBLAS/src/dzasumsub.f +++ b/CBLAS/src/dzasumsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine dzasumsub(n,x,incx,asum) + implicit none c external dzasum double precision dzasum,asum diff --git a/CBLAS/src/dznrm2sub.f b/CBLAS/src/dznrm2sub.f index 45dc599f81..c2b8128180 100644 --- a/CBLAS/src/dznrm2sub.f +++ b/CBLAS/src/dznrm2sub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine dznrm2sub(n,x,incx,nrm2) + implicit none c external dznrm2 double precision dznrm2,nrm2 diff --git a/CBLAS/src/icamaxsub.f b/CBLAS/src/icamaxsub.f index 3f47071eb5..107f50d265 100644 --- a/CBLAS/src/icamaxsub.f +++ b/CBLAS/src/icamaxsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine icamaxsub(n,x,incx,iamax) + implicit none c external icamax integer icamax,iamax diff --git a/CBLAS/src/idamaxsub.f b/CBLAS/src/idamaxsub.f index 3c1ee5c325..39738e1a5e 100644 --- a/CBLAS/src/idamaxsub.f +++ b/CBLAS/src/idamaxsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/22/1998 c subroutine idamaxsub(n,x,incx,iamax) + implicit none c external idamax integer idamax,iamax diff --git a/CBLAS/src/isamaxsub.f b/CBLAS/src/isamaxsub.f index 0faf42fde1..345fb77431 100644 --- a/CBLAS/src/isamaxsub.f +++ b/CBLAS/src/isamaxsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine isamaxsub(n,x,incx,iamax) + implicit none c external isamax integer isamax,iamax diff --git a/CBLAS/src/izamaxsub.f b/CBLAS/src/izamaxsub.f index 5b15855a7f..a96fa57af9 100644 --- a/CBLAS/src/izamaxsub.f +++ b/CBLAS/src/izamaxsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine izamaxsub(n,x,incx,iamax) + implicit none c external izamax integer izamax,iamax diff --git a/CBLAS/src/sasumsub.f b/CBLAS/src/sasumsub.f index 955f11e8dc..f8ffdc5c8a 100644 --- a/CBLAS/src/sasumsub.f +++ b/CBLAS/src/sasumsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine sasumsub(n,x,incx,asum) + implicit none c external sasum real sasum,asum diff --git a/CBLAS/src/scabs1sub.f b/CBLAS/src/scabs1sub.f index 17dbfde278..07c91d0b5c 100644 --- a/CBLAS/src/scabs1sub.f +++ b/CBLAS/src/scabs1sub.f @@ -3,6 +3,7 @@ c The program is a fortran wrapper for scabs1. c subroutine scabs1sub(z, cabs1) + implicit none c external scabs1 complex z diff --git a/CBLAS/src/scasumsub.f b/CBLAS/src/scasumsub.f index 077ace6703..c7de3bc19a 100644 --- a/CBLAS/src/scasumsub.f +++ b/CBLAS/src/scasumsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine scasumsub(n,x,incx,asum) + implicit none c external scasum real scasum,asum diff --git a/CBLAS/src/scnrm2sub.f b/CBLAS/src/scnrm2sub.f index 7242c9742d..59999ecd23 100644 --- a/CBLAS/src/scnrm2sub.f +++ b/CBLAS/src/scnrm2sub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine scnrm2sub(n,x,incx,nrm2) + implicit none c external scnrm2 real scnrm2,nrm2 diff --git a/CBLAS/src/sdotsub.f b/CBLAS/src/sdotsub.f index 33fa89a9f1..c17d140699 100644 --- a/CBLAS/src/sdotsub.f +++ b/CBLAS/src/sdotsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine sdotsub(n,x,incx,y,incy,dot) + implicit none c external sdot real sdot diff --git a/CBLAS/src/sdsdotsub.f b/CBLAS/src/sdsdotsub.f index c6b8bb2e5a..9384609c69 100644 --- a/CBLAS/src/sdsdotsub.f +++ b/CBLAS/src/sdsdotsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine sdsdotsub(n,sb,x,incx,y,incy,dot) + implicit none c external sdsdot real sb,sdsdot,dot diff --git a/CBLAS/src/snrm2sub.f b/CBLAS/src/snrm2sub.f index 871a6e49f4..7fa737c338 100644 --- a/CBLAS/src/snrm2sub.f +++ b/CBLAS/src/snrm2sub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine snrm2sub(n,x,incx,nrm2) + implicit none c external snrm2 real snrm2,nrm2 diff --git a/CBLAS/src/zdotcsub.f b/CBLAS/src/zdotcsub.f index 8d483c895b..0298654ea5 100644 --- a/CBLAS/src/zdotcsub.f +++ b/CBLAS/src/zdotcsub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine zdotcsub(n,x,incx,y,incy,dotc) + implicit none c external zdotc double complex zdotc,dotc diff --git a/CBLAS/src/zdotusub.f b/CBLAS/src/zdotusub.f index 23f32dec3f..8482905ac4 100644 --- a/CBLAS/src/zdotusub.f +++ b/CBLAS/src/zdotusub.f @@ -4,6 +4,7 @@ c Witten by Keita Teranishi. 2/11/1998 c subroutine zdotusub(n,x,incx,y,incy,dotu) + implicit none c external zdotu double complex zdotu,dotu diff --git a/CBLAS/testing/c_cblat1.f b/CBLAS/testing/c_cblat1.f index 1a123d74dc..ceea49fe1e 100644 --- a/CBLAS/testing/c_cblat1.f +++ b/CBLAS/testing/c_cblat1.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM CCBLAT1 + IMPLICIT NONE * Test program for the COMPLEX Level 1 CBLAS. * Based upon the original CBLAS test routine together with: * F06GAF Example Program Text @@ -45,7 +47,10 @@ PROGRAM CCBLAT1 99999 FORMAT (' Complex CBLAS Test Program Results',/1X) 99998 FORMAT (' ----- PASS -----') END + +* ===================================================================== SUBROUTINE HEADER + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -73,7 +78,10 @@ SUBROUTINE HEADER * 99999 FORMAT (/' Test of subprogram number',I3,9X,A15) END + +* ===================================================================== SUBROUTINE CHECK1(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -274,7 +282,10 @@ SUBROUTINE CHECK1(SFAC) END IF RETURN END + +* ===================================================================== SUBROUTINE CHECK2(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -519,7 +530,10 @@ SUBROUTINE CHECK2(SFAC) 60 CONTINUE RETURN END + +* ===================================================================== SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + IMPLICIT NONE * ********************************* STEST ************************** * * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO @@ -574,7 +588,10 @@ SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + ' SIZE(I)',/1X) 99997 FORMAT (1X,I4,I3,3I5,I3,2E36.8,2E12.4) END + +* ===================================================================== SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) + IMPLICIT NONE * ************************* STEST1 ***************************** * * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN @@ -599,7 +616,10 @@ SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) * RETURN END + +* ===================================================================== REAL FUNCTION SDIFF(SA,SB) + IMPLICIT NONE * ********************************* SDIFF ************************** * COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 * @@ -609,7 +629,10 @@ REAL FUNCTION SDIFF(SA,SB) SDIFF = SA - SB RETURN END + +* ===================================================================== SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) + IMPLICIT NONE * **************************** CTEST ***************************** * * C.L. LAWSON, JPL, 1978 DEC 6 @@ -640,7 +663,10 @@ SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC) RETURN END + +* ===================================================================== SUBROUTINE ITEST1(ICOMP,ITRUE) + IMPLICIT NONE * ********************************* ITEST1 ************************* * * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR diff --git a/CBLAS/testing/c_cblat2.f b/CBLAS/testing/c_cblat2.f index 072b6a3b18..3aa7908c33 100644 --- a/CBLAS/testing/c_cblat2.f +++ b/CBLAS/testing/c_cblat2.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM CBLAT2 + IMPLICIT NONE * * Test program for the COMPLEX Level 2 Blas. * @@ -459,10 +461,13 @@ PROGRAM CBLAT2 * End of CBLAT2. * END + +* ===================================================================== SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G, IORDER ) + IMPLICIT NONE * * Tests CGEMV and CGBMV. * @@ -814,10 +819,13 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK1. * END + +* ===================================================================== SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G, IORDER ) + IMPLICIT NONE * * Tests CHEMV, CHBMV and CHPMV. * @@ -1170,9 +1178,12 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK2. * END + +* ===================================================================== SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER ) + IMPLICIT NONE * * Tests CTRMV, CTBMV, CTPMV, CTRSV, CTBSV and CTPSV. * @@ -1551,10 +1562,13 @@ SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK3. * END + +* ===================================================================== SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests CGERC and CGERU. * @@ -1828,10 +1842,13 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK4. * END + +* ===================================================================== SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests CHER and CHPR. * @@ -2121,10 +2138,13 @@ SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK5. * END + +* ===================================================================== SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests CHER2 and CHPR2. * @@ -2448,8 +2468,11 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK6. * END + +* ===================================================================== SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2580,7 +2603,10 @@ SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, * End of CMVCH. * END + +* ===================================================================== LOGICAL FUNCTION LCE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2610,7 +2636,10 @@ LOGICAL FUNCTION LCE( RI, RJ, LR ) * End of LCE. * END + +* ===================================================================== LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2670,7 +2699,10 @@ LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA ) * End of LCERES. * END + +* ===================================================================== COMPLEX FUNCTION CBEG( RESET ) + IMPLICIT NONE * * Generates complex numbers as pairs of random numbers uniformly * distributed between -0.5 and 0.5. @@ -2722,7 +2754,10 @@ COMPLEX FUNCTION CBEG( RESET ) * End of CBEG. * END + +* ===================================================================== REAL FUNCTION SDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 2 Blas. * @@ -2738,8 +2773,11 @@ REAL FUNCTION SDIFF( X, Y ) * End of SDIFF. * END + +* ===================================================================== SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, $ KU, RESET, TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A within the bandwidth * defined by KL and KU. diff --git a/CBLAS/testing/c_cblat3.f b/CBLAS/testing/c_cblat3.f index 07be55c929..44aa1425c5 100644 --- a/CBLAS/testing/c_cblat3.f +++ b/CBLAS/testing/c_cblat3.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM CBLAT3 + IMPLICIT NONE * * Test program for the COMPLEX Level 3 Blas. * @@ -438,10 +440,13 @@ PROGRAM CBLAT3 * End of CBLAT3. * END + +* ===================================================================== SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests CGEMM. * @@ -732,9 +737,12 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK1. * END -* + +* ===================================================================== SUBROUTINE CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, $ K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC COMPLEX ALPHA, BETA CHARACTER*1 TRANSA, TRANSB @@ -767,11 +775,13 @@ SUBROUTINE CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, 9994 FORMAT( 10X, 3( I3, ',' ) ,' (', F4.1,',',F4.1,') , A,', $ I3, ', B,', I3, ', (', F4.1,',',F4.1,') , C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests CHEMM and CSYMM. * @@ -1058,9 +1068,12 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK2. * END -* + +* ===================================================================== SUBROUTINE CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, $ ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC COMPLEX ALPHA, BETA CHARACTER*1 SIDE, UPLO @@ -1089,10 +1102,12 @@ SUBROUTINE CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, 9994 FORMAT( 10X, 2( I3, ',' ),' (',F4.1,',',F4.1, '), A,', I3, $ ', B,', I3, ', (',F4.1,',',F4.1, '), ', 'C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, $ B, BB, BS, CT, G, C, IORDER ) + IMPLICIT NONE * * Tests CTRMM and CTRSM. * @@ -1410,9 +1425,12 @@ SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK3. * END -* + +* ===================================================================== SUBROUTINE CPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, $ DIAG, M, N, ALPHA, LDA, LDB) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, LDA, LDB COMPLEX ALPHA CHARACTER*1 SIDE, UPLO, TRANSA, DIAG @@ -1453,11 +1471,13 @@ SUBROUTINE CPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, 9994 FORMAT( 10X, 2( A14, ',') , 2( I3, ',' ), ' (', F4.1, ',', $ F4.1, '), A,', I3, ', B,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests CHERK and CSYRK. * @@ -1796,9 +1816,12 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK4. * END -* + +* ===================================================================== SUBROUTINE CPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDC COMPLEX ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -1829,10 +1852,12 @@ SUBROUTINE CPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 10X, 2( I3, ',' ), ' (', F4.1, ',', F4.1 ,'), A,', $ I3, ', (', F4.1,',', F4.1, '), C,', I3, ').' ) END -* -* + +* ===================================================================== SUBROUTINE CPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDC REAL ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -1863,11 +1888,13 @@ SUBROUTINE CPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 10X, 2( I3, ',' ), $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, $ IORDER ) + IMPLICIT NONE * * Tests CHER2K and CSYR2K. * @@ -2249,9 +2276,12 @@ SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK5. * END -* + +* ===================================================================== SUBROUTINE CPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC COMPLEX ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -2282,10 +2312,12 @@ SUBROUTINE CPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 10X, 2( I3, ',' ), ' (', F4.1, ',', F4.1, '), A,', $ I3, ', B', I3, ', (', F4.1, ',', F4.1, '), C,', I3, ').' ) END -* -* + +* ===================================================================== SUBROUTINE CPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC COMPLEX ALPHA REAL BETA @@ -2317,9 +2349,11 @@ SUBROUTINE CPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 10X, 2( I3, ',' ), ' (', F4.1, ',', F4.1, '), A,', $ I3, ', B', I3, ',', F4.1, ', C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, $ TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A. * Stores the values in the array AA in the data structure required @@ -2446,9 +2480,12 @@ SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, * End of CMAKE. * END + +* ===================================================================== SUBROUTINE CMMCH(TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, $ NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2634,7 +2671,10 @@ SUBROUTINE CMMCH(TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, * End of CMMCH. * END + +* ===================================================================== LOGICAL FUNCTION LCE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2666,7 +2706,10 @@ LOGICAL FUNCTION LCE( RI, RJ, LR ) * End of LCE. * END + +* ===================================================================== LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2728,7 +2771,10 @@ LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA ) * End of LCERES. * END + +* ===================================================================== COMPLEX FUNCTION CBEG( RESET ) + IMPLICIT NONE * * Generates complex numbers as pairs of random numbers uniformly * distributed between -0.5 and 0.5. @@ -2782,7 +2828,10 @@ COMPLEX FUNCTION CBEG( RESET ) * End of CBEG. * END + +* ===================================================================== REAL FUNCTION SDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 3 Blas. * @@ -2802,6 +2851,7 @@ REAL FUNCTION SDIFF( X, Y ) * END +* ===================================================================== SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, @@ -3097,9 +3147,12 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END +* ===================================================================== SUBROUTINE CPRCN8(NOUT, NC, SNAME, IORDER, UPLO, $ TRANSA, TRANSB, N, $ K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC COMPLEX ALPHA, BETA CHARACTER*1 TRANSA, TRANSB, UPLO @@ -3139,6 +3192,7 @@ SUBROUTINE CPRCN8(NOUT, NC, SNAME, IORDER, UPLO, $ I3, ', B,', I3, ', (', F4.1,',',F4.1,') , C,', I3, ').' ) END +* ===================================================================== SUBROUTINE CMMTCH(UPLO, TRANSA, TRANSB, N, KK, ALPHA, A, LDA, $ B, LDB, $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, diff --git a/CBLAS/testing/c_dblat1.f b/CBLAS/testing/c_dblat1.f index 4a71b4dcf7..9cd195cfcb 100644 --- a/CBLAS/testing/c_dblat1.f +++ b/CBLAS/testing/c_dblat1.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM DCBLAT1 + IMPLICIT NONE * Test program for the DOUBLE PRECISION Level 1 CBLAS. * Based upon the original CBLAS test routine together with: * F06EAF Example Program Text @@ -51,7 +53,11 @@ PROGRAM DCBLAT1 99999 FORMAT (' Real CBLAS Test Program Results',/1X) 99998 FORMAT (' ----- PASS -----') END + +* ===================================================================== SUBROUTINE HEADER + IMPLICIT NONE + * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -79,7 +85,10 @@ SUBROUTINE HEADER * 99999 FORMAT (/' Test of subprogram number',I3,9X,A15) END + +* ===================================================================== SUBROUTINE CHECK0(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -140,7 +149,10 @@ SUBROUTINE CHECK0(SFAC) 20 CONTINUE 40 RETURN END + +* ===================================================================== SUBROUTINE CHECK1(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -234,7 +246,10 @@ SUBROUTINE CHECK1(SFAC) 80 CONTINUE RETURN END + +* ===================================================================== SUBROUTINE CHECK2(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -389,7 +404,10 @@ SUBROUTINE CHECK2(SFAC) 120 CONTINUE RETURN END + +* ===================================================================== SUBROUTINE CHECK3(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -595,7 +613,10 @@ SUBROUTINE CHECK3(SFAC) 200 CONTINUE RETURN END + +* ===================================================================== SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + IMPLICIT NONE * ********************************* STEST ************************** * * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO @@ -650,7 +671,10 @@ SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + ' SIZE(I)',/1X) 99997 FORMAT (1X,I4,I3,3I5,I3,2D36.8,2D12.4) END + +* ===================================================================== SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) + IMPLICIT NONE * ************************* STEST1 ***************************** * * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN @@ -675,7 +699,10 @@ SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) * RETURN END + +* ===================================================================== DOUBLE PRECISION FUNCTION SDIFF(SA,SB) + IMPLICIT NONE * ********************************* SDIFF ************************** * COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 * @@ -685,7 +712,10 @@ DOUBLE PRECISION FUNCTION SDIFF(SA,SB) SDIFF = SA - SB RETURN END + +* ===================================================================== SUBROUTINE ITEST1(ICOMP,ITRUE) + IMPLICIT NONE * ********************************* ITEST1 ************************* * * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR diff --git a/CBLAS/testing/c_dblat2.f b/CBLAS/testing/c_dblat2.f index 27ceda622f..8e92df5627 100644 --- a/CBLAS/testing/c_dblat2.f +++ b/CBLAS/testing/c_dblat2.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM DBLAT2 + IMPLICIT NONE * * Test program for the DOUBLE PRECISION Level 2 Blas. * @@ -453,10 +455,13 @@ PROGRAM DBLAT2 * End of DBLAT2. * END + +* ===================================================================== SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G, IORDER ) + IMPLICIT NONE * * Tests DGEMV and DGBMV. * @@ -813,10 +818,13 @@ SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK1. * END + +* ===================================================================== SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G, IORDER ) + IMPLICIT NONE * * Tests DSYMV, DSBMV and DSPMV. * @@ -1173,9 +1181,12 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK2. * END + +* ===================================================================== SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER ) + IMPLICIT NONE * * Tests DTRMV, DTBMV, DTPMV, DTRSV, DTBSV and DTPSV. * @@ -1560,10 +1571,13 @@ SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK3. * END + +* ===================================================================== SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests DGER. * @@ -1832,10 +1846,13 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK4. * END + +* ===================================================================== SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests DSYR and DSPR. * @@ -2128,10 +2145,13 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK5. * END + +* ===================================================================== SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests DSYR2 and DSPR2. * @@ -2460,8 +2480,11 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK6. * END + +* ===================================================================== SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, $ KU, RESET, TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A within the bandwidth * defined by KL and KU. @@ -2636,8 +2659,11 @@ SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, * End of DMAKE. * END + +* ===================================================================== SUBROUTINE DMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2753,7 +2779,10 @@ SUBROUTINE DMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, * End of DMVCH. * END + +* ===================================================================== LOGICAL FUNCTION LDE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2783,7 +2812,10 @@ LOGICAL FUNCTION LDE( RI, RJ, LR ) * End of LDE. * END + +* ===================================================================== LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2843,7 +2875,10 @@ LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA ) * End of LDERES. * END + +* ===================================================================== DOUBLE PRECISION FUNCTION DBEG( RESET ) + IMPLICIT NONE * * Generates random numbers uniformly distributed between -0.5 and 0.5. * @@ -2889,7 +2924,10 @@ DOUBLE PRECISION FUNCTION DBEG( RESET ) * End of DBEG. * END + +* ===================================================================== DOUBLE PRECISION FUNCTION DDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 2 Blas. * diff --git a/CBLAS/testing/c_dblat3.f b/CBLAS/testing/c_dblat3.f index ee1b818f40..7d7c8e721e 100644 --- a/CBLAS/testing/c_dblat3.f +++ b/CBLAS/testing/c_dblat3.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM DBLAT3 + IMPLICIT NONE * * Test program for the DOUBLE PRECISION Level 3 Blas. * @@ -430,9 +432,12 @@ PROGRAM DBLAT3 * End of DBLAT3. * END + +* ===================================================================== SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER) + IMPLICIT NONE * * Tests DGEMM. * @@ -719,8 +724,12 @@ SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK1. * END + +* ===================================================================== SUBROUTINE DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, $ K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC DOUBLE PRECISION ALPHA, BETA CHARACTER*1 TRANSA, TRANSB @@ -753,10 +762,12 @@ SUBROUTINE DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, 9994 FORMAT( 20X, 3( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ',', $ F4.1, ', ', 'C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER) + IMPLICIT NONE * * Tests DSYMM. * @@ -1032,9 +1043,12 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK2. * END -* + +* ===================================================================== SUBROUTINE DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, $ ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC DOUBLE PRECISION ALPHA, BETA CHARACTER*1 SIDE, UPLO @@ -1063,10 +1077,12 @@ SUBROUTINE DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, 9994 FORMAT( 20X, 2( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ',', $ F4.1, ', ', 'C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, $ B, BB, BS, CT, G, C, IORDER ) + IMPLICIT NONE * * Tests DTRMM and DTRSM. * @@ -1379,9 +1395,12 @@ SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK3. * END -* + +* ===================================================================== SUBROUTINE DPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, $ DIAG, M, N, ALPHA, LDA, LDB) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, LDA, LDB DOUBLE PRECISION ALPHA CHARACTER*1 SIDE, UPLO, TRANSA, DIAG @@ -1422,10 +1441,12 @@ SUBROUTINE DPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, 9994 FORMAT( 22X, 2( A14, ',') , 2( I3, ',' ), $ F4.1, ', A,', I3, ', B,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER) + IMPLICIT NONE * * Tests DSYRK. * @@ -1705,9 +1726,12 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK4. * END -* + +* ===================================================================== SUBROUTINE DPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDC DOUBLE PRECISION ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -1738,11 +1762,13 @@ SUBROUTINE DPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 20X, 2( I3, ',' ), $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, $ IORDER ) + IMPLICIT NONE * * Tests DSYR2K. * @@ -2062,9 +2088,12 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of DCHK5. * END -* + +* ===================================================================== SUBROUTINE DPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC DOUBLE PRECISION ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -2095,9 +2124,11 @@ SUBROUTINE DPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 20X, 2( I3, ',' ), $ F4.1, ', A,', I3, ', B', I3, ',', F4.1, ', C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, $ TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A. * Stores the values in the array AA in the data structure required @@ -2209,9 +2240,12 @@ SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, * End of DMAKE. * END + +* ===================================================================== SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, $ NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2331,7 +2365,10 @@ SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, * End of DMMCH. * END + +* ===================================================================== LOGICAL FUNCTION LDE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2363,7 +2400,10 @@ LOGICAL FUNCTION LDE( RI, RJ, LR ) * End of LDE. * END + +* ===================================================================== LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2425,7 +2465,10 @@ LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA ) * End of LDERES. * END + +* ===================================================================== DOUBLE PRECISION FUNCTION DBEG( RESET ) + IMPLICIT NONE * * Generates random numbers uniformly distributed between -0.5 and 0.5. * @@ -2471,7 +2514,10 @@ DOUBLE PRECISION FUNCTION DBEG( RESET ) * End of DBEG. * END + +* ===================================================================== DOUBLE PRECISION FUNCTION DDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 3 Blas. * @@ -2491,10 +2537,12 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y ) * END +* ===================================================================== SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER) + IMPLICIT NONE * * Tests DGEMMTR. * @@ -2787,9 +2835,13 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END + +* ===================================================================== SUBROUTINE DPRCN8(NOUT, NC, SNAME, IORDER, UPLO, $ TRANSA, TRANSB, N, $ K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC DOUBLE PRECISION ALPHA, BETA CHARACTER*1 TRANSA, TRANSB, UPLO @@ -2829,9 +2881,11 @@ SUBROUTINE DPRCN8(NOUT, NC, SNAME, IORDER, UPLO, $ I3, ', B,', I3, ', ', F4.1,' , C,', I3, ').' ) END +* ===================================================================== SUBROUTINE DMMTCH( UPLO, TRANSA, TRANSB, N, KK, ALPHA, A, LDA, $ B, LDB, BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, $ FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * diff --git a/CBLAS/testing/c_sblat1.f b/CBLAS/testing/c_sblat1.f index 89902f12d9..19084fb8b9 100644 --- a/CBLAS/testing/c_sblat1.f +++ b/CBLAS/testing/c_sblat1.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM SCBLAT1 + IMPLICIT NONE * Test program for the REAL Level 1 CBLAS. * Based upon the original CBLAS test routine together with: * F06EAF Example Program Text @@ -51,7 +53,10 @@ PROGRAM SCBLAT1 99999 FORMAT (' Real CBLAS Test Program Results',/1X) 99998 FORMAT (' ----- PASS -----') END + +* ===================================================================== SUBROUTINE HEADER + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -79,7 +84,10 @@ SUBROUTINE HEADER * 99999 FORMAT (/' Test of subprogram number',I3,9X,A15) END + +* ===================================================================== SUBROUTINE CHECK0(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -140,7 +148,10 @@ SUBROUTINE CHECK0(SFAC) 20 CONTINUE 40 RETURN END + +* ===================================================================== SUBROUTINE CHECK1(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -234,7 +245,10 @@ SUBROUTINE CHECK1(SFAC) 80 CONTINUE RETURN END + +* ===================================================================== SUBROUTINE CHECK2(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -389,7 +403,10 @@ SUBROUTINE CHECK2(SFAC) 120 CONTINUE RETURN END + +* ===================================================================== SUBROUTINE CHECK3(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -595,7 +612,10 @@ SUBROUTINE CHECK3(SFAC) 200 CONTINUE RETURN END + +* ===================================================================== SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + IMPLICIT NONE * ********************************* STEST ************************** * * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO @@ -650,7 +670,10 @@ SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + ' SIZE(I)',/1X) 99997 FORMAT (1X,I4,I3,3I5,I3,2E36.8,2E12.4) END + +* ===================================================================== SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) + IMPLICIT NONE * ************************* STEST1 ***************************** * * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN @@ -675,7 +698,10 @@ SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) * RETURN END + +* ===================================================================== REAL FUNCTION SDIFF(SA,SB) + IMPLICIT NONE * ********************************* SDIFF ************************** * COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 * @@ -685,7 +711,10 @@ REAL FUNCTION SDIFF(SA,SB) SDIFF = SA - SB RETURN END + +* ===================================================================== SUBROUTINE ITEST1(ICOMP,ITRUE) + IMPLICIT NONE * ********************************* ITEST1 ************************* * * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR diff --git a/CBLAS/testing/c_sblat2.f b/CBLAS/testing/c_sblat2.f index 8bd23c3e9d..7219a30e11 100644 --- a/CBLAS/testing/c_sblat2.f +++ b/CBLAS/testing/c_sblat2.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM SBLAT2 + IMPLICIT NONE * * Test program for the REAL Level 2 Blas. * @@ -453,10 +455,13 @@ PROGRAM SBLAT2 * End of SBLAT2. * END + +* ===================================================================== SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G, IORDER ) + IMPLICIT NONE * * Tests SGEMV and SGBMV. * @@ -813,10 +818,13 @@ SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK1. * END + +* ===================================================================== SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G, IORDER ) + IMPLICIT NONE * * Tests SSYMV, SSBMV and SSPMV. * @@ -1173,9 +1181,12 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK2. * END + +* ===================================================================== SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER ) + IMPLICIT NONE * * Tests STRMV, STBMV, STPMV, STRSV, STBSV and STPSV. * @@ -1560,10 +1571,13 @@ SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK3. * END + +* ===================================================================== SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests SGER. * @@ -1832,10 +1846,13 @@ SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK4. * END + +* ===================================================================== SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests SSYR and SSPR. * @@ -2128,10 +2145,13 @@ SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK5. * END + +* ===================================================================== SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests SSYR2 and SSPR2. * @@ -2460,8 +2480,11 @@ SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK6. * END + +* ===================================================================== SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, $ KU, RESET, TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A within the bandwidth * defined by KL and KU. @@ -2636,8 +2659,11 @@ SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, * End of SMAKE. * END + +* ===================================================================== SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2753,7 +2779,10 @@ SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, * End of SMVCH. * END + +* ===================================================================== LOGICAL FUNCTION LSE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2783,7 +2812,10 @@ LOGICAL FUNCTION LSE( RI, RJ, LR ) * End of LSE. * END + +* ===================================================================== LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2843,7 +2875,10 @@ LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA ) * End of LSERES. * END + +* ===================================================================== REAL FUNCTION SBEG( RESET ) + IMPLICIT NONE * * Generates random numbers uniformly distributed between -0.5 and 0.5. * @@ -2889,7 +2924,10 @@ REAL FUNCTION SBEG( RESET ) * End of SBEG. * END + +* ===================================================================== REAL FUNCTION SDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 2 Blas. * diff --git a/CBLAS/testing/c_sblat3.f b/CBLAS/testing/c_sblat3.f index 85270aef7b..15a5c1d05e 100644 --- a/CBLAS/testing/c_sblat3.f +++ b/CBLAS/testing/c_sblat3.f @@ -1,4 +1,5 @@ PROGRAM SBLAT3 + IMPLICIT NONE * * Test program for the REAL Level 3 Blas. * @@ -430,10 +431,13 @@ PROGRAM SBLAT3 * End of SBLAT3. * END + +* ===================================================================== SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests SGEMM. * @@ -720,11 +724,12 @@ SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK1. * END -* -* -* + +* ===================================================================== SUBROUTINE SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, $ K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC REAL ALPHA, BETA CHARACTER*1 TRANSA, TRANSB @@ -757,11 +762,13 @@ SUBROUTINE SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, 9994 FORMAT( 20X, 3( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ',', $ F4.1, ', ', 'C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests SSYMM. * @@ -1037,9 +1044,12 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK2. * END -* + +* ===================================================================== SUBROUTINE SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, $ ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC REAL ALPHA, BETA CHARACTER*1 SIDE, UPLO @@ -1068,10 +1078,12 @@ SUBROUTINE SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, 9994 FORMAT( 20X, 2( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ',', $ F4.1, ', ', 'C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, $ B, BB, BS, CT, G, C, IORDER ) + IMPLICIT NONE * * Tests STRMM and STRSM. * @@ -1384,9 +1396,12 @@ SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK3. * END -* + +* ===================================================================== SUBROUTINE SPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, $ DIAG, M, N, ALPHA, LDA, LDB) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, LDA, LDB REAL ALPHA CHARACTER*1 SIDE, UPLO, TRANSA, DIAG @@ -1427,11 +1442,13 @@ SUBROUTINE SPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, 9994 FORMAT( 22X, 2( A14, ',') , 2( I3, ',' ), $ F4.1, ', A,', I3, ', B,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests SSYRK. * @@ -1711,9 +1728,12 @@ SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK4. * END -* + +* ===================================================================== SUBROUTINE SPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDC REAL ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -1744,11 +1764,13 @@ SUBROUTINE SPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 20X, 2( I3, ',' ), $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, $ IORDER ) + IMPLICIT NONE * * Tests SSYR2K. * @@ -2067,9 +2089,12 @@ SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of SCHK5. * END -* + +* ===================================================================== SUBROUTINE SPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC REAL ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -2100,9 +2125,11 @@ SUBROUTINE SPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 20X, 2( I3, ',' ), $ F4.1, ', A,', I3, ', B', I3, ',', F4.1, ', C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, $ TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A. * Stores the values in the array AA in the data structure required @@ -2214,9 +2241,12 @@ SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, * End of SMAKE. * END + +* ===================================================================== SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, $ NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2336,7 +2366,10 @@ SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, * End of SMMCH. * END + +* ===================================================================== LOGICAL FUNCTION LSE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2368,7 +2401,10 @@ LOGICAL FUNCTION LSE( RI, RJ, LR ) * End of LSE. * END + +* ===================================================================== LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2430,7 +2466,10 @@ LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA ) * End of LSERES. * END + +* ===================================================================== REAL FUNCTION SBEG( RESET ) + IMPLICIT NONE * * Generates random numbers uniformly distributed between -0.5 and 0.5. * @@ -2476,7 +2515,10 @@ REAL FUNCTION SBEG( RESET ) * End of SBEG. * END + +* ===================================================================== REAL FUNCTION SDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 3 Blas. * @@ -2496,11 +2538,12 @@ REAL FUNCTION SDIFF( X, Y ) * END - +* ===================================================================== SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER) + IMPLICIT NONE * * Tests SGEMMTR. * @@ -2793,9 +2836,12 @@ SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END +* ===================================================================== SUBROUTINE SPRCN8(NOUT, NC, SNAME, IORDER, UPLO, $ TRANSA, TRANSB, N, $ K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC REAL ALPHA, BETA CHARACTER*1 TRANSA, TRANSB, UPLO @@ -2835,9 +2881,11 @@ SUBROUTINE SPRCN8(NOUT, NC, SNAME, IORDER, UPLO, $ I3, ', B,', I3, ', ', F4.1,' , C,', I3, ').' ) END +* ===================================================================== SUBROUTINE SMMTCH( UPLO, TRANSA, TRANSB, N, KK, ALPHA, A, LDA, $ B, LDB, BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, $ FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * diff --git a/CBLAS/testing/c_zblat1.f b/CBLAS/testing/c_zblat1.f index cd0c8541df..3a4142286d 100644 --- a/CBLAS/testing/c_zblat1.f +++ b/CBLAS/testing/c_zblat1.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM ZCBLAT1 + IMPLICIT NONE * Test program for the COMPLEX*16 Level 1 CBLAS. * Based upon the original CBLAS test routine together with: * F06GAF Example Program Text @@ -45,7 +47,10 @@ PROGRAM ZCBLAT1 99999 FORMAT (' Complex CBLAS Test Program Results',/1X) 99998 FORMAT (' ----- PASS -----') END + +* ===================================================================== SUBROUTINE HEADER + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -73,7 +78,10 @@ SUBROUTINE HEADER * 99999 FORMAT (/' Test of subprogram number',I3,9X,A15) END + +* ===================================================================== SUBROUTINE CHECK1(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -274,7 +282,10 @@ SUBROUTINE CHECK1(SFAC) END IF RETURN END + +* ===================================================================== SUBROUTINE CHECK2(SFAC) + IMPLICIT NONE * .. Parameters .. INTEGER NOUT PARAMETER (NOUT=6) @@ -519,7 +530,10 @@ SUBROUTINE CHECK2(SFAC) 60 CONTINUE RETURN END + +* ===================================================================== SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + IMPLICIT NONE * ********************************* STEST ************************** * * THIS SUBR COMPARES ARRAYS SCOMP() AND STRUE() OF LENGTH LEN TO @@ -574,7 +588,10 @@ SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC) + ' SIZE(I)',/1X) 99997 FORMAT (1X,I4,I3,3I5,I3,2D36.8,2D12.4) END + +* ===================================================================== SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) + IMPLICIT NONE * ************************* STEST1 ***************************** * * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN @@ -599,7 +616,10 @@ SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC) * RETURN END + +* ===================================================================== DOUBLE PRECISION FUNCTION SDIFF(SA,SB) + IMPLICIT NONE * ********************************* SDIFF ************************** * COMPUTES DIFFERENCE OF TWO NUMBERS. C. L. LAWSON, JPL 1974 FEB 15 * @@ -609,7 +629,10 @@ DOUBLE PRECISION FUNCTION SDIFF(SA,SB) SDIFF = SA - SB RETURN END + +* ===================================================================== SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) + IMPLICIT NONE * **************************** CTEST ***************************** * * C.L. LAWSON, JPL, 1978 DEC 6 @@ -640,7 +663,10 @@ SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC) CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC) RETURN END + +* ===================================================================== SUBROUTINE ITEST1(ICOMP,ITRUE) + IMPLICIT NONE * ********************************* ITEST1 ************************* * * THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR diff --git a/CBLAS/testing/c_zblat2.f b/CBLAS/testing/c_zblat2.f index a46e62137c..21424468c8 100644 --- a/CBLAS/testing/c_zblat2.f +++ b/CBLAS/testing/c_zblat2.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM ZBLAT2 + IMPLICIT NONE * * Test program for the COMPLEX*16 Level 2 Blas. * @@ -459,10 +461,13 @@ PROGRAM ZBLAT2 * End of ZBLAT2. * END + +* ===================================================================== SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G, IORDER ) + IMPLICIT NONE * * Tests CGEMV and CGBMV. * @@ -815,10 +820,13 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of ZCHK1. * END + +* ===================================================================== SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, $ XS, Y, YY, YS, YT, G, IORDER ) + IMPLICIT NONE * * Tests CHEMV, CHBMV and CHPMV. * @@ -1172,9 +1180,12 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CZHK2. * END + +* ===================================================================== SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, XT, G, Z, IORDER ) + IMPLICIT NONE * * Tests ZTRMV, ZTBMV, ZTPMV, ZTRSV, ZTBSV and ZTPSV. * @@ -1554,10 +1565,13 @@ SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of ZCHK3. * END + +* ===================================================================== SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests ZGERC and ZGERU. * @@ -1832,10 +1846,13 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of ZCHK4. * END + +* ===================================================================== SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests ZHER and ZHPR. * @@ -2126,10 +2143,13 @@ SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CZHK5. * END + +* ===================================================================== SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, $ INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, $ Z, IORDER ) + IMPLICIT NONE * * Tests ZHER2 and ZHPR2. * @@ -2454,8 +2474,11 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of ZCHK6. * END + +* ===================================================================== SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2586,7 +2609,10 @@ SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, * End of ZMVCH. * END + +* ===================================================================== LOGICAL FUNCTION LZE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2616,7 +2642,10 @@ LOGICAL FUNCTION LZE( RI, RJ, LR ) * End of LZE. * END + +* ===================================================================== LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2676,7 +2705,10 @@ LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA ) * End of LZERES. * END + +* ===================================================================== COMPLEX*16 FUNCTION ZBEG( RESET ) + IMPLICIT NONE * * Generates complex numbers as pairs of random numbers uniformly * distributed between -0.5 and 0.5. @@ -2728,7 +2760,10 @@ COMPLEX*16 FUNCTION ZBEG( RESET ) * End of ZBEG. * END + +* ===================================================================== DOUBLE PRECISION FUNCTION DDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 2 Blas. * @@ -2744,8 +2779,11 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y ) * End of DDIFF. * END + +* ===================================================================== SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, $ KU, RESET, TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A within the bandwidth * defined by KL and KU. diff --git a/CBLAS/testing/c_zblat3.f b/CBLAS/testing/c_zblat3.f index 23ee361acc..a68a64a14e 100644 --- a/CBLAS/testing/c_zblat3.f +++ b/CBLAS/testing/c_zblat3.f @@ -1,4 +1,6 @@ +* ===================================================================== PROGRAM ZBLAT3 + IMPLICIT NONE * * Test program for the COMPLEX*16 Level 3 Blas. * @@ -438,10 +440,13 @@ PROGRAM ZBLAT3 * End of ZBLAT3. * END + +* ===================================================================== SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests ZGEMM. * @@ -732,9 +737,11 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of ZCHK1. * END -* + +* ===================================================================== SUBROUTINE ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, $ K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC DOUBLE COMPLEX ALPHA, BETA CHARACTER*1 TRANSA, TRANSB @@ -767,11 +774,13 @@ SUBROUTINE ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, 9994 FORMAT( 10X, 3( I3, ',' ) ,' (', F4.1,',',F4.1,') , A,', $ I3, ', B,', I3, ', (', F4.1,',',F4.1,') , C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests ZHEMM and ZSYMM. * @@ -1058,9 +1067,12 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of ZCHK2. * END -* + +* ===================================================================== SUBROUTINE ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, $ ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC DOUBLE COMPLEX ALPHA, BETA CHARACTER*1 SIDE, UPLO @@ -1089,10 +1101,12 @@ SUBROUTINE ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, 9994 FORMAT( 10X, 2( I3, ',' ),' (',F4.1,',',F4.1, '), A,', I3, $ ', B,', I3, ', (',F4.1,',',F4.1, '), ', 'C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, $ B, BB, BS, CT, G, C, IORDER ) + IMPLICIT NONE * * Tests ZTRMM and ZTRSM. * @@ -1410,9 +1424,12 @@ SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of ZCHK3. * END -* + +* ===================================================================== SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, $ DIAG, M, N, ALPHA, LDA, LDB) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, M, N, LDA, LDB DOUBLE COMPLEX ALPHA CHARACTER*1 SIDE, UPLO, TRANSA, DIAG @@ -1453,11 +1470,13 @@ SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, 9994 FORMAT( 10X, 2( A14, ',') , 2( I3, ',' ), ' (', F4.1, ',', $ F4.1, '), A,', I3, ', B,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, $ IORDER ) + IMPLICIT NONE * * Tests ZHERK and ZSYRK. * @@ -1796,9 +1815,11 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of CCHK4. * END -* + +* ===================================================================== SUBROUTINE ZPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, BETA, LDC) + IMPLICIT NONE INTEGER NOUT, NC, IORDER, N, K, LDA, LDC DOUBLE COMPLEX ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -1829,10 +1850,12 @@ SUBROUTINE ZPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 10X, 2( I3, ',' ), ' (', F4.1, ',', F4.1 ,'), A,', $ I3, ', (', F4.1,',', F4.1, '), C,', I3, ').' ) END -* -* + +* ===================================================================== SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDC DOUBLE PRECISION ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -1863,11 +1886,13 @@ SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 10X, 2( I3, ',' ), $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, $ IORDER ) + IMPLICIT NONE * * Tests ZHER2K and ZSYR2K. * @@ -2249,9 +2274,12 @@ SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * End of ZCHK5. * END -* + +* ===================================================================== SUBROUTINE ZPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC DOUBLE COMPLEX ALPHA, BETA CHARACTER*1 UPLO, TRANSA @@ -2282,10 +2310,12 @@ SUBROUTINE ZPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 10X, 2( I3, ',' ), ' (', F4.1, ',', F4.1, '), A,', $ I3, ', B', I3, ', (', F4.1, ',', F4.1, '), C,', I3, ').' ) END -* -* + +* ===================================================================== SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, $ N, K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC DOUBLE COMPLEX ALPHA DOUBLE PRECISION BETA @@ -2317,9 +2347,11 @@ SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA, 9994 FORMAT( 10X, 2( I3, ',' ), ' (', F4.1, ',', F4.1, '), A,', $ I3, ', B', I3, ',', F4.1, ', C,', I3, ').' ) END -* + +* ===================================================================== SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, $ TRANSL ) + IMPLICIT NONE * * Generates values for an M by N matrix A. * Stores the values in the array AA in the data structure required @@ -2447,9 +2479,12 @@ SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, * End of ZMAKE. * END + +* ===================================================================== SUBROUTINE ZMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, $ NOUT, MV ) + IMPLICIT NONE * * Checks the results of the computational tests. * @@ -2637,7 +2672,10 @@ SUBROUTINE ZMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, * End of ZMMCH. * END + +* ===================================================================== LOGICAL FUNCTION LZE( RI, RJ, LR ) + IMPLICIT NONE * * Tests if two arrays are identical. * @@ -2669,7 +2707,10 @@ LOGICAL FUNCTION LZE( RI, RJ, LR ) * End of LZE. * END + +* ===================================================================== LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA ) + IMPLICIT NONE * * Tests if selected elements in two arrays are equal. * @@ -2731,7 +2772,10 @@ LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA ) * End of LZERES. * END + +* ===================================================================== COMPLEX*16 FUNCTION ZBEG( RESET ) + IMPLICIT NONE * * Generates complex numbers as pairs of random numbers uniformly * distributed between -0.5 and 0.5. @@ -2785,7 +2829,10 @@ COMPLEX*16 FUNCTION ZBEG( RESET ) * End of ZBEG. * END + +* ===================================================================== DOUBLE PRECISION FUNCTION DDIFF( X, Y ) + IMPLICIT NONE * * Auxiliary routine for test program for Level 3 Blas. * @@ -2805,6 +2852,7 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y ) * END +* ===================================================================== SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, @@ -3100,9 +3148,12 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, * END +* ===================================================================== SUBROUTINE ZPRCN8(NOUT, NC, SNAME, IORDER, UPLO, $ TRANSA, TRANSB, N, $ K, ALPHA, LDA, LDB, BETA, LDC) + IMPLICIT NONE + INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC COMPLEX*16 ALPHA, BETA CHARACTER*1 TRANSA, TRANSB, UPLO @@ -3142,6 +3193,7 @@ SUBROUTINE ZPRCN8(NOUT, NC, SNAME, IORDER, UPLO, $ I3, ', B,', I3, ', (', F4.1,',',F4.1,') , C,', I3, ').' ) END +* ===================================================================== SUBROUTINE ZMMTCH(UPLO, TRANSA, TRANSB, N, KK, ALPHA, A, LDA, $ B, LDB, $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, diff --git a/INSTALL/LAPACK_version.f b/INSTALL/LAPACK_version.f index 534f2464a4..8a3ae420bd 100644 --- a/INSTALL/LAPACK_version.f +++ b/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, -- diff --git a/INSTALL/dlamch.f b/INSTALL/dlamch.f index c3a7b61581..e151db4a2a 100644 --- a/INSTALL/dlamch.f +++ b/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.. diff --git a/INSTALL/dlamchf77.f b/INSTALL/dlamchf77.f index e7958d0055..a8ca7e819f 100644 --- a/INSTALL/dlamchf77.f +++ b/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.. diff --git a/INSTALL/droundup_lwork.f b/INSTALL/droundup_lwork.f index 8df68b0ef5..0f8033bdec 100644 --- a/INSTALL/droundup_lwork.f +++ b/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, -- diff --git a/INSTALL/dsecnd_EXT_ETIME.f b/INSTALL/dsecnd_EXT_ETIME.f index 157bb16574..b7df5173d8 100644 --- a/INSTALL/dsecnd_EXT_ETIME.f +++ b/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, -- diff --git a/INSTALL/dsecnd_EXT_ETIME_.f b/INSTALL/dsecnd_EXT_ETIME_.f index 0b80ea550c..0483a33168 100644 --- a/INSTALL/dsecnd_EXT_ETIME_.f +++ b/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.. diff --git a/INSTALL/dsecnd_INT_CPU_TIME.f b/INSTALL/dsecnd_INT_CPU_TIME.f index 67dd8c3f71..a7913e97e3 100644 --- a/INSTALL/dsecnd_INT_CPU_TIME.f +++ b/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, -- diff --git a/INSTALL/dsecnd_INT_ETIME.f b/INSTALL/dsecnd_INT_ETIME.f index 73b1cdf02f..ff1b309fc7 100644 --- a/INSTALL/dsecnd_INT_ETIME.f +++ b/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, -- diff --git a/INSTALL/dsecnd_NONE.f b/INSTALL/dsecnd_NONE.f index ba0802f646..0f2d28c78f 100644 --- a/INSTALL/dsecnd_NONE.f +++ b/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, -- diff --git a/INSTALL/dsecndtst.f b/INSTALL/dsecndtst.f index 6c8f1a4041..cdf588fcae 100644 --- a/INSTALL/dsecndtst.f +++ b/INSTALL/dsecndtst.f @@ -20,7 +20,9 @@ * *> \ingroup test_second * -* ===================================================================== PROGRAM DSECNDTST +* ===================================================================== + PROGRAM DSECNDTST + IMPLICIT NONE * * -- LAPACK test routine -- * @@ -117,7 +119,10 @@ $ ' than zero => timing in TESTING might be dubious' ) CALL MYSUB(NMAX,X,Y) END + +* ===================================================================== SUBROUTINE MYSUB(N,X,Y) + IMPLICIT NONE INTEGER N DOUBLE PRECISION X(N), Y(N) RETURN diff --git a/INSTALL/ilaver.f b/INSTALL/ilaver.f index 40f8ca88ef..83115480fb 100644 --- a/INSTALL/ilaver.f +++ b/INSTALL/ilaver.f @@ -48,6 +48,7 @@ * * ===================================================================== SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/INSTALL/lsame.f b/INSTALL/lsame.f index 7bb7315dcb..5ed6adb458 100644 --- a/INSTALL/lsame.f +++ b/INSTALL/lsame.f @@ -45,6 +45,7 @@ * * ===================================================================== LOGICAL FUNCTION LSAME( CA, CB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/INSTALL/second_EXT_ETIME.f b/INSTALL/second_EXT_ETIME.f index 6ca014e26f..d71730bbaa 100644 --- a/INSTALL/second_EXT_ETIME.f +++ b/INSTALL/second_EXT_ETIME.f @@ -32,6 +32,7 @@ * * ===================================================================== REAL FUNCTION SECOND( ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/INSTALL/second_EXT_ETIME_.f b/INSTALL/second_EXT_ETIME_.f index d21a7ace89..c3b9431c0c 100644 --- a/INSTALL/second_EXT_ETIME_.f +++ b/INSTALL/second_EXT_ETIME_.f @@ -32,6 +32,7 @@ * * ===================================================================== REAL FUNCTION SECOND( ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/INSTALL/second_INT_CPU_TIME.f b/INSTALL/second_INT_CPU_TIME.f index 3e3bdd58a7..a9a91c9472 100644 --- a/INSTALL/second_INT_CPU_TIME.f +++ b/INSTALL/second_INT_CPU_TIME.f @@ -32,6 +32,7 @@ * * ===================================================================== REAL FUNCTION SECOND( ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/INSTALL/second_INT_ETIME.f b/INSTALL/second_INT_ETIME.f index 7b39bf5c70..a20199dd68 100644 --- a/INSTALL/second_INT_ETIME.f +++ b/INSTALL/second_INT_ETIME.f @@ -32,6 +32,7 @@ * * ===================================================================== REAL FUNCTION SECOND( ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/INSTALL/second_NONE.f b/INSTALL/second_NONE.f index 20a788c018..fc7c6221bc 100644 --- a/INSTALL/second_NONE.f +++ b/INSTALL/second_NONE.f @@ -34,6 +34,7 @@ * * ===================================================================== REAL FUNCTION SECOND( ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/INSTALL/secondtst.f b/INSTALL/secondtst.f index b672a94980..7d317fe021 100644 --- a/INSTALL/secondtst.f +++ b/INSTALL/secondtst.f @@ -16,7 +16,9 @@ * *> \ingroup test_second * -* ===================================================================== PROGRAM SECONDTST +* ===================================================================== + PROGRAM SECONDTST + IMPLICIT NONE * * -- LAPACK test routine -- * @@ -113,7 +115,10 @@ $ ' than zero => timing in TESTING might be dubious' ) CALL MYSUB(NMAX,X,Y) END + +* ===================================================================== SUBROUTINE MYSUB(N,X,Y) + IMPLICIT NONE INTEGER N REAL X(N), Y(N) RETURN diff --git a/INSTALL/slamch.f b/INSTALL/slamch.f index cfe0770a85..1fd9f15338 100644 --- a/INSTALL/slamch.f +++ b/INSTALL/slamch.f @@ -65,6 +65,7 @@ * * ===================================================================== REAL FUNCTION SLAMCH( CMACH ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -168,6 +169,7 @@ REAL FUNCTION SLAMCH( CMACH ) *> * REAL FUNCTION SLAMC3( A, B ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/INSTALL/slamchf77.f b/INSTALL/slamchf77.f index cabc3788df..fbc58dbd63 100644 --- a/INSTALL/slamchf77.f +++ b/INSTALL/slamchf77.f @@ -64,6 +64,7 @@ * * ===================================================================== REAL FUNCTION SLAMCH( CMACH ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -204,6 +205,7 @@ REAL FUNCTION SLAMCH( CMACH ) *> \endverbatim *> SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. @@ -416,6 +418,7 @@ SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 ) *> \endverbatim *> SUBROUTINE SLAMC2( 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 SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX ) *> \ingroup lamc3 *> REAL FUNCTION SLAMC3( A, B ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. @@ -686,6 +690,7 @@ REAL FUNCTION SLAMC3( A, B ) *> \ingroup lamc4 *> SUBROUTINE SLAMC4( EMIN, START, BASE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. @@ -794,6 +799,7 @@ SUBROUTINE SLAMC4( EMIN, START, BASE ) *> \ingroup lamc5 *> SUBROUTINE SLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/INSTALL/sroundup_lwork.f b/INSTALL/sroundup_lwork.f index 7056ea3117..bb2f8cb3db 100644 --- a/INSTALL/sroundup_lwork.f +++ b/INSTALL/sroundup_lwork.f @@ -56,6 +56,7 @@ * * ===================================================================== REAL FUNCTION SROUNDUP_LWORK( LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/INSTALL/tstiee.f b/INSTALL/tstiee.f index b549399acc..9fdaa2a4d0 100644 --- a/INSTALL/tstiee.f +++ b/INSTALL/tstiee.f @@ -17,6 +17,7 @@ * * ===================================================================== PROGRAM TSTIEE + IMPLICIT NONE * * -- LAPACK test routine -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/SRC/VARIANTS/cholesky/RL/cpotrf.f b/SRC/VARIANTS/cholesky/RL/cpotrf.f index 07b080360d..99b509b475 100644 --- a/SRC/VARIANTS/cholesky/RL/cpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/cpotrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/cholesky/RL/dpotrf.f b/SRC/VARIANTS/cholesky/RL/dpotrf.f index f721f6b717..e1de96d9ad 100644 --- a/SRC/VARIANTS/cholesky/RL/dpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/dpotrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/cholesky/RL/spotrf.f b/SRC/VARIANTS/cholesky/RL/spotrf.f index 55c5108528..b739f622ca 100644 --- a/SRC/VARIANTS/cholesky/RL/spotrf.f +++ b/SRC/VARIANTS/cholesky/RL/spotrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/cholesky/RL/zpotrf.f b/SRC/VARIANTS/cholesky/RL/zpotrf.f index b724ef896a..1642a47977 100644 --- a/SRC/VARIANTS/cholesky/RL/zpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/zpotrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/cholesky/TOP/cpotrf.f b/SRC/VARIANTS/cholesky/TOP/cpotrf.f index 429e70ae9b..a69779fced 100644 --- a/SRC/VARIANTS/cholesky/TOP/cpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/cpotrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/cholesky/TOP/dpotrf.f b/SRC/VARIANTS/cholesky/TOP/dpotrf.f index fca76f86fa..e992c8cfba 100644 --- a/SRC/VARIANTS/cholesky/TOP/dpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/dpotrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/cholesky/TOP/spotrf.f b/SRC/VARIANTS/cholesky/TOP/spotrf.f index 2116ff4fdb..5df525a528 100644 --- a/SRC/VARIANTS/cholesky/TOP/spotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/spotrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/cholesky/TOP/zpotrf.f b/SRC/VARIANTS/cholesky/TOP/zpotrf.f index 30c21d186f..ff0c07bd5e 100644 --- a/SRC/VARIANTS/cholesky/TOP/zpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/zpotrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/larft/LL-LVL2/clarft.f b/SRC/VARIANTS/larft/LL-LVL2/clarft.f index 96ca5dd867..185a5638eb 100644 --- a/SRC/VARIANTS/larft/LL-LVL2/clarft.f +++ b/SRC/VARIANTS/larft/LL-LVL2/clarft.f @@ -158,6 +158,7 @@ *> * ===================================================================== SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/larft/LL-LVL2/dlarft.f b/SRC/VARIANTS/larft/LL-LVL2/dlarft.f index 60c8be3536..de25fa3e18 100644 --- a/SRC/VARIANTS/larft/LL-LVL2/dlarft.f +++ b/SRC/VARIANTS/larft/LL-LVL2/dlarft.f @@ -158,6 +158,7 @@ *> * ===================================================================== SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/larft/LL-LVL2/slarft.f b/SRC/VARIANTS/larft/LL-LVL2/slarft.f index 13afee4ca0..070f67f56c 100644 --- a/SRC/VARIANTS/larft/LL-LVL2/slarft.f +++ b/SRC/VARIANTS/larft/LL-LVL2/slarft.f @@ -158,6 +158,7 @@ *> * ===================================================================== SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/larft/LL-LVL2/zlarft.f b/SRC/VARIANTS/larft/LL-LVL2/zlarft.f index f7e8447a5f..64cf8b72cb 100644 --- a/SRC/VARIANTS/larft/LL-LVL2/zlarft.f +++ b/SRC/VARIANTS/larft/LL-LVL2/zlarft.f @@ -158,6 +158,7 @@ *> * ===================================================================== SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/CR/cgetrf.f b/SRC/VARIANTS/lu/CR/cgetrf.f index e78442914e..2136fa347e 100644 --- a/SRC/VARIANTS/lu/CR/cgetrf.f +++ b/SRC/VARIANTS/lu/CR/cgetrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/CR/dgetrf.f b/SRC/VARIANTS/lu/CR/dgetrf.f index 9bccb19bc8..e28481a729 100644 --- a/SRC/VARIANTS/lu/CR/dgetrf.f +++ b/SRC/VARIANTS/lu/CR/dgetrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/CR/sgetrf.f b/SRC/VARIANTS/lu/CR/sgetrf.f index c12dd38f94..e1d828c971 100644 --- a/SRC/VARIANTS/lu/CR/sgetrf.f +++ b/SRC/VARIANTS/lu/CR/sgetrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/CR/zgetrf.f b/SRC/VARIANTS/lu/CR/zgetrf.f index 75b26586da..cb85189c42 100644 --- a/SRC/VARIANTS/lu/CR/zgetrf.f +++ b/SRC/VARIANTS/lu/CR/zgetrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/LL/cgetrf.f b/SRC/VARIANTS/lu/LL/cgetrf.f index 67902e5688..f35ac5fc9b 100644 --- a/SRC/VARIANTS/lu/LL/cgetrf.f +++ b/SRC/VARIANTS/lu/LL/cgetrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/LL/dgetrf.f b/SRC/VARIANTS/lu/LL/dgetrf.f index 5f77b919ee..21e7a26bf4 100644 --- a/SRC/VARIANTS/lu/LL/dgetrf.f +++ b/SRC/VARIANTS/lu/LL/dgetrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/LL/sgetrf.f b/SRC/VARIANTS/lu/LL/sgetrf.f index 2d47969032..cc6a0576ed 100644 --- a/SRC/VARIANTS/lu/LL/sgetrf.f +++ b/SRC/VARIANTS/lu/LL/sgetrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/LL/zgetrf.f b/SRC/VARIANTS/lu/LL/zgetrf.f index 85db51b845..ead3b03699 100644 --- a/SRC/VARIANTS/lu/LL/zgetrf.f +++ b/SRC/VARIANTS/lu/LL/zgetrf.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/REC/cgetrf.f b/SRC/VARIANTS/lu/REC/cgetrf.f index c9916dd017..3ae5ccbf18 100644 --- a/SRC/VARIANTS/lu/REC/cgetrf.f +++ b/SRC/VARIANTS/lu/REC/cgetrf.f @@ -133,6 +133,7 @@ * * ===================================================================== SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/REC/dgetrf.f b/SRC/VARIANTS/lu/REC/dgetrf.f index d5057b3245..7e10b8d81d 100644 --- a/SRC/VARIANTS/lu/REC/dgetrf.f +++ b/SRC/VARIANTS/lu/REC/dgetrf.f @@ -133,6 +133,7 @@ * * ===================================================================== SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/REC/sgetrf.f b/SRC/VARIANTS/lu/REC/sgetrf.f index 15e0809435..0dc562b951 100644 --- a/SRC/VARIANTS/lu/REC/sgetrf.f +++ b/SRC/VARIANTS/lu/REC/sgetrf.f @@ -133,6 +133,7 @@ * * ===================================================================== SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/lu/REC/zgetrf.f b/SRC/VARIANTS/lu/REC/zgetrf.f index 3b7055626d..3cdb6b1658 100644 --- a/SRC/VARIANTS/lu/REC/zgetrf.f +++ b/SRC/VARIANTS/lu/REC/zgetrf.f @@ -133,6 +133,7 @@ * * ===================================================================== SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/qr/LL/cgeqrf.f b/SRC/VARIANTS/qr/LL/cgeqrf.f index d3f78b8bef..5fb4ab8b39 100644 --- a/SRC/VARIANTS/qr/LL/cgeqrf.f +++ b/SRC/VARIANTS/qr/LL/cgeqrf.f @@ -149,6 +149,7 @@ C> * ===================================================================== SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/qr/LL/dgeqrf.f b/SRC/VARIANTS/qr/LL/dgeqrf.f index dd8baab4dc..0d157bdddd 100644 --- a/SRC/VARIANTS/qr/LL/dgeqrf.f +++ b/SRC/VARIANTS/qr/LL/dgeqrf.f @@ -149,6 +149,7 @@ C> * ===================================================================== SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/qr/LL/sgeqrf.f b/SRC/VARIANTS/qr/LL/sgeqrf.f index 93dc48fa5c..13663f4a9f 100644 --- a/SRC/VARIANTS/qr/LL/sgeqrf.f +++ b/SRC/VARIANTS/qr/LL/sgeqrf.f @@ -149,6 +149,7 @@ C> * ===================================================================== SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/VARIANTS/qr/LL/zgeqrf.f b/SRC/VARIANTS/qr/LL/zgeqrf.f index 3ef07bfc7e..9be8bead34 100644 --- a/SRC/VARIANTS/qr/LL/zgeqrf.f +++ b/SRC/VARIANTS/qr/LL/zgeqrf.f @@ -149,6 +149,7 @@ C> * ===================================================================== SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cbbcsd.f b/SRC/cbbcsd.f index a8df11af33..848e4dabf1 100644 --- a/SRC/cbbcsd.f +++ b/SRC/cbbcsd.f @@ -328,6 +328,7 @@ SUBROUTINE CBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, $ THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cbdsqr.f b/SRC/cbdsqr.f index 83ea70c1f1..4e08891309 100644 --- a/SRC/cbdsqr.f +++ b/SRC/cbdsqr.f @@ -230,6 +230,7 @@ * ===================================================================== SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbbrd.f b/SRC/cgbbrd.f index 489119a0ca..07941db5a6 100644 --- a/SRC/cgbbrd.f +++ b/SRC/cgbbrd.f @@ -188,6 +188,7 @@ * ===================================================================== SUBROUTINE CGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbcon.f b/SRC/cgbcon.f index 8d65f48999..19eb0fdfd0 100644 --- a/SRC/cgbcon.f +++ b/SRC/cgbcon.f @@ -143,6 +143,7 @@ SUBROUTINE CGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, $ RCOND, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbequ.f b/SRC/cgbequ.f index 363b439c24..3f29d7a3f3 100644 --- a/SRC/cgbequ.f +++ b/SRC/cgbequ.f @@ -150,6 +150,7 @@ SUBROUTINE CGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbequb.f b/SRC/cgbequb.f index a854eeae1a..40e7ed5b30 100644 --- a/SRC/cgbequb.f +++ b/SRC/cgbequb.f @@ -157,6 +157,7 @@ SUBROUTINE CGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbrfs.f b/SRC/cgbrfs.f index cb78043d4f..a17883fce9 100644 --- a/SRC/cgbrfs.f +++ b/SRC/cgbrfs.f @@ -202,6 +202,7 @@ SUBROUTINE CGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbrfsx.f b/SRC/cgbrfsx.f index ef7140408a..ab142be46d 100644 --- a/SRC/cgbrfsx.f +++ b/SRC/cgbrfsx.f @@ -436,6 +436,7 @@ SUBROUTINE CGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB, $ BERR, N_ERR_BNDS, ERR_BNDS_NORM, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbsv.f b/SRC/cgbsv.f index 29d4318b3b..55073706d1 100644 --- a/SRC/cgbsv.f +++ b/SRC/cgbsv.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE CGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbsvx.f b/SRC/cgbsvx.f index a24e0952e7..f4d5358349 100644 --- a/SRC/cgbsvx.f +++ b/SRC/cgbsvx.f @@ -365,6 +365,7 @@ SUBROUTINE CGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbsvxx.f b/SRC/cgbsvxx.f index 744fd47054..73b3e3ba68 100644 --- a/SRC/cgbsvxx.f +++ b/SRC/cgbsvxx.f @@ -559,6 +559,7 @@ SUBROUTINE CGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, $ RCOND, RPVGRW, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbtf2.f b/SRC/cgbtf2.f index f2ad8e0ccc..b93a1c3986 100644 --- a/SRC/cgbtf2.f +++ b/SRC/cgbtf2.f @@ -140,6 +140,7 @@ *> * ===================================================================== SUBROUTINE CGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbtrf.f b/SRC/cgbtrf.f index 35bd7fcaf3..4f0da00cc3 100644 --- a/SRC/cgbtrf.f +++ b/SRC/cgbtrf.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgbtrs.f b/SRC/cgbtrs.f index 59098095bf..d0e3810c71 100644 --- a/SRC/cgbtrs.f +++ b/SRC/cgbtrs.f @@ -134,6 +134,7 @@ SUBROUTINE CGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, $ LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgebak.f b/SRC/cgebak.f index 72abc84288..3b7538c824 100644 --- a/SRC/cgebak.f +++ b/SRC/cgebak.f @@ -126,6 +126,7 @@ * ===================================================================== SUBROUTINE CGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgebal.f b/SRC/cgebal.f index 3f6fde2229..4ffdf2f884 100644 --- a/SRC/cgebal.f +++ b/SRC/cgebal.f @@ -160,6 +160,7 @@ *> * ===================================================================== SUBROUTINE CGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgebd2.f b/SRC/cgebd2.f index 9b094dba54..b9be813007 100644 --- a/SRC/cgebd2.f +++ b/SRC/cgebd2.f @@ -185,6 +185,7 @@ *> * ===================================================================== SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgebrd.f b/SRC/cgebrd.f index 04681d7bf3..4d61a5be37 100644 --- a/SRC/cgebrd.f +++ b/SRC/cgebrd.f @@ -202,6 +202,7 @@ * ===================================================================== SUBROUTINE CGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgecon.f b/SRC/cgecon.f index a91dc06c82..cad4e8bb8c 100644 --- a/SRC/cgecon.f +++ b/SRC/cgecon.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE CGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeequ.f b/SRC/cgeequ.f index 700dedec51..3b98ba4d0b 100644 --- a/SRC/cgeequ.f +++ b/SRC/cgeequ.f @@ -135,6 +135,7 @@ * ===================================================================== SUBROUTINE CGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeequb.f b/SRC/cgeequb.f index 2a949c2b1b..2f757a6f95 100644 --- a/SRC/cgeequb.f +++ b/SRC/cgeequb.f @@ -142,6 +142,7 @@ * ===================================================================== SUBROUTINE CGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgees.f b/SRC/cgees.f index ecca52d357..36269985e1 100644 --- a/SRC/cgees.f +++ b/SRC/cgees.f @@ -192,6 +192,7 @@ * ===================================================================== SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, $ LDVS, WORK, LWORK, RWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeesx.f b/SRC/cgeesx.f index 461a8d536e..fd717973fb 100644 --- a/SRC/cgeesx.f +++ b/SRC/cgeesx.f @@ -235,6 +235,7 @@ SUBROUTINE CGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, $ W, $ VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, $ BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgehd2.f b/SRC/cgehd2.f index 3562b41016..4a5400667f 100644 --- a/SRC/cgehd2.f +++ b/SRC/cgehd2.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE CGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgehrd.f b/SRC/cgehrd.f index c8ab6ccd2f..3a01ef08ef 100644 --- a/SRC/cgehrd.f +++ b/SRC/cgehrd.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgejsv.f b/SRC/cgejsv.f index 17947272d2..ad37a587c6 100644 --- a/SRC/cgejsv.f +++ b/SRC/cgejsv.f @@ -19,9 +19,9 @@ * SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) +* IMPLICIT NONE * * .. Scalar Arguments .. -* IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. @@ -563,13 +563,13 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. - IMPLICIT NONE INTEGER INFO, LDA, LDU, LDV, LWORK, LRWORK, M, N * .. * .. Array Arguments .. diff --git a/SRC/cgelq.f b/SRC/cgelq.f index ab947b34bd..5a92164b7e 100644 --- a/SRC/cgelq.f +++ b/SRC/cgelq.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE CGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgelq2.f b/SRC/cgelq2.f index 8c83eb2648..97bc676b17 100644 --- a/SRC/cgelq2.f +++ b/SRC/cgelq2.f @@ -124,6 +124,7 @@ *> * ===================================================================== SUBROUTINE CGELQ2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgelqf.f b/SRC/cgelqf.f index 03c2f9a640..0bbc534f7c 100644 --- a/SRC/cgelqf.f +++ b/SRC/cgelqf.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE CGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgelqt.f b/SRC/cgelqt.f index 5f4bb59063..134b1108e5 100644 --- a/SRC/cgelqt.f +++ b/SRC/cgelqt.f @@ -121,6 +121,7 @@ *> * ===================================================================== SUBROUTINE CGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgelqt3.f b/SRC/cgelqt3.f index fe56b576c4..c8c69202a4 100644 --- a/SRC/cgelqt3.f +++ b/SRC/cgelqt3.f @@ -113,6 +113,7 @@ *> * ===================================================================== RECURSIVE SUBROUTINE CGELQT3( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgels.f b/SRC/cgels.f index dd8f7cd966..39d94946c2 100644 --- a/SRC/cgels.f +++ b/SRC/cgels.f @@ -188,6 +188,7 @@ SUBROUTINE CGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgelsd.f b/SRC/cgelsd.f index dc8059579a..11ab07ac26 100644 --- a/SRC/cgelsd.f +++ b/SRC/cgelsd.f @@ -214,6 +214,7 @@ * ===================================================================== SUBROUTINE CGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgelss.f b/SRC/cgelss.f index ea21a2f681..fbadfa09e5 100644 --- a/SRC/cgelss.f +++ b/SRC/cgelss.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgelst.f b/SRC/cgelst.f index 2ad64a2c11..6a938ec09a 100644 --- a/SRC/cgelst.f +++ b/SRC/cgelst.f @@ -199,6 +199,7 @@ SUBROUTINE CGELST( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgelsy.f b/SRC/cgelsy.f index 7f95f65225..557742a9c1 100644 --- a/SRC/cgelsy.f +++ b/SRC/cgelsy.f @@ -208,6 +208,7 @@ SUBROUTINE CGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, $ RANK, $ WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgemlq.f b/SRC/cgemlq.f index e5b02b6693..d2754c768a 100644 --- a/SRC/cgemlq.f +++ b/SRC/cgemlq.f @@ -170,6 +170,7 @@ * ===================================================================== SUBROUTINE CGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgemlqt.f b/SRC/cgemlqt.f index 5e43f0b600..32718d14f6 100644 --- a/SRC/cgemlqt.f +++ b/SRC/cgemlqt.f @@ -150,6 +150,7 @@ * ===================================================================== SUBROUTINE CGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgemqr.f b/SRC/cgemqr.f index 0b7dd9dd71..271a942737 100644 --- a/SRC/cgemqr.f +++ b/SRC/cgemqr.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE CGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgemqrt.f b/SRC/cgemqrt.f index 2e79d564cb..b93c09feb1 100644 --- a/SRC/cgemqrt.f +++ b/SRC/cgemqrt.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeql2.f b/SRC/cgeql2.f index 5bf6a33b5e..a089d267ac 100644 --- a/SRC/cgeql2.f +++ b/SRC/cgeql2.f @@ -118,6 +118,7 @@ *> * ===================================================================== SUBROUTINE CGEQL2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqlf.f b/SRC/cgeqlf.f index 2e5c77012a..d0748cfba6 100644 --- a/SRC/cgeqlf.f +++ b/SRC/cgeqlf.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE CGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqp3.f b/SRC/cgeqp3.f index a4b77877d3..e3193ca77a 100644 --- a/SRC/cgeqp3.f +++ b/SRC/cgeqp3.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqr.f b/SRC/cgeqr.f index 3f286acd02..bb7d0a7b27 100644 --- a/SRC/cgeqr.f +++ b/SRC/cgeqr.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqr2.f b/SRC/cgeqr2.f index 3fb81ae8a8..775d33c515 100644 --- a/SRC/cgeqr2.f +++ b/SRC/cgeqr2.f @@ -125,6 +125,7 @@ *> * ===================================================================== SUBROUTINE CGEQR2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqr2p.f b/SRC/cgeqr2p.f index 758f6c1773..72e3945780 100644 --- a/SRC/cgeqr2p.f +++ b/SRC/cgeqr2p.f @@ -129,6 +129,7 @@ *> * ===================================================================== SUBROUTINE CGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqrf.f b/SRC/cgeqrf.f index c9e575d58d..f7421385b6 100644 --- a/SRC/cgeqrf.f +++ b/SRC/cgeqrf.f @@ -141,6 +141,7 @@ *> * ===================================================================== SUBROUTINE CGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqrfp.f b/SRC/cgeqrfp.f index e3cf23ebae..3873bb3ad0 100644 --- a/SRC/cgeqrfp.f +++ b/SRC/cgeqrfp.f @@ -145,6 +145,7 @@ *> * ===================================================================== SUBROUTINE CGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqrt.f b/SRC/cgeqrt.f index 37b2833ca6..65c0e634cf 100644 --- a/SRC/cgeqrt.f +++ b/SRC/cgeqrt.f @@ -136,6 +136,7 @@ *> * ===================================================================== SUBROUTINE CGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqrt2.f b/SRC/cgeqrt2.f index 738ea8b24b..45acfe5203 100644 --- a/SRC/cgeqrt2.f +++ b/SRC/cgeqrt2.f @@ -122,6 +122,7 @@ *> * ===================================================================== SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgeqrt3.f b/SRC/cgeqrt3.f index 8f04ea2052..53b23b4d5b 100644 --- a/SRC/cgeqrt3.f +++ b/SRC/cgeqrt3.f @@ -127,6 +127,7 @@ *> * ===================================================================== RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgerfs.f b/SRC/cgerfs.f index 0b7e536972..918d422a0f 100644 --- a/SRC/cgerfs.f +++ b/SRC/cgerfs.f @@ -182,6 +182,7 @@ SUBROUTINE CGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgerfsx.f b/SRC/cgerfsx.f index 3dee1ab75f..e707e9cf22 100644 --- a/SRC/cgerfsx.f +++ b/SRC/cgerfsx.f @@ -410,6 +410,7 @@ SUBROUTINE CGERFSX( TRANS, EQUED, N, NRHS, A, LDA, AF, LDAF, $ R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgerq2.f b/SRC/cgerq2.f index 2b53c58933..3b8a959387 100644 --- a/SRC/cgerq2.f +++ b/SRC/cgerq2.f @@ -118,6 +118,7 @@ *> * ===================================================================== SUBROUTINE CGERQ2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgerqf.f b/SRC/cgerqf.f index d8b3ede1ae..bf7f7c52b8 100644 --- a/SRC/cgerqf.f +++ b/SRC/cgerqf.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE CGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgesc2.f b/SRC/cgesc2.f index 08780ccbf2..79d0d23d84 100644 --- a/SRC/cgesc2.f +++ b/SRC/cgesc2.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE CGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgesv.f b/SRC/cgesv.f index 6824ba3efb..06342380bc 100644 --- a/SRC/cgesv.f +++ b/SRC/cgesv.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE CGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgesvd.f b/SRC/cgesvd.f index 9fa946c2a3..656e3dfe3c 100644 --- a/SRC/cgesvd.f +++ b/SRC/cgesvd.f @@ -210,6 +210,7 @@ SUBROUTINE CGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, $ LDVT, $ WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgesvdq.f b/SRC/cgesvdq.f index a4f1c32ea5..c309194f37 100644 --- a/SRC/cgesvdq.f +++ b/SRC/cgesvdq.f @@ -408,8 +408,8 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA, $ S, U, LDU, V, LDV, NUMRANK, IWORK, LIWORK, $ CWORK, LCWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * .. Scalar Arguments .. - IMPLICIT NONE CHARACTER JOBA, JOBP, JOBR, JOBU, JOBV INTEGER M, N, LDA, LDU, LDV, NUMRANK, LIWORK, LCWORK, LRWORK, $ INFO diff --git a/SRC/cgesvdx.f b/SRC/cgesvdx.f index baf95900ea..61ab69beff 100644 --- a/SRC/cgesvdx.f +++ b/SRC/cgesvdx.f @@ -265,6 +265,7 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, RWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgesvx.f b/SRC/cgesvx.f index 9bd500c5d1..0b4c9d869b 100644 --- a/SRC/cgesvx.f +++ b/SRC/cgesvx.f @@ -346,6 +346,7 @@ SUBROUTINE CGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, $ IPIV, $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgesvxx.f b/SRC/cgesvxx.f index b61fb1eb32..de7044eb3f 100644 --- a/SRC/cgesvxx.f +++ b/SRC/cgesvxx.f @@ -539,6 +539,7 @@ SUBROUTINE CGESVXX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, $ BERR, N_ERR_BNDS, ERR_BNDS_NORM, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgetc2.f b/SRC/cgetc2.f index d5da3ba070..85e54e20e1 100644 --- a/SRC/cgetc2.f +++ b/SRC/cgetc2.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE CGETC2( N, A, LDA, IPIV, JPIV, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgetf2.f b/SRC/cgetf2.f index 02c6f3cf6d..cd0b7b204f 100644 --- a/SRC/cgetf2.f +++ b/SRC/cgetf2.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE CGETF2( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgetrf.f b/SRC/cgetrf.f index 460ea24d04..7d1acdb07d 100644 --- a/SRC/cgetrf.f +++ b/SRC/cgetrf.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgetrf2.f b/SRC/cgetrf2.f index 8622918d3a..03dca2c54a 100644 --- a/SRC/cgetrf2.f +++ b/SRC/cgetrf2.f @@ -110,6 +110,7 @@ * * ===================================================================== RECURSIVE SUBROUTINE CGETRF2( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgetri.f b/SRC/cgetri.f index 504721ce0c..ca72a30c3e 100644 --- a/SRC/cgetri.f +++ b/SRC/cgetri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgetrs.f b/SRC/cgetrs.f index fe4461cc48..68e51c896a 100644 --- a/SRC/cgetrs.f +++ b/SRC/cgetrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE CGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgetsls.f b/SRC/cgetsls.f index 87bf2dd71a..dcd9a0dd9a 100644 --- a/SRC/cgetsls.f +++ b/SRC/cgetsls.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggbak.f b/SRC/cggbak.f index 632dd151b7..5db45e5129 100644 --- a/SRC/cggbak.f +++ b/SRC/cggbak.f @@ -144,6 +144,7 @@ SUBROUTINE CGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, $ V, $ LDV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggbal.f b/SRC/cggbal.f index f9f413eba1..4850184761 100644 --- a/SRC/cggbal.f +++ b/SRC/cggbal.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE CGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgges.f b/SRC/cgges.f index 94f7894508..85bc2b0ee1 100644 --- a/SRC/cgges.f +++ b/SRC/cgges.f @@ -266,6 +266,7 @@ SUBROUTINE CGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, $ SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, RWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgges3.f b/SRC/cgges3.f index 6a32a9d486..05dbc7fa79 100644 --- a/SRC/cgges3.f +++ b/SRC/cgges3.f @@ -265,6 +265,7 @@ SUBROUTINE CGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, $ WORK, LWORK, RWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggesx.f b/SRC/cggesx.f index ab81145cc3..379d21c4ea 100644 --- a/SRC/cggesx.f +++ b/SRC/cggesx.f @@ -326,6 +326,7 @@ SUBROUTINE CGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, $ B, LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, $ LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, $ IWORK, LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggev.f b/SRC/cggev.f index b001813962..4266cf959c 100644 --- a/SRC/cggev.f +++ b/SRC/cggev.f @@ -212,6 +212,7 @@ * ===================================================================== SUBROUTINE CGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggev3.f b/SRC/cggev3.f index 17a88a325c..ce6b486a32 100644 --- a/SRC/cggev3.f +++ b/SRC/cggev3.f @@ -213,6 +213,7 @@ SUBROUTINE CGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, $ BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggevx.f b/SRC/cggevx.f index 7a9a9dd183..c1d34c18c6 100644 --- a/SRC/cggevx.f +++ b/SRC/cggevx.f @@ -370,6 +370,7 @@ SUBROUTINE CGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, $ ALPHA, BETA, VL, LDVL, VR, LDVR, ILO, IHI, $ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, $ WORK, LWORK, RWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggglm.f b/SRC/cggglm.f index 741db721fa..46c4a2c730 100644 --- a/SRC/cggglm.f +++ b/SRC/cggglm.f @@ -191,6 +191,7 @@ SUBROUTINE CGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgghrd.f b/SRC/cgghrd.f index 82014eb24b..8e4416375b 100644 --- a/SRC/cgghrd.f +++ b/SRC/cgghrd.f @@ -200,6 +200,7 @@ SUBROUTINE CGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, $ Q, $ LDQ, Z, LDZ, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgglse.f b/SRC/cgglse.f index 5a776d59c9..0080717c43 100644 --- a/SRC/cgglse.f +++ b/SRC/cgglse.f @@ -186,6 +186,7 @@ SUBROUTINE CGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggqrf.f b/SRC/cggqrf.f index 63ef2afff7..16cfe38bc3 100644 --- a/SRC/cggqrf.f +++ b/SRC/cggqrf.f @@ -210,6 +210,7 @@ * ===================================================================== SUBROUTINE CGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggrqf.f b/SRC/cggrqf.f index cf8b33c9b9..b02999ac47 100644 --- a/SRC/cggrqf.f +++ b/SRC/cggrqf.f @@ -209,6 +209,7 @@ * ===================================================================== SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cggsvd3.f b/SRC/cggsvd3.f index 09549653e1..3d64be11ad 100644 --- a/SRC/cggsvd3.f +++ b/SRC/cggsvd3.f @@ -349,6 +349,7 @@ SUBROUTINE CGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, RWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgsvj1.f b/SRC/cgsvj1.f index 6ad2fb01e7..4286db374e 100644 --- a/SRC/cgsvj1.f +++ b/SRC/cgsvj1.f @@ -231,6 +231,7 @@ * ===================================================================== SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgtcon.f b/SRC/cgtcon.f index 23928ef119..8acd7bf561 100644 --- a/SRC/cgtcon.f +++ b/SRC/cgtcon.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE CGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgtrfs.f b/SRC/cgtrfs.f index f0a00854bd..5ee0341793 100644 --- a/SRC/cgtrfs.f +++ b/SRC/cgtrfs.f @@ -206,6 +206,7 @@ SUBROUTINE CGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, $ DU2, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgtsv.f b/SRC/cgtsv.f index 94a8b4369b..83ed71d698 100644 --- a/SRC/cgtsv.f +++ b/SRC/cgtsv.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE CGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgtsvx.f b/SRC/cgtsvx.f index dedc4de9ee..83fb85f9fb 100644 --- a/SRC/cgtsvx.f +++ b/SRC/cgtsvx.f @@ -290,6 +290,7 @@ SUBROUTINE CGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, $ DUF, $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgttrf.f b/SRC/cgttrf.f index 10058444f1..71220bb9db 100644 --- a/SRC/cgttrf.f +++ b/SRC/cgttrf.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE CGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgttrs.f b/SRC/cgttrs.f index 40a8cbb2e0..9ff93a4cf2 100644 --- a/SRC/cgttrs.f +++ b/SRC/cgttrs.f @@ -134,6 +134,7 @@ SUBROUTINE CGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, $ LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cgtts2.f b/SRC/cgtts2.f index 6ba5132ee1..a3b6ee7921 100644 --- a/SRC/cgtts2.f +++ b/SRC/cgtts2.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE CGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, $ LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chbev.f b/SRC/chbev.f index 5614e85146..a62c924ae7 100644 --- a/SRC/chbev.f +++ b/SRC/chbev.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE CHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chbevd.f b/SRC/chbevd.f index 10eb16c67f..5a4eece550 100644 --- a/SRC/chbevd.f +++ b/SRC/chbevd.f @@ -205,6 +205,7 @@ SUBROUTINE CHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, $ WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chbevx.f b/SRC/chbevx.f index 6667776400..7ebe76ac21 100644 --- a/SRC/chbevx.f +++ b/SRC/chbevx.f @@ -263,6 +263,7 @@ SUBROUTINE CHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, $ VL, $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chbgst.f b/SRC/chbgst.f index c4ec9d6eb0..9b12de6981 100644 --- a/SRC/chbgst.f +++ b/SRC/chbgst.f @@ -161,6 +161,7 @@ SUBROUTINE CHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, $ X, $ LDX, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chbgv.f b/SRC/chbgv.f index 3b8fd70643..16c299efec 100644 --- a/SRC/chbgv.f +++ b/SRC/chbgv.f @@ -179,6 +179,7 @@ SUBROUTINE CHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, $ LDZ, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chbgvd.f b/SRC/chbgvd.f index 3c8d7caf41..69051cbfc2 100644 --- a/SRC/chbgvd.f +++ b/SRC/chbgvd.f @@ -242,6 +242,7 @@ SUBROUTINE CHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, $ W, $ Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chbgvx.f b/SRC/chbgvx.f index 2260c72bf0..581d42900d 100644 --- a/SRC/chbgvx.f +++ b/SRC/chbgvx.f @@ -295,6 +295,7 @@ SUBROUTINE CHBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chbtrd.f b/SRC/chbtrd.f index ff057ca0ae..322dcbf896 100644 --- a/SRC/chbtrd.f +++ b/SRC/chbtrd.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE CHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/checon.f b/SRC/checon.f index 0c1c53aa64..1a3e88e1b3 100644 --- a/SRC/checon.f +++ b/SRC/checon.f @@ -120,6 +120,7 @@ * ===================================================================== SUBROUTINE CHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/checon_3.f b/SRC/checon_3.f index b6b5a8200e..5da7494dae 100644 --- a/SRC/checon_3.f +++ b/SRC/checon_3.f @@ -161,6 +161,7 @@ * ===================================================================== SUBROUTINE CHECON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/checon_rook.f b/SRC/checon_rook.f index cde1f69392..b07549a42a 100644 --- a/SRC/checon_rook.f +++ b/SRC/checon_rook.f @@ -135,6 +135,7 @@ SUBROUTINE CHECON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cheequb.f b/SRC/cheequb.f index 742d6c5f51..d8388b4f60 100644 --- a/SRC/cheequb.f +++ b/SRC/cheequb.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE CHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cheev.f b/SRC/cheev.f index 1c458fe684..19779903e0 100644 --- a/SRC/cheev.f +++ b/SRC/cheev.f @@ -135,6 +135,7 @@ * ===================================================================== SUBROUTINE CHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cheevd.f b/SRC/cheevd.f index 3c3b81d1df..e511267783 100644 --- a/SRC/cheevd.f +++ b/SRC/cheevd.f @@ -194,6 +194,7 @@ SUBROUTINE CHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, $ RWORK, $ LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cheevr.f b/SRC/cheevr.f index d0e218769d..bab9353f8a 100644 --- a/SRC/cheevr.f +++ b/SRC/cheevr.f @@ -370,6 +370,7 @@ SUBROUTINE CHEEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, $ IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cheevx.f b/SRC/cheevx.f index dd09aa8a78..c68b4a7c93 100644 --- a/SRC/cheevx.f +++ b/SRC/cheevx.f @@ -255,6 +255,7 @@ SUBROUTINE CHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, $ IU, $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chegs2.f b/SRC/chegs2.f index e6d8521ced..5ab70d4da1 100644 --- a/SRC/chegs2.f +++ b/SRC/chegs2.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chegst.f b/SRC/chegst.f index f00db48c8c..b8337a6e79 100644 --- a/SRC/chegst.f +++ b/SRC/chegst.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE CHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chegv.f b/SRC/chegv.f index 7b6a8987c1..b71b6c0fbe 100644 --- a/SRC/chegv.f +++ b/SRC/chegv.f @@ -177,6 +177,7 @@ SUBROUTINE CHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, $ WORK, $ LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chegvd.f b/SRC/chegvd.f index febc783a1d..1a6ab41853 100644 --- a/SRC/chegvd.f +++ b/SRC/chegvd.f @@ -239,6 +239,7 @@ SUBROUTINE CHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, $ WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chegvx.f b/SRC/chegvx.f index a0f400593a..4770a0f46c 100644 --- a/SRC/chegvx.f +++ b/SRC/chegvx.f @@ -302,6 +302,7 @@ SUBROUTINE CHEGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, RWORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cherfs.f b/SRC/cherfs.f index d7775e2a79..2f06add2b2 100644 --- a/SRC/cherfs.f +++ b/SRC/cherfs.f @@ -188,6 +188,7 @@ SUBROUTINE CHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cherfsx.f b/SRC/cherfsx.f index f5e44a84a3..c29cd53038 100644 --- a/SRC/cherfsx.f +++ b/SRC/cherfsx.f @@ -397,6 +397,7 @@ SUBROUTINE CHERFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chesv.f b/SRC/chesv.f index 60a669756e..7e10d33cd1 100644 --- a/SRC/chesv.f +++ b/SRC/chesv.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE CHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chesv_aa.f b/SRC/chesv_aa.f index ccfe70e540..132a29d821 100644 --- a/SRC/chesv_aa.f +++ b/SRC/chesv_aa.f @@ -157,6 +157,7 @@ * ===================================================================== SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chesv_rk.f b/SRC/chesv_rk.f index 668761cd8c..e303eee64c 100644 --- a/SRC/chesv_rk.f +++ b/SRC/chesv_rk.f @@ -224,6 +224,7 @@ SUBROUTINE CHESV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chesv_rook.f b/SRC/chesv_rook.f index b1b83ba234..8d19d23f74 100644 --- a/SRC/chesv_rook.f +++ b/SRC/chesv_rook.f @@ -201,6 +201,7 @@ SUBROUTINE CHESV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chesvx.f b/SRC/chesvx.f index a2e1451fac..951497301f 100644 --- a/SRC/chesvx.f +++ b/SRC/chesvx.f @@ -281,6 +281,7 @@ SUBROUTINE CHESVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chesvxx.f b/SRC/chesvxx.f index 9811ed0389..93f2ec379c 100644 --- a/SRC/chesvxx.f +++ b/SRC/chesvxx.f @@ -505,6 +505,7 @@ SUBROUTINE CHESVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cheswapr.f b/SRC/cheswapr.f index 8524953279..ef6b3af720 100644 --- a/SRC/cheswapr.f +++ b/SRC/cheswapr.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetd2.f b/SRC/chetd2.f index 80a437c8f3..b261151824 100644 --- a/SRC/chetd2.f +++ b/SRC/chetd2.f @@ -170,6 +170,7 @@ *> * ===================================================================== SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetf2.f b/SRC/chetf2.f index b1629c9dd8..0a6adfcef1 100644 --- a/SRC/chetf2.f +++ b/SRC/chetf2.f @@ -181,6 +181,7 @@ *> * ===================================================================== SUBROUTINE CHETF2( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetf2_rk.f b/SRC/chetf2_rk.f index 7bd29c3b10..e9b4274344 100644 --- a/SRC/chetf2_rk.f +++ b/SRC/chetf2_rk.f @@ -236,6 +236,7 @@ * * ===================================================================== SUBROUTINE CHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetf2_rook.f b/SRC/chetf2_rook.f index 68a9554166..1f49b604b0 100644 --- a/SRC/chetf2_rook.f +++ b/SRC/chetf2_rook.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE CHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetrd.f b/SRC/chetrd.f index 5d0ac62cc2..11f272db07 100644 --- a/SRC/chetrd.f +++ b/SRC/chetrd.f @@ -188,6 +188,7 @@ * ===================================================================== SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetrf.f b/SRC/chetrf.f index c013b71b93..8388d1e9e7 100644 --- a/SRC/chetrf.f +++ b/SRC/chetrf.f @@ -172,6 +172,7 @@ *> * ===================================================================== SUBROUTINE CHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetrf_rk.f b/SRC/chetrf_rk.f index 5bdd4d7622..4776f6e346 100644 --- a/SRC/chetrf_rk.f +++ b/SRC/chetrf_rk.f @@ -254,6 +254,7 @@ * ===================================================================== SUBROUTINE CHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetrf_rook.f b/SRC/chetrf_rook.f index 96dba17bcb..5ddbaa2e47 100644 --- a/SRC/chetrf_rook.f +++ b/SRC/chetrf_rook.f @@ -208,6 +208,7 @@ * ===================================================================== SUBROUTINE CHETRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetri.f b/SRC/chetri.f index c716f9c27b..9e8baaab87 100644 --- a/SRC/chetri.f +++ b/SRC/chetri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetri2.f b/SRC/chetri2.f index 1907f97ea0..36ceeb8e78 100644 --- a/SRC/chetri2.f +++ b/SRC/chetri2.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE CHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetri2x.f b/SRC/chetri2x.f index 92c2d13db9..cc5bc8bdc9 100644 --- a/SRC/chetri2x.f +++ b/SRC/chetri2x.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetri_3.f b/SRC/chetri_3.f index 8a05598490..15732d6f15 100644 --- a/SRC/chetri_3.f +++ b/SRC/chetri_3.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE CHETRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetri_3x.f b/SRC/chetri_3x.f index eabd519545..15b5fab8fd 100644 --- a/SRC/chetri_3x.f +++ b/SRC/chetri_3x.f @@ -155,6 +155,7 @@ * ===================================================================== SUBROUTINE CHETRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetri_rook.f b/SRC/chetri_rook.f index a1b28ea4ce..dfa7d69801 100644 --- a/SRC/chetri_rook.f +++ b/SRC/chetri_rook.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE CHETRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetrs.f b/SRC/chetrs.f index 81f3a995ee..444ad11c0c 100644 --- a/SRC/chetrs.f +++ b/SRC/chetrs.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE CHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetrs2.f b/SRC/chetrs2.f index a41ff67dfb..64db0da356 100644 --- a/SRC/chetrs2.f +++ b/SRC/chetrs2.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetrs_3.f b/SRC/chetrs_3.f index 4142a305e9..1ccca5850c 100644 --- a/SRC/chetrs_3.f +++ b/SRC/chetrs_3.f @@ -160,6 +160,7 @@ * ===================================================================== SUBROUTINE CHETRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chetrs_rook.f b/SRC/chetrs_rook.f index 0cc3966dd9..bf766ccd3c 100644 --- a/SRC/chetrs_rook.f +++ b/SRC/chetrs_rook.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE CHETRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chfrk.f b/SRC/chfrk.f index 7985bc70a1..a20cfd225f 100644 --- a/SRC/chfrk.f +++ b/SRC/chfrk.f @@ -164,6 +164,7 @@ SUBROUTINE CHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, $ BETA, $ C ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chgeqz.f b/SRC/chgeqz.f index 8865e12868..5adce73c0e 100644 --- a/SRC/chgeqz.f +++ b/SRC/chgeqz.f @@ -280,6 +280,7 @@ SUBROUTINE CHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, $ LDT, $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chla_transtype.f b/SRC/chla_transtype.f index d13d8f71d8..ba55590de0 100644 --- a/SRC/chla_transtype.f +++ b/SRC/chla_transtype.f @@ -53,6 +53,7 @@ * * ===================================================================== CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpcon.f b/SRC/chpcon.f index 314fafbe33..d09af5e2c6 100644 --- a/SRC/chpcon.f +++ b/SRC/chpcon.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE CHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpev.f b/SRC/chpev.f index a2225063f4..1cfa995b6f 100644 --- a/SRC/chpev.f +++ b/SRC/chpev.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpevd.f b/SRC/chpevd.f index f2dd58fae2..fd571568a3 100644 --- a/SRC/chpevd.f +++ b/SRC/chpevd.f @@ -189,6 +189,7 @@ * ===================================================================== SUBROUTINE CHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpevx.f b/SRC/chpevx.f index d8fe1d4e8b..8596a28c4f 100644 --- a/SRC/chpevx.f +++ b/SRC/chpevx.f @@ -235,6 +235,7 @@ SUBROUTINE CHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, $ IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpgst.f b/SRC/chpgst.f index 68c72ac2a2..5422ba499e 100644 --- a/SRC/chpgst.f +++ b/SRC/chpgst.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpgv.f b/SRC/chpgv.f index fed9904207..62fc22b4fa 100644 --- a/SRC/chpgv.f +++ b/SRC/chpgv.f @@ -161,6 +161,7 @@ SUBROUTINE CHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, $ WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpgvd.f b/SRC/chpgvd.f index 7da64cc19d..ae55b4ee21 100644 --- a/SRC/chpgvd.f +++ b/SRC/chpgvd.f @@ -221,6 +221,7 @@ SUBROUTINE CHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, $ WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpgvx.f b/SRC/chpgvx.f index afd7e693f1..3077d5f8aa 100644 --- a/SRC/chpgvx.f +++ b/SRC/chpgvx.f @@ -272,6 +272,7 @@ SUBROUTINE CHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chprfs.f b/SRC/chprfs.f index 27f2309751..38e9566c06 100644 --- a/SRC/chprfs.f +++ b/SRC/chprfs.f @@ -176,6 +176,7 @@ SUBROUTINE CHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, $ FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpsv.f b/SRC/chpsv.f index d50b52cd45..044c30458e 100644 --- a/SRC/chpsv.f +++ b/SRC/chpsv.f @@ -157,6 +157,7 @@ *> * ===================================================================== SUBROUTINE CHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chpsvx.f b/SRC/chpsvx.f index 88ed026d1c..989cf735bf 100644 --- a/SRC/chpsvx.f +++ b/SRC/chpsvx.f @@ -273,6 +273,7 @@ SUBROUTINE CHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, $ X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chptrd.f b/SRC/chptrd.f index fdf632d42b..4bed3cf241 100644 --- a/SRC/chptrd.f +++ b/SRC/chptrd.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chptrf.f b/SRC/chptrf.f index 3ad1907cee..9f43531d35 100644 --- a/SRC/chptrf.f +++ b/SRC/chptrf.f @@ -154,6 +154,7 @@ *> * ===================================================================== SUBROUTINE CHPTRF( UPLO, N, AP, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chptri.f b/SRC/chptri.f index 6b47cebbaf..d97cccd40d 100644 --- a/SRC/chptri.f +++ b/SRC/chptri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE CHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chptrs.f b/SRC/chptrs.f index 22bbf8d1bc..0da734428d 100644 --- a/SRC/chptrs.f +++ b/SRC/chptrs.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE CHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chsein.f b/SRC/chsein.f index cc3a2325b0..3dd019deaf 100644 --- a/SRC/chsein.f +++ b/SRC/chsein.f @@ -241,6 +241,7 @@ SUBROUTINE CHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, W, $ VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, $ IFAILR, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/chseqr.f b/SRC/chseqr.f index bfa7820eac..2696cf00a1 100644 --- a/SRC/chseqr.f +++ b/SRC/chseqr.f @@ -294,6 +294,7 @@ * ===================================================================== SUBROUTINE CHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gbamv.f b/SRC/cla_gbamv.f index f1989a218b..d57ba063af 100644 --- a/SRC/cla_gbamv.f +++ b/SRC/cla_gbamv.f @@ -183,6 +183,7 @@ * ===================================================================== SUBROUTINE CLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gbrcond_c.f b/SRC/cla_gbrcond_c.f index 44a93cb8c2..a12ef88d39 100644 --- a/SRC/cla_gbrcond_c.f +++ b/SRC/cla_gbrcond_c.f @@ -156,6 +156,7 @@ REAL FUNCTION CLA_GBRCOND_C( TRANS, N, KL, KU, AB, LDAB, AFB, $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, $ RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gbrcond_x.f b/SRC/cla_gbrcond_x.f index 3e93276c3f..64386f5f40 100644 --- a/SRC/cla_gbrcond_x.f +++ b/SRC/cla_gbrcond_x.f @@ -148,6 +148,7 @@ * ===================================================================== REAL FUNCTION CLA_GBRCOND_X( TRANS, N, KL, KU, AB, LDAB, AFB, $ LDAFB, IPIV, X, INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gbrfsx_extended.f b/SRC/cla_gbrfsx_extended.f index b837e404b0..8220d43d51 100644 --- a/SRC/cla_gbrfsx_extended.f +++ b/SRC/cla_gbrfsx_extended.f @@ -406,6 +406,7 @@ SUBROUTINE CLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, $ ERR_BNDS_COMP, RES, AYB, DY, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gbrpvgrw.f b/SRC/cla_gbrpvgrw.f index a33ba34e63..aa4c78d6ad 100644 --- a/SRC/cla_gbrpvgrw.f +++ b/SRC/cla_gbrpvgrw.f @@ -112,6 +112,7 @@ * ===================================================================== REAL FUNCTION CLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, $ LDAFB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_geamv.f b/SRC/cla_geamv.f index 3f70895100..6e81a989e1 100644 --- a/SRC/cla_geamv.f +++ b/SRC/cla_geamv.f @@ -173,6 +173,7 @@ SUBROUTINE CLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, $ BETA, $ Y, INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gercond_c.f b/SRC/cla_gercond_c.f index 1f6189dcc6..6b0c960a6d 100644 --- a/SRC/cla_gercond_c.f +++ b/SRC/cla_gercond_c.f @@ -138,6 +138,7 @@ REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, $ C, $ CAPPLY, INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gercond_x.f b/SRC/cla_gercond_x.f index 2fd8718575..bff3201b07 100644 --- a/SRC/cla_gercond_x.f +++ b/SRC/cla_gercond_x.f @@ -131,6 +131,7 @@ REAL FUNCTION CLA_GERCOND_X( TRANS, N, A, LDA, AF, LDAF, IPIV, $ X, $ INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gerfsx_extended.f b/SRC/cla_gerfsx_extended.f index 053d45a8e4..504f5ee0b3 100644 --- a/SRC/cla_gerfsx_extended.f +++ b/SRC/cla_gerfsx_extended.f @@ -393,6 +393,7 @@ SUBROUTINE CLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, $ ERRS_N, ERRS_C, RES, AYB, DY, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_gerpvgrw.f b/SRC/cla_gerpvgrw.f index f996c85ac0..e0918a0de7 100644 --- a/SRC/cla_gerpvgrw.f +++ b/SRC/cla_gerpvgrw.f @@ -93,6 +93,7 @@ * * ===================================================================== REAL FUNCTION CLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_heamv.f b/SRC/cla_heamv.f index ffa12f9c61..dc7413427b 100644 --- a/SRC/cla_heamv.f +++ b/SRC/cla_heamv.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE CLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_hercond_c.f b/SRC/cla_hercond_c.f index 1881f9735f..d600bd3b7e 100644 --- a/SRC/cla_hercond_c.f +++ b/SRC/cla_hercond_c.f @@ -134,6 +134,7 @@ REAL FUNCTION CLA_HERCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, $ C, $ CAPPLY, INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_hercond_x.f b/SRC/cla_hercond_x.f index e7b1c20087..b4a6711a23 100644 --- a/SRC/cla_hercond_x.f +++ b/SRC/cla_hercond_x.f @@ -127,6 +127,7 @@ REAL FUNCTION CLA_HERCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, $ X, $ INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_herfsx_extended.f b/SRC/cla_herfsx_extended.f index 7e5f152941..e07dc5cd24 100644 --- a/SRC/cla_herfsx_extended.f +++ b/SRC/cla_herfsx_extended.f @@ -391,6 +391,7 @@ SUBROUTINE CLA_HERFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_herpvgrw.f b/SRC/cla_herpvgrw.f index 8332c9671a..7aa8e18cba 100644 --- a/SRC/cla_herpvgrw.f +++ b/SRC/cla_herpvgrw.f @@ -119,6 +119,7 @@ REAL FUNCTION CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, $ IPIV, $ WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_lin_berr.f b/SRC/cla_lin_berr.f index d692f5a03b..6341abb7d0 100644 --- a/SRC/cla_lin_berr.f +++ b/SRC/cla_lin_berr.f @@ -96,6 +96,7 @@ * * ===================================================================== SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_porcond_c.f b/SRC/cla_porcond_c.f index cb0be61188..d545664582 100644 --- a/SRC/cla_porcond_c.f +++ b/SRC/cla_porcond_c.f @@ -126,6 +126,7 @@ REAL FUNCTION CLA_PORCOND_C( UPLO, N, A, LDA, AF, LDAF, C, $ CAPPLY, $ INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_porcond_x.f b/SRC/cla_porcond_x.f index 4b475adb01..6b40aa1a94 100644 --- a/SRC/cla_porcond_x.f +++ b/SRC/cla_porcond_x.f @@ -119,6 +119,7 @@ REAL FUNCTION CLA_PORCOND_X( UPLO, N, A, LDA, AF, LDAF, X, $ INFO, $ WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_porfsx_extended.f b/SRC/cla_porfsx_extended.f index 3520f79451..5768b52a59 100644 --- a/SRC/cla_porfsx_extended.f +++ b/SRC/cla_porfsx_extended.f @@ -383,6 +383,7 @@ SUBROUTINE CLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_porpvgrw.f b/SRC/cla_porpvgrw.f index 3742ba7c1d..71a4c31858 100644 --- a/SRC/cla_porpvgrw.f +++ b/SRC/cla_porpvgrw.f @@ -101,6 +101,7 @@ * ===================================================================== REAL FUNCTION CLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, $ WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_syamv.f b/SRC/cla_syamv.f index 1161a8e73e..36ec24d81b 100644 --- a/SRC/cla_syamv.f +++ b/SRC/cla_syamv.f @@ -174,6 +174,7 @@ * ===================================================================== SUBROUTINE CLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_syrcond_c.f b/SRC/cla_syrcond_c.f index 20e4451a88..1ae35b6a20 100644 --- a/SRC/cla_syrcond_c.f +++ b/SRC/cla_syrcond_c.f @@ -134,6 +134,7 @@ REAL FUNCTION CLA_SYRCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, $ C, $ CAPPLY, INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_syrcond_x.f b/SRC/cla_syrcond_x.f index f9e3fef301..0f014563d5 100644 --- a/SRC/cla_syrcond_x.f +++ b/SRC/cla_syrcond_x.f @@ -127,6 +127,7 @@ REAL FUNCTION CLA_SYRCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, $ X, $ INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_syrfsx_extended.f b/SRC/cla_syrfsx_extended.f index c268d5556b..cb35da6de0 100644 --- a/SRC/cla_syrfsx_extended.f +++ b/SRC/cla_syrfsx_extended.f @@ -391,6 +391,7 @@ SUBROUTINE CLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_syrpvgrw.f b/SRC/cla_syrpvgrw.f index 2a2c10d9d1..9754a87dc4 100644 --- a/SRC/cla_syrpvgrw.f +++ b/SRC/cla_syrpvgrw.f @@ -119,6 +119,7 @@ REAL FUNCTION CLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, $ IPIV, $ WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_wwaddw.f b/SRC/cla_wwaddw.f index 8e68cb35c9..432474b7c3 100644 --- a/SRC/cla_wwaddw.f +++ b/SRC/cla_wwaddw.f @@ -76,6 +76,7 @@ * * ===================================================================== SUBROUTINE CLA_WWADDW( N, X, Y, W ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clabrd.f b/SRC/clabrd.f index ca9300a896..af751f1ae0 100644 --- a/SRC/clabrd.f +++ b/SRC/clabrd.f @@ -208,6 +208,7 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, $ Y, $ LDY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clacgv.f b/SRC/clacgv.f index 43ec91a6b9..8569ed2284 100644 --- a/SRC/clacgv.f +++ b/SRC/clacgv.f @@ -69,6 +69,7 @@ * * ===================================================================== SUBROUTINE CLACGV( N, X, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clacn2.f b/SRC/clacn2.f index cb3983d938..f984021b8c 100644 --- a/SRC/clacn2.f +++ b/SRC/clacn2.f @@ -128,6 +128,7 @@ *> * ===================================================================== SUBROUTINE CLACN2( N, V, X, EST, KASE, ISAVE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clacon.f b/SRC/clacon.f index e49048828b..9815b93d50 100644 --- a/SRC/clacon.f +++ b/SRC/clacon.f @@ -109,6 +109,7 @@ *> * ===================================================================== SUBROUTINE CLACON( N, V, X, EST, KASE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clacp2.f b/SRC/clacp2.f index a6f2e5a1cf..fe539b6225 100644 --- a/SRC/clacp2.f +++ b/SRC/clacp2.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CLACP2( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clacpy.f b/SRC/clacpy.f index 16383f90be..f224562f60 100644 --- a/SRC/clacpy.f +++ b/SRC/clacpy.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE CLACPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clacrm.f b/SRC/clacrm.f index 34d91651e2..c30edbac44 100644 --- a/SRC/clacrm.f +++ b/SRC/clacrm.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clacrt.f b/SRC/clacrt.f index ba2b737b4c..1d592cabac 100644 --- a/SRC/clacrt.f +++ b/SRC/clacrt.f @@ -100,6 +100,7 @@ * * ===================================================================== SUBROUTINE CLACRT( N, CX, INCX, CY, INCY, C, S ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cladiv.f b/SRC/cladiv.f index db39bb4e64..6e84b80667 100644 --- a/SRC/cladiv.f +++ b/SRC/cladiv.f @@ -59,6 +59,7 @@ * * ===================================================================== COMPLEX FUNCTION CLADIV( X, Y ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claed0.f b/SRC/claed0.f index 85829bf384..f13e000a4e 100644 --- a/SRC/claed0.f +++ b/SRC/claed0.f @@ -140,6 +140,7 @@ * ===================================================================== SUBROUTINE CLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claed7.f b/SRC/claed7.f index 79be65aea6..448613a721 100644 --- a/SRC/claed7.f +++ b/SRC/claed7.f @@ -245,6 +245,7 @@ SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, $ LDQ, RHO, INDXQ, QSTORE, QPTR, PRMPTR, PERM, $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claed8.f b/SRC/claed8.f index 4626693a6f..52065c400e 100644 --- a/SRC/claed8.f +++ b/SRC/claed8.f @@ -224,6 +224,7 @@ SUBROUTINE CLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, $ DLAMBDA, $ Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, $ GIVCOL, GIVNUM, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claein.f b/SRC/claein.f index 3520ac54c2..efc659a954 100644 --- a/SRC/claein.f +++ b/SRC/claein.f @@ -145,6 +145,7 @@ SUBROUTINE CLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, $ RWORK, $ EPS3, SMLNUM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claesy.f b/SRC/claesy.f index e2115fe8f8..21c561e776 100644 --- a/SRC/claesy.f +++ b/SRC/claesy.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE CLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claev2.f b/SRC/claev2.f index c87ad3a118..b3e351baf8 100644 --- a/SRC/claev2.f +++ b/SRC/claev2.f @@ -116,6 +116,7 @@ *> * ===================================================================== SUBROUTINE CLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clag2z.f b/SRC/clag2z.f index 09f14af2ff..b661fbd5ab 100644 --- a/SRC/clag2z.f +++ b/SRC/clag2z.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clags2.f b/SRC/clags2.f index d1c8ce8d17..c5f3df30ee 100644 --- a/SRC/clags2.f +++ b/SRC/clags2.f @@ -154,6 +154,7 @@ SUBROUTINE CLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, $ CSV, $ SNV, CSQ, SNQ ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clagtm.f b/SRC/clagtm.f index dd17353629..19cbda0672 100644 --- a/SRC/clagtm.f +++ b/SRC/clagtm.f @@ -141,6 +141,7 @@ SUBROUTINE CLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, $ BETA, $ B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clahef.f b/SRC/clahef.f index 9ca876658e..21c9f0986e 100644 --- a/SRC/clahef.f +++ b/SRC/clahef.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE CLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clahef_rk.f b/SRC/clahef_rk.f index 0e6d1ab0c2..0c37ba3a7d 100644 --- a/SRC/clahef_rk.f +++ b/SRC/clahef_rk.f @@ -257,6 +257,7 @@ * ===================================================================== SUBROUTINE CLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clahef_rook.f b/SRC/clahef_rook.f index 7a78a221c2..2f9ccaf1bb 100644 --- a/SRC/clahef_rook.f +++ b/SRC/clahef_rook.f @@ -179,6 +179,7 @@ * ===================================================================== SUBROUTINE CLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clahr2.f b/SRC/clahr2.f index 91d956c962..0fa6f281ee 100644 --- a/SRC/clahr2.f +++ b/SRC/clahr2.f @@ -176,6 +176,7 @@ *> * ===================================================================== SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claic1.f b/SRC/claic1.f index 54aa4d58c8..311d45d64f 100644 --- a/SRC/claic1.f +++ b/SRC/claic1.f @@ -130,6 +130,7 @@ * * ===================================================================== SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clals0.f b/SRC/clals0.f index 5d9005a8f9..acd58866cc 100644 --- a/SRC/clals0.f +++ b/SRC/clals0.f @@ -266,6 +266,7 @@ SUBROUTINE CLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, $ LDBX, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clalsa.f b/SRC/clalsa.f index fb95cd1867..5fa702adb7 100644 --- a/SRC/clalsa.f +++ b/SRC/clalsa.f @@ -263,6 +263,7 @@ SUBROUTINE CLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, $ LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clalsd.f b/SRC/clalsd.f index c613a61db3..6ee0744cb6 100644 --- a/SRC/clalsd.f +++ b/SRC/clalsd.f @@ -175,6 +175,7 @@ * ===================================================================== SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clamswlq.f b/SRC/clamswlq.f index 8f474a3abb..f0ef39651d 100644 --- a/SRC/clamswlq.f +++ b/SRC/clamswlq.f @@ -197,6 +197,7 @@ * ===================================================================== SUBROUTINE CLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clamtsqr.f b/SRC/clamtsqr.f index 13625087f0..26891e4f7b 100644 --- a/SRC/clamtsqr.f +++ b/SRC/clamtsqr.f @@ -198,6 +198,7 @@ * ===================================================================== SUBROUTINE CLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clangb.f b/SRC/clangb.f index cf799a7b19..25405e23e2 100644 --- a/SRC/clangb.f +++ b/SRC/clangb.f @@ -120,6 +120,7 @@ * ===================================================================== REAL FUNCTION CLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clange.f b/SRC/clange.f index 4662346b1b..6e6304f325 100644 --- a/SRC/clange.f +++ b/SRC/clange.f @@ -110,6 +110,7 @@ * * ===================================================================== REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clangt.f b/SRC/clangt.f index 85b9ca36bf..9d6a4679b0 100644 --- a/SRC/clangt.f +++ b/SRC/clangt.f @@ -101,6 +101,7 @@ * * ===================================================================== REAL FUNCTION CLANGT( NORM, N, DL, D, DU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clanhb.f b/SRC/clanhb.f index b1980575fa..57b41ab959 100644 --- a/SRC/clanhb.f +++ b/SRC/clanhb.f @@ -127,6 +127,7 @@ * ===================================================================== REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clanhe.f b/SRC/clanhe.f index f3e2a262d7..aaf07aba56 100644 --- a/SRC/clanhe.f +++ b/SRC/clanhe.f @@ -119,6 +119,7 @@ * * ===================================================================== REAL FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clanhf.f b/SRC/clanhf.f index 5201d10a92..7282b3b0cc 100644 --- a/SRC/clanhf.f +++ b/SRC/clanhf.f @@ -241,6 +241,7 @@ *> * ===================================================================== REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clanhp.f b/SRC/clanhp.f index 03eb794654..1c48f1c18f 100644 --- a/SRC/clanhp.f +++ b/SRC/clanhp.f @@ -112,6 +112,7 @@ * * ===================================================================== REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clanhs.f b/SRC/clanhs.f index ae94c7c2e9..9ce1cabb64 100644 --- a/SRC/clanhs.f +++ b/SRC/clanhs.f @@ -104,6 +104,7 @@ * * ===================================================================== REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clanht.f b/SRC/clanht.f index d609b34b8e..987765e281 100644 --- a/SRC/clanht.f +++ b/SRC/clanht.f @@ -96,6 +96,7 @@ * * ===================================================================== REAL FUNCTION CLANHT( NORM, N, D, E ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clansb.f b/SRC/clansb.f index 7f0b2cf5be..958f2f0b5e 100644 --- a/SRC/clansb.f +++ b/SRC/clansb.f @@ -125,6 +125,7 @@ * ===================================================================== REAL FUNCTION CLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clansp.f b/SRC/clansp.f index 5bc169765d..11741d6b0c 100644 --- a/SRC/clansp.f +++ b/SRC/clansp.f @@ -110,6 +110,7 @@ * * ===================================================================== REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clansy.f b/SRC/clansy.f index 87703918e6..54cb96228e 100644 --- a/SRC/clansy.f +++ b/SRC/clansy.f @@ -118,6 +118,7 @@ * * ===================================================================== REAL FUNCTION CLANSY( NORM, UPLO, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clantb.f b/SRC/clantb.f index be8f68cdc9..988bedcaad 100644 --- a/SRC/clantb.f +++ b/SRC/clantb.f @@ -136,6 +136,7 @@ * ===================================================================== REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clantp.f b/SRC/clantp.f index 41d4e277f4..c645e814d3 100644 --- a/SRC/clantp.f +++ b/SRC/clantp.f @@ -121,6 +121,7 @@ * ===================================================================== REAL FUNCTION CLANTP( NORM, UPLO, DIAG, N, AP, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clantr.f b/SRC/clantr.f index aedff1cecc..c91bec250a 100644 --- a/SRC/clantr.f +++ b/SRC/clantr.f @@ -138,6 +138,7 @@ REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, $ LDA, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clapll.f b/SRC/clapll.f index 155a113deb..0609d1a2c5 100644 --- a/SRC/clapll.f +++ b/SRC/clapll.f @@ -95,6 +95,7 @@ * * ===================================================================== SUBROUTINE CLAPLL( N, X, INCX, Y, INCY, SSMIN ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clapmr.f b/SRC/clapmr.f index 53d09f9b04..fde91c839e 100644 --- a/SRC/clapmr.f +++ b/SRC/clapmr.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CLAPMR( FORWRD, M, N, X, LDX, K ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clapmt.f b/SRC/clapmt.f index af534da01c..285cbaff42 100644 --- a/SRC/clapmt.f +++ b/SRC/clapmt.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CLAPMT( FORWRD, M, N, X, LDX, K ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqgb.f b/SRC/claqgb.f index f1cac82215..9b30e5acdb 100644 --- a/SRC/claqgb.f +++ b/SRC/claqgb.f @@ -156,6 +156,7 @@ SUBROUTINE CLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqge.f b/SRC/claqge.f index ab24b8c902..cee3769705 100644 --- a/SRC/claqge.f +++ b/SRC/claqge.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE CLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqhb.f b/SRC/claqhb.f index d277f87d97..22a601ea38 100644 --- a/SRC/claqhb.f +++ b/SRC/claqhb.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE CLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqhe.f b/SRC/claqhe.f index 52d16b28f7..905e0319bb 100644 --- a/SRC/claqhe.f +++ b/SRC/claqhe.f @@ -129,6 +129,7 @@ * * ===================================================================== SUBROUTINE CLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqhp.f b/SRC/claqhp.f index 60b4a5519b..7a8ad84451 100644 --- a/SRC/claqhp.f +++ b/SRC/claqhp.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE CLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqp2.f b/SRC/claqp2.f index eb06c95e32..ea1e4edfcb 100644 --- a/SRC/claqp2.f +++ b/SRC/claqp2.f @@ -142,6 +142,7 @@ * ===================================================================== SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqps.f b/SRC/claqps.f index 792161640e..07a369f997 100644 --- a/SRC/claqps.f +++ b/SRC/claqps.f @@ -172,6 +172,7 @@ SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, $ VN1, $ VN2, AUXV, F, LDF ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqr0.f b/SRC/claqr0.f index f7727c2f0d..fc453765d9 100644 --- a/SRC/claqr0.f +++ b/SRC/claqr0.f @@ -235,6 +235,7 @@ * ===================================================================== SUBROUTINE CLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqr1.f b/SRC/claqr1.f index 0137a604b8..06fcab1a48 100644 --- a/SRC/claqr1.f +++ b/SRC/claqr1.f @@ -102,6 +102,7 @@ *> * ===================================================================== SUBROUTINE CLAQR1( N, H, LDH, S1, S2, V ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqr2.f b/SRC/claqr2.f index e94d8dc5f3..22aa712349 100644 --- a/SRC/claqr2.f +++ b/SRC/claqr2.f @@ -265,6 +265,7 @@ SUBROUTINE CLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, $ ILOZ, $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqr3.f b/SRC/claqr3.f index b0cea31d12..c0f3530c30 100644 --- a/SRC/claqr3.f +++ b/SRC/claqr3.f @@ -262,6 +262,7 @@ SUBROUTINE CLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, $ ILOZ, $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqr4.f b/SRC/claqr4.f index 7a79af66b7..83e49a5373 100644 --- a/SRC/claqr4.f +++ b/SRC/claqr4.f @@ -243,6 +243,7 @@ * ===================================================================== SUBROUTINE CLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqsb.f b/SRC/claqsb.f index 46b042a516..6d9350d558 100644 --- a/SRC/claqsb.f +++ b/SRC/claqsb.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE CLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqsp.f b/SRC/claqsp.f index a3365c0f90..afc80955b8 100644 --- a/SRC/claqsp.f +++ b/SRC/claqsp.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE CLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claqsy.f b/SRC/claqsy.f index 8fae33ab92..439bd24766 100644 --- a/SRC/claqsy.f +++ b/SRC/claqsy.f @@ -129,6 +129,7 @@ * * ===================================================================== SUBROUTINE CLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clar1v.f b/SRC/clar1v.f index 7ad70aa42d..2098c9bc36 100644 --- a/SRC/clar1v.f +++ b/SRC/clar1v.f @@ -225,6 +225,7 @@ SUBROUTINE CLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clar2v.f b/SRC/clar2v.f index 42ce10218d..7254d6d33f 100644 --- a/SRC/clar2v.f +++ b/SRC/clar2v.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE CLAR2V( N, X, Y, Z, INCX, C, S, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarcm.f b/SRC/clarcm.f index d53af12991..9f163df701 100644 --- a/SRC/clarcm.f +++ b/SRC/clarcm.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarf.f b/SRC/clarf.f index 3e2c0ca206..07b19f55dd 100644 --- a/SRC/clarf.f +++ b/SRC/clarf.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarf1f.f b/SRC/clarf1f.f index f4eae446a1..cb9fc47ee1 100644 --- a/SRC/clarf1f.f +++ b/SRC/clarf1f.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE CLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarf1l.f b/SRC/clarf1l.f index d4c9a77016..a592255f16 100644 --- a/SRC/clarf1l.f +++ b/SRC/clarf1l.f @@ -124,6 +124,7 @@ * * ===================================================================== SUBROUTINE CLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarfb.f b/SRC/clarfb.f index 0691d5b1f4..6a94ee3335 100644 --- a/SRC/clarfb.f +++ b/SRC/clarfb.f @@ -192,6 +192,7 @@ SUBROUTINE CLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, $ LDV, $ T, LDT, C, LDC, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarfg.f b/SRC/clarfg.f index 4b6af0e86d..d9e6cf4bcc 100644 --- a/SRC/clarfg.f +++ b/SRC/clarfg.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarfgp.f b/SRC/clarfgp.f index e81f2494e8..ca24dc8ec4 100644 --- a/SRC/clarfgp.f +++ b/SRC/clarfgp.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarft.f b/SRC/clarft.f index c757f3c172..fd43bbbce6 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -159,6 +159,7 @@ * ===================================================================== RECURSIVE SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, $ TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarfx.f b/SRC/clarfx.f index b17db45b44..c9f8fb2e80 100644 --- a/SRC/clarfx.f +++ b/SRC/clarfx.f @@ -114,6 +114,7 @@ * * ===================================================================== SUBROUTINE CLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarfy.f b/SRC/clarfy.f index f01ba7c0e0..f5ea56c00d 100644 --- a/SRC/clarfy.f +++ b/SRC/clarfy.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clargv.f b/SRC/clargv.f index e6e80e7edd..a784436407 100644 --- a/SRC/clargv.f +++ b/SRC/clargv.f @@ -117,6 +117,7 @@ *> * ===================================================================== SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarnv.f b/SRC/clarnv.f index 05d03a66e6..333eee6ea3 100644 --- a/SRC/clarnv.f +++ b/SRC/clarnv.f @@ -94,6 +94,7 @@ *> * ===================================================================== SUBROUTINE CLARNV( IDIST, ISEED, N, X ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarrv.f b/SRC/clarrv.f index 847a04db35..dac574d75e 100644 --- a/SRC/clarrv.f +++ b/SRC/clarrv.f @@ -281,6 +281,7 @@ SUBROUTINE CLARRV( N, VL, VU, D, L, PIVMIN, $ RTOL1, RTOL2, W, WERR, WGAP, $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarscl2.f b/SRC/clarscl2.f index d22a87fccb..a55cb8d4bb 100644 --- a/SRC/clarscl2.f +++ b/SRC/clarscl2.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE CLARSCL2 ( M, N, D, X, LDX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clartg.f90 b/SRC/clartg.f90 index ffcf2b3e25..553b78236c 100644 --- a/SRC/clartg.f90 +++ b/SRC/clartg.f90 @@ -116,6 +116,7 @@ subroutine CLARTG( f, g, c, s, r ) use LA_CONSTANTS, & only: wp=>sp, zero=>szero, one=>sone, two=>stwo, czero, & safmin=>ssafmin, safmax=>ssafmax + implicit none ! ! -- LAPACK auxiliary routine -- ! -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clartv.f b/SRC/clartv.f index 107690f0ea..4eadcabb29 100644 --- a/SRC/clartv.f +++ b/SRC/clartv.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE CLARTV( N, X, INCX, Y, INCY, C, S, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarz.f b/SRC/clarz.f index c032354e04..df5bf8014d 100644 --- a/SRC/clarz.f +++ b/SRC/clarz.f @@ -142,6 +142,7 @@ *> * ===================================================================== SUBROUTINE CLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarzb.f b/SRC/clarzb.f index 589d1c4a84..59e7dee2e2 100644 --- a/SRC/clarzb.f +++ b/SRC/clarzb.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE CLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clarzt.f b/SRC/clarzt.f index fd6f8cd22e..772308572c 100644 --- a/SRC/clarzt.f +++ b/SRC/clarzt.f @@ -180,6 +180,7 @@ *> * ===================================================================== SUBROUTINE CLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clascl.f b/SRC/clascl.f index 4aafd67ed6..65cfe7e3d8 100644 --- a/SRC/clascl.f +++ b/SRC/clascl.f @@ -139,6 +139,7 @@ * ===================================================================== SUBROUTINE CLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clascl2.f b/SRC/clascl2.f index 0fe5420571..bb450f8a54 100644 --- a/SRC/clascl2.f +++ b/SRC/clascl2.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE CLASCL2 ( M, N, D, X, LDX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claset.f b/SRC/claset.f index 501c9d1c15..088cebeded 100644 --- a/SRC/claset.f +++ b/SRC/claset.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE CLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clasr.f b/SRC/clasr.f index 7166d7c8d7..c1563a87dc 100644 --- a/SRC/clasr.f +++ b/SRC/clasr.f @@ -195,6 +195,7 @@ * * ===================================================================== SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/classq.f90 b/SRC/classq.f90 index 28cf457fdb..55710d5e4c 100644 --- a/SRC/classq.f90 +++ b/SRC/classq.f90 @@ -123,6 +123,7 @@ subroutine CLASSQ( n, x, incx, scale, sumsq ) only: wp=>sp, zero=>szero, one=>sone, & sbig=>ssbig, ssml=>sssml, tbig=>stbig, tsml=>stsml use LA_XISNAN + implicit none ! ! -- LAPACK auxiliary routine -- ! -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claswlq.f b/SRC/claswlq.f index 2044e055cc..835c679447 100644 --- a/SRC/claswlq.f +++ b/SRC/claswlq.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE CLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/claswp.f b/SRC/claswp.f index bfa3fad9cf..111352cb3d 100644 --- a/SRC/claswp.f +++ b/SRC/claswp.f @@ -110,6 +110,7 @@ *> * ===================================================================== SUBROUTINE CLASWP( N, A, LDA, K1, K2, IPIV, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clasyf.f b/SRC/clasyf.f index 8e3a3c995d..926c62de68 100644 --- a/SRC/clasyf.f +++ b/SRC/clasyf.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE CLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clasyf_rk.f b/SRC/clasyf_rk.f index 320f7fa949..a9e7364616 100644 --- a/SRC/clasyf_rk.f +++ b/SRC/clasyf_rk.f @@ -257,6 +257,7 @@ * ===================================================================== SUBROUTINE CLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clasyf_rook.f b/SRC/clasyf_rook.f index a6beb5af31..b0c6440c2f 100644 --- a/SRC/clasyf_rook.f +++ b/SRC/clasyf_rook.f @@ -179,6 +179,7 @@ * ===================================================================== SUBROUTINE CLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clatbs.f b/SRC/clatbs.f index 6297ff4b35..2ab7fcc27f 100644 --- a/SRC/clatbs.f +++ b/SRC/clatbs.f @@ -239,6 +239,7 @@ SUBROUTINE CLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, $ X, $ SCALE, CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clatdf.f b/SRC/clatdf.f index 4865389898..930013595b 100644 --- a/SRC/clatdf.f +++ b/SRC/clatdf.f @@ -164,6 +164,7 @@ * ===================================================================== SUBROUTINE CLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clatps.f b/SRC/clatps.f index 8134ae0a5b..a639d27481 100644 --- a/SRC/clatps.f +++ b/SRC/clatps.f @@ -226,6 +226,7 @@ * ===================================================================== SUBROUTINE CLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clatrd.f b/SRC/clatrd.f index 9245becc45..a83e21a518 100644 --- a/SRC/clatrd.f +++ b/SRC/clatrd.f @@ -194,6 +194,7 @@ *> * ===================================================================== SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clatrs.f b/SRC/clatrs.f index 35f131f002..bb8bc868a5 100644 --- a/SRC/clatrs.f +++ b/SRC/clatrs.f @@ -235,6 +235,7 @@ SUBROUTINE CLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, $ SCALE, $ CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clatrz.f b/SRC/clatrz.f index 40e4b22e35..366df134de 100644 --- a/SRC/clatrz.f +++ b/SRC/clatrz.f @@ -135,6 +135,7 @@ *> * ===================================================================== SUBROUTINE CLATRZ( M, N, L, A, LDA, TAU, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clatsqr.f b/SRC/clatsqr.f index 67403693f8..0392b3da78 100644 --- a/SRC/clatsqr.f +++ b/SRC/clatsqr.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE CLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clauu2.f b/SRC/clauu2.f index ecacd3d50c..92fba29af9 100644 --- a/SRC/clauu2.f +++ b/SRC/clauu2.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/clauum.f b/SRC/clauum.f index 27252a72d6..49f4410c57 100644 --- a/SRC/clauum.f +++ b/SRC/clauum.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE CLAUUM( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbcon.f b/SRC/cpbcon.f index 5669421ef1..ed365b1567 100644 --- a/SRC/cpbcon.f +++ b/SRC/cpbcon.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE CPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbequ.f b/SRC/cpbequ.f index de094085bf..3a1b667e66 100644 --- a/SRC/cpbequ.f +++ b/SRC/cpbequ.f @@ -126,6 +126,7 @@ * ===================================================================== SUBROUTINE CPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbrfs.f b/SRC/cpbrfs.f index 1cd4aa725f..aee4d3330a 100644 --- a/SRC/cpbrfs.f +++ b/SRC/cpbrfs.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE CPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbstf.f b/SRC/cpbstf.f index f05cc158d9..f92c23330b 100644 --- a/SRC/cpbstf.f +++ b/SRC/cpbstf.f @@ -148,6 +148,7 @@ *> * ===================================================================== SUBROUTINE CPBSTF( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbsv.f b/SRC/cpbsv.f index dd63ff9591..0db1e3b2a5 100644 --- a/SRC/cpbsv.f +++ b/SRC/cpbsv.f @@ -159,6 +159,7 @@ *> * ===================================================================== SUBROUTINE CPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbsvx.f b/SRC/cpbsvx.f index cf90b10aa1..f9b22e5164 100644 --- a/SRC/cpbsvx.f +++ b/SRC/cpbsvx.f @@ -338,6 +338,7 @@ SUBROUTINE CPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, $ LDAFB, $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbtf2.f b/SRC/cpbtf2.f index d64a8a5a34..dbc399f700 100644 --- a/SRC/cpbtf2.f +++ b/SRC/cpbtf2.f @@ -137,6 +137,7 @@ *> * ===================================================================== SUBROUTINE CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbtrf.f b/SRC/cpbtrf.f index 9418f8b9a4..498b9c64ec 100644 --- a/SRC/cpbtrf.f +++ b/SRC/cpbtrf.f @@ -137,6 +137,7 @@ * * ===================================================================== SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpbtrs.f b/SRC/cpbtrs.f index dcec9c5235..20b386eed5 100644 --- a/SRC/cpbtrs.f +++ b/SRC/cpbtrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE CPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpftrf.f b/SRC/cpftrf.f index eda2f9f840..473c9d102b 100644 --- a/SRC/cpftrf.f +++ b/SRC/cpftrf.f @@ -206,6 +206,7 @@ * * ===================================================================== SUBROUTINE CPFTRF( TRANSR, UPLO, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpftri.f b/SRC/cpftri.f index d993d856b2..342dcfb7d8 100644 --- a/SRC/cpftri.f +++ b/SRC/cpftri.f @@ -207,6 +207,7 @@ *> * ===================================================================== SUBROUTINE CPFTRI( TRANSR, UPLO, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpftrs.f b/SRC/cpftrs.f index f59edcd3a2..211d54b84c 100644 --- a/SRC/cpftrs.f +++ b/SRC/cpftrs.f @@ -215,6 +215,7 @@ *> * ===================================================================== SUBROUTINE CPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpocon.f b/SRC/cpocon.f index 8fb9dbe522..2840371184 100644 --- a/SRC/cpocon.f +++ b/SRC/cpocon.f @@ -116,6 +116,7 @@ * ===================================================================== SUBROUTINE CPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpoequ.f b/SRC/cpoequ.f index 54e9a1c299..81c78840bf 100644 --- a/SRC/cpoequ.f +++ b/SRC/cpoequ.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE CPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpoequb.f b/SRC/cpoequb.f index 67e3ab298e..f2d0164622 100644 --- a/SRC/cpoequb.f +++ b/SRC/cpoequb.f @@ -114,6 +114,7 @@ * * ===================================================================== SUBROUTINE CPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cporfs.f b/SRC/cporfs.f index c0185f4e9e..e008edd22e 100644 --- a/SRC/cporfs.f +++ b/SRC/cporfs.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE CPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cporfsx.f b/SRC/cporfsx.f index 24d33b8e42..4b7c093722 100644 --- a/SRC/cporfsx.f +++ b/SRC/cporfsx.f @@ -389,6 +389,7 @@ SUBROUTINE CPORFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, S, $ LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cposv.f b/SRC/cposv.f index 006265632b..332f5b2773 100644 --- a/SRC/cposv.f +++ b/SRC/cposv.f @@ -125,6 +125,7 @@ * * ===================================================================== SUBROUTINE CPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cposvx.f b/SRC/cposvx.f index 3b1b147bbc..366ac8c2ed 100644 --- a/SRC/cposvx.f +++ b/SRC/cposvx.f @@ -302,6 +302,7 @@ SUBROUTINE CPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cposvxx.f b/SRC/cposvxx.f index 3b1abb3fe2..f6daf66186 100644 --- a/SRC/cposvxx.f +++ b/SRC/cposvxx.f @@ -492,6 +492,7 @@ SUBROUTINE CPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpotf2.f b/SRC/cpotf2.f index 73d33ab899..f7be4280cb 100644 --- a/SRC/cpotf2.f +++ b/SRC/cpotf2.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpotrf.f b/SRC/cpotrf.f index 1bdc8f3653..468e6c1dbd 100644 --- a/SRC/cpotrf.f +++ b/SRC/cpotrf.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE CPOTRF( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpotrf2.f b/SRC/cpotrf2.f index fa016f13c1..436dcbe5de 100644 --- a/SRC/cpotrf2.f +++ b/SRC/cpotrf2.f @@ -103,6 +103,7 @@ * * ===================================================================== RECURSIVE SUBROUTINE CPOTRF2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpotri.f b/SRC/cpotri.f index ce6bc1e2ea..aca43e8984 100644 --- a/SRC/cpotri.f +++ b/SRC/cpotri.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE CPOTRI( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpotrs.f b/SRC/cpotrs.f index 725bfaef2f..a8841924af 100644 --- a/SRC/cpotrs.f +++ b/SRC/cpotrs.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE CPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cppcon.f b/SRC/cppcon.f index 1bbb5c82ea..1e94a98901 100644 --- a/SRC/cppcon.f +++ b/SRC/cppcon.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE CPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cppequ.f b/SRC/cppequ.f index 3924402b3a..972e13903f 100644 --- a/SRC/cppequ.f +++ b/SRC/cppequ.f @@ -112,6 +112,7 @@ * * ===================================================================== SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpprfs.f b/SRC/cpprfs.f index 7793f2caa4..ba69687aaa 100644 --- a/SRC/cpprfs.f +++ b/SRC/cpprfs.f @@ -167,6 +167,7 @@ SUBROUTINE CPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, $ FERR, $ BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cppsv.f b/SRC/cppsv.f index 1bee684bc9..20f5b2af9e 100644 --- a/SRC/cppsv.f +++ b/SRC/cppsv.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE CPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cppsvx.f b/SRC/cppsvx.f index 543967237d..0e905eb96d 100644 --- a/SRC/cppsvx.f +++ b/SRC/cppsvx.f @@ -307,6 +307,7 @@ SUBROUTINE CPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, $ LDB, $ X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpptrf.f b/SRC/cpptrf.f index a5f1cb4f4d..04a206bb0e 100644 --- a/SRC/cpptrf.f +++ b/SRC/cpptrf.f @@ -114,6 +114,7 @@ *> * ===================================================================== SUBROUTINE CPPTRF( UPLO, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpptri.f b/SRC/cpptri.f index b1bf5f6357..d96e847d05 100644 --- a/SRC/cpptri.f +++ b/SRC/cpptri.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE CPPTRI( UPLO, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpptrs.f b/SRC/cpptrs.f index 469ef1481e..8ab13a260b 100644 --- a/SRC/cpptrs.f +++ b/SRC/cpptrs.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE CPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpstf2.f b/SRC/cpstf2.f index 8bb9c4eb83..be2e93cff8 100644 --- a/SRC/cpstf2.f +++ b/SRC/cpstf2.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE CPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpstrf.f b/SRC/cpstrf.f index 216d19e745..5a649cbe19 100644 --- a/SRC/cpstrf.f +++ b/SRC/cpstrf.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE CPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cptcon.f b/SRC/cptcon.f index cd94017eb0..b12df00bd6 100644 --- a/SRC/cptcon.f +++ b/SRC/cptcon.f @@ -114,6 +114,7 @@ *> * ===================================================================== SUBROUTINE CPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpteqr.f b/SRC/cpteqr.f index a09be702c6..135b6e23b6 100644 --- a/SRC/cpteqr.f +++ b/SRC/cpteqr.f @@ -140,6 +140,7 @@ * * ===================================================================== SUBROUTINE CPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cptrfs.f b/SRC/cptrfs.f index 094a7607f8..18fa2e3739 100644 --- a/SRC/cptrfs.f +++ b/SRC/cptrfs.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE CPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cptsv.f b/SRC/cptsv.f index 492600093c..0ce6e02299 100644 --- a/SRC/cptsv.f +++ b/SRC/cptsv.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE CPTSV( N, NRHS, D, E, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cptsvx.f b/SRC/cptsvx.f index feb437207b..fd1423f86a 100644 --- a/SRC/cptsvx.f +++ b/SRC/cptsvx.f @@ -229,6 +229,7 @@ * ===================================================================== SUBROUTINE CPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpttrf.f b/SRC/cpttrf.f index f413adbb88..1d0da1199b 100644 --- a/SRC/cpttrf.f +++ b/SRC/cpttrf.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE CPTTRF( N, D, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cpttrs.f b/SRC/cpttrs.f index 6003f85bc7..ac9bac3104 100644 --- a/SRC/cpttrs.f +++ b/SRC/cpttrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE CPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cptts2.f b/SRC/cptts2.f index 42e99c150a..cfef1ae3de 100644 --- a/SRC/cptts2.f +++ b/SRC/cptts2.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE CPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/crot.f b/SRC/crot.f index 4107d5ce3e..884b5caf19 100644 --- a/SRC/crot.f +++ b/SRC/crot.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE CROT( N, CX, INCX, CY, INCY, C, S ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/crscl.f b/SRC/crscl.f index 8b4eb0e178..d59b049aa0 100644 --- a/SRC/crscl.f +++ b/SRC/crscl.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE CRSCL( N, A, X, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cspcon.f b/SRC/cspcon.f index 0f5e45b422..47875fb829 100644 --- a/SRC/cspcon.f +++ b/SRC/cspcon.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE CSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cspmv.f b/SRC/cspmv.f index da29563af1..ab15a53653 100644 --- a/SRC/cspmv.f +++ b/SRC/cspmv.f @@ -146,6 +146,7 @@ * * ===================================================================== SUBROUTINE CSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cspr.f b/SRC/cspr.f index 098dd21d00..bc64cc2553 100644 --- a/SRC/cspr.f +++ b/SRC/cspr.f @@ -127,6 +127,7 @@ * * ===================================================================== SUBROUTINE CSPR( UPLO, N, ALPHA, X, INCX, AP ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csprfs.f b/SRC/csprfs.f index 4e0f1c1e03..96dd103c58 100644 --- a/SRC/csprfs.f +++ b/SRC/csprfs.f @@ -176,6 +176,7 @@ SUBROUTINE CSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, $ FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cspsv.f b/SRC/cspsv.f index bee06fe72f..ed7f6fdaab 100644 --- a/SRC/cspsv.f +++ b/SRC/cspsv.f @@ -157,6 +157,7 @@ *> * ===================================================================== SUBROUTINE CSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cspsvx.f b/SRC/cspsvx.f index fc6a89bb6a..d6034381cd 100644 --- a/SRC/cspsvx.f +++ b/SRC/cspsvx.f @@ -273,6 +273,7 @@ SUBROUTINE CSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, $ X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csptrf.f b/SRC/csptrf.f index 41008c05ae..e5209e2407 100644 --- a/SRC/csptrf.f +++ b/SRC/csptrf.f @@ -153,6 +153,7 @@ *> * ===================================================================== SUBROUTINE CSPTRF( UPLO, N, AP, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csptri.f b/SRC/csptri.f index 702ecd1c6a..c8bcf53c5f 100644 --- a/SRC/csptri.f +++ b/SRC/csptri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE CSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csptrs.f b/SRC/csptrs.f index e1aebc9603..846718c021 100644 --- a/SRC/csptrs.f +++ b/SRC/csptrs.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE CSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csrscl.f b/SRC/csrscl.f index 43ef23a2ea..02ebc1832d 100644 --- a/SRC/csrscl.f +++ b/SRC/csrscl.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE CSRSCL( N, SA, SX, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cstedc.f b/SRC/cstedc.f index 60c5a4b74d..2a912cb963 100644 --- a/SRC/cstedc.f +++ b/SRC/cstedc.f @@ -201,6 +201,7 @@ * ===================================================================== SUBROUTINE CSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cstegr.f b/SRC/cstegr.f index 91486e7320..0060301289 100644 --- a/SRC/cstegr.f +++ b/SRC/cstegr.f @@ -260,6 +260,7 @@ SUBROUTINE CSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cstein.f b/SRC/cstein.f index 415e087e8c..1040fe888c 100644 --- a/SRC/cstein.f +++ b/SRC/cstein.f @@ -177,6 +177,7 @@ * ===================================================================== SUBROUTINE CSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cstemr.f b/SRC/cstemr.f index f212538d88..15dc809d31 100644 --- a/SRC/cstemr.f +++ b/SRC/cstemr.f @@ -334,6 +334,7 @@ SUBROUTINE CSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csteqr.f b/SRC/csteqr.f index 71fa285830..b7b180b9fa 100644 --- a/SRC/csteqr.f +++ b/SRC/csteqr.f @@ -127,6 +127,7 @@ * * ===================================================================== SUBROUTINE CSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csycon.f b/SRC/csycon.f index 3657f35ad5..8520fbcd21 100644 --- a/SRC/csycon.f +++ b/SRC/csycon.f @@ -120,6 +120,7 @@ * ===================================================================== SUBROUTINE CSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csycon_3.f b/SRC/csycon_3.f index 0af21a7c2a..f35ed4d593 100644 --- a/SRC/csycon_3.f +++ b/SRC/csycon_3.f @@ -161,6 +161,7 @@ * ===================================================================== SUBROUTINE CSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csycon_rook.f b/SRC/csycon_rook.f index 590d0930fd..863ff8a77c 100644 --- a/SRC/csycon_rook.f +++ b/SRC/csycon_rook.f @@ -135,6 +135,7 @@ SUBROUTINE CSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csyconv.f b/SRC/csyconv.f index 826c78014c..4dc36af2c0 100644 --- a/SRC/csyconv.f +++ b/SRC/csyconv.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csyconvf.f b/SRC/csyconvf.f index 8553038554..5ce5d92bbf 100644 --- a/SRC/csyconvf.f +++ b/SRC/csyconvf.f @@ -204,6 +204,7 @@ *> \endverbatim * ===================================================================== SUBROUTINE CSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csyconvf_rook.f b/SRC/csyconvf_rook.f index 7896f4b3a2..3aa05c578a 100644 --- a/SRC/csyconvf_rook.f +++ b/SRC/csyconvf_rook.f @@ -195,6 +195,7 @@ *> \endverbatim * ===================================================================== SUBROUTINE CSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csyequb.f b/SRC/csyequb.f index e413b4bee6..5d27ab6484 100644 --- a/SRC/csyequb.f +++ b/SRC/csyequb.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE CSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csymv.f b/SRC/csymv.f index 914a98e82e..1e534d635c 100644 --- a/SRC/csymv.f +++ b/SRC/csymv.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE CSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csyr.f b/SRC/csyr.f index 8a7e4d9cfd..3d80dbc216 100644 --- a/SRC/csyr.f +++ b/SRC/csyr.f @@ -130,6 +130,7 @@ * * ===================================================================== SUBROUTINE CSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csyrfs.f b/SRC/csyrfs.f index 8ffbf67ed5..1eb70db202 100644 --- a/SRC/csyrfs.f +++ b/SRC/csyrfs.f @@ -188,6 +188,7 @@ SUBROUTINE CSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csyrfsx.f b/SRC/csyrfsx.f index 042fb41d4c..ed38a1ed8a 100644 --- a/SRC/csyrfsx.f +++ b/SRC/csyrfsx.f @@ -398,6 +398,7 @@ SUBROUTINE CSYRFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csysv.f b/SRC/csysv.f index 41d9077a5a..fa19fe2def 100644 --- a/SRC/csysv.f +++ b/SRC/csysv.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE CSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csysv_aa.f b/SRC/csysv_aa.f index 8a152f23fb..469a961dc6 100644 --- a/SRC/csysv_aa.f +++ b/SRC/csysv_aa.f @@ -157,6 +157,7 @@ * ===================================================================== SUBROUTINE CSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csysv_rk.f b/SRC/csysv_rk.f index df3f0bf40a..67b0b7db93 100644 --- a/SRC/csysv_rk.f +++ b/SRC/csysv_rk.f @@ -224,6 +224,7 @@ SUBROUTINE CSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csysv_rook.f b/SRC/csysv_rook.f index 7af07dc599..6ca14c7b47 100644 --- a/SRC/csysv_rook.f +++ b/SRC/csysv_rook.f @@ -200,6 +200,7 @@ SUBROUTINE CSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csysvx.f b/SRC/csysvx.f index 4ee5402b85..c261f4fd68 100644 --- a/SRC/csysvx.f +++ b/SRC/csysvx.f @@ -281,6 +281,7 @@ SUBROUTINE CSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csysvxx.f b/SRC/csysvxx.f index efe70b2338..4c2d447c3e 100644 --- a/SRC/csysvxx.f +++ b/SRC/csysvxx.f @@ -505,6 +505,7 @@ SUBROUTINE CSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csyswapr.f b/SRC/csyswapr.f index 2db36a5b27..ed5ca84b55 100644 --- a/SRC/csyswapr.f +++ b/SRC/csyswapr.f @@ -95,6 +95,7 @@ * * ===================================================================== SUBROUTINE CSYSWAPR( UPLO, N, A, LDA, I1, I2) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytf2.f b/SRC/csytf2.f index 6a6c966069..01c882fad5 100644 --- a/SRC/csytf2.f +++ b/SRC/csytf2.f @@ -186,6 +186,7 @@ * * ===================================================================== SUBROUTINE CSYTF2( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytf2_rk.f b/SRC/csytf2_rk.f index 8ee9148e6a..a2ff8ad9e5 100644 --- a/SRC/csytf2_rk.f +++ b/SRC/csytf2_rk.f @@ -236,6 +236,7 @@ * * ===================================================================== SUBROUTINE CSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytf2_rook.f b/SRC/csytf2_rook.f index 2ee798224c..df504cef8b 100644 --- a/SRC/csytf2_rook.f +++ b/SRC/csytf2_rook.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE CSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytrf.f b/SRC/csytrf.f index fe057e5a66..a8f3a9372f 100644 --- a/SRC/csytrf.f +++ b/SRC/csytrf.f @@ -177,6 +177,7 @@ *> * ===================================================================== SUBROUTINE CSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytrf_rk.f b/SRC/csytrf_rk.f index 2eae17512d..c663b14e37 100644 --- a/SRC/csytrf_rk.f +++ b/SRC/csytrf_rk.f @@ -254,6 +254,7 @@ * ===================================================================== SUBROUTINE CSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytrf_rook.f b/SRC/csytrf_rook.f index 088066791b..83c8bea142 100644 --- a/SRC/csytrf_rook.f +++ b/SRC/csytrf_rook.f @@ -204,6 +204,7 @@ * ===================================================================== SUBROUTINE CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytri.f b/SRC/csytri.f index cc9e625c4e..17c9ef4d76 100644 --- a/SRC/csytri.f +++ b/SRC/csytri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytri2.f b/SRC/csytri2.f index 66ef182a1a..beb6f3e99c 100644 --- a/SRC/csytri2.f +++ b/SRC/csytri2.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE CSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytri2x.f b/SRC/csytri2x.f index 2603b7b22f..47e2772e96 100644 --- a/SRC/csytri2x.f +++ b/SRC/csytri2x.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytri_3.f b/SRC/csytri_3.f index c23114e828..4d8b83f0ea 100644 --- a/SRC/csytri_3.f +++ b/SRC/csytri_3.f @@ -165,6 +165,7 @@ * ===================================================================== SUBROUTINE CSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytri_3x.f b/SRC/csytri_3x.f index d443c09812..935217fbfd 100644 --- a/SRC/csytri_3x.f +++ b/SRC/csytri_3x.f @@ -155,6 +155,7 @@ * ===================================================================== SUBROUTINE CSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytri_rook.f b/SRC/csytri_rook.f index 39641a5192..ff3165a502 100644 --- a/SRC/csytri_rook.f +++ b/SRC/csytri_rook.f @@ -124,6 +124,7 @@ * * ===================================================================== SUBROUTINE CSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytrs.f b/SRC/csytrs.f index 6ef73a854a..ad74beeb1a 100644 --- a/SRC/csytrs.f +++ b/SRC/csytrs.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE CSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytrs2.f b/SRC/csytrs2.f index 3c87da7a29..9199bd90b2 100644 --- a/SRC/csytrs2.f +++ b/SRC/csytrs2.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytrs_3.f b/SRC/csytrs_3.f index cf14f5c80f..3e715b26e3 100644 --- a/SRC/csytrs_3.f +++ b/SRC/csytrs_3.f @@ -160,6 +160,7 @@ * ===================================================================== SUBROUTINE CSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/csytrs_rook.f b/SRC/csytrs_rook.f index 5dd366067f..df16f6f1a7 100644 --- a/SRC/csytrs_rook.f +++ b/SRC/csytrs_rook.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE CSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctbcon.f b/SRC/ctbcon.f index 16e4bdf774..2577d39c1d 100644 --- a/SRC/ctbcon.f +++ b/SRC/ctbcon.f @@ -139,6 +139,7 @@ SUBROUTINE CTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, $ WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctbrfs.f b/SRC/ctbrfs.f index 26ebc50db9..6a7ed7d14f 100644 --- a/SRC/ctbrfs.f +++ b/SRC/ctbrfs.f @@ -183,6 +183,7 @@ * ===================================================================== SUBROUTINE CTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctbtrs.f b/SRC/ctbtrs.f index eecd71f4c3..5c0f288eac 100644 --- a/SRC/ctbtrs.f +++ b/SRC/ctbtrs.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE CTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctfsm.f b/SRC/ctfsm.f index 97c76d5cca..0870d5b2b4 100644 --- a/SRC/ctfsm.f +++ b/SRC/ctfsm.f @@ -295,6 +295,7 @@ SUBROUTINE CTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, $ A, $ B, LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctftri.f b/SRC/ctftri.f index ac2b30272d..ccca315430 100644 --- a/SRC/ctftri.f +++ b/SRC/ctftri.f @@ -216,6 +216,7 @@ *> * ===================================================================== SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctfttp.f b/SRC/ctfttp.f index 285879a306..aae1ad880f 100644 --- a/SRC/ctfttp.f +++ b/SRC/ctfttp.f @@ -203,6 +203,7 @@ *> * ===================================================================== SUBROUTINE CTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctfttr.f b/SRC/ctfttr.f index b4882855b2..9d7e66c928 100644 --- a/SRC/ctfttr.f +++ b/SRC/ctfttr.f @@ -211,6 +211,7 @@ *> * ===================================================================== SUBROUTINE CTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctgevc.f b/SRC/ctgevc.f index 6713a52729..504d670d0e 100644 --- a/SRC/ctgevc.f +++ b/SRC/ctgevc.f @@ -214,6 +214,7 @@ * ===================================================================== SUBROUTINE CTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctgex2.f b/SRC/ctgex2.f index 18f683b078..99b18109b1 100644 --- a/SRC/ctgex2.f +++ b/SRC/ctgex2.f @@ -185,6 +185,7 @@ * ===================================================================== SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctgexc.f b/SRC/ctgexc.f index 7c849b8d09..a6296ba25f 100644 --- a/SRC/ctgexc.f +++ b/SRC/ctgexc.f @@ -195,6 +195,7 @@ * ===================================================================== SUBROUTINE CTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctgsen.f b/SRC/ctgsen.f index f4048c7265..006b035afe 100644 --- a/SRC/ctgsen.f +++ b/SRC/ctgsen.f @@ -429,6 +429,7 @@ SUBROUTINE CTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, $ LDB, $ ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, $ WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctgsja.f b/SRC/ctgsja.f index 9b8562b32c..6b49f64aea 100644 --- a/SRC/ctgsja.f +++ b/SRC/ctgsja.f @@ -374,6 +374,7 @@ SUBROUTINE CTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctgsna.f b/SRC/ctgsna.f index 76a239fe3a..13c0e17ad0 100644 --- a/SRC/ctgsna.f +++ b/SRC/ctgsna.f @@ -306,6 +306,7 @@ SUBROUTINE CTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctgsy2.f b/SRC/ctgsy2.f index 203a7880a6..cd9121def2 100644 --- a/SRC/ctgsy2.f +++ b/SRC/ctgsy2.f @@ -255,6 +255,7 @@ SUBROUTINE CTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, $ D, $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctgsyl.f b/SRC/ctgsyl.f index dadbd2e3f6..6cf019d0c9 100644 --- a/SRC/ctgsyl.f +++ b/SRC/ctgsyl.f @@ -291,6 +291,7 @@ SUBROUTINE CTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, $ D, $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctpcon.f b/SRC/ctpcon.f index be660e33e3..46270d9194 100644 --- a/SRC/ctpcon.f +++ b/SRC/ctpcon.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE CTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctplqt.f b/SRC/ctplqt.f index a9f188526a..204b7b93af 100644 --- a/SRC/ctplqt.f +++ b/SRC/ctplqt.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE CTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctplqt2.f b/SRC/ctplqt2.f index e299fa53ea..57afa46d90 100644 --- a/SRC/ctplqt2.f +++ b/SRC/ctplqt2.f @@ -159,6 +159,7 @@ *> * ===================================================================== SUBROUTINE CTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctpmlqt.f b/SRC/ctpmlqt.f index d671510788..155719f5c7 100644 --- a/SRC/ctpmlqt.f +++ b/SRC/ctpmlqt.f @@ -197,6 +197,7 @@ SUBROUTINE CTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, $ LDT, $ A, LDA, B, LDB, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctpmqrt.f b/SRC/ctpmqrt.f index 2b4128ae9f..52812d0738 100644 --- a/SRC/ctpmqrt.f +++ b/SRC/ctpmqrt.f @@ -212,6 +212,7 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, $ LDT, $ A, LDA, B, LDB, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctpqrt.f b/SRC/ctpqrt.f index 324b8a3ba3..3c2dea3744 100644 --- a/SRC/ctpqrt.f +++ b/SRC/ctpqrt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE CTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctpqrt2.f b/SRC/ctpqrt2.f index c0bcc5e62a..11a06b6150 100644 --- a/SRC/ctpqrt2.f +++ b/SRC/ctpqrt2.f @@ -168,6 +168,7 @@ *> * ===================================================================== SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctprfb.f b/SRC/ctprfb.f index 10c68921dd..09a31a8033 100644 --- a/SRC/ctprfb.f +++ b/SRC/ctprfb.f @@ -246,6 +246,7 @@ * ===================================================================== SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctprfs.f b/SRC/ctprfs.f index 347725156a..1d6efe6a1b 100644 --- a/SRC/ctprfs.f +++ b/SRC/ctprfs.f @@ -170,6 +170,7 @@ SUBROUTINE CTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, $ LDX, $ FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctptri.f b/SRC/ctptri.f index a902366e41..1b95847bc2 100644 --- a/SRC/ctptri.f +++ b/SRC/ctptri.f @@ -112,6 +112,7 @@ *> * ===================================================================== SUBROUTINE CTPTRI( UPLO, DIAG, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctptrs.f b/SRC/ctptrs.f index 86a5233838..8e8c80e07c 100644 --- a/SRC/ctptrs.f +++ b/SRC/ctptrs.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE CTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctpttf.f b/SRC/ctpttf.f index 9518d7c9b4..50ebc2ee84 100644 --- a/SRC/ctpttf.f +++ b/SRC/ctpttf.f @@ -202,6 +202,7 @@ *> * ===================================================================== SUBROUTINE CTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctpttr.f b/SRC/ctpttr.f index c11419ec8a..854a36d29e 100644 --- a/SRC/ctpttr.f +++ b/SRC/ctpttr.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CTPTTR( UPLO, N, AP, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrcon.f b/SRC/ctrcon.f index 9f4ab2216e..1cf56cb32d 100644 --- a/SRC/ctrcon.f +++ b/SRC/ctrcon.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE CTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrevc.f b/SRC/ctrevc.f index e18f8e6f97..e0a8623254 100644 --- a/SRC/ctrevc.f +++ b/SRC/ctrevc.f @@ -214,6 +214,7 @@ SUBROUTINE CTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, $ LDVR, MM, M, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrexc.f b/SRC/ctrexc.f index fe792cd998..0090acd190 100644 --- a/SRC/ctrexc.f +++ b/SRC/ctrexc.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE CTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrrfs.f b/SRC/ctrrfs.f index e15a267b70..4a07b48d56 100644 --- a/SRC/ctrrfs.f +++ b/SRC/ctrrfs.f @@ -178,6 +178,7 @@ SUBROUTINE CTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrsen.f b/SRC/ctrsen.f index eacae69da9..64ca2ce081 100644 --- a/SRC/ctrsen.f +++ b/SRC/ctrsen.f @@ -260,6 +260,7 @@ SUBROUTINE CTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, $ S, $ SEP, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrsna.f b/SRC/ctrsna.f index 5a22d58aa8..bec3a8d999 100644 --- a/SRC/ctrsna.f +++ b/SRC/ctrsna.f @@ -245,6 +245,7 @@ SUBROUTINE CTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, $ LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrsyl.f b/SRC/ctrsyl.f index 2e54738372..54ba04e4c0 100644 --- a/SRC/ctrsyl.f +++ b/SRC/ctrsyl.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE CTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrti2.f b/SRC/ctrti2.f index 6cb3083be5..647fecaa9a 100644 --- a/SRC/ctrti2.f +++ b/SRC/ctrti2.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE CTRTI2( UPLO, DIAG, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrtri.f b/SRC/ctrtri.f index d5c1b04077..a9efe6e43e 100644 --- a/SRC/ctrtri.f +++ b/SRC/ctrtri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE CTRTRI( UPLO, DIAG, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrtrs.f b/SRC/ctrtrs.f index 12bd8c0a39..1b530f37c5 100644 --- a/SRC/ctrtrs.f +++ b/SRC/ctrtrs.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE CTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrttf.f b/SRC/ctrttf.f index 4858b50d2a..7d1974ad9b 100644 --- a/SRC/ctrttf.f +++ b/SRC/ctrttf.f @@ -211,6 +211,7 @@ *> * ===================================================================== SUBROUTINE CTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctrttp.f b/SRC/ctrttp.f index c7c5f0a7d1..06f776be17 100644 --- a/SRC/ctrttp.f +++ b/SRC/ctrttp.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CTRTTP( UPLO, N, A, LDA, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ctzrzf.f b/SRC/ctzrzf.f index 244ec44286..7db94b02cd 100644 --- a/SRC/ctzrzf.f +++ b/SRC/ctzrzf.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE CTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunbdb.f b/SRC/cunbdb.f index 817820c804..ee0cb2871e 100644 --- a/SRC/cunbdb.f +++ b/SRC/cunbdb.f @@ -283,6 +283,7 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, $ LDX12, $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunbdb1.f b/SRC/cunbdb1.f index 6923c0f751..08b2fd8465 100644 --- a/SRC/cunbdb1.f +++ b/SRC/cunbdb1.f @@ -198,6 +198,7 @@ SUBROUTINE CUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunbdb2.f b/SRC/cunbdb2.f index be41ead5ca..337e572a0d 100644 --- a/SRC/cunbdb2.f +++ b/SRC/cunbdb2.f @@ -198,6 +198,7 @@ SUBROUTINE CUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunbdb3.f b/SRC/cunbdb3.f index bd1492d998..c03de68257 100644 --- a/SRC/cunbdb3.f +++ b/SRC/cunbdb3.f @@ -198,6 +198,7 @@ SUBROUTINE CUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunbdb4.f b/SRC/cunbdb4.f index f8c9b0a237..16e71860c1 100644 --- a/SRC/cunbdb4.f +++ b/SRC/cunbdb4.f @@ -209,6 +209,7 @@ SUBROUTINE CUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunbdb5.f b/SRC/cunbdb5.f index 5b31cf7777..067c65756d 100644 --- a/SRC/cunbdb5.f +++ b/SRC/cunbdb5.f @@ -152,6 +152,7 @@ SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, $ Q2, $ LDQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunbdb6.f b/SRC/cunbdb6.f index 4c74459130..0ce344390b 100644 --- a/SRC/cunbdb6.f +++ b/SRC/cunbdb6.f @@ -155,6 +155,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, $ Q2, $ LDQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index 8ee0989db1..27d1212275 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -316,6 +316,7 @@ RECURSIVE SUBROUTINE CUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, $ U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, WORK, LWORK, RWORK, LRWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cuncsd2by1.f b/SRC/cuncsd2by1.f index 9b84b8b32b..521ec099fd 100644 --- a/SRC/cuncsd2by1.f +++ b/SRC/cuncsd2by1.f @@ -253,6 +253,7 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, $ X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, $ LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cung2l.f b/SRC/cung2l.f index 8b37d79cfa..477876cc5c 100644 --- a/SRC/cung2l.f +++ b/SRC/cung2l.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cung2r.f b/SRC/cung2r.f index cf42edcaa7..d48e050aa9 100644 --- a/SRC/cung2r.f +++ b/SRC/cung2r.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cungbr.f b/SRC/cungbr.f index dee392e8ef..13962fd805 100644 --- a/SRC/cungbr.f +++ b/SRC/cungbr.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE CUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunghr.f b/SRC/cunghr.f index 71f6a65f55..495034d721 100644 --- a/SRC/cunghr.f +++ b/SRC/cunghr.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE CUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cungl2.f b/SRC/cungl2.f index 7c63424ddf..8b5b2b8457 100644 --- a/SRC/cungl2.f +++ b/SRC/cungl2.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE CUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunglq.f b/SRC/cunglq.f index 7f42c3dcb0..dd53851c7a 100644 --- a/SRC/cunglq.f +++ b/SRC/cunglq.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE CUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cungql.f b/SRC/cungql.f index 3da2702d8e..0c9c4a5599 100644 --- a/SRC/cungql.f +++ b/SRC/cungql.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE CUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cungqr.f b/SRC/cungqr.f index eb49d2fed5..c7c39a5436 100644 --- a/SRC/cungqr.f +++ b/SRC/cungqr.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE CUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cungr2.f b/SRC/cungr2.f index 4af390dfb0..e421117f02 100644 --- a/SRC/cungr2.f +++ b/SRC/cungr2.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cungrq.f b/SRC/cungrq.f index 7e812b839f..6032e9c0b9 100644 --- a/SRC/cungrq.f +++ b/SRC/cungrq.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE CUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cungtr.f b/SRC/cungtr.f index 2ca2fff4b0..c758c54e44 100644 --- a/SRC/cungtr.f +++ b/SRC/cungtr.f @@ -118,6 +118,7 @@ * * ===================================================================== SUBROUTINE CUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunm2l.f b/SRC/cunm2l.f index 21756d037f..0b6ffc8ca0 100644 --- a/SRC/cunm2l.f +++ b/SRC/cunm2l.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE CUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunm2r.f b/SRC/cunm2r.f index 08c0639064..c357356235 100644 --- a/SRC/cunm2r.f +++ b/SRC/cunm2r.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE CUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmbr.f b/SRC/cunmbr.f index b14f04ed7d..b9060f30be 100644 --- a/SRC/cunmbr.f +++ b/SRC/cunmbr.f @@ -192,6 +192,7 @@ * ===================================================================== SUBROUTINE CUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmhr.f b/SRC/cunmhr.f index e4b452f209..ef966980cc 100644 --- a/SRC/cunmhr.f +++ b/SRC/cunmhr.f @@ -174,6 +174,7 @@ * ===================================================================== SUBROUTINE CUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunml2.f b/SRC/cunml2.f index d0253b4a60..edd0a39ef2 100644 --- a/SRC/cunml2.f +++ b/SRC/cunml2.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE CUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmlq.f b/SRC/cunmlq.f index d1d47b4933..9b41794fca 100644 --- a/SRC/cunmlq.f +++ b/SRC/cunmlq.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmql.f b/SRC/cunmql.f index 3df892e73f..60097c231a 100644 --- a/SRC/cunmql.f +++ b/SRC/cunmql.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmqr.f b/SRC/cunmqr.f index 9c4b17c923..4b51be72fe 100644 --- a/SRC/cunmqr.f +++ b/SRC/cunmqr.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmr2.f b/SRC/cunmr2.f index b44707dd4e..ca4f9fd6f8 100644 --- a/SRC/cunmr2.f +++ b/SRC/cunmr2.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE CUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmr3.f b/SRC/cunmr3.f index 5ff852067c..7e94914585 100644 --- a/SRC/cunmr3.f +++ b/SRC/cunmr3.f @@ -174,6 +174,7 @@ SUBROUTINE CUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, $ LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmrq.f b/SRC/cunmrq.f index 3b3cfbc1cf..a7f50e8363 100644 --- a/SRC/cunmrq.f +++ b/SRC/cunmrq.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmrz.f b/SRC/cunmrz.f index adbccd0bee..ec74d38a05 100644 --- a/SRC/cunmrz.f +++ b/SRC/cunmrz.f @@ -183,6 +183,7 @@ SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, $ LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cunmtr.f b/SRC/cunmtr.f index 0230735a37..05577b85e5 100644 --- a/SRC/cunmtr.f +++ b/SRC/cunmtr.f @@ -168,6 +168,7 @@ SUBROUTINE CUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, $ LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cupgtr.f b/SRC/cupgtr.f index 656abf3d69..39813f8883 100644 --- a/SRC/cupgtr.f +++ b/SRC/cupgtr.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cupmtr.f b/SRC/cupmtr.f index df439c1ce9..b4fb38e854 100644 --- a/SRC/cupmtr.f +++ b/SRC/cupmtr.f @@ -146,6 +146,7 @@ SUBROUTINE CUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dbbcsd.f b/SRC/dbbcsd.f index 056a0e6f99..c7780b8f8e 100644 --- a/SRC/dbbcsd.f +++ b/SRC/dbbcsd.f @@ -328,6 +328,7 @@ SUBROUTINE DBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, $ THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dbdsdc.f b/SRC/dbdsdc.f index a1c4c8650b..21907669fe 100644 --- a/SRC/dbdsdc.f +++ b/SRC/dbdsdc.f @@ -194,6 +194,7 @@ SUBROUTINE DBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, $ IQ, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dbdsqr.f b/SRC/dbdsqr.f index 15295a2d79..7f6a276f8b 100644 --- a/SRC/dbdsqr.f +++ b/SRC/dbdsqr.f @@ -238,6 +238,7 @@ * ===================================================================== SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dbdsvdx.f b/SRC/dbdsvdx.f index f497a2a691..3bce0f9a03 100644 --- a/SRC/dbdsvdx.f +++ b/SRC/dbdsvdx.f @@ -221,6 +221,7 @@ * ===================================================================== SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ddisna.f b/SRC/ddisna.f index 2df1a33d0e..53493b7c38 100644 --- a/SRC/ddisna.f +++ b/SRC/ddisna.f @@ -112,6 +112,7 @@ * * ===================================================================== SUBROUTINE DDISNA( JOB, M, N, D, SEP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbbrd.f b/SRC/dgbbrd.f index 760b84e2c9..3b8b7d83a7 100644 --- a/SRC/dgbbrd.f +++ b/SRC/dgbbrd.f @@ -182,6 +182,7 @@ * ===================================================================== SUBROUTINE DGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbcon.f b/SRC/dgbcon.f index e4b4fb0b4d..739c311e59 100644 --- a/SRC/dgbcon.f +++ b/SRC/dgbcon.f @@ -142,6 +142,7 @@ SUBROUTINE DGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, $ RCOND, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbequ.f b/SRC/dgbequ.f index 8e9e0ddf08..e078fbf849 100644 --- a/SRC/dgbequ.f +++ b/SRC/dgbequ.f @@ -149,6 +149,7 @@ SUBROUTINE DGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbequb.f b/SRC/dgbequb.f index d9114f5550..41f7cfb100 100644 --- a/SRC/dgbequb.f +++ b/SRC/dgbequb.f @@ -156,6 +156,7 @@ SUBROUTINE DGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbrfs.f b/SRC/dgbrfs.f index 30ee4aebeb..ebb87dd22d 100644 --- a/SRC/dgbrfs.f +++ b/SRC/dgbrfs.f @@ -201,6 +201,7 @@ SUBROUTINE DGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbrfsx.f b/SRC/dgbrfsx.f index ebe7f116a5..c601f0f594 100644 --- a/SRC/dgbrfsx.f +++ b/SRC/dgbrfsx.f @@ -436,6 +436,7 @@ SUBROUTINE DGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB, $ BERR, N_ERR_BNDS, ERR_BNDS_NORM, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbsv.f b/SRC/dgbsv.f index 4bed7e6ac2..e76ed38c4a 100644 --- a/SRC/dgbsv.f +++ b/SRC/dgbsv.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE DGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbsvx.f b/SRC/dgbsvx.f index 329a631be7..d22a641d49 100644 --- a/SRC/dgbsvx.f +++ b/SRC/dgbsvx.f @@ -364,6 +364,7 @@ SUBROUTINE DGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbsvxx.f b/SRC/dgbsvxx.f index a35253a1bb..f560a2f50c 100644 --- a/SRC/dgbsvxx.f +++ b/SRC/dgbsvxx.f @@ -556,6 +556,7 @@ SUBROUTINE DGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, $ RCOND, RPVGRW, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbtf2.f b/SRC/dgbtf2.f index 377f24aa6f..8ff949b96e 100644 --- a/SRC/dgbtf2.f +++ b/SRC/dgbtf2.f @@ -140,6 +140,7 @@ *> * ===================================================================== SUBROUTINE DGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbtrf.f b/SRC/dgbtrf.f index e93b300560..6dd8d90082 100644 --- a/SRC/dgbtrf.f +++ b/SRC/dgbtrf.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgbtrs.f b/SRC/dgbtrs.f index f6bedbd5ae..be2a6d49cc 100644 --- a/SRC/dgbtrs.f +++ b/SRC/dgbtrs.f @@ -134,6 +134,7 @@ SUBROUTINE DGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, $ LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgebak.f b/SRC/dgebak.f index 73a6bb7ee4..96eb5c36ca 100644 --- a/SRC/dgebak.f +++ b/SRC/dgebak.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE DGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgebal.f b/SRC/dgebal.f index dd0f3df393..185a3cee6a 100644 --- a/SRC/dgebal.f +++ b/SRC/dgebal.f @@ -158,6 +158,7 @@ *> * ===================================================================== SUBROUTINE DGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgebd2.f b/SRC/dgebd2.f index 0a61d570e0..b94bcc4784 100644 --- a/SRC/dgebd2.f +++ b/SRC/dgebd2.f @@ -184,6 +184,7 @@ *> * ===================================================================== SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgebrd.f b/SRC/dgebrd.f index 513778245c..9f6b1f3c7c 100644 --- a/SRC/dgebrd.f +++ b/SRC/dgebrd.f @@ -201,6 +201,7 @@ * ===================================================================== SUBROUTINE DGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgecon.f b/SRC/dgecon.f index 451e15e71e..948793ff1f 100644 --- a/SRC/dgecon.f +++ b/SRC/dgecon.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE DGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeequ.f b/SRC/dgeequ.f index 85627e4078..1ef9bc76e0 100644 --- a/SRC/dgeequ.f +++ b/SRC/dgeequ.f @@ -134,6 +134,7 @@ * ===================================================================== SUBROUTINE DGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeequb.f b/SRC/dgeequb.f index dde33cbd1e..c3c9b74451 100644 --- a/SRC/dgeequb.f +++ b/SRC/dgeequb.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE DGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgees.f b/SRC/dgees.f index ad1b3b6b5e..23f2954e3a 100644 --- a/SRC/dgees.f +++ b/SRC/dgees.f @@ -211,6 +211,7 @@ * ===================================================================== SUBROUTINE DGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, $ VS, LDVS, WORK, LWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeesx.f b/SRC/dgeesx.f index b86e05d953..93f119ea9c 100644 --- a/SRC/dgeesx.f +++ b/SRC/dgeesx.f @@ -276,6 +276,7 @@ SUBROUTINE DGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, $ WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, $ IWORK, LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgehd2.f b/SRC/dgehd2.f index 70736462fe..eaaf091a60 100644 --- a/SRC/dgehd2.f +++ b/SRC/dgehd2.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE DGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgehrd.f b/SRC/dgehrd.f index 61a046c01d..ec7edd4796 100644 --- a/SRC/dgehrd.f +++ b/SRC/dgehrd.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f index f7498e22a3..b3b118f35c 100644 --- a/SRC/dgejsv.f +++ b/SRC/dgejsv.f @@ -19,9 +19,9 @@ * SUBROUTINE DGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * WORK, LWORK, IWORK, INFO ) +* IMPLICIT NONE * * .. Scalar Arguments .. -* IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. @@ -471,13 +471,13 @@ SUBROUTINE DGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. - IMPLICIT NONE INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. diff --git a/SRC/dgelq.f b/SRC/dgelq.f index 255e8732f2..98f4ba84c9 100644 --- a/SRC/dgelq.f +++ b/SRC/dgelq.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE DGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgelq2.f b/SRC/dgelq2.f index ccf9b50aa5..b7c8c933d8 100644 --- a/SRC/dgelq2.f +++ b/SRC/dgelq2.f @@ -124,6 +124,7 @@ *> * ===================================================================== SUBROUTINE DGELQ2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgelqf.f b/SRC/dgelqf.f index e73261d876..d7efe9cfe1 100644 --- a/SRC/dgelqf.f +++ b/SRC/dgelqf.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE DGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgelqt.f b/SRC/dgelqt.f index 04562ac67e..3afc72a9ad 100644 --- a/SRC/dgelqt.f +++ b/SRC/dgelqt.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE DGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgelqt3.f b/SRC/dgelqt3.f index 4605c7e3ba..8e3bfb2154 100644 --- a/SRC/dgelqt3.f +++ b/SRC/dgelqt3.f @@ -126,6 +126,7 @@ *> * ===================================================================== RECURSIVE SUBROUTINE DGELQT3( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgels.f b/SRC/dgels.f index 4cb813a0a5..21900fe596 100644 --- a/SRC/dgels.f +++ b/SRC/dgels.f @@ -189,6 +189,7 @@ SUBROUTINE DGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgelsd.f b/SRC/dgelsd.f index 65f905aeb9..0043f2593b 100644 --- a/SRC/dgelsd.f +++ b/SRC/dgelsd.f @@ -198,6 +198,7 @@ * ===================================================================== SUBROUTINE DGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgelss.f b/SRC/dgelss.f index 8dc5f8a9b0..7408207636 100644 --- a/SRC/dgelss.f +++ b/SRC/dgelss.f @@ -167,6 +167,7 @@ * ===================================================================== SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgelst.f b/SRC/dgelst.f index 78ae3479cd..6e69a71596 100644 --- a/SRC/dgelst.f +++ b/SRC/dgelst.f @@ -199,6 +199,7 @@ SUBROUTINE DGELST( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgelsy.f b/SRC/dgelsy.f index 2b29e847a0..54bc881c28 100644 --- a/SRC/dgelsy.f +++ b/SRC/dgelsy.f @@ -202,6 +202,7 @@ SUBROUTINE DGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, $ RANK, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgemlq.f b/SRC/dgemlq.f index 757683f467..e3d1f7447f 100644 --- a/SRC/dgemlq.f +++ b/SRC/dgemlq.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE DGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgemlqt.f b/SRC/dgemlqt.f index e0a96fc0e6..76ddde199c 100644 --- a/SRC/dgemlqt.f +++ b/SRC/dgemlqt.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE DGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgemqr.f b/SRC/dgemqr.f index 6088154837..5423917ba3 100644 --- a/SRC/dgemqr.f +++ b/SRC/dgemqr.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE DGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgemqrt.f b/SRC/dgemqrt.f index ade19e8eab..d1ac64a586 100644 --- a/SRC/dgemqrt.f +++ b/SRC/dgemqrt.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeql2.f b/SRC/dgeql2.f index e44ee02a5c..1b2f55a658 100644 --- a/SRC/dgeql2.f +++ b/SRC/dgeql2.f @@ -118,6 +118,7 @@ *> * ===================================================================== SUBROUTINE DGEQL2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqlf.f b/SRC/dgeqlf.f index 945507768a..f54928a29f 100644 --- a/SRC/dgeqlf.f +++ b/SRC/dgeqlf.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE DGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqp3.f b/SRC/dgeqp3.f index 6ea2206cf1..31c9367325 100644 --- a/SRC/dgeqp3.f +++ b/SRC/dgeqp3.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqr.f b/SRC/dgeqr.f index 6ed8f211f1..fe657da3c0 100644 --- a/SRC/dgeqr.f +++ b/SRC/dgeqr.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqr2.f b/SRC/dgeqr2.f index 36a152502f..94872f54e6 100644 --- a/SRC/dgeqr2.f +++ b/SRC/dgeqr2.f @@ -125,6 +125,7 @@ *> * ===================================================================== SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqr2p.f b/SRC/dgeqr2p.f index 123860464f..cce4d346ea 100644 --- a/SRC/dgeqr2p.f +++ b/SRC/dgeqr2p.f @@ -129,6 +129,7 @@ *> * ===================================================================== SUBROUTINE DGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqrf.f b/SRC/dgeqrf.f index 775735add3..0221e586f3 100644 --- a/SRC/dgeqrf.f +++ b/SRC/dgeqrf.f @@ -141,6 +141,7 @@ *> * ===================================================================== SUBROUTINE DGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqrfp.f b/SRC/dgeqrfp.f index c7cb7cfcf5..90e8dd6861 100644 --- a/SRC/dgeqrfp.f +++ b/SRC/dgeqrfp.f @@ -145,6 +145,7 @@ *> * ===================================================================== SUBROUTINE DGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqrt.f b/SRC/dgeqrt.f index d6f70090e2..8a34eae385 100644 --- a/SRC/dgeqrt.f +++ b/SRC/dgeqrt.f @@ -136,6 +136,7 @@ *> * ===================================================================== SUBROUTINE DGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqrt2.f b/SRC/dgeqrt2.f index 1702a2545b..04448810c1 100644 --- a/SRC/dgeqrt2.f +++ b/SRC/dgeqrt2.f @@ -122,6 +122,7 @@ *> * ===================================================================== SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgeqrt3.f b/SRC/dgeqrt3.f index e752afeaa7..03cfbd2c31 100644 --- a/SRC/dgeqrt3.f +++ b/SRC/dgeqrt3.f @@ -127,6 +127,7 @@ *> * ===================================================================== RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgerfs.f b/SRC/dgerfs.f index 662a9b8126..5276d1b882 100644 --- a/SRC/dgerfs.f +++ b/SRC/dgerfs.f @@ -181,6 +181,7 @@ SUBROUTINE DGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgerfsx.f b/SRC/dgerfsx.f index 4b90379d2f..0beeff12f2 100644 --- a/SRC/dgerfsx.f +++ b/SRC/dgerfsx.f @@ -410,6 +410,7 @@ SUBROUTINE DGERFSX( TRANS, EQUED, N, NRHS, A, LDA, AF, LDAF, $ R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgerq2.f b/SRC/dgerq2.f index 3c38f4b479..23ff2d068c 100644 --- a/SRC/dgerq2.f +++ b/SRC/dgerq2.f @@ -118,6 +118,7 @@ *> * ===================================================================== SUBROUTINE DGERQ2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgerqf.f b/SRC/dgerqf.f index f12f7b1c04..a72a35b5b1 100644 --- a/SRC/dgerqf.f +++ b/SRC/dgerqf.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE DGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgesc2.f b/SRC/dgesc2.f index 4bc71c3c92..4f7afce743 100644 --- a/SRC/dgesc2.f +++ b/SRC/dgesc2.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgesv.f b/SRC/dgesv.f index 9e4164531e..05fd3d7de8 100644 --- a/SRC/dgesv.f +++ b/SRC/dgesv.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE DGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgesvd.f b/SRC/dgesvd.f index 2c133a3a7c..68d3f2698d 100644 --- a/SRC/dgesvd.f +++ b/SRC/dgesvd.f @@ -206,6 +206,7 @@ * ===================================================================== SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, $ VT, LDVT, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgesvdq.f b/SRC/dgesvdq.f index f758923b6b..0753858ed6 100644 --- a/SRC/dgesvdq.f +++ b/SRC/dgesvdq.f @@ -410,8 +410,8 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA, $ S, U, LDU, V, LDV, NUMRANK, IWORK, LIWORK, $ WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * .. Scalar Arguments .. - IMPLICIT NONE CHARACTER JOBA, JOBP, JOBR, JOBU, JOBV INTEGER M, N, LDA, LDU, LDV, NUMRANK, LIWORK, LWORK, LRWORK, $ INFO diff --git a/SRC/dgesvdx.f b/SRC/dgesvdx.f index 47823f74c3..0c828e8a50 100644 --- a/SRC/dgesvdx.f +++ b/SRC/dgesvdx.f @@ -258,6 +258,7 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f index 631af49680..fc5eb211db 100644 --- a/SRC/dgesvj.f +++ b/SRC/dgesvj.f @@ -337,6 +337,7 @@ * ===================================================================== SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgesvx.f b/SRC/dgesvx.f index 350bc2d2c5..aa4e578129 100644 --- a/SRC/dgesvx.f +++ b/SRC/dgesvx.f @@ -345,6 +345,7 @@ SUBROUTINE DGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, $ IPIV, $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgesvxx.f b/SRC/dgesvxx.f index a89296f0d1..1e16ad2e5f 100644 --- a/SRC/dgesvxx.f +++ b/SRC/dgesvxx.f @@ -536,6 +536,7 @@ SUBROUTINE DGESVXX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, $ BERR, N_ERR_BNDS, ERR_BNDS_NORM, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgetc2.f b/SRC/dgetc2.f index b684cf7eb8..4f9a289d96 100644 --- a/SRC/dgetc2.f +++ b/SRC/dgetc2.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE DGETC2( N, A, LDA, IPIV, JPIV, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgetf2.f b/SRC/dgetf2.f index 0bb188efd6..df70eff785 100644 --- a/SRC/dgetf2.f +++ b/SRC/dgetf2.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgetrf.f b/SRC/dgetrf.f index 13b056b0ec..f057dc816f 100644 --- a/SRC/dgetrf.f +++ b/SRC/dgetrf.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgetrf2.f b/SRC/dgetrf2.f index 64b92030d2..9d2403ef43 100644 --- a/SRC/dgetrf2.f +++ b/SRC/dgetrf2.f @@ -110,6 +110,7 @@ * * ===================================================================== RECURSIVE SUBROUTINE DGETRF2( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgetri.f b/SRC/dgetri.f index ac075f4b5c..71843779a5 100644 --- a/SRC/dgetri.f +++ b/SRC/dgetri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgetrs.f b/SRC/dgetrs.f index 4b14d2908b..3422c40fd1 100644 --- a/SRC/dgetrs.f +++ b/SRC/dgetrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE DGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgetsls.f b/SRC/dgetsls.f index 9db9b491cc..5b61d5888f 100644 --- a/SRC/dgetsls.f +++ b/SRC/dgetsls.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE DGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggbak.f b/SRC/dggbak.f index a50f0a8ef0..804e6fb2c4 100644 --- a/SRC/dggbak.f +++ b/SRC/dggbak.f @@ -143,6 +143,7 @@ SUBROUTINE DGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, $ V, $ LDV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggbal.f b/SRC/dggbal.f index bb071acb99..a3537646f3 100644 --- a/SRC/dggbal.f +++ b/SRC/dggbal.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE DGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgges.f b/SRC/dgges.f index 2b70194952..b700860f68 100644 --- a/SRC/dgges.f +++ b/SRC/dgges.f @@ -280,6 +280,7 @@ SUBROUTINE DGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, $ SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, $ LDVSR, WORK, LWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgges3.f b/SRC/dgges3.f index 2bb81bb312..5ea3f5dbd1 100644 --- a/SRC/dgges3.f +++ b/SRC/dgges3.f @@ -279,6 +279,7 @@ SUBROUTINE DGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, $ VSR, LDVSR, WORK, LWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggesx.f b/SRC/dggesx.f index 064121192b..c716af4c9f 100644 --- a/SRC/dggesx.f +++ b/SRC/dggesx.f @@ -361,6 +361,7 @@ SUBROUTINE DGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, $ B, LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, $ VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, $ LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggev.f b/SRC/dggev.f index 92a708c7ce..3b8df6be96 100644 --- a/SRC/dggev.f +++ b/SRC/dggev.f @@ -222,6 +222,7 @@ SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, $ ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggev3.f b/SRC/dggev3.f index f5ca034c26..bbde307d22 100644 --- a/SRC/dggev3.f +++ b/SRC/dggev3.f @@ -223,6 +223,7 @@ SUBROUTINE DGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, $ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggevx.f b/SRC/dggevx.f index f2180af9c8..c0e168e8f9 100644 --- a/SRC/dggevx.f +++ b/SRC/dggevx.f @@ -387,6 +387,7 @@ SUBROUTINE DGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, $ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, $ RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggglm.f b/SRC/dggglm.f index d0730ec51b..32a3f8a9b2 100644 --- a/SRC/dggglm.f +++ b/SRC/dggglm.f @@ -191,6 +191,7 @@ SUBROUTINE DGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgghrd.f b/SRC/dgghrd.f index 6f7097e7ae..3e1d68bf7a 100644 --- a/SRC/dgghrd.f +++ b/SRC/dgghrd.f @@ -203,6 +203,7 @@ SUBROUTINE DGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, $ Q, $ LDQ, Z, LDZ, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgglse.f b/SRC/dgglse.f index 2389cf06a9..6c1198af19 100644 --- a/SRC/dgglse.f +++ b/SRC/dgglse.f @@ -186,6 +186,7 @@ SUBROUTINE DGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggqrf.f b/SRC/dggqrf.f index b8b1ba5a9a..4aeac8677f 100644 --- a/SRC/dggqrf.f +++ b/SRC/dggqrf.f @@ -210,6 +210,7 @@ * ===================================================================== SUBROUTINE DGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggrqf.f b/SRC/dggrqf.f index 0db99e44cf..be55eac72a 100644 --- a/SRC/dggrqf.f +++ b/SRC/dggrqf.f @@ -209,6 +209,7 @@ * ===================================================================== SUBROUTINE DGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dggsvd3.f b/SRC/dggsvd3.f index 324002211c..21ac309fcb 100644 --- a/SRC/dggsvd3.f +++ b/SRC/dggsvd3.f @@ -344,6 +344,7 @@ SUBROUTINE DGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgsvj0.f b/SRC/dgsvj0.f index d65d4f74ba..077537bf9c 100644 --- a/SRC/dgsvj0.f +++ b/SRC/dgsvj0.f @@ -213,6 +213,7 @@ * ===================================================================== SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgsvj1.f b/SRC/dgsvj1.f index 630cf8cebe..b19fdac1b8 100644 --- a/SRC/dgsvj1.f +++ b/SRC/dgsvj1.f @@ -231,6 +231,7 @@ * ===================================================================== SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgtcon.f b/SRC/dgtcon.f index 153d9200e0..e22e2a445a 100644 --- a/SRC/dgtcon.f +++ b/SRC/dgtcon.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgtrfs.f b/SRC/dgtrfs.f index 31084c9543..828c3d3669 100644 --- a/SRC/dgtrfs.f +++ b/SRC/dgtrfs.f @@ -205,6 +205,7 @@ SUBROUTINE DGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, $ DU2, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgtsv.f b/SRC/dgtsv.f index 2411df3b8d..ea3b201596 100644 --- a/SRC/dgtsv.f +++ b/SRC/dgtsv.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE DGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgtsvx.f b/SRC/dgtsvx.f index b054aca852..21cff8613c 100644 --- a/SRC/dgtsvx.f +++ b/SRC/dgtsvx.f @@ -289,6 +289,7 @@ SUBROUTINE DGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, $ DUF, $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgttrf.f b/SRC/dgttrf.f index 10b0181c69..984983a302 100644 --- a/SRC/dgttrf.f +++ b/SRC/dgttrf.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE DGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgttrs.f b/SRC/dgttrs.f index ddeb2bb36c..1f3d84469a 100644 --- a/SRC/dgttrs.f +++ b/SRC/dgttrs.f @@ -134,6 +134,7 @@ SUBROUTINE DGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, $ LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dgtts2.f b/SRC/dgtts2.f index a30f9195e7..a79dce66ed 100644 --- a/SRC/dgtts2.f +++ b/SRC/dgtts2.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE DGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, $ LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dhgeqz.f b/SRC/dhgeqz.f index 0ac434da63..68632f95e1 100644 --- a/SRC/dhgeqz.f +++ b/SRC/dhgeqz.f @@ -300,6 +300,7 @@ SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, $ LDT, $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dhsein.f b/SRC/dhsein.f index d2b81ff251..c03fe3fa23 100644 --- a/SRC/dhsein.f +++ b/SRC/dhsein.f @@ -259,6 +259,7 @@ SUBROUTINE DHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, $ WI, $ VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, $ IFAILR, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dhseqr.f b/SRC/dhseqr.f index 94373058cc..83ace92b97 100644 --- a/SRC/dhseqr.f +++ b/SRC/dhseqr.f @@ -311,6 +311,7 @@ * ===================================================================== SUBROUTINE DHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/disnan.f b/SRC/disnan.f index ed03aef267..f5d1a4a257 100644 --- a/SRC/disnan.f +++ b/SRC/disnan.f @@ -54,6 +54,7 @@ * * ===================================================================== LOGICAL FUNCTION DISNAN( DIN ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_gbamv.f b/SRC/dla_gbamv.f index 1f4dd4029e..560866bd84 100644 --- a/SRC/dla_gbamv.f +++ b/SRC/dla_gbamv.f @@ -182,6 +182,7 @@ * ===================================================================== SUBROUTINE DLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_gbrcond.f b/SRC/dla_gbrcond.f index e52409d893..3952b0ea91 100644 --- a/SRC/dla_gbrcond.f +++ b/SRC/dla_gbrcond.f @@ -166,6 +166,7 @@ DOUBLE PRECISION FUNCTION DLA_GBRCOND( TRANS, N, KL, KU, AB, $ LDAB, $ AFB, LDAFB, IPIV, CMODE, C, $ INFO, WORK, IWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_gbrfsx_extended.f b/SRC/dla_gbrfsx_extended.f index e8524295d8..80845af7e5 100644 --- a/SRC/dla_gbrfsx_extended.f +++ b/SRC/dla_gbrfsx_extended.f @@ -407,6 +407,7 @@ SUBROUTINE DLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, $ ERR_BNDS_COMP, RES, AYB, DY, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_gbrpvgrw.f b/SRC/dla_gbrpvgrw.f index af0b3be246..3b1493a64b 100644 --- a/SRC/dla_gbrpvgrw.f +++ b/SRC/dla_gbrpvgrw.f @@ -112,6 +112,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLA_GBRPVGRW( N, KL, KU, NCOLS, AB, $ LDAB, AFB, LDAFB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_geamv.f b/SRC/dla_geamv.f index 4812f41a97..991e85d832 100644 --- a/SRC/dla_geamv.f +++ b/SRC/dla_geamv.f @@ -172,6 +172,7 @@ SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, $ BETA, $ Y, INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_gercond.f b/SRC/dla_gercond.f index 1b7935dcee..7e2fea9f55 100644 --- a/SRC/dla_gercond.f +++ b/SRC/dla_gercond.f @@ -147,6 +147,7 @@ DOUBLE PRECISION FUNCTION DLA_GERCOND( TRANS, N, A, LDA, AF, $ LDAF, IPIV, CMODE, C, $ INFO, WORK, IWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_gerfsx_extended.f b/SRC/dla_gerfsx_extended.f index 441cdc4484..13825b5403 100644 --- a/SRC/dla_gerfsx_extended.f +++ b/SRC/dla_gerfsx_extended.f @@ -392,6 +392,7 @@ SUBROUTINE DLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, $ ERRS_N, ERRS_C, RES, AYB, DY, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_gerpvgrw.f b/SRC/dla_gerpvgrw.f index eea1a8cbeb..43b140e07f 100644 --- a/SRC/dla_gerpvgrw.f +++ b/SRC/dla_gerpvgrw.f @@ -95,6 +95,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLA_GERPVGRW( N, NCOLS, A, LDA, AF, $ LDAF ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_lin_berr.f b/SRC/dla_lin_berr.f index 104d0b664a..4ee58df3b2 100644 --- a/SRC/dla_lin_berr.f +++ b/SRC/dla_lin_berr.f @@ -96,6 +96,7 @@ * * ===================================================================== SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_porcond.f b/SRC/dla_porcond.f index 459fe017cb..a11c41d613 100644 --- a/SRC/dla_porcond.f +++ b/SRC/dla_porcond.f @@ -138,6 +138,7 @@ DOUBLE PRECISION FUNCTION DLA_PORCOND( UPLO, N, A, LDA, AF, $ LDAF, $ CMODE, C, INFO, WORK, $ IWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_porfsx_extended.f b/SRC/dla_porfsx_extended.f index 37c7b7dcc7..a7c4716945 100644 --- a/SRC/dla_porfsx_extended.f +++ b/SRC/dla_porfsx_extended.f @@ -383,6 +383,7 @@ SUBROUTINE DLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_porpvgrw.f b/SRC/dla_porpvgrw.f index 0da13e90c1..ae0e386919 100644 --- a/SRC/dla_porpvgrw.f +++ b/SRC/dla_porpvgrw.f @@ -102,6 +102,7 @@ DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, $ AF, $ LDAF, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_syamv.f b/SRC/dla_syamv.f index 78e36e787b..c17c4c5c06 100644 --- a/SRC/dla_syamv.f +++ b/SRC/dla_syamv.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE DLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_syrcond.f b/SRC/dla_syrcond.f index 471ecc8675..00d8a33fbe 100644 --- a/SRC/dla_syrcond.f +++ b/SRC/dla_syrcond.f @@ -144,6 +144,7 @@ DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, $ LDAF, $ IPIV, CMODE, C, INFO, WORK, $ IWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_syrfsx_extended.f b/SRC/dla_syrfsx_extended.f index 118816f1e6..46ff962bee 100644 --- a/SRC/dla_syrfsx_extended.f +++ b/SRC/dla_syrfsx_extended.f @@ -392,6 +392,7 @@ SUBROUTINE DLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_syrpvgrw.f b/SRC/dla_syrpvgrw.f index a4cf7553f4..c161599f48 100644 --- a/SRC/dla_syrpvgrw.f +++ b/SRC/dla_syrpvgrw.f @@ -118,6 +118,7 @@ DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, $ AF, $ LDAF, IPIV, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_wwaddw.f b/SRC/dla_wwaddw.f index 5fd74af0d2..c98899e36e 100644 --- a/SRC/dla_wwaddw.f +++ b/SRC/dla_wwaddw.f @@ -76,6 +76,7 @@ * * ===================================================================== SUBROUTINE DLA_WWADDW( N, X, Y, W ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlabad.f b/SRC/dlabad.f index 3b412a76e7..9a84370d8c 100644 --- a/SRC/dlabad.f +++ b/SRC/dlabad.f @@ -63,6 +63,7 @@ * * ===================================================================== SUBROUTINE DLABAD( SMALL, LARGE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlabrd.f b/SRC/dlabrd.f index 7c5d1aeb48..2ab7f53314 100644 --- a/SRC/dlabrd.f +++ b/SRC/dlabrd.f @@ -206,6 +206,7 @@ SUBROUTINE DLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, $ Y, $ LDY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlacn2.f b/SRC/dlacn2.f index 29e0821147..635b752fa0 100644 --- a/SRC/dlacn2.f +++ b/SRC/dlacn2.f @@ -131,6 +131,7 @@ *> * ===================================================================== SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlacon.f b/SRC/dlacon.f index 1757991f48..452fcd2820 100644 --- a/SRC/dlacon.f +++ b/SRC/dlacon.f @@ -110,6 +110,7 @@ *> * ===================================================================== SUBROUTINE DLACON( N, V, X, ISGN, EST, KASE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlacpy.f b/SRC/dlacpy.f index 249f075d85..6a1933d801 100644 --- a/SRC/dlacpy.f +++ b/SRC/dlacpy.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE DLACPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dladiv.f b/SRC/dladiv.f index 65184ce3c4..78cabe2478 100644 --- a/SRC/dladiv.f +++ b/SRC/dladiv.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE DLADIV( A, B, C, D, P, Q ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -172,6 +173,7 @@ SUBROUTINE DLADIV( A, B, C, D, P, Q ) SUBROUTINE DLADIV1( A, B, C, D, P, Q ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlae2.f b/SRC/dlae2.f index 52acdbe949..388b82786e 100644 --- a/SRC/dlae2.f +++ b/SRC/dlae2.f @@ -97,6 +97,7 @@ *> * ===================================================================== SUBROUTINE DLAE2( A, B, C, RT1, RT2 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaebz.f b/SRC/dlaebz.f index 2a96430c74..24a6116433 100644 --- a/SRC/dlaebz.f +++ b/SRC/dlaebz.f @@ -314,6 +314,7 @@ SUBROUTINE DLAEBZ( IJOB, NITMAX, N, MMAX, MINP, NBMIN, ABSTOL, $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed0.f b/SRC/dlaed0.f index f2fc227e12..bc4fcb02de 100644 --- a/SRC/dlaed0.f +++ b/SRC/dlaed0.f @@ -167,6 +167,7 @@ * ===================================================================== SUBROUTINE DLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed1.f b/SRC/dlaed1.f index 081aaf1124..69675ee279 100644 --- a/SRC/dlaed1.f +++ b/SRC/dlaed1.f @@ -159,6 +159,7 @@ SUBROUTINE DLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, $ IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed2.f b/SRC/dlaed2.f index 6d1357df95..a0820fdabc 100644 --- a/SRC/dlaed2.f +++ b/SRC/dlaed2.f @@ -208,6 +208,7 @@ SUBROUTINE DLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMBDA, $ W, $ Q2, INDX, INDXC, INDXP, COLTYP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed3.f b/SRC/dlaed3.f index f8f3e8c687..6024c6c366 100644 --- a/SRC/dlaed3.f +++ b/SRC/dlaed3.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE DLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMBDA, Q2, INDX, $ CTOT, W, S, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed4.f b/SRC/dlaed4.f index def7d6c15b..2aac7145f2 100644 --- a/SRC/dlaed4.f +++ b/SRC/dlaed4.f @@ -140,6 +140,7 @@ *> * ===================================================================== SUBROUTINE DLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed5.f b/SRC/dlaed5.f index 34353e2f60..fb888497b5 100644 --- a/SRC/dlaed5.f +++ b/SRC/dlaed5.f @@ -103,6 +103,7 @@ *> * ===================================================================== SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed6.f b/SRC/dlaed6.f index c05d97ac34..691aa08d31 100644 --- a/SRC/dlaed6.f +++ b/SRC/dlaed6.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed7.f b/SRC/dlaed7.f index 8bdce4f407..a6da1e25a8 100644 --- a/SRC/dlaed7.f +++ b/SRC/dlaed7.f @@ -256,6 +256,7 @@ SUBROUTINE DLAED7( ICOMPQ, N, QSIZ, TLVLS, CURLVL, CURPBM, D, $ LDQ, INDXQ, RHO, CUTPNT, QSTORE, QPTR, PRMPTR, $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed8.f b/SRC/dlaed8.f index 367f8d9f5d..1535dc0554 100644 --- a/SRC/dlaed8.f +++ b/SRC/dlaed8.f @@ -238,6 +238,7 @@ SUBROUTINE DLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, $ CUTPNT, Z, DLAMBDA, Q2, LDQ2, W, PERM, GIVPTR, $ GIVCOL, GIVNUM, INDXP, INDX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaed9.f b/SRC/dlaed9.f index e0980e8619..077d982e86 100644 --- a/SRC/dlaed9.f +++ b/SRC/dlaed9.f @@ -152,6 +152,7 @@ SUBROUTINE DLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, $ DLAMBDA, $ W, S, LDS, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaeda.f b/SRC/dlaeda.f index b97a604a02..0c787eb477 100644 --- a/SRC/dlaeda.f +++ b/SRC/dlaeda.f @@ -162,6 +162,7 @@ SUBROUTINE DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, $ GIVPTR, $ GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaein.f b/SRC/dlaein.f index 3c62efac02..17bb819aaa 100644 --- a/SRC/dlaein.f +++ b/SRC/dlaein.f @@ -168,6 +168,7 @@ SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, $ B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaev2.f b/SRC/dlaev2.f index 6455be1e31..b808e708de 100644 --- a/SRC/dlaev2.f +++ b/SRC/dlaev2.f @@ -115,6 +115,7 @@ *> * ===================================================================== SUBROUTINE DLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaexc.f b/SRC/dlaexc.f index 0b7bd454aa..fd1022a9bc 100644 --- a/SRC/dlaexc.f +++ b/SRC/dlaexc.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlag2.f b/SRC/dlag2.f index 806e4f7136..eb01a9f712 100644 --- a/SRC/dlag2.f +++ b/SRC/dlag2.f @@ -151,6 +151,7 @@ * ===================================================================== SUBROUTINE DLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, $ WR2, WI ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlag2s.f b/SRC/dlag2s.f index 4b0cfe4441..b0a3756bd7 100644 --- a/SRC/dlag2s.f +++ b/SRC/dlag2s.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE DLAG2S( M, N, A, LDA, SA, LDSA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlags2.f b/SRC/dlags2.f index 08687d1f58..ea4ca74e3f 100644 --- a/SRC/dlags2.f +++ b/SRC/dlags2.f @@ -148,6 +148,7 @@ SUBROUTINE DLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, $ CSV, $ SNV, CSQ, SNQ ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlagtf.f b/SRC/dlagtf.f index d97796969e..4e35725500 100644 --- a/SRC/dlagtf.f +++ b/SRC/dlagtf.f @@ -151,6 +151,7 @@ * * ===================================================================== SUBROUTINE DLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlagtm.f b/SRC/dlagtm.f index 22947faf5f..83a235df28 100644 --- a/SRC/dlagtm.f +++ b/SRC/dlagtm.f @@ -141,6 +141,7 @@ SUBROUTINE DLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, $ BETA, $ B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlagts.f b/SRC/dlagts.f index 8c732c1f1e..5efb4c6f7b 100644 --- a/SRC/dlagts.f +++ b/SRC/dlagts.f @@ -158,6 +158,7 @@ * * ===================================================================== SUBROUTINE DLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlagv2.f b/SRC/dlagv2.f index 89d3f8635c..893de5affb 100644 --- a/SRC/dlagv2.f +++ b/SRC/dlagv2.f @@ -153,6 +153,7 @@ SUBROUTINE DLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, $ SNL, $ CSR, SNR ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlahr2.f b/SRC/dlahr2.f index 892d211d4f..9a7eebf028 100644 --- a/SRC/dlahr2.f +++ b/SRC/dlahr2.f @@ -176,6 +176,7 @@ *> * ===================================================================== SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaic1.f b/SRC/dlaic1.f index c66da30d06..83fb4fb542 100644 --- a/SRC/dlaic1.f +++ b/SRC/dlaic1.f @@ -129,6 +129,7 @@ * * ===================================================================== SUBROUTINE DLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaisnan.f b/SRC/dlaisnan.f index da01fdfb4b..d74fcf6a26 100644 --- a/SRC/dlaisnan.f +++ b/SRC/dlaisnan.f @@ -69,6 +69,7 @@ * * ===================================================================== LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaln2.f b/SRC/dlaln2.f index 5b3eb7d341..9219df95f9 100644 --- a/SRC/dlaln2.f +++ b/SRC/dlaln2.f @@ -213,6 +213,7 @@ * ===================================================================== SUBROUTINE DLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlals0.f b/SRC/dlals0.f index c399e0bc0f..168f176da9 100644 --- a/SRC/dlals0.f +++ b/SRC/dlals0.f @@ -264,6 +264,7 @@ SUBROUTINE DLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, $ LDBX, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlalsa.f b/SRC/dlalsa.f index da1d1375d9..a0768f6a29 100644 --- a/SRC/dlalsa.f +++ b/SRC/dlalsa.f @@ -263,6 +263,7 @@ SUBROUTINE DLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, $ LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlalsd.f b/SRC/dlalsd.f index 644a788a45..8844e75526 100644 --- a/SRC/dlalsd.f +++ b/SRC/dlalsd.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlamrg.f b/SRC/dlamrg.f index eaabeb1dd7..d270b35038 100644 --- a/SRC/dlamrg.f +++ b/SRC/dlamrg.f @@ -94,6 +94,7 @@ * * ===================================================================== SUBROUTINE DLAMRG( N1, N2, A, DTRD1, DTRD2, INDEX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlamswlq.f b/SRC/dlamswlq.f index 07ef1bd57d..0ba13a2948 100644 --- a/SRC/dlamswlq.f +++ b/SRC/dlamswlq.f @@ -197,6 +197,7 @@ * ===================================================================== SUBROUTINE DLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlamtsqr.f b/SRC/dlamtsqr.f index 023db5ac9b..3a9a0bec05 100644 --- a/SRC/dlamtsqr.f +++ b/SRC/dlamtsqr.f @@ -198,6 +198,7 @@ * ===================================================================== SUBROUTINE DLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaneg.f b/SRC/dlaneg.f index ae73d87036..7f09043de3 100644 --- a/SRC/dlaneg.f +++ b/SRC/dlaneg.f @@ -113,6 +113,7 @@ *> * ===================================================================== INTEGER FUNCTION DLANEG( N, D, LLD, SIGMA, PIVMIN, R ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlangb.f b/SRC/dlangb.f index b96f2cf953..ca77c81206 100644 --- a/SRC/dlangb.f +++ b/SRC/dlangb.f @@ -119,6 +119,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlange.f b/SRC/dlange.f index 890154e9b8..a6769de8ba 100644 --- a/SRC/dlange.f +++ b/SRC/dlange.f @@ -109,6 +109,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGE( NORM, M, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlangt.f b/SRC/dlangt.f index a19b4e1527..4202894a87 100644 --- a/SRC/dlangt.f +++ b/SRC/dlangt.f @@ -101,6 +101,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGT( NORM, N, DL, D, DU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlanhs.f b/SRC/dlanhs.f index 58c326e9fa..adb17e0782 100644 --- a/SRC/dlanhs.f +++ b/SRC/dlanhs.f @@ -103,6 +103,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlansb.f b/SRC/dlansb.f index 1e13a959ec..2140a79cb1 100644 --- a/SRC/dlansb.f +++ b/SRC/dlansb.f @@ -124,6 +124,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlansf.f b/SRC/dlansf.f index 1c27a85578..e255786d6b 100644 --- a/SRC/dlansf.f +++ b/SRC/dlansf.f @@ -205,6 +205,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, $ WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlansp.f b/SRC/dlansp.f index dc59e7186d..082bbef971 100644 --- a/SRC/dlansp.f +++ b/SRC/dlansp.f @@ -109,6 +109,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlanst.f b/SRC/dlanst.f index 5ae195d3f7..d2da5853e6 100644 --- a/SRC/dlanst.f +++ b/SRC/dlanst.f @@ -95,6 +95,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DLANST( NORM, N, D, E ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlansy.f b/SRC/dlansy.f index 2f2b5a1385..aec1b43ca5 100644 --- a/SRC/dlansy.f +++ b/SRC/dlansy.f @@ -117,6 +117,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlantb.f b/SRC/dlantb.f index 4ca995fca7..8ca8a12323 100644 --- a/SRC/dlantb.f +++ b/SRC/dlantb.f @@ -135,6 +135,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlantp.f b/SRC/dlantp.f index 9ded72d49f..1e13f69ea5 100644 --- a/SRC/dlantp.f +++ b/SRC/dlantp.f @@ -120,6 +120,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLANTP( NORM, UPLO, DIAG, N, AP, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlantr.f b/SRC/dlantr.f index d2ccc63694..8c80a2f54d 100644 --- a/SRC/dlantr.f +++ b/SRC/dlantr.f @@ -137,6 +137,7 @@ DOUBLE PRECISION FUNCTION DLANTR( NORM, UPLO, DIAG, M, N, A, $ LDA, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlanv2.f b/SRC/dlanv2.f index 9717224ea2..97c6489068 100644 --- a/SRC/dlanv2.f +++ b/SRC/dlanv2.f @@ -122,6 +122,7 @@ *> * ===================================================================== SUBROUTINE DLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlapll.f b/SRC/dlapll.f index 59c40010f3..57a94ca960 100644 --- a/SRC/dlapll.f +++ b/SRC/dlapll.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE DLAPLL( N, X, INCX, Y, INCY, SSMIN ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlapmr.f b/SRC/dlapmr.f index 7a8db76001..d715128b26 100644 --- a/SRC/dlapmr.f +++ b/SRC/dlapmr.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DLAPMR( FORWRD, M, N, X, LDX, K ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlapmt.f b/SRC/dlapmt.f index 28847d5d98..c7134fec3d 100644 --- a/SRC/dlapmt.f +++ b/SRC/dlapmt.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DLAPMT( FORWRD, M, N, X, LDX, K ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlapy2.f b/SRC/dlapy2.f index d4b16abd0b..5b092c31d8 100644 --- a/SRC/dlapy2.f +++ b/SRC/dlapy2.f @@ -58,6 +58,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlapy3.f b/SRC/dlapy3.f index 339b7fa889..77548d73c3 100644 --- a/SRC/dlapy3.f +++ b/SRC/dlapy3.f @@ -63,6 +63,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqgb.f b/SRC/dlaqgb.f index 7c9e167274..00f7770485 100644 --- a/SRC/dlaqgb.f +++ b/SRC/dlaqgb.f @@ -155,6 +155,7 @@ SUBROUTINE DLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqge.f b/SRC/dlaqge.f index eda6621bc3..252a0c8952 100644 --- a/SRC/dlaqge.f +++ b/SRC/dlaqge.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE DLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index d7b44fa7eb..d32f075484 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -142,6 +142,7 @@ * ===================================================================== SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqps.f b/SRC/dlaqps.f index ef7c023779..bb199fdeeb 100644 --- a/SRC/dlaqps.f +++ b/SRC/dlaqps.f @@ -171,6 +171,7 @@ SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, $ VN1, $ VN2, AUXV, F, LDF ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqr0.f b/SRC/dlaqr0.f index bb39c6759e..c25e0bfea2 100644 --- a/SRC/dlaqr0.f +++ b/SRC/dlaqr0.f @@ -251,6 +251,7 @@ * ===================================================================== SUBROUTINE DLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqr1.f b/SRC/dlaqr1.f index 7b6891a7a1..564c4ed732 100644 --- a/SRC/dlaqr1.f +++ b/SRC/dlaqr1.f @@ -116,6 +116,7 @@ *> * ===================================================================== SUBROUTINE DLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqr2.f b/SRC/dlaqr2.f index 5352b92576..02ae83cb5d 100644 --- a/SRC/dlaqr2.f +++ b/SRC/dlaqr2.f @@ -274,6 +274,7 @@ SUBROUTINE DLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, $ ILOZ, $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqr3.f b/SRC/dlaqr3.f index ab2249ff3c..9ddd8c7a4a 100644 --- a/SRC/dlaqr3.f +++ b/SRC/dlaqr3.f @@ -271,6 +271,7 @@ SUBROUTINE DLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, $ ILOZ, $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqr4.f b/SRC/dlaqr4.f index 2bb2632f6c..1432106d1d 100644 --- a/SRC/dlaqr4.f +++ b/SRC/dlaqr4.f @@ -258,6 +258,7 @@ * ===================================================================== SUBROUTINE DLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqsb.f b/SRC/dlaqsb.f index 787bb38a87..a433c4f4b5 100644 --- a/SRC/dlaqsb.f +++ b/SRC/dlaqsb.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE DLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqsp.f b/SRC/dlaqsp.f index 5e1344445a..cdeabb491a 100644 --- a/SRC/dlaqsp.f +++ b/SRC/dlaqsp.f @@ -120,6 +120,7 @@ * * ===================================================================== SUBROUTINE DLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqsy.f b/SRC/dlaqsy.f index 5951d41703..c02b783049 100644 --- a/SRC/dlaqsy.f +++ b/SRC/dlaqsy.f @@ -128,6 +128,7 @@ * * ===================================================================== SUBROUTINE DLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaqtr.f b/SRC/dlaqtr.f index 6b223c2005..a08c23fe0d 100644 --- a/SRC/dlaqtr.f +++ b/SRC/dlaqtr.f @@ -161,6 +161,7 @@ SUBROUTINE DLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlar1v.f b/SRC/dlar1v.f index 974cffcc56..cd585d2acc 100644 --- a/SRC/dlar1v.f +++ b/SRC/dlar1v.f @@ -225,6 +225,7 @@ SUBROUTINE DLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlar2v.f b/SRC/dlar2v.f index 4a7e259e28..4055f1e4b3 100644 --- a/SRC/dlar2v.f +++ b/SRC/dlar2v.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE DLAR2V( N, X, Y, Z, INCX, C, S, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarf.f b/SRC/dlarf.f index 01d7e0a90c..b4075b5c62 100644 --- a/SRC/dlarf.f +++ b/SRC/dlarf.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarf1f.f b/SRC/dlarf1f.f index 8c75382052..c65035c61f 100644 --- a/SRC/dlarf1f.f +++ b/SRC/dlarf1f.f @@ -154,6 +154,7 @@ * * ===================================================================== SUBROUTINE DLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarf1l.f b/SRC/dlarf1l.f index 5b7ea2b0ea..d225701fcd 100644 --- a/SRC/dlarf1l.f +++ b/SRC/dlarf1l.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE DLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarfb.f b/SRC/dlarfb.f index 02852c143c..66b244d331 100644 --- a/SRC/dlarfb.f +++ b/SRC/dlarfb.f @@ -192,6 +192,7 @@ SUBROUTINE DLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, $ LDV, $ T, LDT, C, LDC, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarfg.f b/SRC/dlarfg.f index 647d940b1a..38f65af0fb 100644 --- a/SRC/dlarfg.f +++ b/SRC/dlarfg.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarfgp.f b/SRC/dlarfgp.f index 32ff05d00e..a1431ebe2c 100644 --- a/SRC/dlarfgp.f +++ b/SRC/dlarfgp.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarft.f b/SRC/dlarft.f index e6149ded7b..5f87623cf3 100644 --- a/SRC/dlarft.f +++ b/SRC/dlarft.f @@ -159,6 +159,7 @@ * ===================================================================== RECURSIVE SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, $ TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarfx.f b/SRC/dlarfx.f index 183e9ffabd..4bc96b5a4a 100644 --- a/SRC/dlarfx.f +++ b/SRC/dlarfx.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarfy.f b/SRC/dlarfy.f index 7972a62540..18ac578ddf 100644 --- a/SRC/dlarfy.f +++ b/SRC/dlarfy.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlargv.f b/SRC/dlargv.f index 9fada51dcf..2485c6fd5d 100644 --- a/SRC/dlargv.f +++ b/SRC/dlargv.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DLARGV( N, X, INCX, Y, INCY, C, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarnv.f b/SRC/dlarnv.f index 033062bc5d..cfa4c5b303 100644 --- a/SRC/dlarnv.f +++ b/SRC/dlarnv.f @@ -92,6 +92,7 @@ *> * ===================================================================== SUBROUTINE DLARNV( IDIST, ISEED, N, X ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarra.f b/SRC/dlarra.f index 3b08789d9b..2a6c37f485 100644 --- a/SRC/dlarra.f +++ b/SRC/dlarra.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE DLARRA( N, D, E, E2, SPLTOL, TNRM, $ NSPLIT, ISPLIT, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarrb.f b/SRC/dlarrb.f index 63b3e32c47..38555f818a 100644 --- a/SRC/dlarrb.f +++ b/SRC/dlarrb.f @@ -191,6 +191,7 @@ SUBROUTINE DLARRB( N, D, LLD, IFIRST, ILAST, RTOL1, $ RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, TWIST, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarrc.f b/SRC/dlarrc.f index b5515d6311..95995430e4 100644 --- a/SRC/dlarrc.f +++ b/SRC/dlarrc.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN, $ EIGCNT, LCNT, RCNT, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarrd.f b/SRC/dlarrd.f index 0654883c9f..69e957c655 100644 --- a/SRC/dlarrd.f +++ b/SRC/dlarrd.f @@ -324,6 +324,7 @@ SUBROUTINE DLARRD( RANGE, ORDER, N, VL, VU, IL, IU, GERS, $ RELTOL, D, E, E2, PIVMIN, NSPLIT, ISPLIT, $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarre.f b/SRC/dlarre.f index ae7b95820e..5dc07904fe 100644 --- a/SRC/dlarre.f +++ b/SRC/dlarre.f @@ -300,6 +300,7 @@ SUBROUTINE DLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2, $ RTOL1, RTOL2, SPLTOL, NSPLIT, ISPLIT, M, $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f index 31b42c131f..1f1b8c7dbe 100644 --- a/SRC/dlarrf.f +++ b/SRC/dlarrf.f @@ -188,6 +188,7 @@ SUBROUTINE DLARRF( N, D, L, LD, CLSTRT, CLEND, $ W, WGAP, WERR, $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarrj.f b/SRC/dlarrj.f index 346baf52ba..af3110f6eb 100644 --- a/SRC/dlarrj.f +++ b/SRC/dlarrj.f @@ -163,6 +163,7 @@ SUBROUTINE DLARRJ( N, D, E2, IFIRST, ILAST, $ RTOL, OFFSET, W, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarrk.f b/SRC/dlarrk.f index 7e10520c43..ea95a59ed6 100644 --- a/SRC/dlarrk.f +++ b/SRC/dlarrk.f @@ -140,6 +140,7 @@ * ===================================================================== SUBROUTINE DLARRK( N, IW, GL, GU, $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarrr.f b/SRC/dlarrr.f index 00ca0192e6..8ac1c0238e 100644 --- a/SRC/dlarrr.f +++ b/SRC/dlarrr.f @@ -89,6 +89,7 @@ * * ===================================================================== SUBROUTINE DLARRR( N, D, E, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarrv.f b/SRC/dlarrv.f index 6b4cbf13ed..4cf354ab76 100644 --- a/SRC/dlarrv.f +++ b/SRC/dlarrv.f @@ -287,6 +287,7 @@ SUBROUTINE DLARRV( N, VL, VU, D, L, PIVMIN, $ RTOL1, RTOL2, W, WERR, WGAP, $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarscl2.f b/SRC/dlarscl2.f index baa1178a46..ee55636f9a 100644 --- a/SRC/dlarscl2.f +++ b/SRC/dlarscl2.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE DLARSCL2 ( M, N, D, X, LDX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlartg.f90 b/SRC/dlartg.f90 index b96b8d49fc..f6facdb1a6 100644 --- a/SRC/dlartg.f90 +++ b/SRC/dlartg.f90 @@ -111,6 +111,7 @@ subroutine DLARTG( f, g, c, s, r ) use LA_CONSTANTS, & only: wp=>dp, zero=>dzero, half=>dhalf, one=>done, & safmin=>dsafmin, safmax=>dsafmax + implicit none ! ! -- LAPACK auxiliary routine -- ! -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlartgp.f b/SRC/dlartgp.f index 8e5dd30314..27c02581eb 100644 --- a/SRC/dlartgp.f +++ b/SRC/dlartgp.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE DLARTGP( F, G, CS, SN, R ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlartgs.f b/SRC/dlartgs.f index 2c64b5e761..8ec0e256be 100644 --- a/SRC/dlartgs.f +++ b/SRC/dlartgs.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE DLARTGS( X, Y, SIGMA, CS, SN ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlartv.f b/SRC/dlartv.f index 329f749fdf..9dc4284f42 100644 --- a/SRC/dlartv.f +++ b/SRC/dlartv.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE DLARTV( N, X, INCX, Y, INCY, C, S, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaruv.f b/SRC/dlaruv.f index 129a4a0d1e..cd0ea3d51d 100644 --- a/SRC/dlaruv.f +++ b/SRC/dlaruv.f @@ -90,6 +90,7 @@ *> * ===================================================================== SUBROUTINE DLARUV( ISEED, N, X ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarz.f b/SRC/dlarz.f index 417a462671..de3136d592 100644 --- a/SRC/dlarz.f +++ b/SRC/dlarz.f @@ -140,6 +140,7 @@ *> * ===================================================================== SUBROUTINE DLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarzb.f b/SRC/dlarzb.f index e8a64346b7..ff1645b530 100644 --- a/SRC/dlarzb.f +++ b/SRC/dlarzb.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE DLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlarzt.f b/SRC/dlarzt.f index ff3a09fb1c..e570903a0c 100644 --- a/SRC/dlarzt.f +++ b/SRC/dlarzt.f @@ -180,6 +180,7 @@ *> * ===================================================================== SUBROUTINE DLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlas2.f b/SRC/dlas2.f index f6d784b857..a5e2406ea0 100644 --- a/SRC/dlas2.f +++ b/SRC/dlas2.f @@ -100,6 +100,7 @@ *> * ===================================================================== SUBROUTINE DLAS2( F, G, H, SSMIN, SSMAX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlascl.f b/SRC/dlascl.f index 5f85e9ca9e..79ff0d2c84 100644 --- a/SRC/dlascl.f +++ b/SRC/dlascl.f @@ -139,6 +139,7 @@ * ===================================================================== SUBROUTINE DLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlascl2.f b/SRC/dlascl2.f index b6feebf978..0eb0990ac0 100644 --- a/SRC/dlascl2.f +++ b/SRC/dlascl2.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE DLASCL2 ( M, N, D, X, LDX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd0.f b/SRC/dlasd0.f index 7da6563690..a5f301c014 100644 --- a/SRC/dlasd0.f +++ b/SRC/dlasd0.f @@ -148,6 +148,7 @@ SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, $ IWORK, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd1.f b/SRC/dlasd1.f index 43a97731f4..96078d3668 100644 --- a/SRC/dlasd1.f +++ b/SRC/dlasd1.f @@ -200,6 +200,7 @@ SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, $ LDVT, $ IDXQ, IWORK, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd2.f b/SRC/dlasd2.f index 72803bd74c..911b43fad1 100644 --- a/SRC/dlasd2.f +++ b/SRC/dlasd2.f @@ -265,6 +265,7 @@ SUBROUTINE DLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, $ VT, $ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, $ IDXC, IDXQ, COLTYP, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd3.f b/SRC/dlasd3.f index 23dd7789a9..6effd905df 100644 --- a/SRC/dlasd3.f +++ b/SRC/dlasd3.f @@ -213,6 +213,7 @@ SUBROUTINE DLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, $ U2, $ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd4.f b/SRC/dlasd4.f index 7e926d3424..dee6f32a41 100644 --- a/SRC/dlasd4.f +++ b/SRC/dlasd4.f @@ -148,6 +148,7 @@ *> * ===================================================================== SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd5.f b/SRC/dlasd5.f index 4fdfeee006..cc82db40b1 100644 --- a/SRC/dlasd5.f +++ b/SRC/dlasd5.f @@ -111,6 +111,7 @@ *> * ===================================================================== SUBROUTINE DLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd6.f b/SRC/dlasd6.f index 727be657a4..276efd365f 100644 --- a/SRC/dlasd6.f +++ b/SRC/dlasd6.f @@ -309,6 +309,7 @@ SUBROUTINE DLASD6( ICOMPQ, NL, NR, SQRE, D, VF, VL, ALPHA, $ IDXQ, PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd7.f b/SRC/dlasd7.f index a4ea5ae38d..e7baeb2448 100644 --- a/SRC/dlasd7.f +++ b/SRC/dlasd7.f @@ -276,6 +276,7 @@ SUBROUTINE DLASD7( ICOMPQ, NL, NR, SQRE, K, D, Z, ZW, VF, VFW, $ VLW, ALPHA, BETA, DSIGMA, IDX, IDXP, IDXQ, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ C, S, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasd8.f b/SRC/dlasd8.f index 1d079e88b2..c446ca4a2a 100644 --- a/SRC/dlasd8.f +++ b/SRC/dlasd8.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasda.f b/SRC/dlasda.f index 70333f7ba8..70bc87bd0c 100644 --- a/SRC/dlasda.f +++ b/SRC/dlasda.f @@ -269,6 +269,7 @@ SUBROUTINE DLASDA( ICOMPQ, SMLSIZ, N, SQRE, D, E, U, LDU, VT, $ K, $ DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, $ PERM, GIVNUM, C, S, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasdq.f b/SRC/dlasdq.f index abed6eead1..5c6fdb650e 100644 --- a/SRC/dlasdq.f +++ b/SRC/dlasdq.f @@ -207,6 +207,7 @@ SUBROUTINE DLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, $ LDVT, $ U, LDU, C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasdt.f b/SRC/dlasdt.f index 0645b498ef..23d62b5ac1 100644 --- a/SRC/dlasdt.f +++ b/SRC/dlasdt.f @@ -100,6 +100,7 @@ *> * ===================================================================== SUBROUTINE DLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaset.f b/SRC/dlaset.f index dcd1011e7d..67777a8c2e 100644 --- a/SRC/dlaset.f +++ b/SRC/dlaset.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE DLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasq1.f b/SRC/dlasq1.f index b0cafb38bb..0b4903dd16 100644 --- a/SRC/dlasq1.f +++ b/SRC/dlasq1.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE DLASQ1( N, D, E, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasq2.f b/SRC/dlasq2.f index b027036535..7f46e06b9e 100644 --- a/SRC/dlasq2.f +++ b/SRC/dlasq2.f @@ -107,6 +107,7 @@ *> * ===================================================================== SUBROUTINE DLASQ2( N, Z, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasq3.f b/SRC/dlasq3.f index 22bdbfed28..50769f906d 100644 --- a/SRC/dlasq3.f +++ b/SRC/dlasq3.f @@ -178,6 +178,7 @@ SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, $ NFAIL, $ ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, $ DN2, G, TAU ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasq4.f b/SRC/dlasq4.f index 46a89c57f9..cd99b14237 100644 --- a/SRC/dlasq4.f +++ b/SRC/dlasq4.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasq5.f b/SRC/dlasq5.f index da8d047d58..99e046317b 100644 --- a/SRC/dlasq5.f +++ b/SRC/dlasq5.f @@ -140,6 +140,7 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, $ DMIN2, $ DN, DNM1, DNM2, IEEE, EPS ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasq6.f b/SRC/dlasq6.f index 28aad64a0c..1f3b3e4524 100644 --- a/SRC/dlasq6.f +++ b/SRC/dlasq6.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasr.f b/SRC/dlasr.f index afb2143016..c3a805ab12 100644 --- a/SRC/dlasr.f +++ b/SRC/dlasr.f @@ -194,6 +194,7 @@ * * ===================================================================== SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasrt.f b/SRC/dlasrt.f index ede2cfab2a..09a960d851 100644 --- a/SRC/dlasrt.f +++ b/SRC/dlasrt.f @@ -83,6 +83,7 @@ * * ===================================================================== SUBROUTINE DLASRT( ID, N, D, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlassq.f90 b/SRC/dlassq.f90 index a967502a41..19a36a43dc 100644 --- a/SRC/dlassq.f90 +++ b/SRC/dlassq.f90 @@ -123,6 +123,7 @@ subroutine DLASSQ( n, x, incx, scale, sumsq ) only: wp=>dp, zero=>dzero, one=>done, & sbig=>dsbig, ssml=>dssml, tbig=>dtbig, tsml=>dtsml use LA_XISNAN + implicit none ! ! -- LAPACK auxiliary routine -- ! -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasv2.f b/SRC/dlasv2.f index 363d693021..87c31867d2 100644 --- a/SRC/dlasv2.f +++ b/SRC/dlasv2.f @@ -131,6 +131,7 @@ *> * ===================================================================== SUBROUTINE DLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaswlq.f b/SRC/dlaswlq.f index 636c12dc87..1fe8885012 100644 --- a/SRC/dlaswlq.f +++ b/SRC/dlaswlq.f @@ -167,6 +167,7 @@ * ===================================================================== SUBROUTINE DLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlaswp.f b/SRC/dlaswp.f index 1f32cb93e2..38d35fc283 100644 --- a/SRC/dlaswp.f +++ b/SRC/dlaswp.f @@ -110,6 +110,7 @@ *> * ===================================================================== SUBROUTINE DLASWP( N, A, LDA, K1, K2, IPIV, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasy2.f b/SRC/dlasy2.f index 4ded6bf11f..3c1fe876f6 100644 --- a/SRC/dlasy2.f +++ b/SRC/dlasy2.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE DLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, $ LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasyf.f b/SRC/dlasyf.f index e17a477b55..68e0087f38 100644 --- a/SRC/dlasyf.f +++ b/SRC/dlasyf.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE DLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasyf_rk.f b/SRC/dlasyf_rk.f index 25e729247b..174469e362 100644 --- a/SRC/dlasyf_rk.f +++ b/SRC/dlasyf_rk.f @@ -257,6 +257,7 @@ * ===================================================================== SUBROUTINE DLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlasyf_rook.f b/SRC/dlasyf_rook.f index a81b538165..ea2ce91d70 100644 --- a/SRC/dlasyf_rook.f +++ b/SRC/dlasyf_rook.f @@ -179,6 +179,7 @@ * ===================================================================== SUBROUTINE DLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlat2s.f b/SRC/dlat2s.f index c96839c365..9ffb61bace 100644 --- a/SRC/dlat2s.f +++ b/SRC/dlat2s.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlatbs.f b/SRC/dlatbs.f index 18ab9a012d..51ea9f1ca5 100644 --- a/SRC/dlatbs.f +++ b/SRC/dlatbs.f @@ -238,6 +238,7 @@ SUBROUTINE DLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, $ X, $ SCALE, CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlatdf.f b/SRC/dlatdf.f index f90e2cb62c..c0ddb1fa57 100644 --- a/SRC/dlatdf.f +++ b/SRC/dlatdf.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE DLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlatps.f b/SRC/dlatps.f index c80eaebb15..4f47b991d6 100644 --- a/SRC/dlatps.f +++ b/SRC/dlatps.f @@ -224,6 +224,7 @@ * ===================================================================== SUBROUTINE DLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlatrd.f b/SRC/dlatrd.f index 57224a08ae..a8a11543cf 100644 --- a/SRC/dlatrd.f +++ b/SRC/dlatrd.f @@ -193,6 +193,7 @@ *> * ===================================================================== SUBROUTINE DLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlatrs.f b/SRC/dlatrs.f index 610c8dbe4a..ff38d41233 100644 --- a/SRC/dlatrs.f +++ b/SRC/dlatrs.f @@ -234,6 +234,7 @@ SUBROUTINE DLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, $ SCALE, $ CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlatrz.f b/SRC/dlatrz.f index 49675db96c..83394e019a 100644 --- a/SRC/dlatrz.f +++ b/SRC/dlatrz.f @@ -135,6 +135,7 @@ *> * ===================================================================== SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlatsqr.f b/SRC/dlatsqr.f index 0000aab68c..8c596ce2fb 100644 --- a/SRC/dlatsqr.f +++ b/SRC/dlatsqr.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE DLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlauu2.f b/SRC/dlauu2.f index 17971fb31d..b62eaad835 100644 --- a/SRC/dlauu2.f +++ b/SRC/dlauu2.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE DLAUU2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dlauum.f b/SRC/dlauum.f index 3f4bb28af3..2321f238fe 100644 --- a/SRC/dlauum.f +++ b/SRC/dlauum.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE DLAUUM( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dopgtr.f b/SRC/dopgtr.f index a519c85d78..7a5de71e59 100644 --- a/SRC/dopgtr.f +++ b/SRC/dopgtr.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dopmtr.f b/SRC/dopmtr.f index 23617b5411..5646b8eacc 100644 --- a/SRC/dopmtr.f +++ b/SRC/dopmtr.f @@ -146,6 +146,7 @@ SUBROUTINE DOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorbdb.f b/SRC/dorbdb.f index 980fe5a10d..08be1794a6 100644 --- a/SRC/dorbdb.f +++ b/SRC/dorbdb.f @@ -283,6 +283,7 @@ SUBROUTINE DORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, $ LDX12, $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorbdb1.f b/SRC/dorbdb1.f index 553ef9fcd1..c52293bb68 100644 --- a/SRC/dorbdb1.f +++ b/SRC/dorbdb1.f @@ -199,6 +199,7 @@ SUBROUTINE DORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorbdb2.f b/SRC/dorbdb2.f index 3762f943bb..8a5b8d9bae 100644 --- a/SRC/dorbdb2.f +++ b/SRC/dorbdb2.f @@ -198,6 +198,7 @@ SUBROUTINE DORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorbdb3.f b/SRC/dorbdb3.f index 7cc0c79ee8..855b711a5a 100644 --- a/SRC/dorbdb3.f +++ b/SRC/dorbdb3.f @@ -197,6 +197,7 @@ SUBROUTINE DORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f index 2198b37c09..6a218fa8ad 100644 --- a/SRC/dorbdb4.f +++ b/SRC/dorbdb4.f @@ -209,6 +209,7 @@ SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorbdb5.f b/SRC/dorbdb5.f index e89449c7ce..8f03a4081e 100644 --- a/SRC/dorbdb5.f +++ b/SRC/dorbdb5.f @@ -152,6 +152,7 @@ SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, $ Q2, $ LDQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f index 61606d7421..82aa93a5a3 100644 --- a/SRC/dorbdb6.f +++ b/SRC/dorbdb6.f @@ -155,6 +155,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, $ Q2, $ LDQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f index a39766c8a9..3a3fab2861 100644 --- a/SRC/dorcsd.f +++ b/SRC/dorcsd.f @@ -296,6 +296,7 @@ RECURSIVE SUBROUTINE DORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, $ LDX12, X21, LDX21, X22, LDX22, THETA, $ U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorcsd2by1.f b/SRC/dorcsd2by1.f index d29009d459..ab62ecdb8c 100644 --- a/SRC/dorcsd2by1.f +++ b/SRC/dorcsd2by1.f @@ -229,6 +229,7 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, $ LDX11, $ X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, $ LDV1T, WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine (3.5.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorg2l.f b/SRC/dorg2l.f index 3f41111060..5111fa19ff 100644 --- a/SRC/dorg2l.f +++ b/SRC/dorg2l.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorg2r.f b/SRC/dorg2r.f index 1758ded4e7..213a2d54c5 100644 --- a/SRC/dorg2r.f +++ b/SRC/dorg2r.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorgbr.f b/SRC/dorgbr.f index 11599e5a1f..cf24a14c7f 100644 --- a/SRC/dorgbr.f +++ b/SRC/dorgbr.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE DORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorghr.f b/SRC/dorghr.f index 5729a823f1..4438348c47 100644 --- a/SRC/dorghr.f +++ b/SRC/dorghr.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE DORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorgl2.f b/SRC/dorgl2.f index 4649e8d4f5..d8f10ebbe5 100644 --- a/SRC/dorgl2.f +++ b/SRC/dorgl2.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE DORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorglq.f b/SRC/dorglq.f index 71ff93fa66..d775a96f98 100644 --- a/SRC/dorglq.f +++ b/SRC/dorglq.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE DORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorgql.f b/SRC/dorgql.f index c7bba63c22..50fbf8a83a 100644 --- a/SRC/dorgql.f +++ b/SRC/dorgql.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE DORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorgqr.f b/SRC/dorgqr.f index 83e26588e3..edf783ebd4 100644 --- a/SRC/dorgqr.f +++ b/SRC/dorgqr.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE DORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorgr2.f b/SRC/dorgr2.f index 25b3d937c5..43e731966f 100644 --- a/SRC/dorgr2.f +++ b/SRC/dorgr2.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorgrq.f b/SRC/dorgrq.f index 126489bbe9..7a8c1f0158 100644 --- a/SRC/dorgrq.f +++ b/SRC/dorgrq.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE DORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorgtr.f b/SRC/dorgtr.f index f52d6022e6..c10865fff6 100644 --- a/SRC/dorgtr.f +++ b/SRC/dorgtr.f @@ -118,6 +118,7 @@ * * ===================================================================== SUBROUTINE DORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorm2l.f b/SRC/dorm2l.f index 3551e0794e..f86a12f3a6 100644 --- a/SRC/dorm2l.f +++ b/SRC/dorm2l.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE DORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorm2r.f b/SRC/dorm2r.f index 3074e5115e..0bda2b1497 100644 --- a/SRC/dorm2r.f +++ b/SRC/dorm2r.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormbr.f b/SRC/dormbr.f index 396ba91459..cc86aa291a 100644 --- a/SRC/dormbr.f +++ b/SRC/dormbr.f @@ -190,6 +190,7 @@ * ===================================================================== SUBROUTINE DORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormhr.f b/SRC/dormhr.f index 17346076c3..7fd509e623 100644 --- a/SRC/dormhr.f +++ b/SRC/dormhr.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE DORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dorml2.f b/SRC/dorml2.f index da36e3a219..f5f8957b5b 100644 --- a/SRC/dorml2.f +++ b/SRC/dorml2.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE DORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormlq.f b/SRC/dormlq.f index 70bb5fa568..3985082acc 100644 --- a/SRC/dormlq.f +++ b/SRC/dormlq.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormql.f b/SRC/dormql.f index 741be5cd47..ff6ba5ac0d 100644 --- a/SRC/dormql.f +++ b/SRC/dormql.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormqr.f b/SRC/dormqr.f index 037a363c66..36b58ebc9e 100644 --- a/SRC/dormqr.f +++ b/SRC/dormqr.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormr2.f b/SRC/dormr2.f index 89185a033d..2fbfd73c50 100644 --- a/SRC/dormr2.f +++ b/SRC/dormr2.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE DORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormr3.f b/SRC/dormr3.f index e9441542a1..7f2dbeea6a 100644 --- a/SRC/dormr3.f +++ b/SRC/dormr3.f @@ -174,6 +174,7 @@ SUBROUTINE DORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, $ LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormrq.f b/SRC/dormrq.f index af96c12408..5f538eac65 100644 --- a/SRC/dormrq.f +++ b/SRC/dormrq.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormrz.f b/SRC/dormrz.f index 6fb4f6b4ac..ac4ffb7f8a 100644 --- a/SRC/dormrz.f +++ b/SRC/dormrz.f @@ -183,6 +183,7 @@ SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, $ LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dormtr.f b/SRC/dormtr.f index 017216acb9..db3b0bcb1c 100644 --- a/SRC/dormtr.f +++ b/SRC/dormtr.f @@ -167,6 +167,7 @@ SUBROUTINE DORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, $ LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbcon.f b/SRC/dpbcon.f index 5a6ff19a67..feccf65352 100644 --- a/SRC/dpbcon.f +++ b/SRC/dpbcon.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE DPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbequ.f b/SRC/dpbequ.f index ac4c24e0dc..09034c8844 100644 --- a/SRC/dpbequ.f +++ b/SRC/dpbequ.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE DPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbrfs.f b/SRC/dpbrfs.f index a72885699a..514478bc53 100644 --- a/SRC/dpbrfs.f +++ b/SRC/dpbrfs.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE DPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbstf.f b/SRC/dpbstf.f index 7f5f8361f8..024a8a4af3 100644 --- a/SRC/dpbstf.f +++ b/SRC/dpbstf.f @@ -147,6 +147,7 @@ *> * ===================================================================== SUBROUTINE DPBSTF( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbsv.f b/SRC/dpbsv.f index 048fc553e5..f50a58d00b 100644 --- a/SRC/dpbsv.f +++ b/SRC/dpbsv.f @@ -159,6 +159,7 @@ *> * ===================================================================== SUBROUTINE DPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbsvx.f b/SRC/dpbsvx.f index df30f3cd1e..c67e9352e3 100644 --- a/SRC/dpbsvx.f +++ b/SRC/dpbsvx.f @@ -339,6 +339,7 @@ SUBROUTINE DPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, $ LDAFB, $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbtf2.f b/SRC/dpbtf2.f index dc9f998b47..9a477228a7 100644 --- a/SRC/dpbtf2.f +++ b/SRC/dpbtf2.f @@ -137,6 +137,7 @@ *> * ===================================================================== SUBROUTINE DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbtrf.f b/SRC/dpbtrf.f index f398fc496b..c2149d2c4f 100644 --- a/SRC/dpbtrf.f +++ b/SRC/dpbtrf.f @@ -137,6 +137,7 @@ * * ===================================================================== SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpbtrs.f b/SRC/dpbtrs.f index 39faad68de..548f9939ba 100644 --- a/SRC/dpbtrs.f +++ b/SRC/dpbtrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpftrf.f b/SRC/dpftrf.f index ee55984942..139c1226c0 100644 --- a/SRC/dpftrf.f +++ b/SRC/dpftrf.f @@ -193,6 +193,7 @@ *> * ===================================================================== SUBROUTINE DPFTRF( TRANSR, UPLO, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpftri.f b/SRC/dpftri.f index fd07e8fcf9..e94ef9e280 100644 --- a/SRC/dpftri.f +++ b/SRC/dpftri.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE DPFTRI( TRANSR, UPLO, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpftrs.f b/SRC/dpftrs.f index e76953f2fe..c2f163a1d0 100644 --- a/SRC/dpftrs.f +++ b/SRC/dpftrs.f @@ -194,6 +194,7 @@ *> * ===================================================================== SUBROUTINE DPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpocon.f b/SRC/dpocon.f index b18d0c314f..e84881dfea 100644 --- a/SRC/dpocon.f +++ b/SRC/dpocon.f @@ -116,6 +116,7 @@ * ===================================================================== SUBROUTINE DPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpoequ.f b/SRC/dpoequ.f index fae0f57a31..e795cccf6b 100644 --- a/SRC/dpoequ.f +++ b/SRC/dpoequ.f @@ -107,6 +107,7 @@ * * ===================================================================== SUBROUTINE DPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpoequb.f b/SRC/dpoequb.f index c1a1124c6a..3bb719769f 100644 --- a/SRC/dpoequb.f +++ b/SRC/dpoequb.f @@ -113,6 +113,7 @@ * * ===================================================================== SUBROUTINE DPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dporfs.f b/SRC/dporfs.f index 61efae62e5..3d3cb57314 100644 --- a/SRC/dporfs.f +++ b/SRC/dporfs.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE DPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dporfsx.f b/SRC/dporfsx.f index 2c2b4e53e5..a2549e125a 100644 --- a/SRC/dporfsx.f +++ b/SRC/dporfsx.f @@ -390,6 +390,7 @@ SUBROUTINE DPORFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, S, $ LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dposv.f b/SRC/dposv.f index 8297dc7d50..2660ac1eef 100644 --- a/SRC/dposv.f +++ b/SRC/dposv.f @@ -125,6 +125,7 @@ * * ===================================================================== SUBROUTINE DPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dposvx.f b/SRC/dposvx.f index cc8d44e881..1360664ccb 100644 --- a/SRC/dposvx.f +++ b/SRC/dposvx.f @@ -303,6 +303,7 @@ SUBROUTINE DPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dposvxx.f b/SRC/dposvxx.f index 82904ac251..f508c37e8d 100644 --- a/SRC/dposvxx.f +++ b/SRC/dposvxx.f @@ -490,6 +490,7 @@ SUBROUTINE DPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpotf2.f b/SRC/dpotf2.f index b98786d31c..6337967389 100644 --- a/SRC/dpotf2.f +++ b/SRC/dpotf2.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE DPOTF2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpotrf.f b/SRC/dpotrf.f index 30a9325286..fecbbef2bb 100644 --- a/SRC/dpotrf.f +++ b/SRC/dpotrf.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE DPOTRF( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpotrf2.f b/SRC/dpotrf2.f index 5f06352175..fe389926e5 100644 --- a/SRC/dpotrf2.f +++ b/SRC/dpotrf2.f @@ -103,6 +103,7 @@ * * ===================================================================== RECURSIVE SUBROUTINE DPOTRF2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpotri.f b/SRC/dpotri.f index 97761c291c..54a5380a57 100644 --- a/SRC/dpotri.f +++ b/SRC/dpotri.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE DPOTRI( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpotrs.f b/SRC/dpotrs.f index 72a843eb4b..f72030e802 100644 --- a/SRC/dpotrs.f +++ b/SRC/dpotrs.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE DPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dppcon.f b/SRC/dppcon.f index 2a2a6417bc..02ba55cc88 100644 --- a/SRC/dppcon.f +++ b/SRC/dppcon.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE DPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dppequ.f b/SRC/dppequ.f index a7a1a2ddd2..4c1179f3b3 100644 --- a/SRC/dppequ.f +++ b/SRC/dppequ.f @@ -111,6 +111,7 @@ * * ===================================================================== SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpprfs.f b/SRC/dpprfs.f index 2a74ea3c20..e05a5f40cd 100644 --- a/SRC/dpprfs.f +++ b/SRC/dpprfs.f @@ -167,6 +167,7 @@ SUBROUTINE DPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, $ FERR, $ BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dppsv.f b/SRC/dppsv.f index 76aec7a0c4..abb353d498 100644 --- a/SRC/dppsv.f +++ b/SRC/dppsv.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE DPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dppsvx.f b/SRC/dppsvx.f index c1ff7c5033..a9131f813b 100644 --- a/SRC/dppsvx.f +++ b/SRC/dppsvx.f @@ -307,6 +307,7 @@ SUBROUTINE DPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, $ LDB, $ X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpptrf.f b/SRC/dpptrf.f index 254b815952..c606a7a9dc 100644 --- a/SRC/dpptrf.f +++ b/SRC/dpptrf.f @@ -114,6 +114,7 @@ *> * ===================================================================== SUBROUTINE DPPTRF( UPLO, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpptri.f b/SRC/dpptri.f index d9235f48e4..b46494f82b 100644 --- a/SRC/dpptri.f +++ b/SRC/dpptri.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE DPPTRI( UPLO, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpptrs.f b/SRC/dpptrs.f index 92978f2650..97f82aa072 100644 --- a/SRC/dpptrs.f +++ b/SRC/dpptrs.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE DPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpstf2.f b/SRC/dpstf2.f index e97150fef6..3deeaac58c 100644 --- a/SRC/dpstf2.f +++ b/SRC/dpstf2.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE DPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpstrf.f b/SRC/dpstrf.f index a2b65ad770..62bf795536 100644 --- a/SRC/dpstrf.f +++ b/SRC/dpstrf.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE DPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dptcon.f b/SRC/dptcon.f index 82e2398840..9bdf2f7957 100644 --- a/SRC/dptcon.f +++ b/SRC/dptcon.f @@ -113,6 +113,7 @@ *> * ===================================================================== SUBROUTINE DPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpteqr.f b/SRC/dpteqr.f index ad7cc3cba5..b1016d5634 100644 --- a/SRC/dpteqr.f +++ b/SRC/dpteqr.f @@ -140,6 +140,7 @@ * * ===================================================================== SUBROUTINE DPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dptrfs.f b/SRC/dptrfs.f index 26f6d7c84a..62df79b51d 100644 --- a/SRC/dptrfs.f +++ b/SRC/dptrfs.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE DPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dptsv.f b/SRC/dptsv.f index e2d7243b22..5e6988f6fc 100644 --- a/SRC/dptsv.f +++ b/SRC/dptsv.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DPTSV( N, NRHS, D, E, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dptsvx.f b/SRC/dptsvx.f index f9b4777167..848fa7f2d0 100644 --- a/SRC/dptsvx.f +++ b/SRC/dptsvx.f @@ -223,6 +223,7 @@ * ===================================================================== SUBROUTINE DPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpttrf.f b/SRC/dpttrf.f index c86e72ced1..59dd4b57b7 100644 --- a/SRC/dpttrf.f +++ b/SRC/dpttrf.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE DPTTRF( N, D, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dpttrs.f b/SRC/dpttrs.f index 4093234ba0..1a94d84467 100644 --- a/SRC/dpttrs.f +++ b/SRC/dpttrs.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE DPTTRS( N, NRHS, D, E, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dptts2.f b/SRC/dptts2.f index 50257a55cc..334b54e6cb 100644 --- a/SRC/dptts2.f +++ b/SRC/dptts2.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE DPTTS2( N, NRHS, D, E, B, LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/drscl.f b/SRC/drscl.f index 1efcbafd8f..2fcdf32343 100644 --- a/SRC/drscl.f +++ b/SRC/drscl.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE DRSCL( N, SA, SX, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsbev.f b/SRC/dsbev.f index 1559d5c1b9..6dbf94170b 100644 --- a/SRC/dsbev.f +++ b/SRC/dsbev.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE DSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsbevd.f b/SRC/dsbevd.f index f367533568..c4e3b0fb58 100644 --- a/SRC/dsbevd.f +++ b/SRC/dsbevd.f @@ -183,6 +183,7 @@ SUBROUTINE DSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, $ WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsbevx.f b/SRC/dsbevx.f index f45b72fa3c..c53e3bbb01 100644 --- a/SRC/dsbevx.f +++ b/SRC/dsbevx.f @@ -261,6 +261,7 @@ SUBROUTINE DSBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, $ VL, $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsbgst.f b/SRC/dsbgst.f index 9067a68261..1881e110ab 100644 --- a/SRC/dsbgst.f +++ b/SRC/dsbgst.f @@ -155,6 +155,7 @@ SUBROUTINE DSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, $ X, $ LDX, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsbgv.f b/SRC/dsbgv.f index 113ead89a8..4da2c1bb1a 100644 --- a/SRC/dsbgv.f +++ b/SRC/dsbgv.f @@ -173,6 +173,7 @@ SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, $ LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsbgvd.f b/SRC/dsbgvd.f index eb10a23619..ed16ca2d24 100644 --- a/SRC/dsbgvd.f +++ b/SRC/dsbgvd.f @@ -217,6 +217,7 @@ SUBROUTINE DSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, $ W, $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsbgvx.f b/SRC/dsbgvx.f index e802fcf119..9d44acf897 100644 --- a/SRC/dsbgvx.f +++ b/SRC/dsbgvx.f @@ -289,6 +289,7 @@ SUBROUTINE DSBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsbtrd.f b/SRC/dsbtrd.f index 55c9c9242c..c321f6c12b 100644 --- a/SRC/dsbtrd.f +++ b/SRC/dsbtrd.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE DSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsfrk.f b/SRC/dsfrk.f index 795f2e32a7..d63c3367a3 100644 --- a/SRC/dsfrk.f +++ b/SRC/dsfrk.f @@ -162,6 +162,7 @@ SUBROUTINE DSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, $ BETA, $ C ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsgesv.f b/SRC/dsgesv.f index 2cb46a5978..e9b4254fa0 100644 --- a/SRC/dsgesv.f +++ b/SRC/dsgesv.f @@ -190,6 +190,7 @@ * ===================================================================== SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, $ SWORK, ITER, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspcon.f b/SRC/dspcon.f index 9b20ae332d..30d2b89041 100644 --- a/SRC/dspcon.f +++ b/SRC/dspcon.f @@ -121,6 +121,7 @@ SUBROUTINE DSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, $ IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspev.f b/SRC/dspev.f index f4ecbf8bb7..e003010277 100644 --- a/SRC/dspev.f +++ b/SRC/dspev.f @@ -125,6 +125,7 @@ * * ===================================================================== SUBROUTINE DSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspevd.f b/SRC/dspevd.f index f6155c75a6..b27888029b 100644 --- a/SRC/dspevd.f +++ b/SRC/dspevd.f @@ -167,6 +167,7 @@ * ===================================================================== SUBROUTINE DSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspevx.f b/SRC/dspevx.f index 5caf0ff359..758357c563 100644 --- a/SRC/dspevx.f +++ b/SRC/dspevx.f @@ -229,6 +229,7 @@ SUBROUTINE DSPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspgst.f b/SRC/dspgst.f index cf5997a3c4..feabd724a3 100644 --- a/SRC/dspgst.f +++ b/SRC/dspgst.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE DSPGST( ITYPE, UPLO, N, AP, BP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspgv.f b/SRC/dspgv.f index 52f805cbf2..ac180f8d2d 100644 --- a/SRC/dspgv.f +++ b/SRC/dspgv.f @@ -156,6 +156,7 @@ SUBROUTINE DSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspgvd.f b/SRC/dspgvd.f index 8f24b6cee7..7a0f6c0732 100644 --- a/SRC/dspgvd.f +++ b/SRC/dspgvd.f @@ -200,6 +200,7 @@ SUBROUTINE DSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, $ WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspgvx.f b/SRC/dspgvx.f index 16de19f13c..26465c5364 100644 --- a/SRC/dspgvx.f +++ b/SRC/dspgvx.f @@ -267,6 +267,7 @@ SUBROUTINE DSPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsposv.f b/SRC/dsposv.f index 6e1ce16851..9bbb220966 100644 --- a/SRC/dsposv.f +++ b/SRC/dsposv.f @@ -194,6 +194,7 @@ * ===================================================================== SUBROUTINE DSPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, $ SWORK, ITER, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsprfs.f b/SRC/dsprfs.f index ba59c68180..dd7856f641 100644 --- a/SRC/dsprfs.f +++ b/SRC/dsprfs.f @@ -175,6 +175,7 @@ SUBROUTINE DSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, $ FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspsv.f b/SRC/dspsv.f index 3e9f990c6c..727466c787 100644 --- a/SRC/dspsv.f +++ b/SRC/dspsv.f @@ -157,6 +157,7 @@ *> * ===================================================================== SUBROUTINE DSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dspsvx.f b/SRC/dspsvx.f index 445631e476..3a99d2c162 100644 --- a/SRC/dspsvx.f +++ b/SRC/dspsvx.f @@ -272,6 +272,7 @@ SUBROUTINE DSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, $ X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsptrd.f b/SRC/dsptrd.f index b5249abed7..16104fcbfa 100644 --- a/SRC/dsptrd.f +++ b/SRC/dsptrd.f @@ -145,6 +145,7 @@ *> * ===================================================================== SUBROUTINE DSPTRD( UPLO, N, AP, D, E, TAU, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsptrf.f b/SRC/dsptrf.f index 7af0eff557..57d4373ac0 100644 --- a/SRC/dsptrf.f +++ b/SRC/dsptrf.f @@ -154,6 +154,7 @@ *> * ===================================================================== SUBROUTINE DSPTRF( UPLO, N, AP, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsptri.f b/SRC/dsptri.f index 425e984fca..24e59167b1 100644 --- a/SRC/dsptri.f +++ b/SRC/dsptri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE DSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsptrs.f b/SRC/dsptrs.f index 8c6618570a..6826c0749d 100644 --- a/SRC/dsptrs.f +++ b/SRC/dsptrs.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE DSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstebz.f b/SRC/dstebz.f index 547dcfc447..6105e2322e 100644 --- a/SRC/dstebz.f +++ b/SRC/dstebz.f @@ -269,6 +269,7 @@ SUBROUTINE DSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, $ E, $ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstedc.f b/SRC/dstedc.f index 69c0af2977..02c3719fb5 100644 --- a/SRC/dstedc.f +++ b/SRC/dstedc.f @@ -177,6 +177,7 @@ * ===================================================================== SUBROUTINE DSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstegr.f b/SRC/dstegr.f index cb4c79c7ab..378d3c9dca 100644 --- a/SRC/dstegr.f +++ b/SRC/dstegr.f @@ -260,6 +260,7 @@ SUBROUTINE DSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstein.f b/SRC/dstein.f index 91ef27ea33..02de3a0b37 100644 --- a/SRC/dstein.f +++ b/SRC/dstein.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE DSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstemr.f b/SRC/dstemr.f index 27d7e4b48e..71b32ebd3e 100644 --- a/SRC/dstemr.f +++ b/SRC/dstemr.f @@ -317,6 +317,7 @@ SUBROUTINE DSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsteqr.f b/SRC/dsteqr.f index b2931f9887..acbbafb48f 100644 --- a/SRC/dsteqr.f +++ b/SRC/dsteqr.f @@ -126,6 +126,7 @@ * * ===================================================================== SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsterf.f b/SRC/dsterf.f index 33156b49c4..1f0a4a3afb 100644 --- a/SRC/dsterf.f +++ b/SRC/dsterf.f @@ -81,6 +81,7 @@ * * ===================================================================== SUBROUTINE DSTERF( N, D, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstev.f b/SRC/dstev.f index 7ccd23e165..58dde99b58 100644 --- a/SRC/dstev.f +++ b/SRC/dstev.f @@ -111,6 +111,7 @@ * * ===================================================================== SUBROUTINE DSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstevd.f b/SRC/dstevd.f index 271baa86ff..864fa647ae 100644 --- a/SRC/dstevd.f +++ b/SRC/dstevd.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE DSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstevr.f b/SRC/dstevr.f index 3b4f703a30..d75afcb375 100644 --- a/SRC/dstevr.f +++ b/SRC/dstevr.f @@ -300,6 +300,7 @@ SUBROUTINE DSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, $ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dstevx.f b/SRC/dstevx.f index 02a1c44f83..7ec970f08d 100644 --- a/SRC/dstevx.f +++ b/SRC/dstevx.f @@ -223,6 +223,7 @@ SUBROUTINE DSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, $ M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsycon.f b/SRC/dsycon.f index 64b2119ce0..0e9d43f672 100644 --- a/SRC/dsycon.f +++ b/SRC/dsycon.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE DSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsycon_3.f b/SRC/dsycon_3.f index 5c2a48435f..a5829bffb8 100644 --- a/SRC/dsycon_3.f +++ b/SRC/dsycon_3.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE DSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsycon_rook.f b/SRC/dsycon_rook.f index 94fa027ebb..e10b78c0f4 100644 --- a/SRC/dsycon_rook.f +++ b/SRC/dsycon_rook.f @@ -140,6 +140,7 @@ SUBROUTINE DSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, $ WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyconv.f b/SRC/dsyconv.f index 3e9b2bd5d2..3659633bb8 100644 --- a/SRC/dsyconv.f +++ b/SRC/dsyconv.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyconvf.f b/SRC/dsyconvf.f index 5b4b6fe81c..d321e43218 100644 --- a/SRC/dsyconvf.f +++ b/SRC/dsyconvf.f @@ -201,6 +201,7 @@ *> \endverbatim * ===================================================================== SUBROUTINE DSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyconvf_rook.f b/SRC/dsyconvf_rook.f index c23bfc8247..fb5c4889ca 100644 --- a/SRC/dsyconvf_rook.f +++ b/SRC/dsyconvf_rook.f @@ -192,6 +192,7 @@ *> \endverbatim * ===================================================================== SUBROUTINE DSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyequb.f b/SRC/dsyequb.f index 55698a0ec8..e6ad2fdf65 100644 --- a/SRC/dsyequb.f +++ b/SRC/dsyequb.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE DSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyev.f b/SRC/dsyev.f index 9f609d80a8..9ef68d16b5 100644 --- a/SRC/dsyev.f +++ b/SRC/dsyev.f @@ -127,6 +127,7 @@ * * ===================================================================== SUBROUTINE DSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyevd.f b/SRC/dsyevd.f index f932e3a7f4..6cf24222f4 100644 --- a/SRC/dsyevd.f +++ b/SRC/dsyevd.f @@ -173,6 +173,7 @@ SUBROUTINE DSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, $ IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyevr.f b/SRC/dsyevr.f index dda974f6f9..92166fa1bd 100644 --- a/SRC/dsyevr.f +++ b/SRC/dsyevr.f @@ -345,6 +345,7 @@ SUBROUTINE DSYEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, $ IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyevx.f b/SRC/dsyevx.f index ef113a40bf..770b7a6e9f 100644 --- a/SRC/dsyevx.f +++ b/SRC/dsyevx.f @@ -249,6 +249,7 @@ SUBROUTINE DSYEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, $ IU, $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, $ IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsygs2.f b/SRC/dsygs2.f index 02a878bf5e..7cf3e344b4 100644 --- a/SRC/dsygs2.f +++ b/SRC/dsygs2.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE DSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsygst.f b/SRC/dsygst.f index 2f4fd2e4f4..745c7e8321 100644 --- a/SRC/dsygst.f +++ b/SRC/dsygst.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE DSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsygv.f b/SRC/dsygv.f index 0d57bcc984..6e00cbf924 100644 --- a/SRC/dsygv.f +++ b/SRC/dsygv.f @@ -171,6 +171,7 @@ SUBROUTINE DSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsygvd.f b/SRC/dsygvd.f index 5bcd82f6b1..6dbb777de9 100644 --- a/SRC/dsygvd.f +++ b/SRC/dsygvd.f @@ -217,6 +217,7 @@ SUBROUTINE DSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, $ WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsygvx.f b/SRC/dsygvx.f index 5f22fb5652..c5059bbaf4 100644 --- a/SRC/dsygvx.f +++ b/SRC/dsygvx.f @@ -292,6 +292,7 @@ SUBROUTINE DSYGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyrfs.f b/SRC/dsyrfs.f index 8bbacae21e..1d3cab01dc 100644 --- a/SRC/dsyrfs.f +++ b/SRC/dsyrfs.f @@ -187,6 +187,7 @@ SUBROUTINE DSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyrfsx.f b/SRC/dsyrfsx.f index edc3ada66d..a0e28affb0 100644 --- a/SRC/dsyrfsx.f +++ b/SRC/dsyrfsx.f @@ -398,6 +398,7 @@ SUBROUTINE DSYRFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsysv.f b/SRC/dsysv.f index 103cda1737..51eb022620 100644 --- a/SRC/dsysv.f +++ b/SRC/dsysv.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE DSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsysv_aa.f b/SRC/dsysv_aa.f index 7eccf0e833..2757bff994 100644 --- a/SRC/dsysv_aa.f +++ b/SRC/dsysv_aa.f @@ -157,6 +157,7 @@ * ===================================================================== SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsysv_rk.f b/SRC/dsysv_rk.f index f4c97579f0..cb00228e1c 100644 --- a/SRC/dsysv_rk.f +++ b/SRC/dsysv_rk.f @@ -223,6 +223,7 @@ * ===================================================================== SUBROUTINE DSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsysv_rook.f b/SRC/dsysv_rook.f index 07cfd9309a..ead2f15b30 100644 --- a/SRC/dsysv_rook.f +++ b/SRC/dsysv_rook.f @@ -200,6 +200,7 @@ SUBROUTINE DSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsysvx.f b/SRC/dsysvx.f index 50a4e1ff1c..e8c0c24fef 100644 --- a/SRC/dsysvx.f +++ b/SRC/dsysvx.f @@ -280,6 +280,7 @@ SUBROUTINE DSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsysvxx.f b/SRC/dsysvxx.f index e1af81c492..3ded3fb8ed 100644 --- a/SRC/dsysvxx.f +++ b/SRC/dsysvxx.f @@ -501,6 +501,7 @@ SUBROUTINE DSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsyswapr.f b/SRC/dsyswapr.f index 51d02b1735..7d0348b1ad 100644 --- a/SRC/dsyswapr.f +++ b/SRC/dsyswapr.f @@ -95,6 +95,7 @@ * * ===================================================================== SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytd2.f b/SRC/dsytd2.f index 8d1ae0edce..a16b9fd541 100644 --- a/SRC/dsytd2.f +++ b/SRC/dsytd2.f @@ -168,6 +168,7 @@ *> * ===================================================================== SUBROUTINE DSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytf2.f b/SRC/dsytf2.f index 92d24d30e6..bd4340a6a7 100644 --- a/SRC/dsytf2.f +++ b/SRC/dsytf2.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE DSYTF2( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytf2_rk.f b/SRC/dsytf2_rk.f index 558fcd4064..0c464ec0f5 100644 --- a/SRC/dsytf2_rk.f +++ b/SRC/dsytf2_rk.f @@ -236,6 +236,7 @@ * * ===================================================================== SUBROUTINE DSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytf2_rook.f b/SRC/dsytf2_rook.f index c2bbeac3c0..270deab60f 100644 --- a/SRC/dsytf2_rook.f +++ b/SRC/dsytf2_rook.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE DSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytrd.f b/SRC/dsytrd.f index 4f38d97d85..1c3feb1dd2 100644 --- a/SRC/dsytrd.f +++ b/SRC/dsytrd.f @@ -188,6 +188,7 @@ * ===================================================================== SUBROUTINE DSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytrf.f b/SRC/dsytrf.f index 675eaebafb..3fb06a5faf 100644 --- a/SRC/dsytrf.f +++ b/SRC/dsytrf.f @@ -177,6 +177,7 @@ *> * ===================================================================== SUBROUTINE DSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytrf_rk.f b/SRC/dsytrf_rk.f index 6f819f06d0..fcbb040d33 100644 --- a/SRC/dsytrf_rk.f +++ b/SRC/dsytrf_rk.f @@ -254,6 +254,7 @@ * ===================================================================== SUBROUTINE DSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytrf_rook.f b/SRC/dsytrf_rook.f index 0f2e2e96ee..92e9004414 100644 --- a/SRC/dsytrf_rook.f +++ b/SRC/dsytrf_rook.f @@ -204,6 +204,7 @@ * ===================================================================== SUBROUTINE DSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytri.f b/SRC/dsytri.f index b91e872e71..23da29c807 100644 --- a/SRC/dsytri.f +++ b/SRC/dsytri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytri2.f b/SRC/dsytri2.f index e7667edd43..6f95c00b90 100644 --- a/SRC/dsytri2.f +++ b/SRC/dsytri2.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE DSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytri2x.f b/SRC/dsytri2x.f index d245d16d3d..a4dc9d0111 100644 --- a/SRC/dsytri2x.f +++ b/SRC/dsytri2x.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytri_3.f b/SRC/dsytri_3.f index c753a24deb..537e3c33e7 100644 --- a/SRC/dsytri_3.f +++ b/SRC/dsytri_3.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE DSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytri_3x.f b/SRC/dsytri_3x.f index 73b45808c9..ae68e9b987 100644 --- a/SRC/dsytri_3x.f +++ b/SRC/dsytri_3x.f @@ -155,6 +155,7 @@ * ===================================================================== SUBROUTINE DSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytri_rook.f b/SRC/dsytri_rook.f index ac865a2ac6..d46b46863f 100644 --- a/SRC/dsytri_rook.f +++ b/SRC/dsytri_rook.f @@ -124,6 +124,7 @@ * * ===================================================================== SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytrs.f b/SRC/dsytrs.f index e2e790ac9b..1651f2aa3a 100644 --- a/SRC/dsytrs.f +++ b/SRC/dsytrs.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE DSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytrs2.f b/SRC/dsytrs2.f index 3a4242a01a..9f4fcb7891 100644 --- a/SRC/dsytrs2.f +++ b/SRC/dsytrs2.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytrs_3.f b/SRC/dsytrs_3.f index e42bf3edfd..da11fe2c96 100644 --- a/SRC/dsytrs_3.f +++ b/SRC/dsytrs_3.f @@ -160,6 +160,7 @@ * ===================================================================== SUBROUTINE DSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dsytrs_rook.f b/SRC/dsytrs_rook.f index fd5f2b1496..0d4f967a53 100644 --- a/SRC/dsytrs_rook.f +++ b/SRC/dsytrs_rook.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE DSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtbcon.f b/SRC/dtbcon.f index b5d78fbaf7..23daaa255d 100644 --- a/SRC/dtbcon.f +++ b/SRC/dtbcon.f @@ -139,6 +139,7 @@ SUBROUTINE DTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, $ WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtbrfs.f b/SRC/dtbrfs.f index 95d89df70c..5434e992df 100644 --- a/SRC/dtbrfs.f +++ b/SRC/dtbrfs.f @@ -183,6 +183,7 @@ * ===================================================================== SUBROUTINE DTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtbtrs.f b/SRC/dtbtrs.f index 4fd900fcad..adaa279774 100644 --- a/SRC/dtbtrs.f +++ b/SRC/dtbtrs.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE DTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtfsm.f b/SRC/dtfsm.f index c3756e6559..8545e3a230 100644 --- a/SRC/dtfsm.f +++ b/SRC/dtfsm.f @@ -274,6 +274,7 @@ SUBROUTINE DTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, $ A, $ B, LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtftri.f b/SRC/dtftri.f index 6eeb1d7b80..ce7199fd86 100644 --- a/SRC/dtftri.f +++ b/SRC/dtftri.f @@ -196,6 +196,7 @@ *> * ===================================================================== SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtfttp.f b/SRC/dtfttp.f index d157e888da..3a70c9534b 100644 --- a/SRC/dtfttp.f +++ b/SRC/dtfttp.f @@ -182,6 +182,7 @@ *> * ===================================================================== SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtfttr.f b/SRC/dtfttr.f index 15f62d9dd2..592eb68f0a 100644 --- a/SRC/dtfttr.f +++ b/SRC/dtfttr.f @@ -191,6 +191,7 @@ * * ===================================================================== SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtgevc.f b/SRC/dtgevc.f index 93da83b767..57c7082dd3 100644 --- a/SRC/dtgevc.f +++ b/SRC/dtgevc.f @@ -290,6 +290,7 @@ * ===================================================================== SUBROUTINE DTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtgex2.f b/SRC/dtgex2.f index cf0a052101..8c01a4f5e0 100644 --- a/SRC/dtgex2.f +++ b/SRC/dtgex2.f @@ -216,6 +216,7 @@ * ===================================================================== SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, N1, N2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtgexc.f b/SRC/dtgexc.f index e50e428bc7..ba8155334a 100644 --- a/SRC/dtgexc.f +++ b/SRC/dtgexc.f @@ -215,6 +215,7 @@ * ===================================================================== SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtgsen.f b/SRC/dtgsen.f index e8f5410214..3c29894843 100644 --- a/SRC/dtgsen.f +++ b/SRC/dtgsen.f @@ -447,6 +447,7 @@ SUBROUTINE DTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, $ LDB, $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, $ PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtgsja.f b/SRC/dtgsja.f index b16015988a..f53545e710 100644 --- a/SRC/dtgsja.f +++ b/SRC/dtgsja.f @@ -373,6 +373,7 @@ SUBROUTINE DTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtgsna.f b/SRC/dtgsna.f index 957adcbdf9..42d8401466 100644 --- a/SRC/dtgsna.f +++ b/SRC/dtgsna.f @@ -376,6 +376,7 @@ SUBROUTINE DTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtgsy2.f b/SRC/dtgsy2.f index 11f55938f8..98e9a5700f 100644 --- a/SRC/dtgsy2.f +++ b/SRC/dtgsy2.f @@ -270,6 +270,7 @@ SUBROUTINE DTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, $ D, $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtgsyl.f b/SRC/dtgsyl.f index 65c1fc1062..e32d332b05 100644 --- a/SRC/dtgsyl.f +++ b/SRC/dtgsyl.f @@ -295,6 +295,7 @@ SUBROUTINE DTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, $ D, $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtpcon.f b/SRC/dtpcon.f index 21391de31a..fd78460d0c 100644 --- a/SRC/dtpcon.f +++ b/SRC/dtpcon.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE DTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtplqt.f b/SRC/dtplqt.f index d4ccfe52bd..5d90858100 100644 --- a/SRC/dtplqt.f +++ b/SRC/dtplqt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE DTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtplqt2.f b/SRC/dtplqt2.f index 92b74bd745..50a3f7022e 100644 --- a/SRC/dtplqt2.f +++ b/SRC/dtplqt2.f @@ -172,6 +172,7 @@ *> * ===================================================================== SUBROUTINE DTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtpmlqt.f b/SRC/dtpmlqt.f index 355930301d..96521a71ea 100644 --- a/SRC/dtpmlqt.f +++ b/SRC/dtpmlqt.f @@ -210,6 +210,7 @@ SUBROUTINE DTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, $ LDT, $ A, LDA, B, LDB, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtpmqrt.f b/SRC/dtpmqrt.f index 302ab3e76b..69f006dd73 100644 --- a/SRC/dtpmqrt.f +++ b/SRC/dtpmqrt.f @@ -212,6 +212,7 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, $ LDT, $ A, LDA, B, LDB, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtpqrt.f b/SRC/dtpqrt.f index bf43c30593..b1b9727b81 100644 --- a/SRC/dtpqrt.f +++ b/SRC/dtpqrt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtpqrt2.f b/SRC/dtpqrt2.f index b152ea75a1..33860a30d8 100644 --- a/SRC/dtpqrt2.f +++ b/SRC/dtpqrt2.f @@ -168,6 +168,7 @@ *> * ===================================================================== SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtprfb.f b/SRC/dtprfb.f index af79bc678b..64547155a8 100644 --- a/SRC/dtprfb.f +++ b/SRC/dtprfb.f @@ -246,6 +246,7 @@ * ===================================================================== SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtprfs.f b/SRC/dtprfs.f index 5ef6a7a6bc..f9a6eb5432 100644 --- a/SRC/dtprfs.f +++ b/SRC/dtprfs.f @@ -171,6 +171,7 @@ SUBROUTINE DTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, $ LDX, $ FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtptri.f b/SRC/dtptri.f index 3277796c53..7bc5e2ec51 100644 --- a/SRC/dtptri.f +++ b/SRC/dtptri.f @@ -112,6 +112,7 @@ *> * ===================================================================== SUBROUTINE DTPTRI( UPLO, DIAG, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtptrs.f b/SRC/dtptrs.f index aeceaa3172..b17673ebaf 100644 --- a/SRC/dtptrs.f +++ b/SRC/dtptrs.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE DTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtpttf.f b/SRC/dtpttf.f index 59434e6f9e..e13dc0f246 100644 --- a/SRC/dtpttf.f +++ b/SRC/dtpttf.f @@ -181,6 +181,7 @@ *> * ===================================================================== SUBROUTINE DTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtpttr.f b/SRC/dtpttr.f index 61a9a9afa1..db6fdc6d43 100644 --- a/SRC/dtpttr.f +++ b/SRC/dtpttr.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DTPTTR( UPLO, N, AP, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrcon.f b/SRC/dtrcon.f index e9602e8a11..fb30524431 100644 --- a/SRC/dtrcon.f +++ b/SRC/dtrcon.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE DTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrevc.f b/SRC/dtrevc.f index c68430ff06..20dd57c2b2 100644 --- a/SRC/dtrevc.f +++ b/SRC/dtrevc.f @@ -218,6 +218,7 @@ SUBROUTINE DTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, $ LDVR, MM, M, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrexc.f b/SRC/dtrexc.f index 303eaf933b..953abae52d 100644 --- a/SRC/dtrexc.f +++ b/SRC/dtrexc.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE DTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrrfs.f b/SRC/dtrrfs.f index 69950a02e4..0d19e34da8 100644 --- a/SRC/dtrrfs.f +++ b/SRC/dtrrfs.f @@ -178,6 +178,7 @@ SUBROUTINE DTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrsen.f b/SRC/dtrsen.f index 03494aa717..ef61434b95 100644 --- a/SRC/dtrsen.f +++ b/SRC/dtrsen.f @@ -309,6 +309,7 @@ SUBROUTINE DTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, $ WI, $ M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrsna.f b/SRC/dtrsna.f index dd604f1293..a69db664f6 100644 --- a/SRC/dtrsna.f +++ b/SRC/dtrsna.f @@ -261,6 +261,7 @@ SUBROUTINE DTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, $ LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrsyl.f b/SRC/dtrsyl.f index 17461548fb..c2bd7bb15a 100644 --- a/SRC/dtrsyl.f +++ b/SRC/dtrsyl.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE DTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrti2.f b/SRC/dtrti2.f index 2cc9567237..d57fcda994 100644 --- a/SRC/dtrti2.f +++ b/SRC/dtrti2.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE DTRTI2( UPLO, DIAG, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrtri.f b/SRC/dtrtri.f index cda4745f30..6eced55339 100644 --- a/SRC/dtrtri.f +++ b/SRC/dtrtri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE DTRTRI( UPLO, DIAG, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrtrs.f b/SRC/dtrtrs.f index eba12fb171..806282652c 100644 --- a/SRC/dtrtrs.f +++ b/SRC/dtrtrs.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE DTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrttf.f b/SRC/dtrttf.f index 619d294a52..2cb51164fd 100644 --- a/SRC/dtrttf.f +++ b/SRC/dtrttf.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtrttp.f b/SRC/dtrttp.f index 8e4d79e342..b863d091a3 100644 --- a/SRC/dtrttp.f +++ b/SRC/dtrttp.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DTRTTP( UPLO, N, A, LDA, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dtzrzf.f b/SRC/dtzrzf.f index 8c03235398..f0de6c03eb 100644 --- a/SRC/dtzrzf.f +++ b/SRC/dtzrzf.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE DTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dzsum1.f b/SRC/dzsum1.f index 7c99543244..37fd8f751f 100644 --- a/SRC/dzsum1.f +++ b/SRC/dzsum1.f @@ -76,6 +76,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/icmax1.f b/SRC/icmax1.f index afc1023c30..1da55b97df 100644 --- a/SRC/icmax1.f +++ b/SRC/icmax1.f @@ -76,6 +76,7 @@ * * ===================================================================== INTEGER FUNCTION ICMAX1( N, CX, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ieeeck.f b/SRC/ieeeck.f index 60926fa180..a50774ce11 100644 --- a/SRC/ieeeck.f +++ b/SRC/ieeeck.f @@ -77,6 +77,7 @@ * * ===================================================================== INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilaclc.f b/SRC/ilaclc.f index d9c856624e..eab59c2c80 100644 --- a/SRC/ilaclc.f +++ b/SRC/ilaclc.f @@ -73,6 +73,7 @@ * * ===================================================================== INTEGER FUNCTION ILACLC( M, N, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilaclr.f b/SRC/ilaclr.f index 96047b2284..1c516a3fde 100644 --- a/SRC/ilaclr.f +++ b/SRC/ilaclr.f @@ -73,6 +73,7 @@ * * ===================================================================== INTEGER FUNCTION ILACLR( M, N, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/iladiag.f b/SRC/iladiag.f index eb5ba8b8aa..d6a4e9e3df 100644 --- a/SRC/iladiag.f +++ b/SRC/iladiag.f @@ -53,6 +53,7 @@ * * ===================================================================== INTEGER FUNCTION ILADIAG( DIAG ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/iladlc.f b/SRC/iladlc.f index 26633ea458..1826a8abaf 100644 --- a/SRC/iladlc.f +++ b/SRC/iladlc.f @@ -73,6 +73,7 @@ * * ===================================================================== INTEGER FUNCTION ILADLC( M, N, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/iladlr.f b/SRC/iladlr.f index f0498ad490..d111e6e885 100644 --- a/SRC/iladlr.f +++ b/SRC/iladlr.f @@ -73,6 +73,7 @@ * * ===================================================================== INTEGER FUNCTION ILADLR( M, N, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilaenv.f b/SRC/ilaenv.f index 969f13a4db..66215c1b3e 100644 --- a/SRC/ilaenv.f +++ b/SRC/ilaenv.f @@ -157,6 +157,7 @@ *> * ===================================================================== INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilaenv2stage.f b/SRC/ilaenv2stage.f index 2993aeaaa2..115cdb7f96 100644 --- a/SRC/ilaenv2stage.f +++ b/SRC/ilaenv2stage.f @@ -145,6 +145,7 @@ * ===================================================================== INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilaprec.f b/SRC/ilaprec.f index 9408a88e6a..4a53d3c6dd 100644 --- a/SRC/ilaprec.f +++ b/SRC/ilaprec.f @@ -53,6 +53,7 @@ * * ===================================================================== INTEGER FUNCTION ILAPREC( PREC ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilaslc.f b/SRC/ilaslc.f index 1b9e3ab30e..39a3da8be6 100644 --- a/SRC/ilaslc.f +++ b/SRC/ilaslc.f @@ -73,6 +73,7 @@ * * ===================================================================== INTEGER FUNCTION ILASLC( M, N, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilaslr.f b/SRC/ilaslr.f index 8c9f16fc90..56687b534f 100644 --- a/SRC/ilaslr.f +++ b/SRC/ilaslr.f @@ -73,6 +73,7 @@ * * ===================================================================== INTEGER FUNCTION ILASLR( M, N, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilatrans.f b/SRC/ilatrans.f index 40cf4d4de3..57722b607e 100644 --- a/SRC/ilatrans.f +++ b/SRC/ilatrans.f @@ -53,6 +53,7 @@ * * ===================================================================== INTEGER FUNCTION ILATRANS( TRANS ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilauplo.f b/SRC/ilauplo.f index a376102e74..63f3faf909 100644 --- a/SRC/ilauplo.f +++ b/SRC/ilauplo.f @@ -53,6 +53,7 @@ * * ===================================================================== INTEGER FUNCTION ILAUPLO( UPLO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilazlc.f b/SRC/ilazlc.f index f746d1cdcf..f9ccecb0cf 100644 --- a/SRC/ilazlc.f +++ b/SRC/ilazlc.f @@ -73,6 +73,7 @@ * * ===================================================================== INTEGER FUNCTION ILAZLC( M, N, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ilazlr.f b/SRC/ilazlr.f index e1629be8c4..983e983332 100644 --- a/SRC/ilazlr.f +++ b/SRC/ilazlr.f @@ -73,6 +73,7 @@ * * ===================================================================== INTEGER FUNCTION ILAZLR( M, N, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/iparmq.f b/SRC/iparmq.f index e169c75f3f..00513c6463 100644 --- a/SRC/iparmq.f +++ b/SRC/iparmq.f @@ -226,6 +226,7 @@ * ===================================================================== INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, $ LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/izmax1.f b/SRC/izmax1.f index 0be285fca2..cced4c1e33 100644 --- a/SRC/izmax1.f +++ b/SRC/izmax1.f @@ -76,6 +76,7 @@ * * ===================================================================== INTEGER FUNCTION IZMAX1( N, ZX, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/lsamen.f b/SRC/lsamen.f index 566e2489f7..64957de0f0 100644 --- a/SRC/lsamen.f +++ b/SRC/lsamen.f @@ -69,6 +69,7 @@ * * ===================================================================== LOGICAL FUNCTION LSAMEN( N, CA, CB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sbbcsd.f b/SRC/sbbcsd.f index 9eb1b724ad..f7e63ba415 100644 --- a/SRC/sbbcsd.f +++ b/SRC/sbbcsd.f @@ -328,6 +328,7 @@ SUBROUTINE SBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, $ THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sbdsdc.f b/SRC/sbdsdc.f index 6821ebca7b..ba285eab46 100644 --- a/SRC/sbdsdc.f +++ b/SRC/sbdsdc.f @@ -194,6 +194,7 @@ SUBROUTINE SBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, $ IQ, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sbdsqr.f b/SRC/sbdsqr.f index 366b7f2fbe..fc505211ff 100644 --- a/SRC/sbdsqr.f +++ b/SRC/sbdsqr.f @@ -237,6 +237,7 @@ * ===================================================================== SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sbdsvdx.f b/SRC/sbdsvdx.f index 9907fe82ad..6c6bc27aea 100644 --- a/SRC/sbdsvdx.f +++ b/SRC/sbdsvdx.f @@ -221,6 +221,7 @@ * ===================================================================== SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/scsum1.f b/SRC/scsum1.f index e9e37d1bea..f4f14df56a 100644 --- a/SRC/scsum1.f +++ b/SRC/scsum1.f @@ -76,6 +76,7 @@ * * ===================================================================== REAL FUNCTION SCSUM1( N, CX, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sdisna.f b/SRC/sdisna.f index e7f001a1d3..bf0f1403ea 100644 --- a/SRC/sdisna.f +++ b/SRC/sdisna.f @@ -112,6 +112,7 @@ * * ===================================================================== SUBROUTINE SDISNA( JOB, M, N, D, SEP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbbrd.f b/SRC/sgbbrd.f index 243f92fff5..c8b913e0ad 100644 --- a/SRC/sgbbrd.f +++ b/SRC/sgbbrd.f @@ -182,6 +182,7 @@ * ===================================================================== SUBROUTINE SGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbcon.f b/SRC/sgbcon.f index 22eaea7f7a..50fdc5dfed 100644 --- a/SRC/sgbcon.f +++ b/SRC/sgbcon.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE SGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, $ RCOND, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbequ.f b/SRC/sgbequ.f index f8557b420d..926407805b 100644 --- a/SRC/sgbequ.f +++ b/SRC/sgbequ.f @@ -149,6 +149,7 @@ SUBROUTINE SGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbequb.f b/SRC/sgbequb.f index 88eade4300..4aaf010f62 100644 --- a/SRC/sgbequb.f +++ b/SRC/sgbequb.f @@ -156,6 +156,7 @@ SUBROUTINE SGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbrfs.f b/SRC/sgbrfs.f index cfd5f827f1..88d57973db 100644 --- a/SRC/sgbrfs.f +++ b/SRC/sgbrfs.f @@ -201,6 +201,7 @@ SUBROUTINE SGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbrfsx.f b/SRC/sgbrfsx.f index a2cca610f4..bb827d31fc 100644 --- a/SRC/sgbrfsx.f +++ b/SRC/sgbrfsx.f @@ -436,6 +436,7 @@ SUBROUTINE SGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB, $ BERR, N_ERR_BNDS, ERR_BNDS_NORM, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbsv.f b/SRC/sgbsv.f index 8315b9c5d1..84a45dda73 100644 --- a/SRC/sgbsv.f +++ b/SRC/sgbsv.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE SGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbsvx.f b/SRC/sgbsvx.f index 5b0040f7be..74df0533a6 100644 --- a/SRC/sgbsvx.f +++ b/SRC/sgbsvx.f @@ -363,6 +363,7 @@ SUBROUTINE SGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbsvxx.f b/SRC/sgbsvxx.f index 82a31e3f51..12b23025cf 100644 --- a/SRC/sgbsvxx.f +++ b/SRC/sgbsvxx.f @@ -559,6 +559,7 @@ SUBROUTINE SGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, $ RCOND, RPVGRW, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbtf2.f b/SRC/sgbtf2.f index 6052b31eb4..d8e3918f8b 100644 --- a/SRC/sgbtf2.f +++ b/SRC/sgbtf2.f @@ -140,6 +140,7 @@ *> * ===================================================================== SUBROUTINE SGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbtrf.f b/SRC/sgbtrf.f index 217b3c7aff..322f4d6dbb 100644 --- a/SRC/sgbtrf.f +++ b/SRC/sgbtrf.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE SGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgbtrs.f b/SRC/sgbtrs.f index 1a4cc52b1b..924c696737 100644 --- a/SRC/sgbtrs.f +++ b/SRC/sgbtrs.f @@ -134,6 +134,7 @@ SUBROUTINE SGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, $ LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgebak.f b/SRC/sgebak.f index 94979920d6..a402845257 100644 --- a/SRC/sgebak.f +++ b/SRC/sgebak.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE SGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgebal.f b/SRC/sgebal.f index 498dd75ada..0bfcb02ed3 100644 --- a/SRC/sgebal.f +++ b/SRC/sgebal.f @@ -158,6 +158,7 @@ *> * ===================================================================== SUBROUTINE SGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgebd2.f b/SRC/sgebd2.f index a1f1c3a024..b49421b261 100644 --- a/SRC/sgebd2.f +++ b/SRC/sgebd2.f @@ -184,6 +184,7 @@ *> * ===================================================================== SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgebrd.f b/SRC/sgebrd.f index 2c8a1dc792..b983e646ac 100644 --- a/SRC/sgebrd.f +++ b/SRC/sgebrd.f @@ -201,6 +201,7 @@ * ===================================================================== SUBROUTINE SGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgecon.f b/SRC/sgecon.f index aa5f3d4f1e..745676cabb 100644 --- a/SRC/sgecon.f +++ b/SRC/sgecon.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE SGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeequ.f b/SRC/sgeequ.f index 98dc4a8bdf..37decf6c18 100644 --- a/SRC/sgeequ.f +++ b/SRC/sgeequ.f @@ -134,6 +134,7 @@ * ===================================================================== SUBROUTINE SGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeequb.f b/SRC/sgeequb.f index c48a818751..3029946e88 100644 --- a/SRC/sgeequb.f +++ b/SRC/sgeequb.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE SGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgees.f b/SRC/sgees.f index 2d3f23621c..d1b339ed6c 100644 --- a/SRC/sgees.f +++ b/SRC/sgees.f @@ -211,6 +211,7 @@ * ===================================================================== SUBROUTINE SGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, $ VS, LDVS, WORK, LWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeesx.f b/SRC/sgeesx.f index 172782b8e5..ca324c0932 100644 --- a/SRC/sgeesx.f +++ b/SRC/sgeesx.f @@ -276,6 +276,7 @@ SUBROUTINE SGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, $ WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, $ IWORK, LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgehd2.f b/SRC/sgehd2.f index 6e2bff0b94..bd3ff718b2 100644 --- a/SRC/sgehd2.f +++ b/SRC/sgehd2.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE SGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgehrd.f b/SRC/sgehrd.f index e1e32e6cd1..fa7c5ece96 100644 --- a/SRC/sgehrd.f +++ b/SRC/sgehrd.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f index e06c356dc7..229a356a72 100644 --- a/SRC/sgejsv.f +++ b/SRC/sgejsv.f @@ -19,9 +19,9 @@ * SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * WORK, LWORK, IWORK, INFO ) +* IMPLICIT NONE * * .. Scalar Arguments .. -* IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. @@ -471,13 +471,13 @@ SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. - IMPLICIT NONE INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. diff --git a/SRC/sgelq.f b/SRC/sgelq.f index b040267216..d985d06504 100644 --- a/SRC/sgelq.f +++ b/SRC/sgelq.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE SGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgelq2.f b/SRC/sgelq2.f index 9d9e439f64..f0562432bf 100644 --- a/SRC/sgelq2.f +++ b/SRC/sgelq2.f @@ -124,6 +124,7 @@ *> * ===================================================================== SUBROUTINE SGELQ2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgelqf.f b/SRC/sgelqf.f index 56dc310db8..9b068579bb 100644 --- a/SRC/sgelqf.f +++ b/SRC/sgelqf.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE SGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgelqt.f b/SRC/sgelqt.f index 343da9f49a..7e08963f16 100644 --- a/SRC/sgelqt.f +++ b/SRC/sgelqt.f @@ -121,6 +121,7 @@ *> * ===================================================================== SUBROUTINE SGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgelqt3.f b/SRC/sgelqt3.f index fc62d5b79c..5ce30615d6 100644 --- a/SRC/sgelqt3.f +++ b/SRC/sgelqt3.f @@ -113,6 +113,7 @@ *> * ===================================================================== RECURSIVE SUBROUTINE SGELQT3( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgels.f b/SRC/sgels.f index e1fa9381f4..e87e1fa947 100644 --- a/SRC/sgels.f +++ b/SRC/sgels.f @@ -189,6 +189,7 @@ SUBROUTINE SGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgelsd.f b/SRC/sgelsd.f index 7dd0debe4e..423450e1c4 100644 --- a/SRC/sgelsd.f +++ b/SRC/sgelsd.f @@ -199,6 +199,7 @@ * ===================================================================== SUBROUTINE SGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, $ RANK, WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgelss.f b/SRC/sgelss.f index 208c55d0f1..99371e3248 100644 --- a/SRC/sgelss.f +++ b/SRC/sgelss.f @@ -167,6 +167,7 @@ * ===================================================================== SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgelst.f b/SRC/sgelst.f index a85770490a..92c37a370b 100644 --- a/SRC/sgelst.f +++ b/SRC/sgelst.f @@ -199,6 +199,7 @@ SUBROUTINE SGELST( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgelsy.f b/SRC/sgelsy.f index 5d38d9bcff..bf83684146 100644 --- a/SRC/sgelsy.f +++ b/SRC/sgelsy.f @@ -202,6 +202,7 @@ SUBROUTINE SGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, $ RANK, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgemlq.f b/SRC/sgemlq.f index 5793e6ea71..9c70f1b260 100644 --- a/SRC/sgemlq.f +++ b/SRC/sgemlq.f @@ -170,6 +170,7 @@ * ===================================================================== SUBROUTINE SGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgemlqt.f b/SRC/sgemlqt.f index 1cb882cb4e..82bc671d96 100644 --- a/SRC/sgemlqt.f +++ b/SRC/sgemlqt.f @@ -150,6 +150,7 @@ * ===================================================================== SUBROUTINE SGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgemqr.f b/SRC/sgemqr.f index 19bf467b8b..89502870ff 100644 --- a/SRC/sgemqr.f +++ b/SRC/sgemqr.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE SGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgemqrt.f b/SRC/sgemqrt.f index ec1e4aef2f..55b04bb9ad 100644 --- a/SRC/sgemqrt.f +++ b/SRC/sgemqrt.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeql2.f b/SRC/sgeql2.f index 26501c4837..99d9f49ed4 100644 --- a/SRC/sgeql2.f +++ b/SRC/sgeql2.f @@ -118,6 +118,7 @@ *> * ===================================================================== SUBROUTINE SGEQL2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqlf.f b/SRC/sgeqlf.f index 8f61989258..88c7f4fc08 100644 --- a/SRC/sgeqlf.f +++ b/SRC/sgeqlf.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE SGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqp3.f b/SRC/sgeqp3.f index 752a93e1b0..3cc7a0eece 100644 --- a/SRC/sgeqp3.f +++ b/SRC/sgeqp3.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqr.f b/SRC/sgeqr.f index ae5bd23e22..b4403b6790 100644 --- a/SRC/sgeqr.f +++ b/SRC/sgeqr.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqr2.f b/SRC/sgeqr2.f index 5f6216ea6c..0a9c3936df 100644 --- a/SRC/sgeqr2.f +++ b/SRC/sgeqr2.f @@ -125,6 +125,7 @@ *> * ===================================================================== SUBROUTINE SGEQR2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqr2p.f b/SRC/sgeqr2p.f index 8ea0b03d50..1e8c1f3e43 100644 --- a/SRC/sgeqr2p.f +++ b/SRC/sgeqr2p.f @@ -129,6 +129,7 @@ *> * ===================================================================== SUBROUTINE SGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqrf.f b/SRC/sgeqrf.f index b8f019ad18..06a90db66e 100644 --- a/SRC/sgeqrf.f +++ b/SRC/sgeqrf.f @@ -141,6 +141,7 @@ *> * ===================================================================== SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqrfp.f b/SRC/sgeqrfp.f index dde1bc1c53..db7a65465f 100644 --- a/SRC/sgeqrfp.f +++ b/SRC/sgeqrfp.f @@ -145,6 +145,7 @@ *> * ===================================================================== SUBROUTINE SGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqrt.f b/SRC/sgeqrt.f index f59e25a09e..6994376fc0 100644 --- a/SRC/sgeqrt.f +++ b/SRC/sgeqrt.f @@ -136,6 +136,7 @@ *> * ===================================================================== SUBROUTINE SGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqrt2.f b/SRC/sgeqrt2.f index bdfbb20505..ef6e66383b 100644 --- a/SRC/sgeqrt2.f +++ b/SRC/sgeqrt2.f @@ -122,6 +122,7 @@ *> * ===================================================================== SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgeqrt3.f b/SRC/sgeqrt3.f index b078091493..ee60e3db01 100644 --- a/SRC/sgeqrt3.f +++ b/SRC/sgeqrt3.f @@ -127,6 +127,7 @@ *> * ===================================================================== RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgerfs.f b/SRC/sgerfs.f index 8fa2d84697..22bc6c2703 100644 --- a/SRC/sgerfs.f +++ b/SRC/sgerfs.f @@ -181,6 +181,7 @@ SUBROUTINE SGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgerfsx.f b/SRC/sgerfsx.f index 14f5762285..c8d518cc74 100644 --- a/SRC/sgerfsx.f +++ b/SRC/sgerfsx.f @@ -410,6 +410,7 @@ SUBROUTINE SGERFSX( TRANS, EQUED, N, NRHS, A, LDA, AF, LDAF, $ R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgerq2.f b/SRC/sgerq2.f index e06db262dc..14c8cf0517 100644 --- a/SRC/sgerq2.f +++ b/SRC/sgerq2.f @@ -118,6 +118,7 @@ *> * ===================================================================== SUBROUTINE SGERQ2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgerqf.f b/SRC/sgerqf.f index 54e7bca7c2..4cedce8c2b 100644 --- a/SRC/sgerqf.f +++ b/SRC/sgerqf.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE SGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgesc2.f b/SRC/sgesc2.f index 050acc9c93..050621569a 100644 --- a/SRC/sgesc2.f +++ b/SRC/sgesc2.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgesv.f b/SRC/sgesv.f index 8ea8090c19..dc8cb2b0f8 100644 --- a/SRC/sgesv.f +++ b/SRC/sgesv.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE SGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgesvd.f b/SRC/sgesvd.f index ed84a0b057..afe6da1627 100644 --- a/SRC/sgesvd.f +++ b/SRC/sgesvd.f @@ -207,6 +207,7 @@ SUBROUTINE SGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, $ LDVT, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgesvdq.f b/SRC/sgesvdq.f index 96ef1fceea..1dc1c57170 100644 --- a/SRC/sgesvdq.f +++ b/SRC/sgesvdq.f @@ -410,8 +410,8 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA, $ S, U, LDU, V, LDV, NUMRANK, IWORK, LIWORK, $ WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * .. Scalar Arguments .. - IMPLICIT NONE CHARACTER JOBA, JOBP, JOBR, JOBU, JOBV INTEGER M, N, LDA, LDU, LDV, NUMRANK, LIWORK, LWORK, LRWORK, $ INFO diff --git a/SRC/sgesvdx.f b/SRC/sgesvdx.f index ca79af9aa3..287a8c9f19 100644 --- a/SRC/sgesvdx.f +++ b/SRC/sgesvdx.f @@ -258,6 +258,7 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgesvj.f b/SRC/sgesvj.f index 1d6d8f2831..ce822e2220 100644 --- a/SRC/sgesvj.f +++ b/SRC/sgesvj.f @@ -323,6 +323,7 @@ * ===================================================================== SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgesvx.f b/SRC/sgesvx.f index 05d7c81a0a..a1ed6a727b 100644 --- a/SRC/sgesvx.f +++ b/SRC/sgesvx.f @@ -345,6 +345,7 @@ SUBROUTINE SGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, $ IPIV, $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgesvxx.f b/SRC/sgesvxx.f index 86c8c21f66..fcdf69f09c 100644 --- a/SRC/sgesvxx.f +++ b/SRC/sgesvxx.f @@ -539,6 +539,7 @@ SUBROUTINE SGESVXX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, $ BERR, N_ERR_BNDS, ERR_BNDS_NORM, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgetc2.f b/SRC/sgetc2.f index 6881c7db68..55511ac713 100644 --- a/SRC/sgetc2.f +++ b/SRC/sgetc2.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE SGETC2( N, A, LDA, IPIV, JPIV, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgetf2.f b/SRC/sgetf2.f index d226ae1c0a..28f9cd8e83 100644 --- a/SRC/sgetf2.f +++ b/SRC/sgetf2.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgetrf.f b/SRC/sgetrf.f index 5bdc4cd3c8..4676ca3cd7 100644 --- a/SRC/sgetrf.f +++ b/SRC/sgetrf.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgetrf2.f b/SRC/sgetrf2.f index 22d82e4fc7..7ba5a22708 100644 --- a/SRC/sgetrf2.f +++ b/SRC/sgetrf2.f @@ -110,6 +110,7 @@ * * ===================================================================== RECURSIVE SUBROUTINE SGETRF2( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgetri.f b/SRC/sgetri.f index 422a022b7f..b73ff5c5ad 100644 --- a/SRC/sgetri.f +++ b/SRC/sgetri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgetrs.f b/SRC/sgetrs.f index 35753d4b16..66916d6dbe 100644 --- a/SRC/sgetrs.f +++ b/SRC/sgetrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE SGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgetsls.f b/SRC/sgetsls.f index 2946d732e0..246d544f63 100644 --- a/SRC/sgetsls.f +++ b/SRC/sgetsls.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE SGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggbak.f b/SRC/sggbak.f index 3a30b3d543..e0a09c7866 100644 --- a/SRC/sggbak.f +++ b/SRC/sggbak.f @@ -143,6 +143,7 @@ SUBROUTINE SGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, $ V, $ LDV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggbal.f b/SRC/sggbal.f index 20cbf2c6b7..6eafc67d75 100644 --- a/SRC/sggbal.f +++ b/SRC/sggbal.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE SGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgges.f b/SRC/sgges.f index 17f4ba196d..074e6a5b07 100644 --- a/SRC/sgges.f +++ b/SRC/sgges.f @@ -280,6 +280,7 @@ SUBROUTINE SGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, $ SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, $ LDVSR, WORK, LWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgges3.f b/SRC/sgges3.f index db8b9afd79..639efbee21 100644 --- a/SRC/sgges3.f +++ b/SRC/sgges3.f @@ -279,6 +279,7 @@ SUBROUTINE SGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, $ VSR, LDVSR, WORK, LWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggesx.f b/SRC/sggesx.f index f78f1c2272..3b7456c5db 100644 --- a/SRC/sggesx.f +++ b/SRC/sggesx.f @@ -361,6 +361,7 @@ SUBROUTINE SGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, $ B, LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, $ VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, $ LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggev.f b/SRC/sggev.f index 64215a9a4b..2402851d54 100644 --- a/SRC/sggev.f +++ b/SRC/sggev.f @@ -222,6 +222,7 @@ SUBROUTINE SGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, $ ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggev3.f b/SRC/sggev3.f index f9697f686a..2935541d54 100644 --- a/SRC/sggev3.f +++ b/SRC/sggev3.f @@ -223,6 +223,7 @@ SUBROUTINE SGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, $ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggevx.f b/SRC/sggevx.f index 16dd56493b..c3910817f3 100644 --- a/SRC/sggevx.f +++ b/SRC/sggevx.f @@ -387,6 +387,7 @@ SUBROUTINE SGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, $ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, $ RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggglm.f b/SRC/sggglm.f index 55c2a4ed04..10aea9a4ff 100644 --- a/SRC/sggglm.f +++ b/SRC/sggglm.f @@ -191,6 +191,7 @@ SUBROUTINE SGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgghrd.f b/SRC/sgghrd.f index 6570d56832..389cc02895 100644 --- a/SRC/sgghrd.f +++ b/SRC/sgghrd.f @@ -203,6 +203,7 @@ SUBROUTINE SGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, $ Q, $ LDQ, Z, LDZ, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgglse.f b/SRC/sgglse.f index 5d0896343f..c14fddb3e1 100644 --- a/SRC/sgglse.f +++ b/SRC/sgglse.f @@ -186,6 +186,7 @@ SUBROUTINE SGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggqrf.f b/SRC/sggqrf.f index e1912411e1..2f2e114e23 100644 --- a/SRC/sggqrf.f +++ b/SRC/sggqrf.f @@ -210,6 +210,7 @@ * ===================================================================== SUBROUTINE SGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggrqf.f b/SRC/sggrqf.f index 72d05c0c33..ef673fb243 100644 --- a/SRC/sggrqf.f +++ b/SRC/sggrqf.f @@ -209,6 +209,7 @@ * ===================================================================== SUBROUTINE SGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sggsvd3.f b/SRC/sggsvd3.f index 194fd04383..c3cf649384 100644 --- a/SRC/sggsvd3.f +++ b/SRC/sggsvd3.f @@ -344,6 +344,7 @@ SUBROUTINE SGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgsvj0.f b/SRC/sgsvj0.f index 743b382222..7fe8cdadff 100644 --- a/SRC/sgsvj0.f +++ b/SRC/sgsvj0.f @@ -213,6 +213,7 @@ * ===================================================================== SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgsvj1.f b/SRC/sgsvj1.f index 15f8170d29..a37d434bb9 100644 --- a/SRC/sgsvj1.f +++ b/SRC/sgsvj1.f @@ -231,6 +231,7 @@ * ===================================================================== SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgtcon.f b/SRC/sgtcon.f index 44facc150b..4140d82b23 100644 --- a/SRC/sgtcon.f +++ b/SRC/sgtcon.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE SGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgtrfs.f b/SRC/sgtrfs.f index 537f7df24e..8b0a25854e 100644 --- a/SRC/sgtrfs.f +++ b/SRC/sgtrfs.f @@ -205,6 +205,7 @@ SUBROUTINE SGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, $ DU2, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgtsv.f b/SRC/sgtsv.f index ede3867fe1..25838c2232 100644 --- a/SRC/sgtsv.f +++ b/SRC/sgtsv.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE SGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgtsvx.f b/SRC/sgtsvx.f index 21da89237e..b32ec03906 100644 --- a/SRC/sgtsvx.f +++ b/SRC/sgtsvx.f @@ -289,6 +289,7 @@ SUBROUTINE SGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, $ DUF, $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgttrf.f b/SRC/sgttrf.f index ce80be8784..14fba734dc 100644 --- a/SRC/sgttrf.f +++ b/SRC/sgttrf.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE SGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgttrs.f b/SRC/sgttrs.f index 02dbac2f47..306c8f1bcb 100644 --- a/SRC/sgttrs.f +++ b/SRC/sgttrs.f @@ -134,6 +134,7 @@ SUBROUTINE SGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, $ LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sgtts2.f b/SRC/sgtts2.f index b381615c8b..eb8b64c982 100644 --- a/SRC/sgtts2.f +++ b/SRC/sgtts2.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE SGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, $ LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/shgeqz.f b/SRC/shgeqz.f index eda768e517..e811566686 100644 --- a/SRC/shgeqz.f +++ b/SRC/shgeqz.f @@ -300,6 +300,7 @@ SUBROUTINE SHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, $ LDT, $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/shsein.f b/SRC/shsein.f index 8db58c51d2..59c63d71be 100644 --- a/SRC/shsein.f +++ b/SRC/shsein.f @@ -259,6 +259,7 @@ SUBROUTINE SHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, $ WI, $ VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, $ IFAILR, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/shseqr.f b/SRC/shseqr.f index fb5a168f29..eced809495 100644 --- a/SRC/shseqr.f +++ b/SRC/shseqr.f @@ -311,6 +311,7 @@ * ===================================================================== SUBROUTINE SHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sisnan.f b/SRC/sisnan.f index 80b5c1f56f..d412003797 100644 --- a/SRC/sisnan.f +++ b/SRC/sisnan.f @@ -54,6 +54,7 @@ * * ===================================================================== LOGICAL FUNCTION SISNAN( SIN ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_gbamv.f b/SRC/sla_gbamv.f index 81f591c281..c1714cd18f 100644 --- a/SRC/sla_gbamv.f +++ b/SRC/sla_gbamv.f @@ -182,6 +182,7 @@ * ===================================================================== SUBROUTINE SLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_gbrcond.f b/SRC/sla_gbrcond.f index afb1d35634..d3df620e21 100644 --- a/SRC/sla_gbrcond.f +++ b/SRC/sla_gbrcond.f @@ -164,6 +164,7 @@ REAL FUNCTION SLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, AFB, $ LDAFB, $ IPIV, CMODE, C, INFO, WORK, IWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_gbrfsx_extended.f b/SRC/sla_gbrfsx_extended.f index bd0ca3e7b3..a78e997c27 100644 --- a/SRC/sla_gbrfsx_extended.f +++ b/SRC/sla_gbrfsx_extended.f @@ -406,6 +406,7 @@ SUBROUTINE SLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, $ ERR_BNDS_COMP, RES, AYB, DY, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_gbrpvgrw.f b/SRC/sla_gbrpvgrw.f index 868e63a04c..a35a162531 100644 --- a/SRC/sla_gbrpvgrw.f +++ b/SRC/sla_gbrpvgrw.f @@ -112,6 +112,7 @@ * ===================================================================== REAL FUNCTION SLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, $ LDAFB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_geamv.f b/SRC/sla_geamv.f index 0e26fbef18..957fe3ff5a 100644 --- a/SRC/sla_geamv.f +++ b/SRC/sla_geamv.f @@ -172,6 +172,7 @@ SUBROUTINE SLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, $ BETA, $ Y, INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_gercond.f b/SRC/sla_gercond.f index 839f4e7a48..f71673d782 100644 --- a/SRC/sla_gercond.f +++ b/SRC/sla_gercond.f @@ -145,6 +145,7 @@ * ===================================================================== REAL FUNCTION SLA_GERCOND( TRANS, N, A, LDA, AF, LDAF, IPIV, $ CMODE, C, INFO, WORK, IWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_gerfsx_extended.f b/SRC/sla_gerfsx_extended.f index b9a11a2335..eceb62d874 100644 --- a/SRC/sla_gerfsx_extended.f +++ b/SRC/sla_gerfsx_extended.f @@ -394,6 +394,7 @@ SUBROUTINE SLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_gerpvgrw.f b/SRC/sla_gerpvgrw.f index f16bc94ffa..00d17ca829 100644 --- a/SRC/sla_gerpvgrw.f +++ b/SRC/sla_gerpvgrw.f @@ -92,6 +92,7 @@ * * ===================================================================== REAL FUNCTION SLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_lin_berr.f b/SRC/sla_lin_berr.f index 751efd8daf..3742eb656b 100644 --- a/SRC/sla_lin_berr.f +++ b/SRC/sla_lin_berr.f @@ -96,6 +96,7 @@ * * ===================================================================== SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_porcond.f b/SRC/sla_porcond.f index b1809c3271..f3a1201043 100644 --- a/SRC/sla_porcond.f +++ b/SRC/sla_porcond.f @@ -135,6 +135,7 @@ * ===================================================================== REAL FUNCTION SLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, CMODE, C, $ INFO, WORK, IWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_porfsx_extended.f b/SRC/sla_porfsx_extended.f index 0d250d04ed..d7b29e4fa8 100644 --- a/SRC/sla_porfsx_extended.f +++ b/SRC/sla_porfsx_extended.f @@ -383,6 +383,7 @@ SUBROUTINE SLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_porpvgrw.f b/SRC/sla_porpvgrw.f index d22e477a38..f653937d0a 100644 --- a/SRC/sla_porpvgrw.f +++ b/SRC/sla_porpvgrw.f @@ -100,6 +100,7 @@ * ===================================================================== REAL FUNCTION SLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, $ WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_syamv.f b/SRC/sla_syamv.f index ed0e811143..39fd3062d4 100644 --- a/SRC/sla_syamv.f +++ b/SRC/sla_syamv.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE SLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_syrcond.f b/SRC/sla_syrcond.f index 63616718a4..93f0ee200c 100644 --- a/SRC/sla_syrcond.f +++ b/SRC/sla_syrcond.f @@ -142,6 +142,7 @@ REAL FUNCTION SLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, IPIV, $ CMODE, $ C, INFO, WORK, IWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_syrfsx_extended.f b/SRC/sla_syrfsx_extended.f index b03ef1d88f..edb7dbfed0 100644 --- a/SRC/sla_syrfsx_extended.f +++ b/SRC/sla_syrfsx_extended.f @@ -392,6 +392,7 @@ SUBROUTINE SLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_syrpvgrw.f b/SRC/sla_syrpvgrw.f index 3ad909ade4..e9a7d88cad 100644 --- a/SRC/sla_syrpvgrw.f +++ b/SRC/sla_syrpvgrw.f @@ -118,6 +118,7 @@ REAL FUNCTION SLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, $ IPIV, $ WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_wwaddw.f b/SRC/sla_wwaddw.f index cf531a61c9..853c5d4ede 100644 --- a/SRC/sla_wwaddw.f +++ b/SRC/sla_wwaddw.f @@ -76,6 +76,7 @@ * * ===================================================================== SUBROUTINE SLA_WWADDW( N, X, Y, W ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slabad.f b/SRC/slabad.f index dc80b5a534..31be485ac6 100644 --- a/SRC/slabad.f +++ b/SRC/slabad.f @@ -62,6 +62,7 @@ * * ===================================================================== SUBROUTINE SLABAD( SMALL, LARGE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slabrd.f b/SRC/slabrd.f index f9f955b639..c639ae8f3d 100644 --- a/SRC/slabrd.f +++ b/SRC/slabrd.f @@ -206,6 +206,7 @@ SUBROUTINE SLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, $ Y, $ LDY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slacn2.f b/SRC/slacn2.f index 472ca43f5e..7fac3bc367 100644 --- a/SRC/slacn2.f +++ b/SRC/slacn2.f @@ -131,6 +131,7 @@ *> * ===================================================================== SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slacon.f b/SRC/slacon.f index 8875503214..a736471279 100644 --- a/SRC/slacon.f +++ b/SRC/slacon.f @@ -110,6 +110,7 @@ *> * ===================================================================== SUBROUTINE SLACON( N, V, X, ISGN, EST, KASE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slacpy.f b/SRC/slacpy.f index 6ea875cea8..b7a028e449 100644 --- a/SRC/slacpy.f +++ b/SRC/slacpy.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE SLACPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sladiv.f b/SRC/sladiv.f index 23b7ffe079..eae58951f6 100644 --- a/SRC/sladiv.f +++ b/SRC/sladiv.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE SLADIV( A, B, C, D, P, Q ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -172,6 +173,7 @@ SUBROUTINE SLADIV( A, B, C, D, P, Q ) SUBROUTINE SLADIV1( A, B, C, D, P, Q ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slae2.f b/SRC/slae2.f index c169fc22ec..2e3b9ac674 100644 --- a/SRC/slae2.f +++ b/SRC/slae2.f @@ -97,6 +97,7 @@ *> * ===================================================================== SUBROUTINE SLAE2( A, B, C, RT1, RT2 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaebz.f b/SRC/slaebz.f index 5bd3124c8f..58c913ef19 100644 --- a/SRC/slaebz.f +++ b/SRC/slaebz.f @@ -314,6 +314,7 @@ SUBROUTINE SLAEBZ( IJOB, NITMAX, N, MMAX, MINP, NBMIN, ABSTOL, $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed0.f b/SRC/slaed0.f index cfeda4383f..8bf878a0bb 100644 --- a/SRC/slaed0.f +++ b/SRC/slaed0.f @@ -167,6 +167,7 @@ * ===================================================================== SUBROUTINE SLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed1.f b/SRC/slaed1.f index d86076e570..20a196480a 100644 --- a/SRC/slaed1.f +++ b/SRC/slaed1.f @@ -159,6 +159,7 @@ SUBROUTINE SLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, $ IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed2.f b/SRC/slaed2.f index 9150bea151..7b02fd6165 100644 --- a/SRC/slaed2.f +++ b/SRC/slaed2.f @@ -208,6 +208,7 @@ SUBROUTINE SLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMBDA, $ W, $ Q2, INDX, INDXC, INDXP, COLTYP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed3.f b/SRC/slaed3.f index 1decd08421..1a50aba717 100644 --- a/SRC/slaed3.f +++ b/SRC/slaed3.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE SLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMBDA, Q2, INDX, $ CTOT, W, S, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed4.f b/SRC/slaed4.f index 61e2ec91db..3f431d2186 100644 --- a/SRC/slaed4.f +++ b/SRC/slaed4.f @@ -140,6 +140,7 @@ *> * ===================================================================== SUBROUTINE SLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed5.f b/SRC/slaed5.f index 4755cf5eed..9bde8c892a 100644 --- a/SRC/slaed5.f +++ b/SRC/slaed5.f @@ -103,6 +103,7 @@ *> * ===================================================================== SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed6.f b/SRC/slaed6.f index b12a6cec4d..8c9445da42 100644 --- a/SRC/slaed6.f +++ b/SRC/slaed6.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed7.f b/SRC/slaed7.f index b4da520aab..d9c4e5ee49 100644 --- a/SRC/slaed7.f +++ b/SRC/slaed7.f @@ -256,6 +256,7 @@ SUBROUTINE SLAED7( ICOMPQ, N, QSIZ, TLVLS, CURLVL, CURPBM, D, $ LDQ, INDXQ, RHO, CUTPNT, QSTORE, QPTR, PRMPTR, $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed8.f b/SRC/slaed8.f index 47684d3876..7af6705312 100644 --- a/SRC/slaed8.f +++ b/SRC/slaed8.f @@ -238,6 +238,7 @@ SUBROUTINE SLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, $ CUTPNT, Z, DLAMBDA, Q2, LDQ2, W, PERM, GIVPTR, $ GIVCOL, GIVNUM, INDXP, INDX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaed9.f b/SRC/slaed9.f index 7c5fbec0fe..8b60ca6b06 100644 --- a/SRC/slaed9.f +++ b/SRC/slaed9.f @@ -152,6 +152,7 @@ SUBROUTINE SLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, $ DLAMBDA, $ W, S, LDS, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaeda.f b/SRC/slaeda.f index b25c1547f0..9f730f12c7 100644 --- a/SRC/slaeda.f +++ b/SRC/slaeda.f @@ -162,6 +162,7 @@ SUBROUTINE SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, $ GIVPTR, $ GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaein.f b/SRC/slaein.f index 2be50a9e73..e6e2065f58 100644 --- a/SRC/slaein.f +++ b/SRC/slaein.f @@ -168,6 +168,7 @@ SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, $ B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaev2.f b/SRC/slaev2.f index 06e744d13a..ed40301981 100644 --- a/SRC/slaev2.f +++ b/SRC/slaev2.f @@ -115,6 +115,7 @@ *> * ===================================================================== SUBROUTINE SLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaexc.f b/SRC/slaexc.f index 14b85fddee..a234300ead 100644 --- a/SRC/slaexc.f +++ b/SRC/slaexc.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slag2.f b/SRC/slag2.f index 1d758759b5..fd56910d40 100644 --- a/SRC/slag2.f +++ b/SRC/slag2.f @@ -151,6 +151,7 @@ * ===================================================================== SUBROUTINE SLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, $ WR2, WI ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slag2d.f b/SRC/slag2d.f index 60d149bd82..6f92f33c9a 100644 --- a/SRC/slag2d.f +++ b/SRC/slag2d.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slags2.f b/SRC/slags2.f index db77e70bea..59e1a6f79c 100644 --- a/SRC/slags2.f +++ b/SRC/slags2.f @@ -148,6 +148,7 @@ SUBROUTINE SLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, $ CSV, $ SNV, CSQ, SNQ ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slagtf.f b/SRC/slagtf.f index f9a399ad48..6fe62c4315 100644 --- a/SRC/slagtf.f +++ b/SRC/slagtf.f @@ -151,6 +151,7 @@ * * ===================================================================== SUBROUTINE SLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slagtm.f b/SRC/slagtm.f index 8ae4607fd5..1302962810 100644 --- a/SRC/slagtm.f +++ b/SRC/slagtm.f @@ -141,6 +141,7 @@ SUBROUTINE SLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, $ BETA, $ B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slagts.f b/SRC/slagts.f index e7021900e1..33301a098a 100644 --- a/SRC/slagts.f +++ b/SRC/slagts.f @@ -158,6 +158,7 @@ * * ===================================================================== SUBROUTINE SLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slagv2.f b/SRC/slagv2.f index 242957e4e3..c71213682d 100644 --- a/SRC/slagv2.f +++ b/SRC/slagv2.f @@ -153,6 +153,7 @@ SUBROUTINE SLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, $ SNL, $ CSR, SNR ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slahr2.f b/SRC/slahr2.f index e9b1cfd6d1..074f935423 100644 --- a/SRC/slahr2.f +++ b/SRC/slahr2.f @@ -176,6 +176,7 @@ *> * ===================================================================== SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaic1.f b/SRC/slaic1.f index da18a08f7a..07101bcc46 100644 --- a/SRC/slaic1.f +++ b/SRC/slaic1.f @@ -129,6 +129,7 @@ * * ===================================================================== SUBROUTINE SLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaisnan.f b/SRC/slaisnan.f index 2e1a86d20d..dec47b10fa 100644 --- a/SRC/slaisnan.f +++ b/SRC/slaisnan.f @@ -69,6 +69,7 @@ * * ===================================================================== LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaln2.f b/SRC/slaln2.f index b98979edee..1b04f2d0ea 100644 --- a/SRC/slaln2.f +++ b/SRC/slaln2.f @@ -213,6 +213,7 @@ * ===================================================================== SUBROUTINE SLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slals0.f b/SRC/slals0.f index 43d1f88598..ee9cd2315d 100644 --- a/SRC/slals0.f +++ b/SRC/slals0.f @@ -264,6 +264,7 @@ SUBROUTINE SLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, $ LDBX, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slalsa.f b/SRC/slalsa.f index a73c054398..87db425e7b 100644 --- a/SRC/slalsa.f +++ b/SRC/slalsa.f @@ -263,6 +263,7 @@ SUBROUTINE SLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, $ LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slalsd.f b/SRC/slalsd.f index d184c867ab..59e22236a0 100644 --- a/SRC/slalsd.f +++ b/SRC/slalsd.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slamrg.f b/SRC/slamrg.f index 8cdb7ad1d1..ae8426ebb6 100644 --- a/SRC/slamrg.f +++ b/SRC/slamrg.f @@ -94,6 +94,7 @@ * * ===================================================================== SUBROUTINE SLAMRG( N1, N2, A, STRD1, STRD2, INDEX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slamswlq.f b/SRC/slamswlq.f index 432afadedf..aa12d59641 100644 --- a/SRC/slamswlq.f +++ b/SRC/slamswlq.f @@ -197,6 +197,7 @@ * ===================================================================== SUBROUTINE SLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slamtsqr.f b/SRC/slamtsqr.f index f9b167aea3..281e5ef26e 100644 --- a/SRC/slamtsqr.f +++ b/SRC/slamtsqr.f @@ -198,6 +198,7 @@ * ===================================================================== SUBROUTINE SLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaneg.f b/SRC/slaneg.f index b8322229a0..f04d259ccd 100644 --- a/SRC/slaneg.f +++ b/SRC/slaneg.f @@ -113,6 +113,7 @@ *> * ===================================================================== INTEGER FUNCTION SLANEG( N, D, LLD, SIGMA, PIVMIN, R ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slangb.f b/SRC/slangb.f index 03f9f9ed9b..4d67e0e5ae 100644 --- a/SRC/slangb.f +++ b/SRC/slangb.f @@ -119,6 +119,7 @@ * ===================================================================== REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slange.f b/SRC/slange.f index b6ca114b68..41740f9060 100644 --- a/SRC/slange.f +++ b/SRC/slange.f @@ -109,6 +109,7 @@ * * ===================================================================== REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slangt.f b/SRC/slangt.f index 02322cc7b5..b2149db15b 100644 --- a/SRC/slangt.f +++ b/SRC/slangt.f @@ -101,6 +101,7 @@ * * ===================================================================== REAL FUNCTION SLANGT( NORM, N, DL, D, DU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slanhs.f b/SRC/slanhs.f index e9e8f80194..eba753ce2f 100644 --- a/SRC/slanhs.f +++ b/SRC/slanhs.f @@ -103,6 +103,7 @@ * * ===================================================================== REAL FUNCTION SLANHS( NORM, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slansb.f b/SRC/slansb.f index 511be97e8c..3bfc3242cc 100644 --- a/SRC/slansb.f +++ b/SRC/slansb.f @@ -124,6 +124,7 @@ * ===================================================================== REAL FUNCTION SLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slansf.f b/SRC/slansf.f index 48c0e26790..5e860efbe4 100644 --- a/SRC/slansf.f +++ b/SRC/slansf.f @@ -204,6 +204,7 @@ * * ===================================================================== REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slansp.f b/SRC/slansp.f index 9b285019b7..63a05c2e99 100644 --- a/SRC/slansp.f +++ b/SRC/slansp.f @@ -109,6 +109,7 @@ * * ===================================================================== REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slanst.f b/SRC/slanst.f index 6e103e7140..aefd8a08ae 100644 --- a/SRC/slanst.f +++ b/SRC/slanst.f @@ -95,6 +95,7 @@ * * ===================================================================== REAL FUNCTION SLANST( NORM, N, D, E ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slansy.f b/SRC/slansy.f index 9b6486fb5d..dcb94fbf1e 100644 --- a/SRC/slansy.f +++ b/SRC/slansy.f @@ -117,6 +117,7 @@ * * ===================================================================== REAL FUNCTION SLANSY( NORM, UPLO, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slantb.f b/SRC/slantb.f index e618320044..02393c1ddf 100644 --- a/SRC/slantb.f +++ b/SRC/slantb.f @@ -135,6 +135,7 @@ * ===================================================================== REAL FUNCTION SLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slantp.f b/SRC/slantp.f index 5ff48ec868..b29ad9b94c 100644 --- a/SRC/slantp.f +++ b/SRC/slantp.f @@ -120,6 +120,7 @@ * ===================================================================== REAL FUNCTION SLANTP( NORM, UPLO, DIAG, N, AP, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slantr.f b/SRC/slantr.f index 184dfb8da8..c4bcedc268 100644 --- a/SRC/slantr.f +++ b/SRC/slantr.f @@ -137,6 +137,7 @@ REAL FUNCTION SLANTR( NORM, UPLO, DIAG, M, N, A, $ LDA, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slanv2.f b/SRC/slanv2.f index c50610047d..752552cdf1 100644 --- a/SRC/slanv2.f +++ b/SRC/slanv2.f @@ -122,6 +122,7 @@ *> * ===================================================================== SUBROUTINE SLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slapll.f b/SRC/slapll.f index 2503b92200..03aa19e9d2 100644 --- a/SRC/slapll.f +++ b/SRC/slapll.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE SLAPLL( N, X, INCX, Y, INCY, SSMIN ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slapmr.f b/SRC/slapmr.f index e5d91cc38f..d8150e2ebb 100644 --- a/SRC/slapmr.f +++ b/SRC/slapmr.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slapmt.f b/SRC/slapmt.f index 671badcc44..259fd14b5b 100644 --- a/SRC/slapmt.f +++ b/SRC/slapmt.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SLAPMT( FORWRD, M, N, X, LDX, K ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slapy2.f b/SRC/slapy2.f index 8e3b2daceb..9937bc7cc7 100644 --- a/SRC/slapy2.f +++ b/SRC/slapy2.f @@ -58,6 +58,7 @@ * * ===================================================================== REAL FUNCTION SLAPY2( X, Y ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slapy3.f b/SRC/slapy3.f index 848fb28289..c1c4bd6724 100644 --- a/SRC/slapy3.f +++ b/SRC/slapy3.f @@ -63,6 +63,7 @@ * * ===================================================================== REAL FUNCTION SLAPY3( X, Y, Z ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqgb.f b/SRC/slaqgb.f index 04673ea388..27ea3cd6bc 100644 --- a/SRC/slaqgb.f +++ b/SRC/slaqgb.f @@ -155,6 +155,7 @@ SUBROUTINE SLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqge.f b/SRC/slaqge.f index 03eec26a5c..7053e308eb 100644 --- a/SRC/slaqge.f +++ b/SRC/slaqge.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE SLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqp2.f b/SRC/slaqp2.f index b7edd4a8cb..530d1913d6 100644 --- a/SRC/slaqp2.f +++ b/SRC/slaqp2.f @@ -142,6 +142,7 @@ * ===================================================================== SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqps.f b/SRC/slaqps.f index 40ce643e82..cf49e5d22a 100644 --- a/SRC/slaqps.f +++ b/SRC/slaqps.f @@ -172,6 +172,7 @@ SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, $ VN1, $ VN2, AUXV, F, LDF ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqr0.f b/SRC/slaqr0.f index f60a8eb443..10e5179e05 100644 --- a/SRC/slaqr0.f +++ b/SRC/slaqr0.f @@ -251,6 +251,7 @@ * ===================================================================== SUBROUTINE SLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqr1.f b/SRC/slaqr1.f index f0728e6ad1..3479aa00c0 100644 --- a/SRC/slaqr1.f +++ b/SRC/slaqr1.f @@ -116,6 +116,7 @@ *> * ===================================================================== SUBROUTINE SLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index cf4c4446c6..9ee1f8b6e2 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -274,6 +274,7 @@ SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, $ ILOZ, $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqr3.f b/SRC/slaqr3.f index 9ce9f82d7e..f9f8090a3a 100644 --- a/SRC/slaqr3.f +++ b/SRC/slaqr3.f @@ -271,6 +271,7 @@ SUBROUTINE SLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, $ ILOZ, $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqr4.f b/SRC/slaqr4.f index 444c274507..a4c3009775 100644 --- a/SRC/slaqr4.f +++ b/SRC/slaqr4.f @@ -260,6 +260,7 @@ * ===================================================================== SUBROUTINE SLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqsb.f b/SRC/slaqsb.f index b69defb4c9..1ba08e804b 100644 --- a/SRC/slaqsb.f +++ b/SRC/slaqsb.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE SLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqsp.f b/SRC/slaqsp.f index 7b633e87ef..f38e34a0a1 100644 --- a/SRC/slaqsp.f +++ b/SRC/slaqsp.f @@ -120,6 +120,7 @@ * * ===================================================================== SUBROUTINE SLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqsy.f b/SRC/slaqsy.f index 3aa67627f7..8217466e86 100644 --- a/SRC/slaqsy.f +++ b/SRC/slaqsy.f @@ -128,6 +128,7 @@ * * ===================================================================== SUBROUTINE SLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaqtr.f b/SRC/slaqtr.f index 2eb41cc84a..f8de103deb 100644 --- a/SRC/slaqtr.f +++ b/SRC/slaqtr.f @@ -161,6 +161,7 @@ SUBROUTINE SLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slar1v.f b/SRC/slar1v.f index cbcb18d55d..ca81eed692 100644 --- a/SRC/slar1v.f +++ b/SRC/slar1v.f @@ -225,6 +225,7 @@ SUBROUTINE SLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slar2v.f b/SRC/slar2v.f index c5f81bc070..04a80d61f9 100644 --- a/SRC/slar2v.f +++ b/SRC/slar2v.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE SLAR2V( N, X, Y, Z, INCX, C, S, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarf.f b/SRC/slarf.f index a591f31462..725ab2873a 100644 --- a/SRC/slarf.f +++ b/SRC/slarf.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarf1f.f b/SRC/slarf1f.f index 480d1868fb..d0c015eacf 100644 --- a/SRC/slarf1f.f +++ b/SRC/slarf1f.f @@ -120,6 +120,7 @@ * * ===================================================================== SUBROUTINE SLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarf1l.f b/SRC/slarf1l.f index 4a1256f946..d4fbb60108 100644 --- a/SRC/slarf1l.f +++ b/SRC/slarf1l.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE SLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarfb.f b/SRC/slarfb.f index 0e7d96330e..01dc932f03 100644 --- a/SRC/slarfb.f +++ b/SRC/slarfb.f @@ -192,6 +192,7 @@ SUBROUTINE SLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, $ LDV, $ T, LDT, C, LDC, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarfg.f b/SRC/slarfg.f index 0ca9169a1e..a0893439d1 100644 --- a/SRC/slarfg.f +++ b/SRC/slarfg.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarfgp.f b/SRC/slarfgp.f index 0f4679ef98..f411819cdd 100644 --- a/SRC/slarfgp.f +++ b/SRC/slarfgp.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarft.f b/SRC/slarft.f index 7a67fa57f4..47fd349882 100644 --- a/SRC/slarft.f +++ b/SRC/slarft.f @@ -159,6 +159,7 @@ * ===================================================================== RECURSIVE SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, $ TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarfx.f b/SRC/slarfx.f index 6c833ea4cc..f02774740a 100644 --- a/SRC/slarfx.f +++ b/SRC/slarfx.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE SLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarfy.f b/SRC/slarfy.f index 060f81a032..362ea6e6ba 100644 --- a/SRC/slarfy.f +++ b/SRC/slarfy.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slargv.f b/SRC/slargv.f index 98e407a8c5..784fb15d2c 100644 --- a/SRC/slargv.f +++ b/SRC/slargv.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SLARGV( N, X, INCX, Y, INCY, C, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarnv.f b/SRC/slarnv.f index 69b282c6d7..4831e9f8b8 100644 --- a/SRC/slarnv.f +++ b/SRC/slarnv.f @@ -92,6 +92,7 @@ *> * ===================================================================== SUBROUTINE SLARNV( IDIST, ISEED, N, X ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarra.f b/SRC/slarra.f index 3f1bcbec99..b4154b5c6e 100644 --- a/SRC/slarra.f +++ b/SRC/slarra.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE SLARRA( N, D, E, E2, SPLTOL, TNRM, $ NSPLIT, ISPLIT, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarrb.f b/SRC/slarrb.f index 12df9a6021..6e43f126f8 100644 --- a/SRC/slarrb.f +++ b/SRC/slarrb.f @@ -191,6 +191,7 @@ SUBROUTINE SLARRB( N, D, LLD, IFIRST, ILAST, RTOL1, $ RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, TWIST, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarrc.f b/SRC/slarrc.f index 69be0716f4..bf5a3e65f9 100644 --- a/SRC/slarrc.f +++ b/SRC/slarrc.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN, $ EIGCNT, LCNT, RCNT, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarrd.f b/SRC/slarrd.f index 7e5093a8cd..89c9aed4a5 100644 --- a/SRC/slarrd.f +++ b/SRC/slarrd.f @@ -324,6 +324,7 @@ SUBROUTINE SLARRD( RANGE, ORDER, N, VL, VU, IL, IU, GERS, $ RELTOL, D, E, E2, PIVMIN, NSPLIT, ISPLIT, $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarre.f b/SRC/slarre.f index 9dfc411b8e..4f50f40cf1 100644 --- a/SRC/slarre.f +++ b/SRC/slarre.f @@ -300,6 +300,7 @@ SUBROUTINE SLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2, $ RTOL1, RTOL2, SPLTOL, NSPLIT, ISPLIT, M, $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarrf.f b/SRC/slarrf.f index b39d598eb4..33486f73ea 100644 --- a/SRC/slarrf.f +++ b/SRC/slarrf.f @@ -188,6 +188,7 @@ SUBROUTINE SLARRF( N, D, L, LD, CLSTRT, CLEND, $ W, WGAP, WERR, $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarrj.f b/SRC/slarrj.f index c8d98ba40f..6cfb2eec87 100644 --- a/SRC/slarrj.f +++ b/SRC/slarrj.f @@ -163,6 +163,7 @@ SUBROUTINE SLARRJ( N, D, E2, IFIRST, ILAST, $ RTOL, OFFSET, W, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarrk.f b/SRC/slarrk.f index a85c4e5a68..010df87e38 100644 --- a/SRC/slarrk.f +++ b/SRC/slarrk.f @@ -140,6 +140,7 @@ * ===================================================================== SUBROUTINE SLARRK( N, IW, GL, GU, $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarrr.f b/SRC/slarrr.f index 9088d8f857..520ef6fba2 100644 --- a/SRC/slarrr.f +++ b/SRC/slarrr.f @@ -89,6 +89,7 @@ * * ===================================================================== SUBROUTINE SLARRR( N, D, E, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarrv.f b/SRC/slarrv.f index a1c1d6f949..59ad497704 100644 --- a/SRC/slarrv.f +++ b/SRC/slarrv.f @@ -287,6 +287,7 @@ SUBROUTINE SLARRV( N, VL, VU, D, L, PIVMIN, $ RTOL1, RTOL2, W, WERR, WGAP, $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarscl2.f b/SRC/slarscl2.f index fe9f678949..ce5cbbbfc3 100644 --- a/SRC/slarscl2.f +++ b/SRC/slarscl2.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE SLARSCL2 ( M, N, D, X, LDX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slartg.f90 b/SRC/slartg.f90 index fdf4099039..132872f226 100644 --- a/SRC/slartg.f90 +++ b/SRC/slartg.f90 @@ -111,6 +111,7 @@ subroutine SLARTG( f, g, c, s, r ) use LA_CONSTANTS, & only: wp=>sp, zero=>szero, half=>shalf, one=>sone, & safmin=>ssafmin, safmax=>ssafmax + implicit none ! ! -- LAPACK auxiliary routine -- ! -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slartgp.f b/SRC/slartgp.f index 7478c49d03..e74f107516 100644 --- a/SRC/slartgp.f +++ b/SRC/slartgp.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE SLARTGP( F, G, CS, SN, R ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slartgs.f b/SRC/slartgs.f index fd1567d98b..3c1660a2b4 100644 --- a/SRC/slartgs.f +++ b/SRC/slartgs.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE SLARTGS( X, Y, SIGMA, CS, SN ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slartv.f b/SRC/slartv.f index b7db904aa3..bf9b0e13d8 100644 --- a/SRC/slartv.f +++ b/SRC/slartv.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE SLARTV( N, X, INCX, Y, INCY, C, S, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaruv.f b/SRC/slaruv.f index 49a5b2a71a..0a1ecb210a 100644 --- a/SRC/slaruv.f +++ b/SRC/slaruv.f @@ -90,6 +90,7 @@ *> * ===================================================================== SUBROUTINE SLARUV( ISEED, N, X ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarz.f b/SRC/slarz.f index 64f419ddfb..af54724a8d 100644 --- a/SRC/slarz.f +++ b/SRC/slarz.f @@ -140,6 +140,7 @@ *> * ===================================================================== SUBROUTINE SLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarzb.f b/SRC/slarzb.f index f59021ea10..4401391568 100644 --- a/SRC/slarzb.f +++ b/SRC/slarzb.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE SLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slarzt.f b/SRC/slarzt.f index 739b81a362..5c3ebaddc7 100644 --- a/SRC/slarzt.f +++ b/SRC/slarzt.f @@ -180,6 +180,7 @@ *> * ===================================================================== SUBROUTINE SLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slas2.f b/SRC/slas2.f index 97b82a1fd8..9141670915 100644 --- a/SRC/slas2.f +++ b/SRC/slas2.f @@ -100,6 +100,7 @@ *> * ===================================================================== SUBROUTINE SLAS2( F, G, H, SSMIN, SSMAX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slascl.f b/SRC/slascl.f index f96b780822..c9b8d3e7ba 100644 --- a/SRC/slascl.f +++ b/SRC/slascl.f @@ -139,6 +139,7 @@ * ===================================================================== SUBROUTINE SLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slascl2.f b/SRC/slascl2.f index f960f0bc0a..0e2b722ce3 100644 --- a/SRC/slascl2.f +++ b/SRC/slascl2.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE SLASCL2 ( M, N, D, X, LDX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd0.f b/SRC/slasd0.f index fd485532dd..ec6b49ff9e 100644 --- a/SRC/slasd0.f +++ b/SRC/slasd0.f @@ -148,6 +148,7 @@ SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, $ IWORK, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd1.f b/SRC/slasd1.f index 057f1448c8..d123b4a3cf 100644 --- a/SRC/slasd1.f +++ b/SRC/slasd1.f @@ -200,6 +200,7 @@ SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, $ LDVT, $ IDXQ, IWORK, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd2.f b/SRC/slasd2.f index dfb203af42..277d2675ec 100644 --- a/SRC/slasd2.f +++ b/SRC/slasd2.f @@ -265,6 +265,7 @@ SUBROUTINE SLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, $ VT, $ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, $ IDXC, IDXQ, COLTYP, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd3.f b/SRC/slasd3.f index 9060290dac..b4836b5218 100644 --- a/SRC/slasd3.f +++ b/SRC/slasd3.f @@ -213,6 +213,7 @@ SUBROUTINE SLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, $ U2, $ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd4.f b/SRC/slasd4.f index 7f3a982434..e50a911412 100644 --- a/SRC/slasd4.f +++ b/SRC/slasd4.f @@ -148,6 +148,7 @@ *> * ===================================================================== SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd5.f b/SRC/slasd5.f index c697a276fa..e4154d32d0 100644 --- a/SRC/slasd5.f +++ b/SRC/slasd5.f @@ -111,6 +111,7 @@ *> * ===================================================================== SUBROUTINE SLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd6.f b/SRC/slasd6.f index e4d1c4ae96..63ff6184a5 100644 --- a/SRC/slasd6.f +++ b/SRC/slasd6.f @@ -309,6 +309,7 @@ SUBROUTINE SLASD6( ICOMPQ, NL, NR, SQRE, D, VF, VL, ALPHA, $ IDXQ, PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd7.f b/SRC/slasd7.f index 0bff53e760..b5707e21cb 100644 --- a/SRC/slasd7.f +++ b/SRC/slasd7.f @@ -276,6 +276,7 @@ SUBROUTINE SLASD7( ICOMPQ, NL, NR, SQRE, K, D, Z, ZW, VF, VFW, $ VLW, ALPHA, BETA, DSIGMA, IDX, IDXP, IDXQ, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ C, S, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasd8.f b/SRC/slasd8.f index d043c45c6c..d0f2291d48 100644 --- a/SRC/slasd8.f +++ b/SRC/slasd8.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE SLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasda.f b/SRC/slasda.f index 835ffeeb69..8701abb277 100644 --- a/SRC/slasda.f +++ b/SRC/slasda.f @@ -269,6 +269,7 @@ SUBROUTINE SLASDA( ICOMPQ, SMLSIZ, N, SQRE, D, E, U, LDU, VT, $ K, $ DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, $ PERM, GIVNUM, C, S, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasdq.f b/SRC/slasdq.f index 14edcfd8c1..422e10d797 100644 --- a/SRC/slasdq.f +++ b/SRC/slasdq.f @@ -207,6 +207,7 @@ SUBROUTINE SLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, $ LDVT, $ U, LDU, C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasdt.f b/SRC/slasdt.f index 741d965b12..e72d7de492 100644 --- a/SRC/slasdt.f +++ b/SRC/slasdt.f @@ -100,6 +100,7 @@ *> * ===================================================================== SUBROUTINE SLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaset.f b/SRC/slaset.f index b335af30d8..dc88b5dafd 100644 --- a/SRC/slaset.f +++ b/SRC/slaset.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE SLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasq1.f b/SRC/slasq1.f index e4de96a71d..4d83808748 100644 --- a/SRC/slasq1.f +++ b/SRC/slasq1.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE SLASQ1( N, D, E, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasq2.f b/SRC/slasq2.f index da1532e26d..8e9cc88485 100644 --- a/SRC/slasq2.f +++ b/SRC/slasq2.f @@ -107,6 +107,7 @@ *> * ===================================================================== SUBROUTINE SLASQ2( N, Z, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasq3.f b/SRC/slasq3.f index f65b467836..37d40f85e9 100644 --- a/SRC/slasq3.f +++ b/SRC/slasq3.f @@ -178,6 +178,7 @@ SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, $ NFAIL, $ ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, $ DN2, G, TAU ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasq4.f b/SRC/slasq4.f index af070cbd43..38768aeb37 100644 --- a/SRC/slasq4.f +++ b/SRC/slasq4.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasq5.f b/SRC/slasq5.f index 0925f0aca0..7ebca9c189 100644 --- a/SRC/slasq5.f +++ b/SRC/slasq5.f @@ -140,6 +140,7 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, $ DMIN2, $ DN, DNM1, DNM2, IEEE, EPS ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasq6.f b/SRC/slasq6.f index 60e5d65006..100a28074f 100644 --- a/SRC/slasq6.f +++ b/SRC/slasq6.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasr.f b/SRC/slasr.f index 8c4d4b69b6..53eded929d 100644 --- a/SRC/slasr.f +++ b/SRC/slasr.f @@ -194,6 +194,7 @@ * * ===================================================================== SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasrt.f b/SRC/slasrt.f index e72bfbc649..4afe57fef3 100644 --- a/SRC/slasrt.f +++ b/SRC/slasrt.f @@ -83,6 +83,7 @@ * * ===================================================================== SUBROUTINE SLASRT( ID, N, D, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slassq.f90 b/SRC/slassq.f90 index 8c148a7685..ebf193703f 100644 --- a/SRC/slassq.f90 +++ b/SRC/slassq.f90 @@ -123,6 +123,7 @@ subroutine SLASSQ( n, x, incx, scale, sumsq ) only: wp=>sp, zero=>szero, one=>sone, & sbig=>ssbig, ssml=>sssml, tbig=>stbig, tsml=>stsml use LA_XISNAN + implicit none ! ! -- LAPACK auxiliary routine -- ! -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasv2.f b/SRC/slasv2.f index 1a46cba17f..786d28db0c 100644 --- a/SRC/slasv2.f +++ b/SRC/slasv2.f @@ -131,6 +131,7 @@ *> * ===================================================================== SUBROUTINE SLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaswlq.f b/SRC/slaswlq.f index 594c646db3..08e7f3b9c1 100644 --- a/SRC/slaswlq.f +++ b/SRC/slaswlq.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE SLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slaswp.f b/SRC/slaswp.f index b5cc68edfc..1670e21797 100644 --- a/SRC/slaswp.f +++ b/SRC/slaswp.f @@ -110,6 +110,7 @@ *> * ===================================================================== SUBROUTINE SLASWP( N, A, LDA, K1, K2, IPIV, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasy2.f b/SRC/slasy2.f index 575ba958aa..d9366a3cb1 100644 --- a/SRC/slasy2.f +++ b/SRC/slasy2.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE SLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, $ LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasyf.f b/SRC/slasyf.f index 8bb16e2bca..129607a2bd 100644 --- a/SRC/slasyf.f +++ b/SRC/slasyf.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE SLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasyf_rk.f b/SRC/slasyf_rk.f index e7aad44b86..9cbc9ff1b0 100644 --- a/SRC/slasyf_rk.f +++ b/SRC/slasyf_rk.f @@ -257,6 +257,7 @@ * ===================================================================== SUBROUTINE SLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slasyf_rook.f b/SRC/slasyf_rook.f index 0ff418c056..2776e6a13c 100644 --- a/SRC/slasyf_rook.f +++ b/SRC/slasyf_rook.f @@ -179,6 +179,7 @@ * ===================================================================== SUBROUTINE SLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slatbs.f b/SRC/slatbs.f index 35543b8ca6..9b1874030a 100644 --- a/SRC/slatbs.f +++ b/SRC/slatbs.f @@ -238,6 +238,7 @@ SUBROUTINE SLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, $ X, $ SCALE, CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slatdf.f b/SRC/slatdf.f index ef50389f55..5bf210d0c7 100644 --- a/SRC/slatdf.f +++ b/SRC/slatdf.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE SLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slatps.f b/SRC/slatps.f index d89bc0f704..0fe7485b72 100644 --- a/SRC/slatps.f +++ b/SRC/slatps.f @@ -224,6 +224,7 @@ * ===================================================================== SUBROUTINE SLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slatrd.f b/SRC/slatrd.f index a940692614..73e4ffb2f5 100644 --- a/SRC/slatrd.f +++ b/SRC/slatrd.f @@ -193,6 +193,7 @@ *> * ===================================================================== SUBROUTINE SLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slatrs.f b/SRC/slatrs.f index 6ab38afcca..0e26fbda22 100644 --- a/SRC/slatrs.f +++ b/SRC/slatrs.f @@ -234,6 +234,7 @@ SUBROUTINE SLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, $ SCALE, $ CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slatrz.f b/SRC/slatrz.f index 6df14110f3..35035346ad 100644 --- a/SRC/slatrz.f +++ b/SRC/slatrz.f @@ -135,6 +135,7 @@ *> * ===================================================================== SUBROUTINE SLATRZ( M, N, L, A, LDA, TAU, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slatsqr.f b/SRC/slatsqr.f index 4730815b5f..daeaf61b84 100644 --- a/SRC/slatsqr.f +++ b/SRC/slatsqr.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE SLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slauu2.f b/SRC/slauu2.f index 3a4469db7d..b328a2f5b2 100644 --- a/SRC/slauu2.f +++ b/SRC/slauu2.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE SLAUU2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/slauum.f b/SRC/slauum.f index 2b20526e93..f4e1d9df6d 100644 --- a/SRC/slauum.f +++ b/SRC/slauum.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE SLAUUM( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sopgtr.f b/SRC/sopgtr.f index e80b655b7e..7674b231f4 100644 --- a/SRC/sopgtr.f +++ b/SRC/sopgtr.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sopmtr.f b/SRC/sopmtr.f index a207e7abaa..19e9f6af3a 100644 --- a/SRC/sopmtr.f +++ b/SRC/sopmtr.f @@ -146,6 +146,7 @@ SUBROUTINE SOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorbdb.f b/SRC/sorbdb.f index 1b38bbaadc..17aba5db49 100644 --- a/SRC/sorbdb.f +++ b/SRC/sorbdb.f @@ -283,6 +283,7 @@ SUBROUTINE SORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, $ LDX12, $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorbdb1.f b/SRC/sorbdb1.f index ff0a498dd9..52fb3c7b58 100644 --- a/SRC/sorbdb1.f +++ b/SRC/sorbdb1.f @@ -199,6 +199,7 @@ SUBROUTINE SORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorbdb2.f b/SRC/sorbdb2.f index d8344e563d..f4107d0d1f 100644 --- a/SRC/sorbdb2.f +++ b/SRC/sorbdb2.f @@ -197,6 +197,7 @@ SUBROUTINE SORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorbdb3.f b/SRC/sorbdb3.f index b88dd6f4c3..3cf8f97355 100644 --- a/SRC/sorbdb3.f +++ b/SRC/sorbdb3.f @@ -198,6 +198,7 @@ SUBROUTINE SORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorbdb4.f b/SRC/sorbdb4.f index 6445bd2992..4bd1affa45 100644 --- a/SRC/sorbdb4.f +++ b/SRC/sorbdb4.f @@ -210,6 +210,7 @@ SUBROUTINE SORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorbdb5.f b/SRC/sorbdb5.f index 69440b68b8..746758acaa 100644 --- a/SRC/sorbdb5.f +++ b/SRC/sorbdb5.f @@ -152,6 +152,7 @@ SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, $ Q2, $ LDQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorbdb6.f b/SRC/sorbdb6.f index fd46114ce8..9fb29b0383 100644 --- a/SRC/sorbdb6.f +++ b/SRC/sorbdb6.f @@ -155,6 +155,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, $ Q2, $ LDQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f index 36500f3438..eb91d1757f 100644 --- a/SRC/sorcsd.f +++ b/SRC/sorcsd.f @@ -296,6 +296,7 @@ RECURSIVE SUBROUTINE SORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, $ LDX12, X21, LDX21, X22, LDX22, THETA, $ U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorcsd2by1.f b/SRC/sorcsd2by1.f index 4385976468..c8af642c85 100644 --- a/SRC/sorcsd2by1.f +++ b/SRC/sorcsd2by1.f @@ -229,6 +229,7 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, $ LDX11, $ X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, $ LDV1T, WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorg2l.f b/SRC/sorg2l.f index b101d8dab6..bf5c9b0ec7 100644 --- a/SRC/sorg2l.f +++ b/SRC/sorg2l.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorg2r.f b/SRC/sorg2r.f index 28414375fd..c6bbe7506a 100644 --- a/SRC/sorg2r.f +++ b/SRC/sorg2r.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorgbr.f b/SRC/sorgbr.f index e82664f6d6..b61e998748 100644 --- a/SRC/sorgbr.f +++ b/SRC/sorgbr.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE SORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorghr.f b/SRC/sorghr.f index 21f06bc75b..32ebd853bb 100644 --- a/SRC/sorghr.f +++ b/SRC/sorghr.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE SORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorgl2.f b/SRC/sorgl2.f index bbdc956e1b..2bea2836f9 100644 --- a/SRC/sorgl2.f +++ b/SRC/sorgl2.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE SORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorglq.f b/SRC/sorglq.f index fb5ef79cce..12dbc5503f 100644 --- a/SRC/sorglq.f +++ b/SRC/sorglq.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE SORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorgql.f b/SRC/sorgql.f index 7257ff2d95..6fab92c4b8 100644 --- a/SRC/sorgql.f +++ b/SRC/sorgql.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE SORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorgqr.f b/SRC/sorgqr.f index 47d1fd248c..d793874a28 100644 --- a/SRC/sorgqr.f +++ b/SRC/sorgqr.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE SORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorgr2.f b/SRC/sorgr2.f index 3fb2c2fcd1..aca697e0cd 100644 --- a/SRC/sorgr2.f +++ b/SRC/sorgr2.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorgrq.f b/SRC/sorgrq.f index 5fe685c1d8..38173a1f7c 100644 --- a/SRC/sorgrq.f +++ b/SRC/sorgrq.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE SORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorgtr.f b/SRC/sorgtr.f index 527ee79dc3..b80204c4db 100644 --- a/SRC/sorgtr.f +++ b/SRC/sorgtr.f @@ -118,6 +118,7 @@ * * ===================================================================== SUBROUTINE SORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorm2l.f b/SRC/sorm2l.f index c513424845..6de9c5d8e2 100644 --- a/SRC/sorm2l.f +++ b/SRC/sorm2l.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE SORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorm2r.f b/SRC/sorm2r.f index 18e34e567b..b1fd6263f6 100644 --- a/SRC/sorm2r.f +++ b/SRC/sorm2r.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE SORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormbr.f b/SRC/sormbr.f index d94d7ce816..e8b73c18db 100644 --- a/SRC/sormbr.f +++ b/SRC/sormbr.f @@ -191,6 +191,7 @@ * ===================================================================== SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormhr.f b/SRC/sormhr.f index c347dc4c8a..b9642bc762 100644 --- a/SRC/sormhr.f +++ b/SRC/sormhr.f @@ -174,6 +174,7 @@ * ===================================================================== SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sorml2.f b/SRC/sorml2.f index daceda0f1e..0f79de7df1 100644 --- a/SRC/sorml2.f +++ b/SRC/sorml2.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE SORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormlq.f b/SRC/sormlq.f index 6793a4d9e1..fa3972189d 100644 --- a/SRC/sormlq.f +++ b/SRC/sormlq.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormql.f b/SRC/sormql.f index e0ec6e3636..c831e02422 100644 --- a/SRC/sormql.f +++ b/SRC/sormql.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE SORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormqr.f b/SRC/sormqr.f index 121f65f23e..0a5d20723e 100644 --- a/SRC/sormqr.f +++ b/SRC/sormqr.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormr2.f b/SRC/sormr2.f index b9b80933ea..c170f63c77 100644 --- a/SRC/sormr2.f +++ b/SRC/sormr2.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE SORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormr3.f b/SRC/sormr3.f index f1790bab1e..2c37689fbf 100644 --- a/SRC/sormr3.f +++ b/SRC/sormr3.f @@ -174,6 +174,7 @@ SUBROUTINE SORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, $ LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormrq.f b/SRC/sormrq.f index a29315ac84..530f9cc864 100644 --- a/SRC/sormrq.f +++ b/SRC/sormrq.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE SORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormrz.f b/SRC/sormrz.f index efa0eec653..d8d35bef42 100644 --- a/SRC/sormrz.f +++ b/SRC/sormrz.f @@ -183,6 +183,7 @@ SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, $ LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sormtr.f b/SRC/sormtr.f index e1c2690d34..42c6e3dab7 100644 --- a/SRC/sormtr.f +++ b/SRC/sormtr.f @@ -168,6 +168,7 @@ SUBROUTINE SORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, $ LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbcon.f b/SRC/spbcon.f index 7e97c53c87..8ca1f75170 100644 --- a/SRC/spbcon.f +++ b/SRC/spbcon.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE SPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbequ.f b/SRC/spbequ.f index c2531e972f..9ae4165088 100644 --- a/SRC/spbequ.f +++ b/SRC/spbequ.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE SPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbrfs.f b/SRC/spbrfs.f index b0ca9167cc..ea52ebea90 100644 --- a/SRC/spbrfs.f +++ b/SRC/spbrfs.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE SPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbstf.f b/SRC/spbstf.f index b907cf55a4..30daa27fa2 100644 --- a/SRC/spbstf.f +++ b/SRC/spbstf.f @@ -147,6 +147,7 @@ *> * ===================================================================== SUBROUTINE SPBSTF( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbsv.f b/SRC/spbsv.f index d866085b5e..c66cbbc0b8 100644 --- a/SRC/spbsv.f +++ b/SRC/spbsv.f @@ -159,6 +159,7 @@ *> * ===================================================================== SUBROUTINE SPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbsvx.f b/SRC/spbsvx.f index 8c05ecb03f..08dcb93740 100644 --- a/SRC/spbsvx.f +++ b/SRC/spbsvx.f @@ -339,6 +339,7 @@ SUBROUTINE SPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, $ LDAFB, $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbtf2.f b/SRC/spbtf2.f index 246b94e813..2dffd522f8 100644 --- a/SRC/spbtf2.f +++ b/SRC/spbtf2.f @@ -137,6 +137,7 @@ *> * ===================================================================== SUBROUTINE SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbtrf.f b/SRC/spbtrf.f index 4f4d831c33..ed4ab9993c 100644 --- a/SRC/spbtrf.f +++ b/SRC/spbtrf.f @@ -137,6 +137,7 @@ * * ===================================================================== SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spbtrs.f b/SRC/spbtrs.f index fa220ed42a..5350859a27 100644 --- a/SRC/spbtrs.f +++ b/SRC/spbtrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE SPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spftrf.f b/SRC/spftrf.f index a69adf46f8..125ffadd11 100644 --- a/SRC/spftrf.f +++ b/SRC/spftrf.f @@ -193,6 +193,7 @@ *> * ===================================================================== SUBROUTINE SPFTRF( TRANSR, UPLO, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spftri.f b/SRC/spftri.f index 587f9dee90..6cdae73cb0 100644 --- a/SRC/spftri.f +++ b/SRC/spftri.f @@ -186,6 +186,7 @@ *> * ===================================================================== SUBROUTINE SPFTRI( TRANSR, UPLO, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spftrs.f b/SRC/spftrs.f index e51a0d85bc..3557a4d1a8 100644 --- a/SRC/spftrs.f +++ b/SRC/spftrs.f @@ -194,6 +194,7 @@ *> * ===================================================================== SUBROUTINE SPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spocon.f b/SRC/spocon.f index 76298f216e..790497c414 100644 --- a/SRC/spocon.f +++ b/SRC/spocon.f @@ -116,6 +116,7 @@ * ===================================================================== SUBROUTINE SPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spoequ.f b/SRC/spoequ.f index a0f2f8f737..9b2d5e88e7 100644 --- a/SRC/spoequ.f +++ b/SRC/spoequ.f @@ -107,6 +107,7 @@ * * ===================================================================== SUBROUTINE SPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spoequb.f b/SRC/spoequb.f index 719cf507d5..cd37aef80c 100644 --- a/SRC/spoequb.f +++ b/SRC/spoequb.f @@ -113,6 +113,7 @@ * * ===================================================================== SUBROUTINE SPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sporfs.f b/SRC/sporfs.f index f7ae6d8292..be4b78517e 100644 --- a/SRC/sporfs.f +++ b/SRC/sporfs.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE SPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sporfsx.f b/SRC/sporfsx.f index 554bed2ba7..abdbe16a15 100644 --- a/SRC/sporfsx.f +++ b/SRC/sporfsx.f @@ -390,6 +390,7 @@ SUBROUTINE SPORFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, S, $ LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sposv.f b/SRC/sposv.f index e33c8c8936..27bb40c0cd 100644 --- a/SRC/sposv.f +++ b/SRC/sposv.f @@ -125,6 +125,7 @@ * * ===================================================================== SUBROUTINE SPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sposvx.f b/SRC/sposvx.f index de1e7f1c76..44b1e916b0 100644 --- a/SRC/sposvx.f +++ b/SRC/sposvx.f @@ -303,6 +303,7 @@ SUBROUTINE SPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sposvxx.f b/SRC/sposvxx.f index 47d6c3a8c4..f9b02cfcb4 100644 --- a/SRC/sposvxx.f +++ b/SRC/sposvxx.f @@ -493,6 +493,7 @@ SUBROUTINE SPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spotf2.f b/SRC/spotf2.f index e4c4bf1e7c..ef90dd9fc8 100644 --- a/SRC/spotf2.f +++ b/SRC/spotf2.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE SPOTF2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spotrf.f b/SRC/spotrf.f index ec49c1fede..d9b775ffd5 100644 --- a/SRC/spotrf.f +++ b/SRC/spotrf.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE SPOTRF( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spotrf2.f b/SRC/spotrf2.f index 0f28783334..0b0244a639 100644 --- a/SRC/spotrf2.f +++ b/SRC/spotrf2.f @@ -103,6 +103,7 @@ * * ===================================================================== RECURSIVE SUBROUTINE SPOTRF2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spotri.f b/SRC/spotri.f index a76c55c121..23d2cd870b 100644 --- a/SRC/spotri.f +++ b/SRC/spotri.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE SPOTRI( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spotrs.f b/SRC/spotrs.f index 581b506d73..3ced5bd8db 100644 --- a/SRC/spotrs.f +++ b/SRC/spotrs.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE SPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sppcon.f b/SRC/sppcon.f index 91077d735f..4c0a94a48f 100644 --- a/SRC/sppcon.f +++ b/SRC/sppcon.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE SPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sppequ.f b/SRC/sppequ.f index c61446139c..39fb022967 100644 --- a/SRC/sppequ.f +++ b/SRC/sppequ.f @@ -111,6 +111,7 @@ * * ===================================================================== SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spprfs.f b/SRC/spprfs.f index 1578194dc9..0b054a1038 100644 --- a/SRC/spprfs.f +++ b/SRC/spprfs.f @@ -167,6 +167,7 @@ SUBROUTINE SPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, $ FERR, $ BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sppsv.f b/SRC/sppsv.f index 8b18b43603..26b2d384be 100644 --- a/SRC/sppsv.f +++ b/SRC/sppsv.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE SPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sppsvx.f b/SRC/sppsvx.f index ff5b02ec7a..7a99a218bf 100644 --- a/SRC/sppsvx.f +++ b/SRC/sppsvx.f @@ -307,6 +307,7 @@ SUBROUTINE SPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, $ LDB, $ X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spptrf.f b/SRC/spptrf.f index ec63bfdbfb..89646f06d3 100644 --- a/SRC/spptrf.f +++ b/SRC/spptrf.f @@ -114,6 +114,7 @@ *> * ===================================================================== SUBROUTINE SPPTRF( UPLO, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spptri.f b/SRC/spptri.f index b0026b9fe2..7406311545 100644 --- a/SRC/spptri.f +++ b/SRC/spptri.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE SPPTRI( UPLO, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spptrs.f b/SRC/spptrs.f index 2918eee1fb..db74fac441 100644 --- a/SRC/spptrs.f +++ b/SRC/spptrs.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE SPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spstf2.f b/SRC/spstf2.f index a6cd373dd5..46ceb12851 100644 --- a/SRC/spstf2.f +++ b/SRC/spstf2.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE SPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spstrf.f b/SRC/spstrf.f index e11c4a6a39..6d8427daf6 100644 --- a/SRC/spstrf.f +++ b/SRC/spstrf.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE SPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sptcon.f b/SRC/sptcon.f index 629c71dbad..fe1de986b6 100644 --- a/SRC/sptcon.f +++ b/SRC/sptcon.f @@ -113,6 +113,7 @@ *> * ===================================================================== SUBROUTINE SPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spteqr.f b/SRC/spteqr.f index a6fff00dee..3e837e153c 100644 --- a/SRC/spteqr.f +++ b/SRC/spteqr.f @@ -140,6 +140,7 @@ * * ===================================================================== SUBROUTINE SPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sptrfs.f b/SRC/sptrfs.f index 039d5dbaa4..9815dd49f6 100644 --- a/SRC/sptrfs.f +++ b/SRC/sptrfs.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE SPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sptsv.f b/SRC/sptsv.f index d4d5b98cf9..6d9a8442ef 100644 --- a/SRC/sptsv.f +++ b/SRC/sptsv.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SPTSV( N, NRHS, D, E, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sptsvx.f b/SRC/sptsvx.f index 88e8f0936f..35f18134e2 100644 --- a/SRC/sptsvx.f +++ b/SRC/sptsvx.f @@ -223,6 +223,7 @@ * ===================================================================== SUBROUTINE SPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spttrf.f b/SRC/spttrf.f index cdc58d0e82..da2d0a6b1b 100644 --- a/SRC/spttrf.f +++ b/SRC/spttrf.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE SPTTRF( N, D, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/spttrs.f b/SRC/spttrs.f index 27a362a7cd..e78ec57013 100644 --- a/SRC/spttrs.f +++ b/SRC/spttrs.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE SPTTRS( N, NRHS, D, E, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sptts2.f b/SRC/sptts2.f index 015c47adb0..2f6870ed00 100644 --- a/SRC/sptts2.f +++ b/SRC/sptts2.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/srscl.f b/SRC/srscl.f index c044d3f185..c08c3f1105 100644 --- a/SRC/srscl.f +++ b/SRC/srscl.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE SRSCL( N, SA, SX, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssbev.f b/SRC/ssbev.f index b46f3b404f..ee491d4259 100644 --- a/SRC/ssbev.f +++ b/SRC/ssbev.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE SSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssbevd.f b/SRC/ssbevd.f index 8b1336d60d..2c688596fc 100644 --- a/SRC/ssbevd.f +++ b/SRC/ssbevd.f @@ -183,6 +183,7 @@ SUBROUTINE SSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, $ WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssbevx.f b/SRC/ssbevx.f index 5bfed80d1b..6082c4bc37 100644 --- a/SRC/ssbevx.f +++ b/SRC/ssbevx.f @@ -261,6 +261,7 @@ SUBROUTINE SSBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, $ VL, $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssbgst.f b/SRC/ssbgst.f index aeeb467e03..2b65ee326a 100644 --- a/SRC/ssbgst.f +++ b/SRC/ssbgst.f @@ -155,6 +155,7 @@ SUBROUTINE SSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, $ X, $ LDX, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssbgv.f b/SRC/ssbgv.f index 9a079080d9..40a0017f48 100644 --- a/SRC/ssbgv.f +++ b/SRC/ssbgv.f @@ -173,6 +173,7 @@ SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, $ LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssbgvd.f b/SRC/ssbgvd.f index f636a89c6d..6138b79485 100644 --- a/SRC/ssbgvd.f +++ b/SRC/ssbgvd.f @@ -217,6 +217,7 @@ SUBROUTINE SSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, $ W, $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssbgvx.f b/SRC/ssbgvx.f index 87f7074598..52191190b9 100644 --- a/SRC/ssbgvx.f +++ b/SRC/ssbgvx.f @@ -289,6 +289,7 @@ SUBROUTINE SSBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssbtrd.f b/SRC/ssbtrd.f index bc4bb74096..5a1780472f 100644 --- a/SRC/ssbtrd.f +++ b/SRC/ssbtrd.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE SSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssfrk.f b/SRC/ssfrk.f index dd2adf4c20..0452e95880 100644 --- a/SRC/ssfrk.f +++ b/SRC/ssfrk.f @@ -162,6 +162,7 @@ SUBROUTINE SSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, $ BETA, $ C ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspcon.f b/SRC/sspcon.f index 382b059a7d..cbec3e2801 100644 --- a/SRC/sspcon.f +++ b/SRC/sspcon.f @@ -121,6 +121,7 @@ SUBROUTINE SSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, $ IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspev.f b/SRC/sspev.f index f83f658db6..739a970412 100644 --- a/SRC/sspev.f +++ b/SRC/sspev.f @@ -125,6 +125,7 @@ * * ===================================================================== SUBROUTINE SSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspevd.f b/SRC/sspevd.f index cdc17fe49b..8b7d768ffa 100644 --- a/SRC/sspevd.f +++ b/SRC/sspevd.f @@ -167,6 +167,7 @@ * ===================================================================== SUBROUTINE SSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspevx.f b/SRC/sspevx.f index 4ab3c2112a..3c66d47600 100644 --- a/SRC/sspevx.f +++ b/SRC/sspevx.f @@ -229,6 +229,7 @@ SUBROUTINE SSPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspgst.f b/SRC/sspgst.f index d322ba5170..0bec0a3cc2 100644 --- a/SRC/sspgst.f +++ b/SRC/sspgst.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE SSPGST( ITYPE, UPLO, N, AP, BP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspgv.f b/SRC/sspgv.f index af3c8a2e4f..856adc692e 100644 --- a/SRC/sspgv.f +++ b/SRC/sspgv.f @@ -156,6 +156,7 @@ SUBROUTINE SSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspgvd.f b/SRC/sspgvd.f index b42dc78d7c..91067e418a 100644 --- a/SRC/sspgvd.f +++ b/SRC/sspgvd.f @@ -200,6 +200,7 @@ SUBROUTINE SSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, $ WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspgvx.f b/SRC/sspgvx.f index c0f555a610..86ff8743bc 100644 --- a/SRC/sspgvx.f +++ b/SRC/sspgvx.f @@ -267,6 +267,7 @@ SUBROUTINE SSPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssprfs.f b/SRC/ssprfs.f index f5a2ed67a3..7428dd1352 100644 --- a/SRC/ssprfs.f +++ b/SRC/ssprfs.f @@ -175,6 +175,7 @@ SUBROUTINE SSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, $ FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspsv.f b/SRC/sspsv.f index 53918c5f92..e36ee06d05 100644 --- a/SRC/sspsv.f +++ b/SRC/sspsv.f @@ -157,6 +157,7 @@ *> * ===================================================================== SUBROUTINE SSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sspsvx.f b/SRC/sspsvx.f index 90d8dccebc..1284b4a7db 100644 --- a/SRC/sspsvx.f +++ b/SRC/sspsvx.f @@ -272,6 +272,7 @@ SUBROUTINE SSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, $ X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssptrd.f b/SRC/ssptrd.f index 4c67321b26..53a3692bbf 100644 --- a/SRC/ssptrd.f +++ b/SRC/ssptrd.f @@ -145,6 +145,7 @@ *> * ===================================================================== SUBROUTINE SSPTRD( UPLO, N, AP, D, E, TAU, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssptrf.f b/SRC/ssptrf.f index 5525cab0e5..5900caf7e0 100644 --- a/SRC/ssptrf.f +++ b/SRC/ssptrf.f @@ -152,6 +152,7 @@ *> * ===================================================================== SUBROUTINE SSPTRF( UPLO, N, AP, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssptri.f b/SRC/ssptri.f index 59f465dda8..06c6485795 100644 --- a/SRC/ssptri.f +++ b/SRC/ssptri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE SSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssptrs.f b/SRC/ssptrs.f index a0f1459df7..a46f58d5c9 100644 --- a/SRC/ssptrs.f +++ b/SRC/ssptrs.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE SSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstebz.f b/SRC/sstebz.f index 6645b265aa..1a8953fffe 100644 --- a/SRC/sstebz.f +++ b/SRC/sstebz.f @@ -269,6 +269,7 @@ SUBROUTINE SSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, $ E, $ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstedc.f b/SRC/sstedc.f index a1f3e9fd6f..140a51a88f 100644 --- a/SRC/sstedc.f +++ b/SRC/sstedc.f @@ -177,6 +177,7 @@ * ===================================================================== SUBROUTINE SSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstegr.f b/SRC/sstegr.f index 9ebb767bff..a8aba3ee5e 100644 --- a/SRC/sstegr.f +++ b/SRC/sstegr.f @@ -260,6 +260,7 @@ SUBROUTINE SSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstein.f b/SRC/sstein.f index 2c48d7f386..471d31220d 100644 --- a/SRC/sstein.f +++ b/SRC/sstein.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE SSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstemr.f b/SRC/sstemr.f index 5e7fc4bc69..8fe8292a55 100644 --- a/SRC/sstemr.f +++ b/SRC/sstemr.f @@ -317,6 +317,7 @@ SUBROUTINE SSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssteqr.f b/SRC/ssteqr.f index 16d5e1b1f5..5bd2808485 100644 --- a/SRC/ssteqr.f +++ b/SRC/ssteqr.f @@ -126,6 +126,7 @@ * * ===================================================================== SUBROUTINE SSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssterf.f b/SRC/ssterf.f index d60027b6dc..1974db4ddc 100644 --- a/SRC/ssterf.f +++ b/SRC/ssterf.f @@ -81,6 +81,7 @@ * * ===================================================================== SUBROUTINE SSTERF( N, D, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstev.f b/SRC/sstev.f index e8b1a4f621..d64a998c2e 100644 --- a/SRC/sstev.f +++ b/SRC/sstev.f @@ -111,6 +111,7 @@ * * ===================================================================== SUBROUTINE SSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstevd.f b/SRC/sstevd.f index 86f4f794fd..1bc804e709 100644 --- a/SRC/sstevd.f +++ b/SRC/sstevd.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE SSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstevr.f b/SRC/sstevr.f index 48bf417c48..0b72c2f0e5 100644 --- a/SRC/sstevr.f +++ b/SRC/sstevr.f @@ -302,6 +302,7 @@ SUBROUTINE SSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, $ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sstevx.f b/SRC/sstevx.f index e0cacc5373..763f397ed1 100644 --- a/SRC/sstevx.f +++ b/SRC/sstevx.f @@ -223,6 +223,7 @@ SUBROUTINE SSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, $ M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssycon.f b/SRC/ssycon.f index c200a58333..353e2341be 100644 --- a/SRC/ssycon.f +++ b/SRC/ssycon.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE SSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssycon_3.f b/SRC/ssycon_3.f index dc7783792b..e642acd13c 100644 --- a/SRC/ssycon_3.f +++ b/SRC/ssycon_3.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE SSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssycon_rook.f b/SRC/ssycon_rook.f index 4ec5518f28..81c00506dd 100644 --- a/SRC/ssycon_rook.f +++ b/SRC/ssycon_rook.f @@ -140,6 +140,7 @@ SUBROUTINE SSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, $ WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyconv.f b/SRC/ssyconv.f index 5a23f37c72..d4600959f8 100644 --- a/SRC/ssyconv.f +++ b/SRC/ssyconv.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyconvf.f b/SRC/ssyconvf.f index 5019f80480..d2fcf953a1 100644 --- a/SRC/ssyconvf.f +++ b/SRC/ssyconvf.f @@ -201,6 +201,7 @@ *> \endverbatim * ===================================================================== SUBROUTINE SSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyconvf_rook.f b/SRC/ssyconvf_rook.f index d1030d13fd..32f296e2dc 100644 --- a/SRC/ssyconvf_rook.f +++ b/SRC/ssyconvf_rook.f @@ -192,6 +192,7 @@ *> \endverbatim * ===================================================================== SUBROUTINE SSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyequb.f b/SRC/ssyequb.f index 949192019e..a0883616eb 100644 --- a/SRC/ssyequb.f +++ b/SRC/ssyequb.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE SSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyev.f b/SRC/ssyev.f index 65167f4dc0..7f4918bad3 100644 --- a/SRC/ssyev.f +++ b/SRC/ssyev.f @@ -127,6 +127,7 @@ * * ===================================================================== SUBROUTINE SSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyevd.f b/SRC/ssyevd.f index df7cd181d1..5649aff198 100644 --- a/SRC/ssyevd.f +++ b/SRC/ssyevd.f @@ -171,6 +171,7 @@ SUBROUTINE SSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, $ IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyevr.f b/SRC/ssyevr.f index c663bb8d5d..6a848bb1cb 100644 --- a/SRC/ssyevr.f +++ b/SRC/ssyevr.f @@ -347,6 +347,7 @@ SUBROUTINE SSYEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, $ IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyevx.f b/SRC/ssyevx.f index 964c2e7c5b..3774536d30 100644 --- a/SRC/ssyevx.f +++ b/SRC/ssyevx.f @@ -249,6 +249,7 @@ SUBROUTINE SSYEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, $ IU, $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, $ IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssygs2.f b/SRC/ssygs2.f index a46b6b07dc..0a889e3cea 100644 --- a/SRC/ssygs2.f +++ b/SRC/ssygs2.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE SSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssygst.f b/SRC/ssygst.f index 393c616c68..668d018752 100644 --- a/SRC/ssygst.f +++ b/SRC/ssygst.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE SSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssygv.f b/SRC/ssygv.f index fa27387717..aaf2cbbae6 100644 --- a/SRC/ssygv.f +++ b/SRC/ssygv.f @@ -171,6 +171,7 @@ SUBROUTINE SSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssygvd.f b/SRC/ssygvd.f index a59df7e0e3..aacf9d3ad5 100644 --- a/SRC/ssygvd.f +++ b/SRC/ssygvd.f @@ -217,6 +217,7 @@ SUBROUTINE SSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, $ WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssygvx.f b/SRC/ssygvx.f index a428fdd3b3..e4c68ede61 100644 --- a/SRC/ssygvx.f +++ b/SRC/ssygvx.f @@ -292,6 +292,7 @@ SUBROUTINE SSYGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyrfs.f b/SRC/ssyrfs.f index 1de99dbbac..21d4198eee 100644 --- a/SRC/ssyrfs.f +++ b/SRC/ssyrfs.f @@ -187,6 +187,7 @@ SUBROUTINE SSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyrfsx.f b/SRC/ssyrfsx.f index bfcaa31bb8..6a47f11687 100644 --- a/SRC/ssyrfsx.f +++ b/SRC/ssyrfsx.f @@ -398,6 +398,7 @@ SUBROUTINE SSYRFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssysv.f b/SRC/ssysv.f index aa1319b215..1a271e337c 100644 --- a/SRC/ssysv.f +++ b/SRC/ssysv.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE SSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssysv_aa.f b/SRC/ssysv_aa.f index 90ccb8ac0b..7a33eb4ff8 100644 --- a/SRC/ssysv_aa.f +++ b/SRC/ssysv_aa.f @@ -157,6 +157,7 @@ * ===================================================================== SUBROUTINE SSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssysv_rk.f b/SRC/ssysv_rk.f index f295b6f1bb..27adddf7cf 100644 --- a/SRC/ssysv_rk.f +++ b/SRC/ssysv_rk.f @@ -223,6 +223,7 @@ * ===================================================================== SUBROUTINE SSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssysv_rook.f b/SRC/ssysv_rook.f index 1f0e76e7f2..8f58884a2b 100644 --- a/SRC/ssysv_rook.f +++ b/SRC/ssysv_rook.f @@ -200,6 +200,7 @@ SUBROUTINE SSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssysvx.f b/SRC/ssysvx.f index df910c7637..ad2793f9d9 100644 --- a/SRC/ssysvx.f +++ b/SRC/ssysvx.f @@ -280,6 +280,7 @@ SUBROUTINE SSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssysvxx.f b/SRC/ssysvxx.f index c712e4e24c..d73cf83bb5 100644 --- a/SRC/ssysvxx.f +++ b/SRC/ssysvxx.f @@ -504,6 +504,7 @@ SUBROUTINE SSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssyswapr.f b/SRC/ssyswapr.f index bd767d1443..2ff7843701 100644 --- a/SRC/ssyswapr.f +++ b/SRC/ssyswapr.f @@ -95,6 +95,7 @@ * * ===================================================================== SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytd2.f b/SRC/ssytd2.f index f2f0c00e23..97baf3c0ac 100644 --- a/SRC/ssytd2.f +++ b/SRC/ssytd2.f @@ -168,6 +168,7 @@ *> * ===================================================================== SUBROUTINE SSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytf2.f b/SRC/ssytf2.f index 8d13943ce2..d5defcccc2 100644 --- a/SRC/ssytf2.f +++ b/SRC/ssytf2.f @@ -190,6 +190,7 @@ * * ===================================================================== SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytf2_rk.f b/SRC/ssytf2_rk.f index f5c173e987..d78f621f03 100644 --- a/SRC/ssytf2_rk.f +++ b/SRC/ssytf2_rk.f @@ -236,6 +236,7 @@ * * ===================================================================== SUBROUTINE SSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytf2_rook.f b/SRC/ssytf2_rook.f index 9aa8314763..9e64887282 100644 --- a/SRC/ssytf2_rook.f +++ b/SRC/ssytf2_rook.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE SSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytrd.f b/SRC/ssytrd.f index 4e74cee788..32eaf99f8d 100644 --- a/SRC/ssytrd.f +++ b/SRC/ssytrd.f @@ -188,6 +188,7 @@ * ===================================================================== SUBROUTINE SSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytrf.f b/SRC/ssytrf.f index 8e68447601..3a96143703 100644 --- a/SRC/ssytrf.f +++ b/SRC/ssytrf.f @@ -177,6 +177,7 @@ *> * ===================================================================== SUBROUTINE SSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytrf_rk.f b/SRC/ssytrf_rk.f index b3b043b501..575c301dce 100644 --- a/SRC/ssytrf_rk.f +++ b/SRC/ssytrf_rk.f @@ -254,6 +254,7 @@ * ===================================================================== SUBROUTINE SSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytrf_rook.f b/SRC/ssytrf_rook.f index 48ba7219dc..4fe34bc748 100644 --- a/SRC/ssytrf_rook.f +++ b/SRC/ssytrf_rook.f @@ -204,6 +204,7 @@ * ===================================================================== SUBROUTINE SSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytri.f b/SRC/ssytri.f index 8e719eccbf..5a66701b42 100644 --- a/SRC/ssytri.f +++ b/SRC/ssytri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytri2.f b/SRC/ssytri2.f index 2455404892..e728fed7d5 100644 --- a/SRC/ssytri2.f +++ b/SRC/ssytri2.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE SSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytri2x.f b/SRC/ssytri2x.f index f6aea42fa3..bb8fd43d3d 100644 --- a/SRC/ssytri2x.f +++ b/SRC/ssytri2x.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytri_3.f b/SRC/ssytri_3.f index 29ecc1df58..fcf4798003 100644 --- a/SRC/ssytri_3.f +++ b/SRC/ssytri_3.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE SSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytri_3x.f b/SRC/ssytri_3x.f index 6594a0023d..255a90315d 100644 --- a/SRC/ssytri_3x.f +++ b/SRC/ssytri_3x.f @@ -155,6 +155,7 @@ * ===================================================================== SUBROUTINE SSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytri_rook.f b/SRC/ssytri_rook.f index 050ffb7b06..2ed3ce1eff 100644 --- a/SRC/ssytri_rook.f +++ b/SRC/ssytri_rook.f @@ -124,6 +124,7 @@ * * ===================================================================== SUBROUTINE SSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytrs.f b/SRC/ssytrs.f index f7dc7fe2f6..ad79527726 100644 --- a/SRC/ssytrs.f +++ b/SRC/ssytrs.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE SSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytrs2.f b/SRC/ssytrs2.f index c3250aac85..25fb569313 100644 --- a/SRC/ssytrs2.f +++ b/SRC/ssytrs2.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytrs_3.f b/SRC/ssytrs_3.f index eadd6db203..da6e8ea131 100644 --- a/SRC/ssytrs_3.f +++ b/SRC/ssytrs_3.f @@ -160,6 +160,7 @@ * ==================================================================== SUBROUTINE SSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ssytrs_rook.f b/SRC/ssytrs_rook.f index 2a5f80d73c..df7a906919 100644 --- a/SRC/ssytrs_rook.f +++ b/SRC/ssytrs_rook.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE SSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stbcon.f b/SRC/stbcon.f index 9d2eb7028a..75731f9a0b 100644 --- a/SRC/stbcon.f +++ b/SRC/stbcon.f @@ -139,6 +139,7 @@ SUBROUTINE STBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, $ WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stbrfs.f b/SRC/stbrfs.f index 54ff3f9e76..a334cc8ab9 100644 --- a/SRC/stbrfs.f +++ b/SRC/stbrfs.f @@ -183,6 +183,7 @@ * ===================================================================== SUBROUTINE STBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stbtrs.f b/SRC/stbtrs.f index d713d7dd0b..52c0972bf6 100644 --- a/SRC/stbtrs.f +++ b/SRC/stbtrs.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE STBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stfsm.f b/SRC/stfsm.f index 58ae121080..cb0ecd9136 100644 --- a/SRC/stfsm.f +++ b/SRC/stfsm.f @@ -274,6 +274,7 @@ SUBROUTINE STFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, $ A, $ B, LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stftri.f b/SRC/stftri.f index c18d5e9cc3..8278551bad 100644 --- a/SRC/stftri.f +++ b/SRC/stftri.f @@ -196,6 +196,7 @@ *> * ===================================================================== SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stfttp.f b/SRC/stfttp.f index 48c1fe4ea3..f43f12eaac 100644 --- a/SRC/stfttp.f +++ b/SRC/stfttp.f @@ -182,6 +182,7 @@ *> * ===================================================================== SUBROUTINE STFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stfttr.f b/SRC/stfttr.f index c97d3c2214..a1cea97315 100644 --- a/SRC/stfttr.f +++ b/SRC/stfttr.f @@ -191,6 +191,7 @@ * * ===================================================================== SUBROUTINE STFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stgevc.f b/SRC/stgevc.f index 36cee38d22..f29e6c304c 100644 --- a/SRC/stgevc.f +++ b/SRC/stgevc.f @@ -290,6 +290,7 @@ * ===================================================================== SUBROUTINE STGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stgex2.f b/SRC/stgex2.f index e9a9042ff2..d6a11841d7 100644 --- a/SRC/stgex2.f +++ b/SRC/stgex2.f @@ -216,6 +216,7 @@ * ===================================================================== SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, N1, N2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stgexc.f b/SRC/stgexc.f index cd9b209491..2df76b459a 100644 --- a/SRC/stgexc.f +++ b/SRC/stgexc.f @@ -215,6 +215,7 @@ * ===================================================================== SUBROUTINE STGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stgsen.f b/SRC/stgsen.f index 2a64072cab..c391f40dcb 100644 --- a/SRC/stgsen.f +++ b/SRC/stgsen.f @@ -447,6 +447,7 @@ SUBROUTINE STGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, $ LDB, $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, $ PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stgsja.f b/SRC/stgsja.f index 32ff0a7471..f51267da20 100644 --- a/SRC/stgsja.f +++ b/SRC/stgsja.f @@ -373,6 +373,7 @@ SUBROUTINE STGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stgsna.f b/SRC/stgsna.f index 1c630a9e40..80ec384065 100644 --- a/SRC/stgsna.f +++ b/SRC/stgsna.f @@ -376,6 +376,7 @@ SUBROUTINE STGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stgsy2.f b/SRC/stgsy2.f index fc1717387e..b53f086b89 100644 --- a/SRC/stgsy2.f +++ b/SRC/stgsy2.f @@ -270,6 +270,7 @@ SUBROUTINE STGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, $ D, $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stgsyl.f b/SRC/stgsyl.f index 185681fa19..69446d2160 100644 --- a/SRC/stgsyl.f +++ b/SRC/stgsyl.f @@ -295,6 +295,7 @@ SUBROUTINE STGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, $ D, $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stpcon.f b/SRC/stpcon.f index 8701016284..0b39fa8ff8 100644 --- a/SRC/stpcon.f +++ b/SRC/stpcon.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE STPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stplqt.f b/SRC/stplqt.f index 6e0034b5dd..64ea17fca0 100644 --- a/SRC/stplqt.f +++ b/SRC/stplqt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE STPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stplqt2.f b/SRC/stplqt2.f index ccf8131825..88a83aaa20 100644 --- a/SRC/stplqt2.f +++ b/SRC/stplqt2.f @@ -172,6 +172,7 @@ *> * ===================================================================== SUBROUTINE STPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stpmlqt.f b/SRC/stpmlqt.f index 159a768f5a..c31d06844e 100644 --- a/SRC/stpmlqt.f +++ b/SRC/stpmlqt.f @@ -210,6 +210,7 @@ SUBROUTINE STPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, $ LDT, $ A, LDA, B, LDB, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stpmqrt.f b/SRC/stpmqrt.f index 5023a9fc38..9d58376c0e 100644 --- a/SRC/stpmqrt.f +++ b/SRC/stpmqrt.f @@ -212,6 +212,7 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, $ LDT, $ A, LDA, B, LDB, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stpqrt.f b/SRC/stpqrt.f index 3231f7a0f8..a33e931bf9 100644 --- a/SRC/stpqrt.f +++ b/SRC/stpqrt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE STPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stpqrt2.f b/SRC/stpqrt2.f index cc28f35de5..15d7ed54e6 100644 --- a/SRC/stpqrt2.f +++ b/SRC/stpqrt2.f @@ -168,6 +168,7 @@ *> * ===================================================================== SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stprfb.f b/SRC/stprfb.f index e40f9e7251..ea69ed79c8 100644 --- a/SRC/stprfb.f +++ b/SRC/stprfb.f @@ -246,6 +246,7 @@ * ===================================================================== SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stprfs.f b/SRC/stprfs.f index 4e783d5061..7c95081bf5 100644 --- a/SRC/stprfs.f +++ b/SRC/stprfs.f @@ -171,6 +171,7 @@ SUBROUTINE STPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, $ LDX, $ FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stptri.f b/SRC/stptri.f index c481db6c9e..852cb3bcca 100644 --- a/SRC/stptri.f +++ b/SRC/stptri.f @@ -112,6 +112,7 @@ *> * ===================================================================== SUBROUTINE STPTRI( UPLO, DIAG, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stptrs.f b/SRC/stptrs.f index 8541dd3a8f..aaa355be85 100644 --- a/SRC/stptrs.f +++ b/SRC/stptrs.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE STPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stpttf.f b/SRC/stpttf.f index db99da825c..3c1842482f 100644 --- a/SRC/stpttf.f +++ b/SRC/stpttf.f @@ -181,6 +181,7 @@ *> * ===================================================================== SUBROUTINE STPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stpttr.f b/SRC/stpttr.f index 2639d6b306..1175dafe35 100644 --- a/SRC/stpttr.f +++ b/SRC/stpttr.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE STPTTR( UPLO, N, AP, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strcon.f b/SRC/strcon.f index 2fd8199ea5..9acea5e013 100644 --- a/SRC/strcon.f +++ b/SRC/strcon.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE STRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strevc.f b/SRC/strevc.f index f524a8872f..fc32406982 100644 --- a/SRC/strevc.f +++ b/SRC/strevc.f @@ -218,6 +218,7 @@ SUBROUTINE STREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, $ LDVR, MM, M, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strexc.f b/SRC/strexc.f index 98f7cabd60..01fc56a3d2 100644 --- a/SRC/strexc.f +++ b/SRC/strexc.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE STREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strrfs.f b/SRC/strrfs.f index e03e582031..64ac8ac59f 100644 --- a/SRC/strrfs.f +++ b/SRC/strrfs.f @@ -178,6 +178,7 @@ SUBROUTINE STRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strsen.f b/SRC/strsen.f index eeca52c32e..eb34af9c35 100644 --- a/SRC/strsen.f +++ b/SRC/strsen.f @@ -310,6 +310,7 @@ SUBROUTINE STRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, $ WI, $ M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strsna.f b/SRC/strsna.f index 315b663663..598d2717e5 100644 --- a/SRC/strsna.f +++ b/SRC/strsna.f @@ -261,6 +261,7 @@ SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, $ LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strsyl.f b/SRC/strsyl.f index e38dac0de8..30b4375c37 100644 --- a/SRC/strsyl.f +++ b/SRC/strsyl.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE STRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strti2.f b/SRC/strti2.f index 75ee8309d1..910396ee25 100644 --- a/SRC/strti2.f +++ b/SRC/strti2.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE STRTI2( UPLO, DIAG, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strtri.f b/SRC/strtri.f index e00907450e..1f2779f8bc 100644 --- a/SRC/strtri.f +++ b/SRC/strtri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE STRTRI( UPLO, DIAG, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strtrs.f b/SRC/strtrs.f index 876ecf129e..82457b864b 100644 --- a/SRC/strtrs.f +++ b/SRC/strtrs.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE STRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strttf.f b/SRC/strttf.f index dc288e29c5..e95fc88214 100644 --- a/SRC/strttf.f +++ b/SRC/strttf.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE STRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/strttp.f b/SRC/strttp.f index ea20bba638..1d618d1209 100644 --- a/SRC/strttp.f +++ b/SRC/strttp.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE STRTTP( UPLO, N, A, LDA, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/stzrzf.f b/SRC/stzrzf.f index d4a41f18a4..8e9e3252f9 100644 --- a/SRC/stzrzf.f +++ b/SRC/stzrzf.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE STZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/xerbla.f b/SRC/xerbla.f index 583ff345e6..1597a53897 100644 --- a/SRC/xerbla.f +++ b/SRC/xerbla.f @@ -65,6 +65,7 @@ * * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/xerbla_array.f b/SRC/xerbla_array.f index 7d569ff292..ce19bc5792 100644 --- a/SRC/xerbla_array.f +++ b/SRC/xerbla_array.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE XERBLA_ARRAY( SRNAME_ARRAY, SRNAME_LEN, INFO) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zbbcsd.f b/SRC/zbbcsd.f index 291a324f14..64643d3533 100644 --- a/SRC/zbbcsd.f +++ b/SRC/zbbcsd.f @@ -328,6 +328,7 @@ SUBROUTINE ZBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, $ THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T, $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zbdsqr.f b/SRC/zbdsqr.f index 02f7e31a72..13a415ff92 100644 --- a/SRC/zbdsqr.f +++ b/SRC/zbdsqr.f @@ -230,6 +230,7 @@ * ===================================================================== SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zcgesv.f b/SRC/zcgesv.f index 5c3fc06f8d..04e46618bb 100644 --- a/SRC/zcgesv.f +++ b/SRC/zcgesv.f @@ -196,6 +196,7 @@ * ===================================================================== SUBROUTINE ZCGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, $ SWORK, RWORK, ITER, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zcposv.f b/SRC/zcposv.f index c9c99f67de..5bc48a49b3 100644 --- a/SRC/zcposv.f +++ b/SRC/zcposv.f @@ -204,6 +204,7 @@ * ===================================================================== SUBROUTINE ZCPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, $ SWORK, RWORK, ITER, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zdrscl.f b/SRC/zdrscl.f index c39f9c2a31..a608cc40c9 100644 --- a/SRC/zdrscl.f +++ b/SRC/zdrscl.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE ZDRSCL( N, SA, SX, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbbrd.f b/SRC/zgbbrd.f index a2279ba4cb..859426911b 100644 --- a/SRC/zgbbrd.f +++ b/SRC/zgbbrd.f @@ -188,6 +188,7 @@ * ===================================================================== SUBROUTINE ZGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbcon.f b/SRC/zgbcon.f index 80a2f42982..7d7d3c1263 100644 --- a/SRC/zgbcon.f +++ b/SRC/zgbcon.f @@ -143,6 +143,7 @@ SUBROUTINE ZGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, $ RCOND, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbequ.f b/SRC/zgbequ.f index 4805b41819..cef2c169cc 100644 --- a/SRC/zgbequ.f +++ b/SRC/zgbequ.f @@ -150,6 +150,7 @@ SUBROUTINE ZGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbequb.f b/SRC/zgbequb.f index 1dffd3d893..0e2c3edc28 100644 --- a/SRC/zgbequb.f +++ b/SRC/zgbequb.f @@ -157,6 +157,7 @@ SUBROUTINE ZGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbrfs.f b/SRC/zgbrfs.f index d281b414f2..66d6d06d7e 100644 --- a/SRC/zgbrfs.f +++ b/SRC/zgbrfs.f @@ -202,6 +202,7 @@ SUBROUTINE ZGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbrfsx.f b/SRC/zgbrfsx.f index cdc0e433bb..2c309e694f 100644 --- a/SRC/zgbrfsx.f +++ b/SRC/zgbrfsx.f @@ -436,6 +436,7 @@ SUBROUTINE ZGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB, $ BERR, N_ERR_BNDS, ERR_BNDS_NORM, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbsv.f b/SRC/zgbsv.f index 9e1a822e72..26ed027a2d 100644 --- a/SRC/zgbsv.f +++ b/SRC/zgbsv.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE ZGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbsvx.f b/SRC/zgbsvx.f index 87a4b8993d..0b38c90b06 100644 --- a/SRC/zgbsvx.f +++ b/SRC/zgbsvx.f @@ -365,6 +365,7 @@ SUBROUTINE ZGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbsvxx.f b/SRC/zgbsvxx.f index 3a568466c8..2afeeefb1c 100644 --- a/SRC/zgbsvxx.f +++ b/SRC/zgbsvxx.f @@ -556,6 +556,7 @@ SUBROUTINE ZGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, $ RCOND, RPVGRW, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbtf2.f b/SRC/zgbtf2.f index eefc12ba1a..90f83e19ad 100644 --- a/SRC/zgbtf2.f +++ b/SRC/zgbtf2.f @@ -140,6 +140,7 @@ *> * ===================================================================== SUBROUTINE ZGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbtrf.f b/SRC/zgbtrf.f index 97d0f9e086..a642ab0944 100644 --- a/SRC/zgbtrf.f +++ b/SRC/zgbtrf.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgbtrs.f b/SRC/zgbtrs.f index cea82c209c..c2d365ed55 100644 --- a/SRC/zgbtrs.f +++ b/SRC/zgbtrs.f @@ -134,6 +134,7 @@ SUBROUTINE ZGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, $ LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgebak.f b/SRC/zgebak.f index 2be90b64da..a004745ee5 100644 --- a/SRC/zgebak.f +++ b/SRC/zgebak.f @@ -126,6 +126,7 @@ * ===================================================================== SUBROUTINE ZGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgebal.f b/SRC/zgebal.f index a2cb5f5fe7..3e077477ca 100644 --- a/SRC/zgebal.f +++ b/SRC/zgebal.f @@ -160,6 +160,7 @@ *> * ===================================================================== SUBROUTINE ZGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgebd2.f b/SRC/zgebd2.f index 86876d1c17..465409943a 100644 --- a/SRC/zgebd2.f +++ b/SRC/zgebd2.f @@ -184,6 +184,7 @@ *> * ===================================================================== SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgebrd.f b/SRC/zgebrd.f index cf77440556..76801eb184 100644 --- a/SRC/zgebrd.f +++ b/SRC/zgebrd.f @@ -201,6 +201,7 @@ * ===================================================================== SUBROUTINE ZGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgecon.f b/SRC/zgecon.f index 40b96e5c05..92b5b9c41e 100644 --- a/SRC/zgecon.f +++ b/SRC/zgecon.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeequ.f b/SRC/zgeequ.f index f8861beeed..4b6f2acf6a 100644 --- a/SRC/zgeequ.f +++ b/SRC/zgeequ.f @@ -135,6 +135,7 @@ * ===================================================================== SUBROUTINE ZGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeequb.f b/SRC/zgeequb.f index 546f6d6a0b..1ce4428f06 100644 --- a/SRC/zgeequb.f +++ b/SRC/zgeequb.f @@ -142,6 +142,7 @@ * ===================================================================== SUBROUTINE ZGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgees.f b/SRC/zgees.f index 613c9d96a0..0402e7c7af 100644 --- a/SRC/zgees.f +++ b/SRC/zgees.f @@ -192,6 +192,7 @@ * ===================================================================== SUBROUTINE ZGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, $ LDVS, WORK, LWORK, RWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeesx.f b/SRC/zgeesx.f index 0e0374a01d..a5770aa77e 100644 --- a/SRC/zgeesx.f +++ b/SRC/zgeesx.f @@ -235,6 +235,7 @@ SUBROUTINE ZGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, $ W, $ VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, $ BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgehd2.f b/SRC/zgehd2.f index 2887e2197f..4250de42b5 100644 --- a/SRC/zgehd2.f +++ b/SRC/zgehd2.f @@ -144,6 +144,7 @@ *> * ===================================================================== SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgehrd.f b/SRC/zgehrd.f index 7ee8d8fc31..653ade3970 100644 --- a/SRC/zgehrd.f +++ b/SRC/zgehrd.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgejsv.f b/SRC/zgejsv.f index dbff0d112d..c76e0a9b36 100644 --- a/SRC/zgejsv.f +++ b/SRC/zgejsv.f @@ -19,9 +19,9 @@ * SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * M, N, A, LDA, SVA, U, LDU, V, LDV, * CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) +* IMPLICIT NONE * * .. Scalar Arguments .. -* IMPLICIT NONE * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. @@ -564,13 +564,13 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. - IMPLICIT NONE INTEGER INFO, LDA, LDU, LDV, LWORK, LRWORK, M, N * .. * .. Array Arguments .. diff --git a/SRC/zgelq.f b/SRC/zgelq.f index 86610e8019..fc5bceb5fa 100644 --- a/SRC/zgelq.f +++ b/SRC/zgelq.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE ZGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgelq2.f b/SRC/zgelq2.f index 379bbb4428..19bac3142d 100644 --- a/SRC/zgelq2.f +++ b/SRC/zgelq2.f @@ -124,6 +124,7 @@ *> * ===================================================================== SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgelqf.f b/SRC/zgelqf.f index 8f6a44c62e..1bd10c86a4 100644 --- a/SRC/zgelqf.f +++ b/SRC/zgelqf.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE ZGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgelqt.f b/SRC/zgelqt.f index 0f6e06656d..09c0fe064a 100644 --- a/SRC/zgelqt.f +++ b/SRC/zgelqt.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE ZGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgelqt3.f b/SRC/zgelqt3.f index 7d960b1a09..801bf567a8 100644 --- a/SRC/zgelqt3.f +++ b/SRC/zgelqt3.f @@ -126,6 +126,7 @@ *> * ===================================================================== RECURSIVE SUBROUTINE ZGELQT3( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgels.f b/SRC/zgels.f index dc7524e12e..fb5351c18d 100644 --- a/SRC/zgels.f +++ b/SRC/zgels.f @@ -188,6 +188,7 @@ SUBROUTINE ZGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgelsd.f b/SRC/zgelsd.f index 8a64fc59bb..c5adf6c9eb 100644 --- a/SRC/zgelsd.f +++ b/SRC/zgelsd.f @@ -214,6 +214,7 @@ * ===================================================================== SUBROUTINE ZGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgelss.f b/SRC/zgelss.f index 772d5a3643..5269eea789 100644 --- a/SRC/zgelss.f +++ b/SRC/zgelss.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgelst.f b/SRC/zgelst.f index b8e0293ea1..1a5de8d682 100644 --- a/SRC/zgelst.f +++ b/SRC/zgelst.f @@ -199,6 +199,7 @@ SUBROUTINE ZGELST( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgelsy.f b/SRC/zgelsy.f index dd03f6a38b..6042cd55bd 100644 --- a/SRC/zgelsy.f +++ b/SRC/zgelsy.f @@ -208,6 +208,7 @@ SUBROUTINE ZGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, $ RANK, $ WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgemlq.f b/SRC/zgemlq.f index 11489087a4..d3f26c272f 100644 --- a/SRC/zgemlq.f +++ b/SRC/zgemlq.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE ZGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgemlqt.f b/SRC/zgemlqt.f index ca7108059b..2d58cc232f 100644 --- a/SRC/zgemlqt.f +++ b/SRC/zgemlqt.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE ZGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgemqr.f b/SRC/zgemqr.f index d14d74fe28..10bfb5479a 100644 --- a/SRC/zgemqr.f +++ b/SRC/zgemqr.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE ZGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgemqrt.f b/SRC/zgemqrt.f index 859d72150c..faa5abaec8 100644 --- a/SRC/zgemqrt.f +++ b/SRC/zgemqrt.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeql2.f b/SRC/zgeql2.f index 7338a0c150..6cd9afe8cb 100644 --- a/SRC/zgeql2.f +++ b/SRC/zgeql2.f @@ -118,6 +118,7 @@ *> * ===================================================================== SUBROUTINE ZGEQL2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqlf.f b/SRC/zgeqlf.f index 97c9706baf..7270e5d8af 100644 --- a/SRC/zgeqlf.f +++ b/SRC/zgeqlf.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE ZGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqp3.f b/SRC/zgeqp3.f index 7329f05145..2c33ad4b5c 100644 --- a/SRC/zgeqp3.f +++ b/SRC/zgeqp3.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqr.f b/SRC/zgeqr.f index 7df9c2403d..65a543d2b8 100644 --- a/SRC/zgeqr.f +++ b/SRC/zgeqr.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqr2.f b/SRC/zgeqr2.f index c7b293629a..958e606b73 100644 --- a/SRC/zgeqr2.f +++ b/SRC/zgeqr2.f @@ -125,6 +125,7 @@ *> * ===================================================================== SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqr2p.f b/SRC/zgeqr2p.f index 478d536235..aef5a2b015 100644 --- a/SRC/zgeqr2p.f +++ b/SRC/zgeqr2p.f @@ -129,6 +129,7 @@ *> * ===================================================================== SUBROUTINE ZGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqrf.f b/SRC/zgeqrf.f index 773b36419d..53295593d5 100644 --- a/SRC/zgeqrf.f +++ b/SRC/zgeqrf.f @@ -141,6 +141,7 @@ *> * ===================================================================== SUBROUTINE ZGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqrfp.f b/SRC/zgeqrfp.f index 349ba91543..8fec1edc3c 100644 --- a/SRC/zgeqrfp.f +++ b/SRC/zgeqrfp.f @@ -145,6 +145,7 @@ *> * ===================================================================== SUBROUTINE ZGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqrt.f b/SRC/zgeqrt.f index 1bdb385b31..e636f9d605 100644 --- a/SRC/zgeqrt.f +++ b/SRC/zgeqrt.f @@ -136,6 +136,7 @@ *> * ===================================================================== SUBROUTINE ZGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqrt2.f b/SRC/zgeqrt2.f index ed7eee19b9..131cdd5082 100644 --- a/SRC/zgeqrt2.f +++ b/SRC/zgeqrt2.f @@ -122,6 +122,7 @@ *> * ===================================================================== SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgeqrt3.f b/SRC/zgeqrt3.f index 688e971f99..d56831264d 100644 --- a/SRC/zgeqrt3.f +++ b/SRC/zgeqrt3.f @@ -127,6 +127,7 @@ *> * ===================================================================== RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgerfs.f b/SRC/zgerfs.f index a9187cc168..28f80cddad 100644 --- a/SRC/zgerfs.f +++ b/SRC/zgerfs.f @@ -182,6 +182,7 @@ SUBROUTINE ZGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgerfsx.f b/SRC/zgerfsx.f index cc85f2c939..4b7a2c4395 100644 --- a/SRC/zgerfsx.f +++ b/SRC/zgerfsx.f @@ -410,6 +410,7 @@ SUBROUTINE ZGERFSX( TRANS, EQUED, N, NRHS, A, LDA, AF, LDAF, $ R, C, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgerq2.f b/SRC/zgerq2.f index 380286d167..dbd33d6b16 100644 --- a/SRC/zgerq2.f +++ b/SRC/zgerq2.f @@ -118,6 +118,7 @@ *> * ===================================================================== SUBROUTINE ZGERQ2( M, N, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgerqf.f b/SRC/zgerqf.f index 10d88644d5..7e7b83bc9a 100644 --- a/SRC/zgerqf.f +++ b/SRC/zgerqf.f @@ -134,6 +134,7 @@ *> * ===================================================================== SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgesc2.f b/SRC/zgesc2.f index 060703aa5d..b6bd713af5 100644 --- a/SRC/zgesc2.f +++ b/SRC/zgesc2.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE ZGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgesv.f b/SRC/zgesv.f index 26ed1386c8..c0cd30a2df 100644 --- a/SRC/zgesv.f +++ b/SRC/zgesv.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE ZGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgesvd.f b/SRC/zgesvd.f index b0f6e6ef0f..fd15166a3c 100644 --- a/SRC/zgesvd.f +++ b/SRC/zgesvd.f @@ -209,6 +209,7 @@ * ===================================================================== SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgesvdq.f b/SRC/zgesvdq.f index 859afc431f..acfc9c4a33 100644 --- a/SRC/zgesvdq.f +++ b/SRC/zgesvdq.f @@ -408,8 +408,8 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA, $ S, U, LDU, V, LDV, NUMRANK, IWORK, LIWORK, $ CWORK, LCWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * .. Scalar Arguments .. - IMPLICIT NONE CHARACTER JOBA, JOBP, JOBR, JOBU, JOBV INTEGER M, N, LDA, LDU, LDV, NUMRANK, LIWORK, LCWORK, LRWORK, $ INFO diff --git a/SRC/zgesvdx.f b/SRC/zgesvdx.f index ddbec34701..e406c77b0d 100644 --- a/SRC/zgesvdx.f +++ b/SRC/zgesvdx.f @@ -265,6 +265,7 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, RWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgesvx.f b/SRC/zgesvx.f index 23c922f0e7..8a2dd5eaae 100644 --- a/SRC/zgesvx.f +++ b/SRC/zgesvx.f @@ -346,6 +346,7 @@ SUBROUTINE ZGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, $ IPIV, $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgesvxx.f b/SRC/zgesvxx.f index 1c530dc217..4322eba1b7 100644 --- a/SRC/zgesvxx.f +++ b/SRC/zgesvxx.f @@ -536,6 +536,7 @@ SUBROUTINE ZGESVXX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, $ BERR, N_ERR_BNDS, ERR_BNDS_NORM, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgetc2.f b/SRC/zgetc2.f index f4ae040890..2d94e53121 100644 --- a/SRC/zgetc2.f +++ b/SRC/zgetc2.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgetf2.f b/SRC/zgetf2.f index 5568d5438c..75f59ef306 100644 --- a/SRC/zgetf2.f +++ b/SRC/zgetf2.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgetrf.f b/SRC/zgetrf.f index 3847461a5c..3a37d60c34 100644 --- a/SRC/zgetrf.f +++ b/SRC/zgetrf.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgetrf2.f b/SRC/zgetrf2.f index a493bf5c42..d04d081702 100644 --- a/SRC/zgetrf2.f +++ b/SRC/zgetrf2.f @@ -110,6 +110,7 @@ * * ===================================================================== RECURSIVE SUBROUTINE ZGETRF2( M, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgetri.f b/SRC/zgetri.f index e42771e625..7094a2e38b 100644 --- a/SRC/zgetri.f +++ b/SRC/zgetri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgetrs.f b/SRC/zgetrs.f index 0b7e1b4eec..50a3b49e67 100644 --- a/SRC/zgetrs.f +++ b/SRC/zgetrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgetsls.f b/SRC/zgetsls.f index 20b2278ccb..86784da4cd 100644 --- a/SRC/zgetsls.f +++ b/SRC/zgetsls.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE ZGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggbak.f b/SRC/zggbak.f index 5306c7baef..2e8883be18 100644 --- a/SRC/zggbak.f +++ b/SRC/zggbak.f @@ -144,6 +144,7 @@ SUBROUTINE ZGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, $ V, $ LDV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggbal.f b/SRC/zggbal.f index 4fe59db32a..840551e658 100644 --- a/SRC/zggbal.f +++ b/SRC/zggbal.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE ZGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgges.f b/SRC/zgges.f index 9d44c4c67f..76903d1d3b 100644 --- a/SRC/zgges.f +++ b/SRC/zgges.f @@ -266,6 +266,7 @@ SUBROUTINE ZGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, $ SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, RWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgges3.f b/SRC/zgges3.f index a4a1fa866c..1225a82d9a 100644 --- a/SRC/zgges3.f +++ b/SRC/zgges3.f @@ -265,6 +265,7 @@ SUBROUTINE ZGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, $ WORK, LWORK, RWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggesx.f b/SRC/zggesx.f index 1a3ab923c2..351b1efaf5 100644 --- a/SRC/zggesx.f +++ b/SRC/zggesx.f @@ -326,6 +326,7 @@ SUBROUTINE ZGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, $ B, LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, $ LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, $ IWORK, LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggev.f b/SRC/zggev.f index 4020f5d4b8..a9df7563f3 100644 --- a/SRC/zggev.f +++ b/SRC/zggev.f @@ -212,6 +212,7 @@ * ===================================================================== SUBROUTINE ZGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggev3.f b/SRC/zggev3.f index 2261a695ec..135270ef98 100644 --- a/SRC/zggev3.f +++ b/SRC/zggev3.f @@ -213,6 +213,7 @@ SUBROUTINE ZGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, $ BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggevx.f b/SRC/zggevx.f index be9c3a6d10..c062aef292 100644 --- a/SRC/zggevx.f +++ b/SRC/zggevx.f @@ -370,6 +370,7 @@ SUBROUTINE ZGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, $ ALPHA, BETA, VL, LDVL, VR, LDVR, ILO, IHI, $ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, $ WORK, LWORK, RWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggglm.f b/SRC/zggglm.f index 17bf78059a..3a0d550ab9 100644 --- a/SRC/zggglm.f +++ b/SRC/zggglm.f @@ -191,6 +191,7 @@ SUBROUTINE ZGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgghrd.f b/SRC/zgghrd.f index 98b2e7d62b..bc54e3f1ee 100644 --- a/SRC/zgghrd.f +++ b/SRC/zgghrd.f @@ -200,6 +200,7 @@ SUBROUTINE ZGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, $ Q, $ LDQ, Z, LDZ, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgglse.f b/SRC/zgglse.f index 1dd5f4e374..00ab2cfab3 100644 --- a/SRC/zgglse.f +++ b/SRC/zgglse.f @@ -186,6 +186,7 @@ SUBROUTINE ZGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, $ LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggqrf.f b/SRC/zggqrf.f index 5e2be9e50a..43e948ea56 100644 --- a/SRC/zggqrf.f +++ b/SRC/zggqrf.f @@ -210,6 +210,7 @@ * ===================================================================== SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggrqf.f b/SRC/zggrqf.f index 2b647e8d48..41baab3b34 100644 --- a/SRC/zggrqf.f +++ b/SRC/zggrqf.f @@ -209,6 +209,7 @@ * ===================================================================== SUBROUTINE ZGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zggsvd3.f b/SRC/zggsvd3.f index 9b642d1c2d..48d33e4040 100644 --- a/SRC/zggsvd3.f +++ b/SRC/zggsvd3.f @@ -348,6 +348,7 @@ SUBROUTINE ZGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, RWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgtcon.f b/SRC/zgtcon.f index ec2cd70656..ec0942e325 100644 --- a/SRC/zgtcon.f +++ b/SRC/zgtcon.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE ZGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgtrfs.f b/SRC/zgtrfs.f index 6f17d187b6..22fbcee424 100644 --- a/SRC/zgtrfs.f +++ b/SRC/zgtrfs.f @@ -206,6 +206,7 @@ SUBROUTINE ZGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, $ DU2, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgtsv.f b/SRC/zgtsv.f index e8f3a83f77..0c0e174068 100644 --- a/SRC/zgtsv.f +++ b/SRC/zgtsv.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE ZGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgtsvx.f b/SRC/zgtsvx.f index 91cada3ca2..f60efe8b49 100644 --- a/SRC/zgtsvx.f +++ b/SRC/zgtsvx.f @@ -290,6 +290,7 @@ SUBROUTINE ZGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, $ DUF, $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgttrf.f b/SRC/zgttrf.f index 5a886990e3..b657c3f2c6 100644 --- a/SRC/zgttrf.f +++ b/SRC/zgttrf.f @@ -119,6 +119,7 @@ * * ===================================================================== SUBROUTINE ZGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgttrs.f b/SRC/zgttrs.f index 097c5ccbcb..180acb6dc8 100644 --- a/SRC/zgttrs.f +++ b/SRC/zgttrs.f @@ -134,6 +134,7 @@ SUBROUTINE ZGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, $ LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zgtts2.f b/SRC/zgtts2.f index 54c6d7c5d4..2078e111cb 100644 --- a/SRC/zgtts2.f +++ b/SRC/zgtts2.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE ZGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, $ LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhbev.f b/SRC/zhbev.f index d31b1410d8..e9cdbd6659 100644 --- a/SRC/zhbev.f +++ b/SRC/zhbev.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE ZHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhbevd.f b/SRC/zhbevd.f index 048253ab4e..73248d78c4 100644 --- a/SRC/zhbevd.f +++ b/SRC/zhbevd.f @@ -205,6 +205,7 @@ SUBROUTINE ZHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, $ WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhbevx.f b/SRC/zhbevx.f index 48aba0e16f..b34e5051eb 100644 --- a/SRC/zhbevx.f +++ b/SRC/zhbevx.f @@ -263,6 +263,7 @@ SUBROUTINE ZHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, $ VL, $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhbgst.f b/SRC/zhbgst.f index aaea7d2e89..3cb274786c 100644 --- a/SRC/zhbgst.f +++ b/SRC/zhbgst.f @@ -161,6 +161,7 @@ SUBROUTINE ZHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, $ X, $ LDX, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhbgv.f b/SRC/zhbgv.f index 9500bb4d02..e120be6e09 100644 --- a/SRC/zhbgv.f +++ b/SRC/zhbgv.f @@ -179,6 +179,7 @@ SUBROUTINE ZHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, $ LDZ, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhbgvd.f b/SRC/zhbgvd.f index 8ac2817f0a..6b3279faa9 100644 --- a/SRC/zhbgvd.f +++ b/SRC/zhbgvd.f @@ -242,6 +242,7 @@ SUBROUTINE ZHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, $ W, $ Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhbgvx.f b/SRC/zhbgvx.f index 9e67381243..943a510063 100644 --- a/SRC/zhbgvx.f +++ b/SRC/zhbgvx.f @@ -295,6 +295,7 @@ SUBROUTINE ZHBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhbtrd.f b/SRC/zhbtrd.f index ab551a6f54..8598332ead 100644 --- a/SRC/zhbtrd.f +++ b/SRC/zhbtrd.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE ZHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhecon.f b/SRC/zhecon.f index 4b1f3a6fbc..f62cff5af3 100644 --- a/SRC/zhecon.f +++ b/SRC/zhecon.f @@ -120,6 +120,7 @@ * ===================================================================== SUBROUTINE ZHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhecon_3.f b/SRC/zhecon_3.f index 60cbdf8d01..c987d03696 100644 --- a/SRC/zhecon_3.f +++ b/SRC/zhecon_3.f @@ -161,6 +161,7 @@ * ===================================================================== SUBROUTINE ZHECON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhecon_rook.f b/SRC/zhecon_rook.f index 028a3a253a..012cb3cda1 100644 --- a/SRC/zhecon_rook.f +++ b/SRC/zhecon_rook.f @@ -135,6 +135,7 @@ SUBROUTINE ZHECON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zheequb.f b/SRC/zheequb.f index c037462dfa..29445fe7b7 100644 --- a/SRC/zheequb.f +++ b/SRC/zheequb.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE ZHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zheev.f b/SRC/zheev.f index 2f00ecbf93..48369efdec 100644 --- a/SRC/zheev.f +++ b/SRC/zheev.f @@ -135,6 +135,7 @@ * ===================================================================== SUBROUTINE ZHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zheevd.f b/SRC/zheevd.f index 6fbde7bb15..f8f69417e8 100644 --- a/SRC/zheevd.f +++ b/SRC/zheevd.f @@ -194,6 +194,7 @@ SUBROUTINE ZHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, $ RWORK, $ LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zheevr.f b/SRC/zheevr.f index da055b99ce..603424126c 100644 --- a/SRC/zheevr.f +++ b/SRC/zheevr.f @@ -370,6 +370,7 @@ SUBROUTINE ZHEEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, $ IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zheevx.f b/SRC/zheevx.f index 18d9eb9fa9..c0ea5179e4 100644 --- a/SRC/zheevx.f +++ b/SRC/zheevx.f @@ -255,6 +255,7 @@ SUBROUTINE ZHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, $ IU, $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhegs2.f b/SRC/zhegs2.f index 5fb06cf084..8c4e04ae5a 100644 --- a/SRC/zhegs2.f +++ b/SRC/zhegs2.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhegst.f b/SRC/zhegst.f index 6901e7b24b..a6cdbb9d37 100644 --- a/SRC/zhegst.f +++ b/SRC/zhegst.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE ZHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhegv.f b/SRC/zhegv.f index 3fbd73e12b..bdf7718164 100644 --- a/SRC/zhegv.f +++ b/SRC/zhegv.f @@ -177,6 +177,7 @@ SUBROUTINE ZHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, $ WORK, $ LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhegvd.f b/SRC/zhegvd.f index 4482408dd5..208735b0e0 100644 --- a/SRC/zhegvd.f +++ b/SRC/zhegvd.f @@ -239,6 +239,7 @@ SUBROUTINE ZHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, $ WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhegvx.f b/SRC/zhegvx.f index 957ad9d2c6..b9b0834dc1 100644 --- a/SRC/zhegvx.f +++ b/SRC/zhegvx.f @@ -302,6 +302,7 @@ SUBROUTINE ZHEGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, RWORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zherfs.f b/SRC/zherfs.f index 87f30d972a..c5e67e5784 100644 --- a/SRC/zherfs.f +++ b/SRC/zherfs.f @@ -188,6 +188,7 @@ SUBROUTINE ZHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zherfsx.f b/SRC/zherfsx.f index aecdd89135..77a215fd55 100644 --- a/SRC/zherfsx.f +++ b/SRC/zherfsx.f @@ -397,6 +397,7 @@ SUBROUTINE ZHERFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhesv.f b/SRC/zhesv.f index 2857fa8d38..d863499424 100644 --- a/SRC/zhesv.f +++ b/SRC/zhesv.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE ZHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhesv_aa.f b/SRC/zhesv_aa.f index c334da26ed..13910d09ae 100644 --- a/SRC/zhesv_aa.f +++ b/SRC/zhesv_aa.f @@ -157,6 +157,7 @@ * ===================================================================== SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhesv_rk.f b/SRC/zhesv_rk.f index 3cffb20ec7..ba692768ae 100644 --- a/SRC/zhesv_rk.f +++ b/SRC/zhesv_rk.f @@ -224,6 +224,7 @@ SUBROUTINE ZHESV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhesv_rook.f b/SRC/zhesv_rook.f index 753a24b495..776d96efbc 100644 --- a/SRC/zhesv_rook.f +++ b/SRC/zhesv_rook.f @@ -201,6 +201,7 @@ SUBROUTINE ZHESV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhesvx.f b/SRC/zhesvx.f index f0c3e2bc07..ead7e8eb28 100644 --- a/SRC/zhesvx.f +++ b/SRC/zhesvx.f @@ -281,6 +281,7 @@ SUBROUTINE ZHESVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhesvxx.f b/SRC/zhesvxx.f index 8a0f2238b7..bd82687aa2 100644 --- a/SRC/zhesvxx.f +++ b/SRC/zhesvxx.f @@ -502,6 +502,7 @@ SUBROUTINE ZHESVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zheswapr.f b/SRC/zheswapr.f index d8ea12a9b7..b60c632f30 100644 --- a/SRC/zheswapr.f +++ b/SRC/zheswapr.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetd2.f b/SRC/zhetd2.f index e4e6548672..fc5c3e221f 100644 --- a/SRC/zhetd2.f +++ b/SRC/zhetd2.f @@ -170,6 +170,7 @@ *> * ===================================================================== SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetf2.f b/SRC/zhetf2.f index 305f9d6126..eb47f49252 100644 --- a/SRC/zhetf2.f +++ b/SRC/zhetf2.f @@ -186,6 +186,7 @@ * * ===================================================================== SUBROUTINE ZHETF2( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetf2_rk.f b/SRC/zhetf2_rk.f index 94f4e266e1..5e2afb0660 100644 --- a/SRC/zhetf2_rk.f +++ b/SRC/zhetf2_rk.f @@ -236,6 +236,7 @@ * * ===================================================================== SUBROUTINE ZHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetf2_rook.f b/SRC/zhetf2_rook.f index 358a812a5f..4e86aec7b2 100644 --- a/SRC/zhetf2_rook.f +++ b/SRC/zhetf2_rook.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE ZHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrd.f b/SRC/zhetrd.f index e1aa9483e1..5a44148943 100644 --- a/SRC/zhetrd.f +++ b/SRC/zhetrd.f @@ -188,6 +188,7 @@ * ===================================================================== SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrf.f b/SRC/zhetrf.f index 2e73bfe5b2..8c8c4946c4 100644 --- a/SRC/zhetrf.f +++ b/SRC/zhetrf.f @@ -172,6 +172,7 @@ *> * ===================================================================== SUBROUTINE ZHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrf_rk.f b/SRC/zhetrf_rk.f index cd24651c51..2059e30987 100644 --- a/SRC/zhetrf_rk.f +++ b/SRC/zhetrf_rk.f @@ -254,6 +254,7 @@ * ===================================================================== SUBROUTINE ZHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrf_rook.f b/SRC/zhetrf_rook.f index 2ba2226a82..1ff347c033 100644 --- a/SRC/zhetrf_rook.f +++ b/SRC/zhetrf_rook.f @@ -208,6 +208,7 @@ * ===================================================================== SUBROUTINE ZHETRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetri.f b/SRC/zhetri.f index 8dfa1025fc..c2bc51aeca 100644 --- a/SRC/zhetri.f +++ b/SRC/zhetri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetri2.f b/SRC/zhetri2.f index 057960e06f..f6673db230 100644 --- a/SRC/zhetri2.f +++ b/SRC/zhetri2.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE ZHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetri2x.f b/SRC/zhetri2x.f index 5b0ada3ce5..dc38727410 100644 --- a/SRC/zhetri2x.f +++ b/SRC/zhetri2x.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetri_3.f b/SRC/zhetri_3.f index 56172dbe77..55120c1fe8 100644 --- a/SRC/zhetri_3.f +++ b/SRC/zhetri_3.f @@ -165,6 +165,7 @@ * ===================================================================== SUBROUTINE ZHETRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetri_3x.f b/SRC/zhetri_3x.f index 88fd3fa71d..defff462f2 100644 --- a/SRC/zhetri_3x.f +++ b/SRC/zhetri_3x.f @@ -155,6 +155,7 @@ * ===================================================================== SUBROUTINE ZHETRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetri_rook.f b/SRC/zhetri_rook.f index dfbec77414..ca1097f5e1 100644 --- a/SRC/zhetri_rook.f +++ b/SRC/zhetri_rook.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE ZHETRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrs.f b/SRC/zhetrs.f index 3f5efda593..64475707d1 100644 --- a/SRC/zhetrs.f +++ b/SRC/zhetrs.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE ZHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrs2.f b/SRC/zhetrs2.f index dba1bdbeb5..2d1ef665e1 100644 --- a/SRC/zhetrs2.f +++ b/SRC/zhetrs2.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrs_3.f b/SRC/zhetrs_3.f index 7f0f797da9..b3eee791da 100644 --- a/SRC/zhetrs_3.f +++ b/SRC/zhetrs_3.f @@ -160,6 +160,7 @@ * ===================================================================== SUBROUTINE ZHETRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhetrs_rook.f b/SRC/zhetrs_rook.f index b8a08e5ded..a790abc6e3 100644 --- a/SRC/zhetrs_rook.f +++ b/SRC/zhetrs_rook.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE ZHETRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhfrk.f b/SRC/zhfrk.f index 1bf8a33970..1e653c0ebe 100644 --- a/SRC/zhfrk.f +++ b/SRC/zhfrk.f @@ -164,6 +164,7 @@ SUBROUTINE ZHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, $ BETA, $ C ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhgeqz.f b/SRC/zhgeqz.f index 586178acc1..7c01542ff9 100644 --- a/SRC/zhgeqz.f +++ b/SRC/zhgeqz.f @@ -280,6 +280,7 @@ SUBROUTINE ZHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, $ LDT, $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpcon.f b/SRC/zhpcon.f index 02b5bfc102..51c5c5a921 100644 --- a/SRC/zhpcon.f +++ b/SRC/zhpcon.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE ZHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpev.f b/SRC/zhpev.f index d17e4be884..353623c978 100644 --- a/SRC/zhpev.f +++ b/SRC/zhpev.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpevd.f b/SRC/zhpevd.f index 265084c84b..540469a575 100644 --- a/SRC/zhpevd.f +++ b/SRC/zhpevd.f @@ -189,6 +189,7 @@ * ===================================================================== SUBROUTINE ZHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpevx.f b/SRC/zhpevx.f index f22a6f7e34..c5b0a76c62 100644 --- a/SRC/zhpevx.f +++ b/SRC/zhpevx.f @@ -235,6 +235,7 @@ SUBROUTINE ZHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, $ IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpgst.f b/SRC/zhpgst.f index ec760fb333..b4022ff7f3 100644 --- a/SRC/zhpgst.f +++ b/SRC/zhpgst.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpgv.f b/SRC/zhpgv.f index 16a5de8986..3bb089289b 100644 --- a/SRC/zhpgv.f +++ b/SRC/zhpgv.f @@ -161,6 +161,7 @@ SUBROUTINE ZHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, $ WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpgvd.f b/SRC/zhpgvd.f index fe5eb3a04e..1f1041ffc8 100644 --- a/SRC/zhpgvd.f +++ b/SRC/zhpgvd.f @@ -221,6 +221,7 @@ SUBROUTINE ZHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, $ WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpgvx.f b/SRC/zhpgvx.f index f06e3efb61..f63f5718ef 100644 --- a/SRC/zhpgvx.f +++ b/SRC/zhpgvx.f @@ -272,6 +272,7 @@ SUBROUTINE ZHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhprfs.f b/SRC/zhprfs.f index b17315d26d..206bd9b715 100644 --- a/SRC/zhprfs.f +++ b/SRC/zhprfs.f @@ -176,6 +176,7 @@ SUBROUTINE ZHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, $ FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpsv.f b/SRC/zhpsv.f index d62ba8cfc5..24dc3ba14c 100644 --- a/SRC/zhpsv.f +++ b/SRC/zhpsv.f @@ -157,6 +157,7 @@ *> * ===================================================================== SUBROUTINE ZHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhpsvx.f b/SRC/zhpsvx.f index 6d51598fa3..3196373785 100644 --- a/SRC/zhpsvx.f +++ b/SRC/zhpsvx.f @@ -273,6 +273,7 @@ SUBROUTINE ZHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, $ X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhptrd.f b/SRC/zhptrd.f index ff0fc6437b..671b0d31ad 100644 --- a/SRC/zhptrd.f +++ b/SRC/zhptrd.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhptrf.f b/SRC/zhptrf.f index ab250af6ac..7f447c104f 100644 --- a/SRC/zhptrf.f +++ b/SRC/zhptrf.f @@ -154,6 +154,7 @@ * * ===================================================================== SUBROUTINE ZHPTRF( UPLO, N, AP, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhptri.f b/SRC/zhptri.f index a7a1788b4d..56de270a07 100644 --- a/SRC/zhptri.f +++ b/SRC/zhptri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE ZHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhptrs.f b/SRC/zhptrs.f index 8e03faefce..207bae93e0 100644 --- a/SRC/zhptrs.f +++ b/SRC/zhptrs.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE ZHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhsein.f b/SRC/zhsein.f index a329832ddc..15994c1294 100644 --- a/SRC/zhsein.f +++ b/SRC/zhsein.f @@ -241,6 +241,7 @@ SUBROUTINE ZHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, W, $ VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, $ IFAILR, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zhseqr.f b/SRC/zhseqr.f index 54168257a5..a09db3d39d 100644 --- a/SRC/zhseqr.f +++ b/SRC/zhseqr.f @@ -294,6 +294,7 @@ * ===================================================================== SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gbamv.f b/SRC/zla_gbamv.f index 948f1045e0..bdbdf87031 100644 --- a/SRC/zla_gbamv.f +++ b/SRC/zla_gbamv.f @@ -183,6 +183,7 @@ * ===================================================================== SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gbrcond_c.f b/SRC/zla_gbrcond_c.f index 123bfd932c..947d1b77a4 100644 --- a/SRC/zla_gbrcond_c.f +++ b/SRC/zla_gbrcond_c.f @@ -158,6 +158,7 @@ DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, $ LDAB, AFB, LDAFB, IPIV, $ C, CAPPLY, INFO, WORK, $ RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gbrcond_x.f b/SRC/zla_gbrcond_x.f index f1984baa0c..85ab21c1cb 100644 --- a/SRC/zla_gbrcond_x.f +++ b/SRC/zla_gbrcond_x.f @@ -150,6 +150,7 @@ DOUBLE PRECISION FUNCTION ZLA_GBRCOND_X( TRANS, N, KL, KU, AB, $ LDAB, AFB, LDAFB, IPIV, $ X, INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gbrfsx_extended.f b/SRC/zla_gbrfsx_extended.f index b947dd464f..a1410fe6d1 100644 --- a/SRC/zla_gbrfsx_extended.f +++ b/SRC/zla_gbrfsx_extended.f @@ -406,6 +406,7 @@ SUBROUTINE ZLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, $ ERR_BNDS_COMP, RES, AYB, DY, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gbrpvgrw.f b/SRC/zla_gbrpvgrw.f index e33d549714..7de037f2ef 100644 --- a/SRC/zla_gbrpvgrw.f +++ b/SRC/zla_gbrpvgrw.f @@ -112,6 +112,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_GBRPVGRW( N, KL, KU, NCOLS, AB, $ LDAB, AFB, LDAFB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_geamv.f b/SRC/zla_geamv.f index 2d060d8a96..9e732b41b0 100644 --- a/SRC/zla_geamv.f +++ b/SRC/zla_geamv.f @@ -173,6 +173,7 @@ SUBROUTINE ZLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, $ BETA, $ Y, INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gercond_c.f b/SRC/zla_gercond_c.f index 6190630afa..9f6c5bb96c 100644 --- a/SRC/zla_gercond_c.f +++ b/SRC/zla_gercond_c.f @@ -138,6 +138,7 @@ DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gercond_x.f b/SRC/zla_gercond_x.f index f1e2ec65b0..aa06a20db6 100644 --- a/SRC/zla_gercond_x.f +++ b/SRC/zla_gercond_x.f @@ -131,6 +131,7 @@ DOUBLE PRECISION FUNCTION ZLA_GERCOND_X( TRANS, N, A, LDA, AF, $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gerfsx_extended.f b/SRC/zla_gerfsx_extended.f index a0f6b0f1f0..16e8c3c44f 100644 --- a/SRC/zla_gerfsx_extended.f +++ b/SRC/zla_gerfsx_extended.f @@ -392,6 +392,7 @@ SUBROUTINE ZLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, $ ERRS_N, ERRS_C, RES, AYB, DY, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gerpvgrw.f b/SRC/zla_gerpvgrw.f index efb7856fdf..a499329735 100644 --- a/SRC/zla_gerpvgrw.f +++ b/SRC/zla_gerpvgrw.f @@ -95,6 +95,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, $ LDAF ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_heamv.f b/SRC/zla_heamv.f index 78040a76a8..485f1d9390 100644 --- a/SRC/zla_heamv.f +++ b/SRC/zla_heamv.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_hercond_c.f b/SRC/zla_hercond_c.f index 49a89d44e0..d9b7f3268c 100644 --- a/SRC/zla_hercond_c.f +++ b/SRC/zla_hercond_c.f @@ -135,6 +135,7 @@ DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_hercond_x.f b/SRC/zla_hercond_x.f index 8c24bd1586..b62318009c 100644 --- a/SRC/zla_hercond_x.f +++ b/SRC/zla_hercond_x.f @@ -128,6 +128,7 @@ DOUBLE PRECISION FUNCTION ZLA_HERCOND_X( UPLO, N, A, LDA, AF, $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_herfsx_extended.f b/SRC/zla_herfsx_extended.f index 2310c04644..7469b16dcb 100644 --- a/SRC/zla_herfsx_extended.f +++ b/SRC/zla_herfsx_extended.f @@ -391,6 +391,7 @@ SUBROUTINE ZLA_HERFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_herpvgrw.f b/SRC/zla_herpvgrw.f index 579a031227..8d7f15d488 100644 --- a/SRC/zla_herpvgrw.f +++ b/SRC/zla_herpvgrw.f @@ -119,6 +119,7 @@ DOUBLE PRECISION FUNCTION ZLA_HERPVGRW( UPLO, N, INFO, A, LDA, $ AF, $ LDAF, IPIV, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_lin_berr.f b/SRC/zla_lin_berr.f index a0a41919d3..7f96ed4fa1 100644 --- a/SRC/zla_lin_berr.f +++ b/SRC/zla_lin_berr.f @@ -96,6 +96,7 @@ * * ===================================================================== SUBROUTINE ZLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_porcond_c.f b/SRC/zla_porcond_c.f index 3aea357d1b..30b566a77f 100644 --- a/SRC/zla_porcond_c.f +++ b/SRC/zla_porcond_c.f @@ -127,6 +127,7 @@ DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, $ LDAF, C, CAPPLY, INFO, $ WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_porcond_x.f b/SRC/zla_porcond_x.f index 9c49eaa06b..c4a9cd1a6c 100644 --- a/SRC/zla_porcond_x.f +++ b/SRC/zla_porcond_x.f @@ -120,6 +120,7 @@ DOUBLE PRECISION FUNCTION ZLA_PORCOND_X( UPLO, N, A, LDA, AF, $ LDAF, X, INFO, WORK, $ RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_porfsx_extended.f b/SRC/zla_porfsx_extended.f index cecb751fd3..a8fad72e38 100644 --- a/SRC/zla_porfsx_extended.f +++ b/SRC/zla_porfsx_extended.f @@ -383,6 +383,7 @@ SUBROUTINE ZLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_porpvgrw.f b/SRC/zla_porpvgrw.f index a512673575..df20e62a6d 100644 --- a/SRC/zla_porpvgrw.f +++ b/SRC/zla_porpvgrw.f @@ -103,6 +103,7 @@ DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, $ AF, $ LDAF, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_syamv.f b/SRC/zla_syamv.f index 7ab2a9aee6..521f3727fb 100644 --- a/SRC/zla_syamv.f +++ b/SRC/zla_syamv.f @@ -174,6 +174,7 @@ * ===================================================================== SUBROUTINE ZLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_syrcond_c.f b/SRC/zla_syrcond_c.f index d206693fea..a149f99396 100644 --- a/SRC/zla_syrcond_c.f +++ b/SRC/zla_syrcond_c.f @@ -135,6 +135,7 @@ DOUBLE PRECISION FUNCTION ZLA_SYRCOND_C( UPLO, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_syrcond_x.f b/SRC/zla_syrcond_x.f index 3b937e4ca5..fdae62d9f4 100644 --- a/SRC/zla_syrcond_x.f +++ b/SRC/zla_syrcond_x.f @@ -128,6 +128,7 @@ DOUBLE PRECISION FUNCTION ZLA_SYRCOND_X( UPLO, N, A, LDA, AF, $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_syrfsx_extended.f b/SRC/zla_syrfsx_extended.f index 0df6116061..fecbbf5d29 100644 --- a/SRC/zla_syrfsx_extended.f +++ b/SRC/zla_syrfsx_extended.f @@ -391,6 +391,7 @@ SUBROUTINE ZLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, $ AYB, DY, Y_TAIL, RCOND, ITHRESH, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_syrpvgrw.f b/SRC/zla_syrpvgrw.f index 6b1964b577..7a6a4ea1f6 100644 --- a/SRC/zla_syrpvgrw.f +++ b/SRC/zla_syrpvgrw.f @@ -119,6 +119,7 @@ DOUBLE PRECISION FUNCTION ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, $ AF, $ LDAF, IPIV, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_wwaddw.f b/SRC/zla_wwaddw.f index 54ded30774..a3b4d9850b 100644 --- a/SRC/zla_wwaddw.f +++ b/SRC/zla_wwaddw.f @@ -76,6 +76,7 @@ * * ===================================================================== SUBROUTINE ZLA_WWADDW( N, X, Y, W ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlabrd.f b/SRC/zlabrd.f index 1be5fd5e62..7354e7090d 100644 --- a/SRC/zlabrd.f +++ b/SRC/zlabrd.f @@ -208,6 +208,7 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, $ Y, $ LDY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlacgv.f b/SRC/zlacgv.f index d7fe008529..75faea8fa7 100644 --- a/SRC/zlacgv.f +++ b/SRC/zlacgv.f @@ -69,6 +69,7 @@ * * ===================================================================== SUBROUTINE ZLACGV( N, X, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlacn2.f b/SRC/zlacn2.f index 2837196b9c..1f30513cc1 100644 --- a/SRC/zlacn2.f +++ b/SRC/zlacn2.f @@ -128,6 +128,7 @@ *> * ===================================================================== SUBROUTINE ZLACN2( N, V, X, EST, KASE, ISAVE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlacon.f b/SRC/zlacon.f index d55ee7d491..6f3e13d08d 100644 --- a/SRC/zlacon.f +++ b/SRC/zlacon.f @@ -109,6 +109,7 @@ *> * ===================================================================== SUBROUTINE ZLACON( N, V, X, EST, KASE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlacp2.f b/SRC/zlacp2.f index 7b64ced078..8cf95f8482 100644 --- a/SRC/zlacp2.f +++ b/SRC/zlacp2.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZLACP2( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlacpy.f b/SRC/zlacpy.f index 7cf00379d8..e5d067ed8d 100644 --- a/SRC/zlacpy.f +++ b/SRC/zlacpy.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE ZLACPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlacrm.f b/SRC/zlacrm.f index 74ba2bf0e8..422daa2bc0 100644 --- a/SRC/zlacrm.f +++ b/SRC/zlacrm.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlacrt.f b/SRC/zlacrt.f index f6bfd6010e..8801b4cdbf 100644 --- a/SRC/zlacrt.f +++ b/SRC/zlacrt.f @@ -100,6 +100,7 @@ * * ===================================================================== SUBROUTINE ZLACRT( N, CX, INCX, CY, INCY, C, S ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zladiv.f b/SRC/zladiv.f index 737475675a..60ebabfd1a 100644 --- a/SRC/zladiv.f +++ b/SRC/zladiv.f @@ -59,6 +59,7 @@ * * ===================================================================== COMPLEX*16 FUNCTION ZLADIV( X, Y ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaed0.f b/SRC/zlaed0.f index a0a7a42890..3a725dfc4e 100644 --- a/SRC/zlaed0.f +++ b/SRC/zlaed0.f @@ -140,6 +140,7 @@ * ===================================================================== SUBROUTINE ZLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaed7.f b/SRC/zlaed7.f index c50a9b8d8c..ba83b8102c 100644 --- a/SRC/zlaed7.f +++ b/SRC/zlaed7.f @@ -245,6 +245,7 @@ SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, $ LDQ, RHO, INDXQ, QSTORE, QPTR, PRMPTR, PERM, $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaed8.f b/SRC/zlaed8.f index ace1d21fb1..ebe96f163b 100644 --- a/SRC/zlaed8.f +++ b/SRC/zlaed8.f @@ -224,6 +224,7 @@ SUBROUTINE ZLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, $ DLAMBDA, $ Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, $ GIVCOL, GIVNUM, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaein.f b/SRC/zlaein.f index ec04c8e087..78b72b8811 100644 --- a/SRC/zlaein.f +++ b/SRC/zlaein.f @@ -145,6 +145,7 @@ SUBROUTINE ZLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, $ RWORK, $ EPS3, SMLNUM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaesy.f b/SRC/zlaesy.f index 0b9bb1f995..742a2f1d5d 100644 --- a/SRC/zlaesy.f +++ b/SRC/zlaesy.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE ZLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaev2.f b/SRC/zlaev2.f index eefcc34936..0c20782964 100644 --- a/SRC/zlaev2.f +++ b/SRC/zlaev2.f @@ -116,6 +116,7 @@ *> * ===================================================================== SUBROUTINE ZLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlag2c.f b/SRC/zlag2c.f index dc3686bd06..6faa3a08cd 100644 --- a/SRC/zlag2c.f +++ b/SRC/zlag2c.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LDSA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlags2.f b/SRC/zlags2.f index ff9d00eae6..d66fbf138d 100644 --- a/SRC/zlags2.f +++ b/SRC/zlags2.f @@ -154,6 +154,7 @@ SUBROUTINE ZLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, $ CSV, $ SNV, CSQ, SNQ ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlagtm.f b/SRC/zlagtm.f index 29edfebe1d..039173ce6d 100644 --- a/SRC/zlagtm.f +++ b/SRC/zlagtm.f @@ -141,6 +141,7 @@ SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, $ BETA, $ B, LDB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlahef.f b/SRC/zlahef.f index a26762a836..039444a0da 100644 --- a/SRC/zlahef.f +++ b/SRC/zlahef.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlahef_rk.f b/SRC/zlahef_rk.f index 5af42a5607..a82ddf4729 100644 --- a/SRC/zlahef_rk.f +++ b/SRC/zlahef_rk.f @@ -257,6 +257,7 @@ * ===================================================================== SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlahef_rook.f b/SRC/zlahef_rook.f index bde6caee5f..06ddcb4e9d 100644 --- a/SRC/zlahef_rook.f +++ b/SRC/zlahef_rook.f @@ -179,6 +179,7 @@ * ===================================================================== SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlahr2.f b/SRC/zlahr2.f index 163ac3ef54..5f4135b818 100644 --- a/SRC/zlahr2.f +++ b/SRC/zlahr2.f @@ -176,6 +176,7 @@ *> * ===================================================================== SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaic1.f b/SRC/zlaic1.f index c7fe6da176..0196de100c 100644 --- a/SRC/zlaic1.f +++ b/SRC/zlaic1.f @@ -130,6 +130,7 @@ * * ===================================================================== SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlals0.f b/SRC/zlals0.f index 139eca7abb..cd87a3ac2a 100644 --- a/SRC/zlals0.f +++ b/SRC/zlals0.f @@ -266,6 +266,7 @@ SUBROUTINE ZLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, $ LDBX, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlalsa.f b/SRC/zlalsa.f index 21be9615d4..ccf62e924b 100644 --- a/SRC/zlalsa.f +++ b/SRC/zlalsa.f @@ -263,6 +263,7 @@ SUBROUTINE ZLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, $ LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlalsd.f b/SRC/zlalsd.f index 5f4ec338a3..dffedc441c 100644 --- a/SRC/zlalsd.f +++ b/SRC/zlalsd.f @@ -176,6 +176,7 @@ * ===================================================================== SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlamswlq.f b/SRC/zlamswlq.f index 59a0a55581..de52a7efae 100644 --- a/SRC/zlamswlq.f +++ b/SRC/zlamswlq.f @@ -197,6 +197,7 @@ * ===================================================================== SUBROUTINE ZLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlamtsqr.f b/SRC/zlamtsqr.f index 03770c06e3..2b9e988523 100644 --- a/SRC/zlamtsqr.f +++ b/SRC/zlamtsqr.f @@ -198,6 +198,7 @@ * ===================================================================== SUBROUTINE ZLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlangb.f b/SRC/zlangb.f index 33e6b3a77e..8b775b01f8 100644 --- a/SRC/zlangb.f +++ b/SRC/zlangb.f @@ -120,6 +120,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlange.f b/SRC/zlange.f index 86478f132e..6ef47c501d 100644 --- a/SRC/zlange.f +++ b/SRC/zlange.f @@ -110,6 +110,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlangt.f b/SRC/zlangt.f index f12399f59e..a60e72a69c 100644 --- a/SRC/zlangt.f +++ b/SRC/zlangt.f @@ -101,6 +101,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGT( NORM, N, DL, D, DU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlanhb.f b/SRC/zlanhb.f index 319e66fe29..b9ce70ddb3 100644 --- a/SRC/zlanhb.f +++ b/SRC/zlanhb.f @@ -127,6 +127,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlanhe.f b/SRC/zlanhe.f index 2d00c9d9ad..d90dda77c1 100644 --- a/SRC/zlanhe.f +++ b/SRC/zlanhe.f @@ -119,6 +119,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlanhf.f b/SRC/zlanhf.f index bad5a29261..e9de600985 100644 --- a/SRC/zlanhf.f +++ b/SRC/zlanhf.f @@ -242,6 +242,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, $ WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlanhp.f b/SRC/zlanhp.f index d8f6bc58dc..de229e8a89 100644 --- a/SRC/zlanhp.f +++ b/SRC/zlanhp.f @@ -112,6 +112,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlanhs.f b/SRC/zlanhs.f index e09bdf12cc..1af6a404d1 100644 --- a/SRC/zlanhs.f +++ b/SRC/zlanhs.f @@ -104,6 +104,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlanht.f b/SRC/zlanht.f index d86dac891d..1141248678 100644 --- a/SRC/zlanht.f +++ b/SRC/zlanht.f @@ -96,6 +96,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHT( NORM, N, D, E ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlansb.f b/SRC/zlansb.f index 69c52e88da..de7ca53c48 100644 --- a/SRC/zlansb.f +++ b/SRC/zlansb.f @@ -125,6 +125,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlansp.f b/SRC/zlansp.f index 7cd1dd316a..0aceed3ba5 100644 --- a/SRC/zlansp.f +++ b/SRC/zlansp.f @@ -110,6 +110,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlansy.f b/SRC/zlansy.f index 39ba4310d2..b9e3f38601 100644 --- a/SRC/zlansy.f +++ b/SRC/zlansy.f @@ -118,6 +118,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSY( NORM, UPLO, N, A, LDA, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlantb.f b/SRC/zlantb.f index f22d15f9d8..696a10cfed 100644 --- a/SRC/zlantb.f +++ b/SRC/zlantb.f @@ -136,6 +136,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlantp.f b/SRC/zlantp.f index ab5ccd34c3..4820111316 100644 --- a/SRC/zlantp.f +++ b/SRC/zlantp.f @@ -121,6 +121,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTP( NORM, UPLO, DIAG, N, AP, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlantr.f b/SRC/zlantr.f index 9045d1269a..5216747c89 100644 --- a/SRC/zlantr.f +++ b/SRC/zlantr.f @@ -138,6 +138,7 @@ DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, $ LDA, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlapll.f b/SRC/zlapll.f index 5ebef57006..450a4ef7be 100644 --- a/SRC/zlapll.f +++ b/SRC/zlapll.f @@ -95,6 +95,7 @@ * * ===================================================================== SUBROUTINE ZLAPLL( N, X, INCX, Y, INCY, SSMIN ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlapmr.f b/SRC/zlapmr.f index 67bfc4dbd9..6369e00d57 100644 --- a/SRC/zlapmr.f +++ b/SRC/zlapmr.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZLAPMR( FORWRD, M, N, X, LDX, K ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlapmt.f b/SRC/zlapmt.f index e3cc2ea380..ee59ae0d6a 100644 --- a/SRC/zlapmt.f +++ b/SRC/zlapmt.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZLAPMT( FORWRD, M, N, X, LDX, K ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqgb.f b/SRC/zlaqgb.f index 902fb4c501..09a4da207c 100644 --- a/SRC/zlaqgb.f +++ b/SRC/zlaqgb.f @@ -156,6 +156,7 @@ SUBROUTINE ZLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, $ COLCND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqge.f b/SRC/zlaqge.f index fd6a0e57a4..8c758b0b91 100644 --- a/SRC/zlaqge.f +++ b/SRC/zlaqge.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE ZLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqhb.f b/SRC/zlaqhb.f index cb01fd5d06..5db903e801 100644 --- a/SRC/zlaqhb.f +++ b/SRC/zlaqhb.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE ZLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqhe.f b/SRC/zlaqhe.f index 1d19a6a688..6a72251912 100644 --- a/SRC/zlaqhe.f +++ b/SRC/zlaqhe.f @@ -129,6 +129,7 @@ * * ===================================================================== SUBROUTINE ZLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqhp.f b/SRC/zlaqhp.f index b49abf4814..6cba38952b 100644 --- a/SRC/zlaqhp.f +++ b/SRC/zlaqhp.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE ZLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqp2.f b/SRC/zlaqp2.f index 0480bd77ea..bc81b28c26 100644 --- a/SRC/zlaqp2.f +++ b/SRC/zlaqp2.f @@ -142,6 +142,7 @@ * ===================================================================== SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqps.f b/SRC/zlaqps.f index 071da3770f..4383774e43 100644 --- a/SRC/zlaqps.f +++ b/SRC/zlaqps.f @@ -171,6 +171,7 @@ SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, $ VN1, $ VN2, AUXV, F, LDF ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqr0.f b/SRC/zlaqr0.f index 53fa6e013a..ff45efdb0d 100644 --- a/SRC/zlaqr0.f +++ b/SRC/zlaqr0.f @@ -236,6 +236,7 @@ * ===================================================================== SUBROUTINE ZLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqr1.f b/SRC/zlaqr1.f index 5096875e63..0f5ce558ca 100644 --- a/SRC/zlaqr1.f +++ b/SRC/zlaqr1.f @@ -102,6 +102,7 @@ *> * ===================================================================== SUBROUTINE ZLAQR1( N, H, LDH, S1, S2, V ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqr2.f b/SRC/zlaqr2.f index d282db6c41..5cab69b91c 100644 --- a/SRC/zlaqr2.f +++ b/SRC/zlaqr2.f @@ -266,6 +266,7 @@ SUBROUTINE ZLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, $ ILOZ, $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqr3.f b/SRC/zlaqr3.f index 8906f0045a..9a696fe115 100644 --- a/SRC/zlaqr3.f +++ b/SRC/zlaqr3.f @@ -263,6 +263,7 @@ SUBROUTINE ZLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, $ ILOZ, $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqr4.f b/SRC/zlaqr4.f index ef9f31a045..505f792a56 100644 --- a/SRC/zlaqr4.f +++ b/SRC/zlaqr4.f @@ -242,6 +242,7 @@ * ===================================================================== SUBROUTINE ZLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqsb.f b/SRC/zlaqsb.f index cab90a369f..f66f9f76c5 100644 --- a/SRC/zlaqsb.f +++ b/SRC/zlaqsb.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE ZLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqsp.f b/SRC/zlaqsp.f index e7eef573d1..e2c628db69 100644 --- a/SRC/zlaqsp.f +++ b/SRC/zlaqsp.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE ZLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaqsy.f b/SRC/zlaqsy.f index 94318ae5bb..096915c636 100644 --- a/SRC/zlaqsy.f +++ b/SRC/zlaqsy.f @@ -129,6 +129,7 @@ * * ===================================================================== SUBROUTINE ZLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlar1v.f b/SRC/zlar1v.f index e524291354..65863b2799 100644 --- a/SRC/zlar1v.f +++ b/SRC/zlar1v.f @@ -225,6 +225,7 @@ SUBROUTINE ZLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlar2v.f b/SRC/zlar2v.f index 0d82a0ec3f..a08ea26224 100644 --- a/SRC/zlar2v.f +++ b/SRC/zlar2v.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE ZLAR2V( N, X, Y, Z, INCX, C, S, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarcm.f b/SRC/zlarcm.f index b211232ea8..61e5e17654 100644 --- a/SRC/zlarcm.f +++ b/SRC/zlarcm.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarf.f b/SRC/zlarf.f index 8e4827d2ed..1af457e458 100644 --- a/SRC/zlarf.f +++ b/SRC/zlarf.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarf1f.f b/SRC/zlarf1f.f index be87faab9c..adaca3c9b4 100644 --- a/SRC/zlarf1f.f +++ b/SRC/zlarf1f.f @@ -154,6 +154,7 @@ * * ===================================================================== SUBROUTINE ZLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarf1l.f b/SRC/zlarf1l.f index dddb1dfa77..2a3bd1d373 100644 --- a/SRC/zlarf1l.f +++ b/SRC/zlarf1l.f @@ -127,6 +127,7 @@ * * ===================================================================== SUBROUTINE ZLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarfb.f b/SRC/zlarfb.f index 464de48127..bb2dae6fdf 100644 --- a/SRC/zlarfb.f +++ b/SRC/zlarfb.f @@ -192,6 +192,7 @@ SUBROUTINE ZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, $ LDV, $ T, LDT, C, LDC, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarfg.f b/SRC/zlarfg.f index 96c3aac0ef..576d9c64d5 100644 --- a/SRC/zlarfg.f +++ b/SRC/zlarfg.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarfgp.f b/SRC/zlarfgp.f index 678a4ed3fc..29a6b824f7 100644 --- a/SRC/zlarfgp.f +++ b/SRC/zlarfgp.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarft.f b/SRC/zlarft.f index 10e90d3346..06cea38604 100644 --- a/SRC/zlarft.f +++ b/SRC/zlarft.f @@ -159,6 +159,7 @@ * ===================================================================== RECURSIVE SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, $ TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarfx.f b/SRC/zlarfx.f index 1542967259..30602cb412 100644 --- a/SRC/zlarfx.f +++ b/SRC/zlarfx.f @@ -114,6 +114,7 @@ * * ===================================================================== SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarfy.f b/SRC/zlarfy.f index 9f7c56430b..6a00254bd3 100644 --- a/SRC/zlarfy.f +++ b/SRC/zlarfy.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlargv.f b/SRC/zlargv.f index 566bd9d0a7..8cf28b47f7 100644 --- a/SRC/zlargv.f +++ b/SRC/zlargv.f @@ -117,6 +117,7 @@ *> * ===================================================================== SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarnv.f b/SRC/zlarnv.f index c6a0fc7bad..d23af036cd 100644 --- a/SRC/zlarnv.f +++ b/SRC/zlarnv.f @@ -94,6 +94,7 @@ *> * ===================================================================== SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarrv.f b/SRC/zlarrv.f index 3998c45b02..67c1e186af 100644 --- a/SRC/zlarrv.f +++ b/SRC/zlarrv.f @@ -281,6 +281,7 @@ SUBROUTINE ZLARRV( N, VL, VU, D, L, PIVMIN, $ RTOL1, RTOL2, W, WERR, WGAP, $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarscl2.f b/SRC/zlarscl2.f index 5bf8907ea1..e090fcf71b 100644 --- a/SRC/zlarscl2.f +++ b/SRC/zlarscl2.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE ZLARSCL2 ( M, N, D, X, LDX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlartg.f90 b/SRC/zlartg.f90 index 566b80a260..faba51799b 100644 --- a/SRC/zlartg.f90 +++ b/SRC/zlartg.f90 @@ -116,6 +116,7 @@ subroutine ZLARTG( f, g, c, s, r ) use LA_CONSTANTS, & only: wp=>dp, zero=>dzero, one=>done, two=>dtwo, czero=>zzero, & safmin=>dsafmin, safmax=>dsafmax + implicit none ! ! -- LAPACK auxiliary routine -- ! -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlartv.f b/SRC/zlartv.f index e48548f014..447ee97afa 100644 --- a/SRC/zlartv.f +++ b/SRC/zlartv.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE ZLARTV( N, X, INCX, Y, INCY, C, S, INCC ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarz.f b/SRC/zlarz.f index 434733853e..848c75216d 100644 --- a/SRC/zlarz.f +++ b/SRC/zlarz.f @@ -142,6 +142,7 @@ *> * ===================================================================== SUBROUTINE ZLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarzb.f b/SRC/zlarzb.f index bf839aaa8f..75b0cd65a2 100644 --- a/SRC/zlarzb.f +++ b/SRC/zlarzb.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE ZLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlarzt.f b/SRC/zlarzt.f index f44a6a84c3..03d2a2e936 100644 --- a/SRC/zlarzt.f +++ b/SRC/zlarzt.f @@ -180,6 +180,7 @@ *> * ===================================================================== SUBROUTINE ZLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlascl.f b/SRC/zlascl.f index 4813dc6214..b44b40f903 100644 --- a/SRC/zlascl.f +++ b/SRC/zlascl.f @@ -139,6 +139,7 @@ * ===================================================================== SUBROUTINE ZLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlascl2.f b/SRC/zlascl2.f index 0bfa905257..7ecfeb158c 100644 --- a/SRC/zlascl2.f +++ b/SRC/zlascl2.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE ZLASCL2 ( M, N, D, X, LDX ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaset.f b/SRC/zlaset.f index b7cc798455..15f53a324d 100644 --- a/SRC/zlaset.f +++ b/SRC/zlaset.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE ZLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlasr.f b/SRC/zlasr.f index 27a525292a..85b96bb4fe 100644 --- a/SRC/zlasr.f +++ b/SRC/zlasr.f @@ -195,6 +195,7 @@ * * ===================================================================== SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlassq.f90 b/SRC/zlassq.f90 index 9fa0e630f5..98a164b8f5 100644 --- a/SRC/zlassq.f90 +++ b/SRC/zlassq.f90 @@ -123,6 +123,7 @@ subroutine ZLASSQ( n, x, incx, scale, sumsq ) only: wp=>dp, zero=>dzero, one=>done, & sbig=>dsbig, ssml=>dssml, tbig=>dtbig, tsml=>dtsml use LA_XISNAN + implicit none ! ! -- LAPACK auxiliary routine -- ! -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaswlq.f b/SRC/zlaswlq.f index 7352071320..0cfd5b8f3f 100644 --- a/SRC/zlaswlq.f +++ b/SRC/zlaswlq.f @@ -165,6 +165,7 @@ * ===================================================================== SUBROUTINE ZLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlaswp.f b/SRC/zlaswp.f index 040b3dbbd7..50ac2426c5 100644 --- a/SRC/zlaswp.f +++ b/SRC/zlaswp.f @@ -110,6 +110,7 @@ *> * ===================================================================== SUBROUTINE ZLASWP( N, A, LDA, K1, K2, IPIV, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlasyf.f b/SRC/zlasyf.f index b9320427d6..5363c390e6 100644 --- a/SRC/zlasyf.f +++ b/SRC/zlasyf.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlasyf_rk.f b/SRC/zlasyf_rk.f index 907cfb7602..16499a5562 100644 --- a/SRC/zlasyf_rk.f +++ b/SRC/zlasyf_rk.f @@ -257,6 +257,7 @@ * ===================================================================== SUBROUTINE ZLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlasyf_rook.f b/SRC/zlasyf_rook.f index 0375ec6122..57bd229efe 100644 --- a/SRC/zlasyf_rook.f +++ b/SRC/zlasyf_rook.f @@ -179,6 +179,7 @@ * ===================================================================== SUBROUTINE ZLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlat2c.f b/SRC/zlat2c.f index e989161633..b000027a29 100644 --- a/SRC/zlat2c.f +++ b/SRC/zlat2c.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE ZLAT2C( UPLO, N, A, LDA, SA, LDSA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlatbs.f b/SRC/zlatbs.f index 9e62e9d79f..cced7cd5e1 100644 --- a/SRC/zlatbs.f +++ b/SRC/zlatbs.f @@ -239,6 +239,7 @@ SUBROUTINE ZLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, $ X, $ SCALE, CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlatdf.f b/SRC/zlatdf.f index cb412eaab5..48850369de 100644 --- a/SRC/zlatdf.f +++ b/SRC/zlatdf.f @@ -164,6 +164,7 @@ * ===================================================================== SUBROUTINE ZLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlatps.f b/SRC/zlatps.f index c949773741..fe2baec109 100644 --- a/SRC/zlatps.f +++ b/SRC/zlatps.f @@ -226,6 +226,7 @@ * ===================================================================== SUBROUTINE ZLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlatrd.f b/SRC/zlatrd.f index 0f872f6149..a0d6d01980 100644 --- a/SRC/zlatrd.f +++ b/SRC/zlatrd.f @@ -194,6 +194,7 @@ *> * ===================================================================== SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlatrs.f b/SRC/zlatrs.f index 40f0372a59..4dbfe8f511 100644 --- a/SRC/zlatrs.f +++ b/SRC/zlatrs.f @@ -235,6 +235,7 @@ SUBROUTINE ZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, $ SCALE, $ CNORM, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlatrz.f b/SRC/zlatrz.f index b3fc8b38ef..d79d11a5ab 100644 --- a/SRC/zlatrz.f +++ b/SRC/zlatrz.f @@ -135,6 +135,7 @@ *> * ===================================================================== SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlatsqr.f b/SRC/zlatsqr.f index 24d00f28a8..ffb402ebd8 100644 --- a/SRC/zlatsqr.f +++ b/SRC/zlatsqr.f @@ -169,6 +169,7 @@ * ===================================================================== SUBROUTINE ZLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlauu2.f b/SRC/zlauu2.f index 393ce5438f..dcb5b944d5 100644 --- a/SRC/zlauu2.f +++ b/SRC/zlauu2.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zlauum.f b/SRC/zlauum.f index a46f63e0f6..d7c13fc373 100644 --- a/SRC/zlauum.f +++ b/SRC/zlauum.f @@ -97,6 +97,7 @@ * * ===================================================================== SUBROUTINE ZLAUUM( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbcon.f b/SRC/zpbcon.f index eb4b0f04f6..dcf97a3980 100644 --- a/SRC/zpbcon.f +++ b/SRC/zpbcon.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE ZPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbequ.f b/SRC/zpbequ.f index 2c9bf6dac7..b30fd4abb2 100644 --- a/SRC/zpbequ.f +++ b/SRC/zpbequ.f @@ -126,6 +126,7 @@ * ===================================================================== SUBROUTINE ZPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbrfs.f b/SRC/zpbrfs.f index 787063e3e1..3c33d134f9 100644 --- a/SRC/zpbrfs.f +++ b/SRC/zpbrfs.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE ZPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbstf.f b/SRC/zpbstf.f index d26b501b21..9b932f0552 100644 --- a/SRC/zpbstf.f +++ b/SRC/zpbstf.f @@ -148,6 +148,7 @@ *> * ===================================================================== SUBROUTINE ZPBSTF( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbsv.f b/SRC/zpbsv.f index c469bb1b57..db663da6bb 100644 --- a/SRC/zpbsv.f +++ b/SRC/zpbsv.f @@ -159,6 +159,7 @@ *> * ===================================================================== SUBROUTINE ZPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbsvx.f b/SRC/zpbsvx.f index 517525cbd3..72bd571ad0 100644 --- a/SRC/zpbsvx.f +++ b/SRC/zpbsvx.f @@ -338,6 +338,7 @@ SUBROUTINE ZPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, $ LDAFB, $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbtf2.f b/SRC/zpbtf2.f index 8e1db9a75b..7002eb5490 100644 --- a/SRC/zpbtf2.f +++ b/SRC/zpbtf2.f @@ -137,6 +137,7 @@ *> * ===================================================================== SUBROUTINE ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbtrf.f b/SRC/zpbtrf.f index 065e7354be..2f8f262ec4 100644 --- a/SRC/zpbtrf.f +++ b/SRC/zpbtrf.f @@ -137,6 +137,7 @@ * * ===================================================================== SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpbtrs.f b/SRC/zpbtrs.f index 12b61b25b0..91848a0a58 100644 --- a/SRC/zpbtrs.f +++ b/SRC/zpbtrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE ZPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpftrf.f b/SRC/zpftrf.f index 2ce56b5b16..51f6f2cb8f 100644 --- a/SRC/zpftrf.f +++ b/SRC/zpftrf.f @@ -206,6 +206,7 @@ * * ===================================================================== SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpftri.f b/SRC/zpftri.f index 09c4f92dbd..3b44f3a5ef 100644 --- a/SRC/zpftri.f +++ b/SRC/zpftri.f @@ -207,6 +207,7 @@ *> * ===================================================================== SUBROUTINE ZPFTRI( TRANSR, UPLO, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpftrs.f b/SRC/zpftrs.f index 5899a5e74b..221f4f26d4 100644 --- a/SRC/zpftrs.f +++ b/SRC/zpftrs.f @@ -215,6 +215,7 @@ *> * ===================================================================== SUBROUTINE ZPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpocon.f b/SRC/zpocon.f index 23ade26d3c..2e50f4a6a0 100644 --- a/SRC/zpocon.f +++ b/SRC/zpocon.f @@ -116,6 +116,7 @@ * ===================================================================== SUBROUTINE ZPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpoequ.f b/SRC/zpoequ.f index e3e61ecc62..5774f9a5b1 100644 --- a/SRC/zpoequ.f +++ b/SRC/zpoequ.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE ZPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpoequb.f b/SRC/zpoequb.f index e10df44f3a..1ac29789f2 100644 --- a/SRC/zpoequb.f +++ b/SRC/zpoequb.f @@ -114,6 +114,7 @@ * * ===================================================================== SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zporfs.f b/SRC/zporfs.f index f983b0e0dc..09e66272d1 100644 --- a/SRC/zporfs.f +++ b/SRC/zporfs.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE ZPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zporfsx.f b/SRC/zporfsx.f index ead84177ed..7f2a8405e7 100644 --- a/SRC/zporfsx.f +++ b/SRC/zporfsx.f @@ -389,6 +389,7 @@ SUBROUTINE ZPORFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, S, $ LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zposv.f b/SRC/zposv.f index 97adb0188e..3ddab214ea 100644 --- a/SRC/zposv.f +++ b/SRC/zposv.f @@ -125,6 +125,7 @@ * * ===================================================================== SUBROUTINE ZPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zposvx.f b/SRC/zposvx.f index 21f5463893..e872299ad1 100644 --- a/SRC/zposvx.f +++ b/SRC/zposvx.f @@ -302,6 +302,7 @@ SUBROUTINE ZPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zposvxx.f b/SRC/zposvxx.f index 9dffa93b14..36024e5301 100644 --- a/SRC/zposvxx.f +++ b/SRC/zposvxx.f @@ -489,6 +489,7 @@ SUBROUTINE ZPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpotf2.f b/SRC/zpotf2.f index def83ba797..08820eca37 100644 --- a/SRC/zpotf2.f +++ b/SRC/zpotf2.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpotrf.f b/SRC/zpotrf.f index 7160c71914..767d415a93 100644 --- a/SRC/zpotrf.f +++ b/SRC/zpotrf.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE ZPOTRF( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpotrf2.f b/SRC/zpotrf2.f index 4cdbb0ac1f..af57c8bdcc 100644 --- a/SRC/zpotrf2.f +++ b/SRC/zpotrf2.f @@ -103,6 +103,7 @@ * * ===================================================================== RECURSIVE SUBROUTINE ZPOTRF2( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpotri.f b/SRC/zpotri.f index 92b995f6e5..4bcaf23f65 100644 --- a/SRC/zpotri.f +++ b/SRC/zpotri.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE ZPOTRI( UPLO, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpotrs.f b/SRC/zpotrs.f index f47456e964..8990c1e758 100644 --- a/SRC/zpotrs.f +++ b/SRC/zpotrs.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE ZPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zppcon.f b/SRC/zppcon.f index 7a505d1f07..ed0c423e97 100644 --- a/SRC/zppcon.f +++ b/SRC/zppcon.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE ZPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zppequ.f b/SRC/zppequ.f index a390596c77..0356152486 100644 --- a/SRC/zppequ.f +++ b/SRC/zppequ.f @@ -112,6 +112,7 @@ * * ===================================================================== SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpprfs.f b/SRC/zpprfs.f index e67239d68e..9bb9988c84 100644 --- a/SRC/zpprfs.f +++ b/SRC/zpprfs.f @@ -167,6 +167,7 @@ SUBROUTINE ZPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, $ FERR, $ BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zppsv.f b/SRC/zppsv.f index 01d7634989..dbd2bdbb52 100644 --- a/SRC/zppsv.f +++ b/SRC/zppsv.f @@ -139,6 +139,7 @@ *> * ===================================================================== SUBROUTINE ZPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zppsvx.f b/SRC/zppsvx.f index 3104e68a21..09425fd7be 100644 --- a/SRC/zppsvx.f +++ b/SRC/zppsvx.f @@ -307,6 +307,7 @@ SUBROUTINE ZPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, $ LDB, $ X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpptrf.f b/SRC/zpptrf.f index 96bd5822ab..e40af1e57d 100644 --- a/SRC/zpptrf.f +++ b/SRC/zpptrf.f @@ -114,6 +114,7 @@ *> * ===================================================================== SUBROUTINE ZPPTRF( UPLO, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpptri.f b/SRC/zpptri.f index 25d29433e2..87db3b45ed 100644 --- a/SRC/zpptri.f +++ b/SRC/zpptri.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE ZPPTRI( UPLO, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpptrs.f b/SRC/zpptrs.f index c972e88349..67b03bf163 100644 --- a/SRC/zpptrs.f +++ b/SRC/zpptrs.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE ZPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpstf2.f b/SRC/zpstf2.f index 34c596e37a..7e66fa03bc 100644 --- a/SRC/zpstf2.f +++ b/SRC/zpstf2.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE ZPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpstrf.f b/SRC/zpstrf.f index 38b5ff8f8e..a9c7e1bd73 100644 --- a/SRC/zpstrf.f +++ b/SRC/zpstrf.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE ZPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zptcon.f b/SRC/zptcon.f index 81abf8aae9..c7e935b584 100644 --- a/SRC/zptcon.f +++ b/SRC/zptcon.f @@ -114,6 +114,7 @@ *> * ===================================================================== SUBROUTINE ZPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpteqr.f b/SRC/zpteqr.f index 1b453718fd..91cd88f7bd 100644 --- a/SRC/zpteqr.f +++ b/SRC/zpteqr.f @@ -140,6 +140,7 @@ * * ===================================================================== SUBROUTINE ZPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zptrfs.f b/SRC/zptrfs.f index 0d5e29e2ff..313e6d94f3 100644 --- a/SRC/zptrfs.f +++ b/SRC/zptrfs.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE ZPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zptsv.f b/SRC/zptsv.f index 322dc497e0..0c34644fe1 100644 --- a/SRC/zptsv.f +++ b/SRC/zptsv.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE ZPTSV( N, NRHS, D, E, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zptsvx.f b/SRC/zptsvx.f index 7212a75cfb..b04d391315 100644 --- a/SRC/zptsvx.f +++ b/SRC/zptsvx.f @@ -229,6 +229,7 @@ * ===================================================================== SUBROUTINE ZPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpttrf.f b/SRC/zpttrf.f index 737b2d0c4a..d40c4b8ee9 100644 --- a/SRC/zpttrf.f +++ b/SRC/zpttrf.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE ZPTTRF( N, D, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zpttrs.f b/SRC/zpttrs.f index 631881f956..3f32fb18ba 100644 --- a/SRC/zpttrs.f +++ b/SRC/zpttrs.f @@ -116,6 +116,7 @@ * * ===================================================================== SUBROUTINE ZPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zptts2.f b/SRC/zptts2.f index 27f039e50c..f23a1a7784 100644 --- a/SRC/zptts2.f +++ b/SRC/zptts2.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE ZPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zrot.f b/SRC/zrot.f index 108f619b2a..e8f963f5f2 100644 --- a/SRC/zrot.f +++ b/SRC/zrot.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE ZROT( N, CX, INCX, CY, INCY, C, S ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zrscl.f b/SRC/zrscl.f index 0174e1d57c..22c0544228 100644 --- a/SRC/zrscl.f +++ b/SRC/zrscl.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE ZRSCL( N, A, X, INCX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zspcon.f b/SRC/zspcon.f index 5e9c089fe1..b26979af04 100644 --- a/SRC/zspcon.f +++ b/SRC/zspcon.f @@ -114,6 +114,7 @@ * ===================================================================== SUBROUTINE ZSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zspmv.f b/SRC/zspmv.f index ceecc8e304..929afed6c2 100644 --- a/SRC/zspmv.f +++ b/SRC/zspmv.f @@ -146,6 +146,7 @@ * * ===================================================================== SUBROUTINE ZSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zspr.f b/SRC/zspr.f index 4c63632aed..30b1315a0f 100644 --- a/SRC/zspr.f +++ b/SRC/zspr.f @@ -127,6 +127,7 @@ * * ===================================================================== SUBROUTINE ZSPR( UPLO, N, ALPHA, X, INCX, AP ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsprfs.f b/SRC/zsprfs.f index d33b6229dd..0b5c4714c6 100644 --- a/SRC/zsprfs.f +++ b/SRC/zsprfs.f @@ -176,6 +176,7 @@ SUBROUTINE ZSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, $ FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zspsv.f b/SRC/zspsv.f index 92281871d6..62b25d6e76 100644 --- a/SRC/zspsv.f +++ b/SRC/zspsv.f @@ -157,6 +157,7 @@ *> * ===================================================================== SUBROUTINE ZSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zspsvx.f b/SRC/zspsvx.f index c9fab1894e..298c3305a3 100644 --- a/SRC/zspsvx.f +++ b/SRC/zspsvx.f @@ -273,6 +273,7 @@ SUBROUTINE ZSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, $ X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsptrf.f b/SRC/zsptrf.f index 5a39b6992b..b2478ee703 100644 --- a/SRC/zsptrf.f +++ b/SRC/zsptrf.f @@ -153,6 +153,7 @@ *> * ===================================================================== SUBROUTINE ZSPTRF( UPLO, N, AP, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsptri.f b/SRC/zsptri.f index 5569882f2b..f0057aca18 100644 --- a/SRC/zsptri.f +++ b/SRC/zsptri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE ZSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsptrs.f b/SRC/zsptrs.f index 74ee886a6e..45ecf6991c 100644 --- a/SRC/zsptrs.f +++ b/SRC/zsptrs.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE ZSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zstedc.f b/SRC/zstedc.f index 7f595e34c2..16d90a216b 100644 --- a/SRC/zstedc.f +++ b/SRC/zstedc.f @@ -201,6 +201,7 @@ * ===================================================================== SUBROUTINE ZSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zstegr.f b/SRC/zstegr.f index 7af4a15eb5..7ccb03acc5 100644 --- a/SRC/zstegr.f +++ b/SRC/zstegr.f @@ -260,6 +260,7 @@ SUBROUTINE ZSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zstein.f b/SRC/zstein.f index d9b54e7ecb..ca408fe70b 100644 --- a/SRC/zstein.f +++ b/SRC/zstein.f @@ -177,6 +177,7 @@ * ===================================================================== SUBROUTINE ZSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zstemr.f b/SRC/zstemr.f index 47e1628d61..f8fc18ca1c 100644 --- a/SRC/zstemr.f +++ b/SRC/zstemr.f @@ -334,6 +334,7 @@ SUBROUTINE ZSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsteqr.f b/SRC/zsteqr.f index a3cccfc403..0528bf5ebc 100644 --- a/SRC/zsteqr.f +++ b/SRC/zsteqr.f @@ -127,6 +127,7 @@ * * ===================================================================== SUBROUTINE ZSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsycon.f b/SRC/zsycon.f index 837ff4542b..3d7cc0b559 100644 --- a/SRC/zsycon.f +++ b/SRC/zsycon.f @@ -120,6 +120,7 @@ * ===================================================================== SUBROUTINE ZSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsycon_3.f b/SRC/zsycon_3.f index e705511968..65de1a92b3 100644 --- a/SRC/zsycon_3.f +++ b/SRC/zsycon_3.f @@ -161,6 +161,7 @@ * ===================================================================== SUBROUTINE ZSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsycon_rook.f b/SRC/zsycon_rook.f index e9c1d091dd..c215e7596a 100644 --- a/SRC/zsycon_rook.f +++ b/SRC/zsycon_rook.f @@ -135,6 +135,7 @@ SUBROUTINE ZSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsyconv.f b/SRC/zsyconv.f index 0c4af16773..bda9236d4d 100644 --- a/SRC/zsyconv.f +++ b/SRC/zsyconv.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsyconvf.f b/SRC/zsyconvf.f index 703bad9a91..30a880b8d0 100644 --- a/SRC/zsyconvf.f +++ b/SRC/zsyconvf.f @@ -204,6 +204,7 @@ *> \endverbatim * ===================================================================== SUBROUTINE ZSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsyconvf_rook.f b/SRC/zsyconvf_rook.f index 5c0e650a24..91de431e78 100644 --- a/SRC/zsyconvf_rook.f +++ b/SRC/zsyconvf_rook.f @@ -195,6 +195,7 @@ *> \endverbatim * ===================================================================== SUBROUTINE ZSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsyequb.f b/SRC/zsyequb.f index 4c26ddf9df..b68d8d28b6 100644 --- a/SRC/zsyequb.f +++ b/SRC/zsyequb.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE ZSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsymv.f b/SRC/zsymv.f index f544f0ac1c..76b159fa46 100644 --- a/SRC/zsymv.f +++ b/SRC/zsymv.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE ZSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsyr.f b/SRC/zsyr.f index f69af1d2aa..61411dfc6b 100644 --- a/SRC/zsyr.f +++ b/SRC/zsyr.f @@ -130,6 +130,7 @@ * * ===================================================================== SUBROUTINE ZSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsyrfs.f b/SRC/zsyrfs.f index d234622321..571e612df4 100644 --- a/SRC/zsyrfs.f +++ b/SRC/zsyrfs.f @@ -188,6 +188,7 @@ SUBROUTINE ZSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsyrfsx.f b/SRC/zsyrfsx.f index 8b8bea99a5..11e4fd1fbb 100644 --- a/SRC/zsyrfsx.f +++ b/SRC/zsyrfsx.f @@ -398,6 +398,7 @@ SUBROUTINE ZSYRFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, $ S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsysv.f b/SRC/zsysv.f index 54e4c9fd77..0a328bbadd 100644 --- a/SRC/zsysv.f +++ b/SRC/zsysv.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE ZSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsysv_aa.f b/SRC/zsysv_aa.f index 3f0d8bf12a..bf66ebdbcf 100644 --- a/SRC/zsysv_aa.f +++ b/SRC/zsysv_aa.f @@ -157,6 +157,7 @@ * ===================================================================== SUBROUTINE ZSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsysv_rk.f b/SRC/zsysv_rk.f index 783072375f..681fcc0aef 100644 --- a/SRC/zsysv_rk.f +++ b/SRC/zsysv_rk.f @@ -224,6 +224,7 @@ SUBROUTINE ZSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsysv_rook.f b/SRC/zsysv_rook.f index 0966b25b84..f6d98a14d4 100644 --- a/SRC/zsysv_rook.f +++ b/SRC/zsysv_rook.f @@ -200,6 +200,7 @@ SUBROUTINE ZSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsysvx.f b/SRC/zsysvx.f index 98465dc410..fb86588007 100644 --- a/SRC/zsysvx.f +++ b/SRC/zsysvx.f @@ -281,6 +281,7 @@ SUBROUTINE ZSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsysvxx.f b/SRC/zsysvxx.f index 19cdc498bb..94cb5dc7da 100644 --- a/SRC/zsysvxx.f +++ b/SRC/zsysvxx.f @@ -502,6 +502,7 @@ SUBROUTINE ZSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, $ EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsyswapr.f b/SRC/zsyswapr.f index d3bb0645b0..d15fb22215 100644 --- a/SRC/zsyswapr.f +++ b/SRC/zsyswapr.f @@ -95,6 +95,7 @@ * * ===================================================================== SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytf2.f b/SRC/zsytf2.f index 2849460c63..63cb9709fe 100644 --- a/SRC/zsytf2.f +++ b/SRC/zsytf2.f @@ -186,6 +186,7 @@ * * ===================================================================== SUBROUTINE ZSYTF2( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytf2_rk.f b/SRC/zsytf2_rk.f index 89079f5eaf..9d549adc51 100644 --- a/SRC/zsytf2_rk.f +++ b/SRC/zsytf2_rk.f @@ -236,6 +236,7 @@ * * ===================================================================== SUBROUTINE ZSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytf2_rook.f b/SRC/zsytf2_rook.f index c3086bb543..9038e0bbd6 100644 --- a/SRC/zsytf2_rook.f +++ b/SRC/zsytf2_rook.f @@ -189,6 +189,7 @@ * * ===================================================================== SUBROUTINE ZSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytrf.f b/SRC/zsytrf.f index 4b838d8473..d4596b0b44 100644 --- a/SRC/zsytrf.f +++ b/SRC/zsytrf.f @@ -177,6 +177,7 @@ *> * ===================================================================== SUBROUTINE ZSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytrf_rk.f b/SRC/zsytrf_rk.f index 42bacf675a..e6b7fb7286 100644 --- a/SRC/zsytrf_rk.f +++ b/SRC/zsytrf_rk.f @@ -254,6 +254,7 @@ * ===================================================================== SUBROUTINE ZSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytrf_rook.f b/SRC/zsytrf_rook.f index 29d69e6161..24baa48e19 100644 --- a/SRC/zsytrf_rook.f +++ b/SRC/zsytrf_rook.f @@ -204,6 +204,7 @@ * ===================================================================== SUBROUTINE ZSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytri.f b/SRC/zsytri.f index 43e1445fcd..25e05e7d8d 100644 --- a/SRC/zsytri.f +++ b/SRC/zsytri.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytri2.f b/SRC/zsytri2.f index 55fabb6847..5e17d84aea 100644 --- a/SRC/zsytri2.f +++ b/SRC/zsytri2.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE ZSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytri2x.f b/SRC/zsytri2x.f index 90374d3f98..c8333d2988 100644 --- a/SRC/zsytri2x.f +++ b/SRC/zsytri2x.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytri_3.f b/SRC/zsytri_3.f index cb9fa1f7f1..7dfabb883e 100644 --- a/SRC/zsytri_3.f +++ b/SRC/zsytri_3.f @@ -165,6 +165,7 @@ * ===================================================================== SUBROUTINE ZSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytri_3x.f b/SRC/zsytri_3x.f index f684163a16..10dde99dda 100644 --- a/SRC/zsytri_3x.f +++ b/SRC/zsytri_3x.f @@ -155,6 +155,7 @@ * ===================================================================== SUBROUTINE ZSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytri_rook.f b/SRC/zsytri_rook.f index 6bf52e0764..c39181b4e1 100644 --- a/SRC/zsytri_rook.f +++ b/SRC/zsytri_rook.f @@ -124,6 +124,7 @@ * * ===================================================================== SUBROUTINE ZSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytrs.f b/SRC/zsytrs.f index 3488bbb9fc..00863174f8 100644 --- a/SRC/zsytrs.f +++ b/SRC/zsytrs.f @@ -115,6 +115,7 @@ * * ===================================================================== SUBROUTINE ZSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytrs2.f b/SRC/zsytrs2.f index baa3643a00..d64b9a869e 100644 --- a/SRC/zsytrs2.f +++ b/SRC/zsytrs2.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytrs_3.f b/SRC/zsytrs_3.f index b4bd0547a6..592b94f450 100644 --- a/SRC/zsytrs_3.f +++ b/SRC/zsytrs_3.f @@ -160,6 +160,7 @@ * ===================================================================== SUBROUTINE ZSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zsytrs_rook.f b/SRC/zsytrs_rook.f index 8742ccf092..1ee59010fe 100644 --- a/SRC/zsytrs_rook.f +++ b/SRC/zsytrs_rook.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE ZSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztbcon.f b/SRC/ztbcon.f index 30c1b68423..7379e41beb 100644 --- a/SRC/ztbcon.f +++ b/SRC/ztbcon.f @@ -139,6 +139,7 @@ SUBROUTINE ZTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, $ WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztbrfs.f b/SRC/ztbrfs.f index ab3143b0eb..2c7010db80 100644 --- a/SRC/ztbrfs.f +++ b/SRC/ztbrfs.f @@ -183,6 +183,7 @@ * ===================================================================== SUBROUTINE ZTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztbtrs.f b/SRC/ztbtrs.f index 9b00b4316e..7e5fd9f9d1 100644 --- a/SRC/ztbtrs.f +++ b/SRC/ztbtrs.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE ZTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztfsm.f b/SRC/ztfsm.f index 296184a159..606fce4194 100644 --- a/SRC/ztfsm.f +++ b/SRC/ztfsm.f @@ -295,6 +295,7 @@ SUBROUTINE ZTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, $ A, $ B, LDB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztftri.f b/SRC/ztftri.f index 2ad9fa1be6..95614d9e27 100644 --- a/SRC/ztftri.f +++ b/SRC/ztftri.f @@ -216,6 +216,7 @@ *> * ===================================================================== SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztfttp.f b/SRC/ztfttp.f index 79dbb830e1..48405a6bb2 100644 --- a/SRC/ztfttp.f +++ b/SRC/ztfttp.f @@ -203,6 +203,7 @@ *> * ===================================================================== SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztfttr.f b/SRC/ztfttr.f index 70f7d2b83d..975f96b89e 100644 --- a/SRC/ztfttr.f +++ b/SRC/ztfttr.f @@ -211,6 +211,7 @@ *> * ===================================================================== SUBROUTINE ZTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztgevc.f b/SRC/ztgevc.f index f8c11a9818..1d0a28dd0e 100644 --- a/SRC/ztgevc.f +++ b/SRC/ztgevc.f @@ -214,6 +214,7 @@ * ===================================================================== SUBROUTINE ZTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztgex2.f b/SRC/ztgex2.f index a0672e020b..5f97848d47 100644 --- a/SRC/ztgex2.f +++ b/SRC/ztgex2.f @@ -185,6 +185,7 @@ * ===================================================================== SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztgexc.f b/SRC/ztgexc.f index 4db6f039e4..9b430a9760 100644 --- a/SRC/ztgexc.f +++ b/SRC/ztgexc.f @@ -195,6 +195,7 @@ * ===================================================================== SUBROUTINE ZTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztgsen.f b/SRC/ztgsen.f index 11b1916132..9f9dfcc3cd 100644 --- a/SRC/ztgsen.f +++ b/SRC/ztgsen.f @@ -429,6 +429,7 @@ SUBROUTINE ZTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, $ LDB, $ ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, $ WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztgsja.f b/SRC/ztgsja.f index 29a32de2bd..2492871f69 100644 --- a/SRC/ztgsja.f +++ b/SRC/ztgsja.f @@ -374,6 +374,7 @@ SUBROUTINE ZTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztgsna.f b/SRC/ztgsna.f index 95810d3228..5e15172871 100644 --- a/SRC/ztgsna.f +++ b/SRC/ztgsna.f @@ -306,6 +306,7 @@ SUBROUTINE ZTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztgsy2.f b/SRC/ztgsy2.f index e62728672f..f3ef6909c0 100644 --- a/SRC/ztgsy2.f +++ b/SRC/ztgsy2.f @@ -255,6 +255,7 @@ SUBROUTINE ZTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, $ D, $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztgsyl.f b/SRC/ztgsyl.f index 6da96cadc1..6c8e31d5f1 100644 --- a/SRC/ztgsyl.f +++ b/SRC/ztgsyl.f @@ -291,6 +291,7 @@ SUBROUTINE ZTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, $ D, $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztpcon.f b/SRC/ztpcon.f index 7104e8e102..272f42cc5f 100644 --- a/SRC/ztpcon.f +++ b/SRC/ztpcon.f @@ -125,6 +125,7 @@ * ===================================================================== SUBROUTINE ZTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztplqt.f b/SRC/ztplqt.f index 1ccec747e5..459da7e588 100644 --- a/SRC/ztplqt.f +++ b/SRC/ztplqt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE ZTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztplqt2.f b/SRC/ztplqt2.f index cab2c22e6d..a66322e6e3 100644 --- a/SRC/ztplqt2.f +++ b/SRC/ztplqt2.f @@ -172,6 +172,7 @@ *> * ===================================================================== SUBROUTINE ZTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztpmlqt.f b/SRC/ztpmlqt.f index f42f43687e..42980147a5 100644 --- a/SRC/ztpmlqt.f +++ b/SRC/ztpmlqt.f @@ -210,6 +210,7 @@ SUBROUTINE ZTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, $ LDT, $ A, LDA, B, LDB, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztpmqrt.f b/SRC/ztpmqrt.f index 52d25051bf..74bfde8a8a 100644 --- a/SRC/ztpmqrt.f +++ b/SRC/ztpmqrt.f @@ -212,6 +212,7 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, $ LDT, $ A, LDA, B, LDB, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztpqrt.f b/SRC/ztpqrt.f index 338193261d..3f754f2541 100644 --- a/SRC/ztpqrt.f +++ b/SRC/ztpqrt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE ZTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztpqrt2.f b/SRC/ztpqrt2.f index f09c70babb..7d682d870a 100644 --- a/SRC/ztpqrt2.f +++ b/SRC/ztpqrt2.f @@ -168,6 +168,7 @@ *> * ===================================================================== SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztprfb.f b/SRC/ztprfb.f index ee4b95eb73..67097d6174 100644 --- a/SRC/ztprfb.f +++ b/SRC/ztprfb.f @@ -246,6 +246,7 @@ * ===================================================================== SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztprfs.f b/SRC/ztprfs.f index 8e21c426a0..c17102d314 100644 --- a/SRC/ztprfs.f +++ b/SRC/ztprfs.f @@ -170,6 +170,7 @@ SUBROUTINE ZTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, $ LDX, $ FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztptri.f b/SRC/ztptri.f index 9eff3a546a..39999ea26b 100644 --- a/SRC/ztptri.f +++ b/SRC/ztptri.f @@ -112,6 +112,7 @@ *> * ===================================================================== SUBROUTINE ZTPTRI( UPLO, DIAG, N, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztptrs.f b/SRC/ztptrs.f index acf82a28d4..769de8ff96 100644 --- a/SRC/ztptrs.f +++ b/SRC/ztptrs.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE ZTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztpttf.f b/SRC/ztpttf.f index e3e9dd2def..74ebc0ddff 100644 --- a/SRC/ztpttf.f +++ b/SRC/ztpttf.f @@ -202,6 +202,7 @@ *> * ===================================================================== SUBROUTINE ZTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztpttr.f b/SRC/ztpttr.f index 0af95a7fe5..12c1644a4f 100644 --- a/SRC/ztpttr.f +++ b/SRC/ztpttr.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZTPTTR( UPLO, N, AP, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrcon.f b/SRC/ztrcon.f index ceb55faef5..1108061213 100644 --- a/SRC/ztrcon.f +++ b/SRC/ztrcon.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE ZTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrevc.f b/SRC/ztrevc.f index ab4172b86b..38ea60dbfc 100644 --- a/SRC/ztrevc.f +++ b/SRC/ztrevc.f @@ -214,6 +214,7 @@ SUBROUTINE ZTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, $ LDVR, MM, M, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrexc.f b/SRC/ztrexc.f index d133b4b386..b7a1212c7c 100644 --- a/SRC/ztrexc.f +++ b/SRC/ztrexc.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE ZTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrrfs.f b/SRC/ztrrfs.f index 428e89ee0a..21dd489271 100644 --- a/SRC/ztrrfs.f +++ b/SRC/ztrrfs.f @@ -178,6 +178,7 @@ SUBROUTINE ZTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrsen.f b/SRC/ztrsen.f index 29a8a1c397..dd319c3722 100644 --- a/SRC/ztrsen.f +++ b/SRC/ztrsen.f @@ -260,6 +260,7 @@ SUBROUTINE ZTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, $ S, $ SEP, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrsna.f b/SRC/ztrsna.f index daa815dbb5..854f15f1bf 100644 --- a/SRC/ztrsna.f +++ b/SRC/ztrsna.f @@ -245,6 +245,7 @@ SUBROUTINE ZTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, $ LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrsyl.f b/SRC/ztrsyl.f index d7a777d70d..6e5fe9c646 100644 --- a/SRC/ztrsyl.f +++ b/SRC/ztrsyl.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE ZTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrti2.f b/SRC/ztrti2.f index bcc77c4b76..bbee7917d6 100644 --- a/SRC/ztrti2.f +++ b/SRC/ztrti2.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE ZTRTI2( UPLO, DIAG, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrtri.f b/SRC/ztrtri.f index 51e016e44f..445faedbca 100644 --- a/SRC/ztrtri.f +++ b/SRC/ztrtri.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE ZTRTRI( UPLO, DIAG, N, A, LDA, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrtrs.f b/SRC/ztrtrs.f index 0c0fe366b8..b51704dd45 100644 --- a/SRC/ztrtrs.f +++ b/SRC/ztrtrs.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE ZTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrttf.f b/SRC/ztrttf.f index cae767ec41..d3e701ea7f 100644 --- a/SRC/ztrttf.f +++ b/SRC/ztrttf.f @@ -211,6 +211,7 @@ *> * ===================================================================== SUBROUTINE ZTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztrttp.f b/SRC/ztrttp.f index 666c63a848..bdbb9af16a 100644 --- a/SRC/ztrttp.f +++ b/SRC/ztrttp.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZTRTTP( UPLO, N, A, LDA, AP, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/ztzrzf.f b/SRC/ztzrzf.f index 55a07167aa..8919a0cffe 100644 --- a/SRC/ztzrzf.f +++ b/SRC/ztzrzf.f @@ -146,6 +146,7 @@ *> * ===================================================================== SUBROUTINE ZTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunbdb.f b/SRC/zunbdb.f index 6e472025a1..e0c8beadec 100644 --- a/SRC/zunbdb.f +++ b/SRC/zunbdb.f @@ -283,6 +283,7 @@ SUBROUTINE ZUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, $ LDX12, $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunbdb1.f b/SRC/zunbdb1.f index 5b15415461..d1e1933176 100644 --- a/SRC/zunbdb1.f +++ b/SRC/zunbdb1.f @@ -199,6 +199,7 @@ SUBROUTINE ZUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunbdb2.f b/SRC/zunbdb2.f index 3cead7deed..f8bc474f3e 100644 --- a/SRC/zunbdb2.f +++ b/SRC/zunbdb2.f @@ -197,6 +197,7 @@ SUBROUTINE ZUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunbdb3.f b/SRC/zunbdb3.f index 4d6be8e7f2..f7a9768946 100644 --- a/SRC/zunbdb3.f +++ b/SRC/zunbdb3.f @@ -197,6 +197,7 @@ SUBROUTINE ZUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunbdb4.f b/SRC/zunbdb4.f index c9a85f381c..31d8ec40b7 100644 --- a/SRC/zunbdb4.f +++ b/SRC/zunbdb4.f @@ -209,6 +209,7 @@ SUBROUTINE ZUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, $ PHI, $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunbdb5.f b/SRC/zunbdb5.f index f6f97057d0..89424cdf1b 100644 --- a/SRC/zunbdb5.f +++ b/SRC/zunbdb5.f @@ -152,6 +152,7 @@ SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, $ Q2, $ LDQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f index 88b0be7a97..0d83cf5194 100644 --- a/SRC/zunbdb6.f +++ b/SRC/zunbdb6.f @@ -155,6 +155,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, $ Q2, $ LDQ2, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f index 33981d6cf2..4055a4bbb0 100644 --- a/SRC/zuncsd.f +++ b/SRC/zuncsd.f @@ -316,6 +316,7 @@ RECURSIVE SUBROUTINE ZUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, $ U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, WORK, LWORK, RWORK, LRWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zuncsd2by1.f b/SRC/zuncsd2by1.f index 830546f316..40839956f8 100644 --- a/SRC/zuncsd2by1.f +++ b/SRC/zuncsd2by1.f @@ -252,6 +252,7 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, $ X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, $ LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zung2l.f b/SRC/zung2l.f index 1dc393aa3d..7f5cf64b00 100644 --- a/SRC/zung2l.f +++ b/SRC/zung2l.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zung2r.f b/SRC/zung2r.f index 22cbe682fa..56374be425 100644 --- a/SRC/zung2r.f +++ b/SRC/zung2r.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zungbr.f b/SRC/zungbr.f index 7d1834e2d1..4559d0fce0 100644 --- a/SRC/zungbr.f +++ b/SRC/zungbr.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE ZUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunghr.f b/SRC/zunghr.f index 913e6a24cf..7def0f904c 100644 --- a/SRC/zunghr.f +++ b/SRC/zunghr.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE ZUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zungl2.f b/SRC/zungl2.f index 9ad2fcd0b1..24f41b9be8 100644 --- a/SRC/zungl2.f +++ b/SRC/zungl2.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE ZUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunglq.f b/SRC/zunglq.f index 3cc107560d..4e7ae19a83 100644 --- a/SRC/zunglq.f +++ b/SRC/zunglq.f @@ -122,6 +122,7 @@ * * ===================================================================== SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zungql.f b/SRC/zungql.f index a64de501d3..efdba650fb 100644 --- a/SRC/zungql.f +++ b/SRC/zungql.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE ZUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zungqr.f b/SRC/zungqr.f index 6c9f2e3ff5..07384a26e2 100644 --- a/SRC/zungqr.f +++ b/SRC/zungqr.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE ZUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zungr2.f b/SRC/zungr2.f index 785bde53dd..f24a455fe6 100644 --- a/SRC/zungr2.f +++ b/SRC/zungr2.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zungrq.f b/SRC/zungrq.f index dcc2772d67..68d46706e3 100644 --- a/SRC/zungrq.f +++ b/SRC/zungrq.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE ZUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zungtr.f b/SRC/zungtr.f index 1efd6b94ed..0a0db889a5 100644 --- a/SRC/zungtr.f +++ b/SRC/zungtr.f @@ -118,6 +118,7 @@ * * ===================================================================== SUBROUTINE ZUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunm2l.f b/SRC/zunm2l.f index 91b17b8837..2756bf9811 100644 --- a/SRC/zunm2l.f +++ b/SRC/zunm2l.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE ZUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunm2r.f b/SRC/zunm2r.f index 5e05cf85be..8e42228a7f 100644 --- a/SRC/zunm2r.f +++ b/SRC/zunm2r.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE ZUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmbr.f b/SRC/zunmbr.f index 529debba88..0ca5288430 100644 --- a/SRC/zunmbr.f +++ b/SRC/zunmbr.f @@ -191,6 +191,7 @@ * ===================================================================== SUBROUTINE ZUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmhr.f b/SRC/zunmhr.f index c2e9e3e531..744cd76671 100644 --- a/SRC/zunmhr.f +++ b/SRC/zunmhr.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunml2.f b/SRC/zunml2.f index 101050d952..969d586d17 100644 --- a/SRC/zunml2.f +++ b/SRC/zunml2.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE ZUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmlq.f b/SRC/zunmlq.f index 21ddfd2daa..6c0329cf60 100644 --- a/SRC/zunmlq.f +++ b/SRC/zunmlq.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmql.f b/SRC/zunmql.f index f607a631b6..2109544483 100644 --- a/SRC/zunmql.f +++ b/SRC/zunmql.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmqr.f b/SRC/zunmqr.f index 8356c89420..07348c65f2 100644 --- a/SRC/zunmqr.f +++ b/SRC/zunmqr.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmr2.f b/SRC/zunmr2.f index f364e8a583..6696a7f8f2 100644 --- a/SRC/zunmr2.f +++ b/SRC/zunmr2.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE ZUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmr3.f b/SRC/zunmr3.f index 853d35b513..6fbc8c8e35 100644 --- a/SRC/zunmr3.f +++ b/SRC/zunmr3.f @@ -174,6 +174,7 @@ SUBROUTINE ZUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, $ LDC, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmrq.f b/SRC/zunmrq.f index 57cac036bb..6d6a16ac42 100644 --- a/SRC/zunmrq.f +++ b/SRC/zunmrq.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmrz.f b/SRC/zunmrz.f index 90d2e88669..4e4de13221 100644 --- a/SRC/zunmrz.f +++ b/SRC/zunmrz.f @@ -183,6 +183,7 @@ SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, $ LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zunmtr.f b/SRC/zunmtr.f index 19d0f88365..fa13e1a118 100644 --- a/SRC/zunmtr.f +++ b/SRC/zunmtr.f @@ -167,6 +167,7 @@ SUBROUTINE ZUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, $ LDC, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zupgtr.f b/SRC/zupgtr.f index cf8e495083..af552d80a9 100644 --- a/SRC/zupgtr.f +++ b/SRC/zupgtr.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zupmtr.f b/SRC/zupmtr.f index 76b46a7bf3..b37f4b182d 100644 --- a/SRC/zupmtr.f +++ b/SRC/zupmtr.f @@ -146,6 +146,7 @@ SUBROUTINE ZUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, $ WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/alahdg.f b/TESTING/EIG/alahdg.f index 597ee4b7aa..87bdb1a3ab 100644 --- a/TESTING/EIG/alahdg.f +++ b/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, -- diff --git a/TESTING/EIG/alareq.f b/TESTING/EIG/alareq.f index 2cbe6db382..25ff484e40 100644 --- a/TESTING/EIG/alareq.f +++ b/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, -- diff --git a/TESTING/EIG/alarqg.f b/TESTING/EIG/alarqg.f index b9fb88c651..321e8b6422 100644 --- a/TESTING/EIG/alarqg.f +++ b/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, -- diff --git a/TESTING/EIG/alasmg.f b/TESTING/EIG/alasmg.f index ba586d7032..74caaa79d8 100644 --- a/TESTING/EIG/alasmg.f +++ b/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, -- diff --git a/TESTING/EIG/alasum.f b/TESTING/EIG/alasum.f index 9144a9c087..87654d1457 100644 --- a/TESTING/EIG/alasum.f +++ b/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, -- diff --git a/TESTING/EIG/alasvm.f b/TESTING/EIG/alasvm.f index 118315d1d6..b1e4762623 100644 --- a/TESTING/EIG/alasvm.f +++ b/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, -- diff --git a/TESTING/EIG/cbdt01.f b/TESTING/EIG/cbdt01.f index f5633bdc31..f0d90741e1 100644 --- a/TESTING/EIG/cbdt01.f +++ b/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, -- diff --git a/TESTING/EIG/cbdt02.f b/TESTING/EIG/cbdt02.f index 6ef39a96b3..611554e96b 100644 --- a/TESTING/EIG/cbdt02.f +++ b/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, -- diff --git a/TESTING/EIG/cbdt03.f b/TESTING/EIG/cbdt03.f index 631929b346..e4b8a56238 100644 --- a/TESTING/EIG/cbdt03.f +++ b/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, -- diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index 9b711fe01b..80934f3ebf 100644 --- a/TESTING/EIG/cbdt05.f +++ b/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, -- diff --git a/TESTING/EIG/cchkbb.f b/TESTING/EIG/cchkbb.f index d48d6c780d..eca5e4d4d7 100644 --- a/TESTING/EIG/cchkbb.f +++ b/TESTING/EIG/cchkbb.f @@ -358,6 +358,7 @@ SUBROUTINE CCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE, $ NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, $ BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, $ LWORK, RWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkbd.f b/TESTING/EIG/cchkbd.f index afcdf87608..84f5d7d9f0 100644 --- a/TESTING/EIG/cchkbd.f +++ b/TESTING/EIG/cchkbd.f @@ -412,6 +412,7 @@ SUBROUTINE CCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ RWORK, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkbk.f b/TESTING/EIG/cchkbk.f index 6b9b0e24c2..50ec871701 100644 --- a/TESTING/EIG/cchkbk.f +++ b/TESTING/EIG/cchkbk.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CCHKBK( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkbl.f b/TESTING/EIG/cchkbl.f index 894abd4906..566891d549 100644 --- a/TESTING/EIG/cchkbl.f +++ b/TESTING/EIG/cchkbl.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE CCHKBL( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkec.f b/TESTING/EIG/cchkec.f index c892b0a54a..3dffdef489 100644 --- a/TESTING/EIG/cchkec.f +++ b/TESTING/EIG/cchkec.f @@ -72,6 +72,7 @@ * * ===================================================================== SUBROUTINE CCHKEC( THRESH, TSTERR, NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkgg.f b/TESTING/EIG/cchkgg.f index b4ba6724d9..5bd766eaef 100644 --- a/TESTING/EIG/cchkgg.f +++ b/TESTING/EIG/cchkgg.f @@ -500,6 +500,7 @@ SUBROUTINE CCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ S2, P1, P2, U, LDU, V, Q, Z, ALPHA1, BETA1, $ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, $ RWORK, LLWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkgk.f b/TESTING/EIG/cchkgk.f index 39228d35ee..d625b8fc8f 100644 --- a/TESTING/EIG/cchkgk.f +++ b/TESTING/EIG/cchkgk.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE CCHKGK( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkgl.f b/TESTING/EIG/cchkgl.f index a442548352..32f955fe17 100644 --- a/TESTING/EIG/cchkgl.f +++ b/TESTING/EIG/cchkgl.f @@ -50,6 +50,7 @@ * * ===================================================================== SUBROUTINE CCHKGL( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkhb.f b/TESTING/EIG/cchkhb.f index 4c12df9f27..5d6a4780ba 100644 --- a/TESTING/EIG/cchkhb.f +++ b/TESTING/EIG/cchkhb.f @@ -295,6 +295,7 @@ SUBROUTINE CCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkhb2stg.f b/TESTING/EIG/cchkhb2stg.f index 6544fca191..a8f7e58956 100644 --- a/TESTING/EIG/cchkhb2stg.f +++ b/TESTING/EIG/cchkhb2stg.f @@ -338,6 +338,7 @@ SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, $ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, $ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkhs.f b/TESTING/EIG/cchkhs.f index 4b80d28151..07eed07e16 100644 --- a/TESTING/EIG/cchkhs.f +++ b/TESTING/EIG/cchkhs.f @@ -418,6 +418,7 @@ SUBROUTINE CCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ W3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, $ WORK, NWORK, RWORK, IWORK, SELECT, RESULT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkst.f b/TESTING/EIG/cchkst.f index ed535e91f3..ee98bc9b58 100644 --- a/TESTING/EIG/cchkst.f +++ b/TESTING/EIG/cchkst.f @@ -601,6 +601,7 @@ SUBROUTINE CCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cchkst2stg.f b/TESTING/EIG/cchkst2stg.f index 668b51a36d..06c7569a4f 100644 --- a/TESTING/EIG/cchkst2stg.f +++ b/TESTING/EIG/cchkst2stg.f @@ -622,6 +622,7 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cckglm.f b/TESTING/EIG/cckglm.f index badddb63b4..a88c745e86 100644 --- a/TESTING/EIG/cckglm.f +++ b/TESTING/EIG/cckglm.f @@ -165,6 +165,7 @@ SUBROUTINE CCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cckgqr.f b/TESTING/EIG/cckgqr.f index 574d07181d..ec52c1e13b 100644 --- a/TESTING/EIG/cckgqr.f +++ b/TESTING/EIG/cckgqr.f @@ -208,6 +208,7 @@ SUBROUTINE CCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cckgsv.f b/TESTING/EIG/cckgsv.f index f3204e2940..2f2b08171c 100644 --- a/TESTING/EIG/cckgsv.f +++ b/TESTING/EIG/cckgsv.f @@ -195,6 +195,7 @@ SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ccklse.f b/TESTING/EIG/ccklse.f index d9cff9bcbc..caf72a9c53 100644 --- a/TESTING/EIG/ccklse.f +++ b/TESTING/EIG/ccklse.f @@ -165,6 +165,7 @@ SUBROUTINE CCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ccsdts.f b/TESTING/EIG/ccsdts.f index 9a2aa91e6c..47d11996ce 100644 --- a/TESTING/EIG/ccsdts.f +++ b/TESTING/EIG/ccsdts.f @@ -226,6 +226,7 @@ SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrges.f b/TESTING/EIG/cdrges.f index 3530981c62..bfe91116bf 100644 --- a/TESTING/EIG/cdrges.f +++ b/TESTING/EIG/cdrges.f @@ -378,6 +378,7 @@ SUBROUTINE CDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrges3.f b/TESTING/EIG/cdrges3.f index 922251a945..84cc2f429a 100644 --- a/TESTING/EIG/cdrges3.f +++ b/TESTING/EIG/cdrges3.f @@ -379,6 +379,7 @@ SUBROUTINE CDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrgev.f b/TESTING/EIG/cdrgev.f index b9ff39dce0..9c7c57cf4b 100644 --- a/TESTING/EIG/cdrgev.f +++ b/TESTING/EIG/cdrgev.f @@ -396,6 +396,7 @@ SUBROUTINE CDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, $ RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrgev3.f b/TESTING/EIG/cdrgev3.f index 07b7a1f964..5836890d37 100644 --- a/TESTING/EIG/cdrgev3.f +++ b/TESTING/EIG/cdrgev3.f @@ -396,6 +396,7 @@ SUBROUTINE CDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, $ RWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrgsx.f b/TESTING/EIG/cdrgsx.f index 1729770a2f..019f78d9b1 100644 --- a/TESTING/EIG/cdrgsx.f +++ b/TESTING/EIG/cdrgsx.f @@ -346,6 +346,7 @@ SUBROUTINE CDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, $ AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, $ LWORK, RWORK, IWORK, LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrgvx.f b/TESTING/EIG/cdrgvx.f index 4114b697f0..8eab34e582 100644 --- a/TESTING/EIG/cdrgvx.f +++ b/TESTING/EIG/cdrgvx.f @@ -295,6 +295,7 @@ SUBROUTINE CDRGVX( NSIZE, THRESH, NIN, NOUT, A, LDA, B, AI, BI, $ ALPHA, BETA, VL, VR, ILO, IHI, LSCALE, RSCALE, $ S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrves.f b/TESTING/EIG/cdrves.f index f12f742fb2..cc6bedc8d4 100644 --- a/TESTING/EIG/cdrves.f +++ b/TESTING/EIG/cdrves.f @@ -375,6 +375,7 @@ SUBROUTINE CDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, $ WORK, NWORK, RWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrvev.f b/TESTING/EIG/cdrvev.f index 6957f9911d..3e6b98ff7d 100644 --- a/TESTING/EIG/cdrvev.f +++ b/TESTING/EIG/cdrvev.f @@ -388,6 +388,7 @@ SUBROUTINE CDRVEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, W, W1, VL, LDVL, VR, LDVR, $ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrvsg.f b/TESTING/EIG/cdrvsg.f index 7299767384..c4c29f5f3e 100644 --- a/TESTING/EIG/cdrvsg.f +++ b/TESTING/EIG/cdrvsg.f @@ -367,6 +367,7 @@ SUBROUTINE CDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, $ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, $ RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrvst.f b/TESTING/EIG/cdrvst.f index 205f06f0da..934b8e02bd 100644 --- a/TESTING/EIG/cdrvst.f +++ b/TESTING/EIG/cdrvst.f @@ -335,6 +335,7 @@ SUBROUTINE CDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrvst2stg.f b/TESTING/EIG/cdrvst2stg.f index 258f1f370c..c436783f72 100644 --- a/TESTING/EIG/cdrvst2stg.f +++ b/TESTING/EIG/cdrvst2stg.f @@ -335,6 +335,7 @@ SUBROUTINE CDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrvsx.f b/TESTING/EIG/cdrvsx.f index 2f34cf83ca..19825bcee4 100644 --- a/TESTING/EIG/cdrvsx.f +++ b/TESTING/EIG/cdrvsx.f @@ -432,6 +432,7 @@ SUBROUTINE CDRVSX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NIUNIT, NOUNIT, A, LDA, H, HT, W, WT, WTMP, VS, $ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cdrvvx.f b/TESTING/EIG/cdrvvx.f index 1d4cee29d9..99931b6efa 100644 --- a/TESTING/EIG/cdrvvx.f +++ b/TESTING/EIG/cdrvvx.f @@ -493,6 +493,7 @@ SUBROUTINE CDRVVX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, NWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cerrbd.f b/TESTING/EIG/cerrbd.f index a8d6b401e2..7ce6dc4b47 100644 --- a/TESTING/EIG/cerrbd.f +++ b/TESTING/EIG/cerrbd.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRBD( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cerrec.f b/TESTING/EIG/cerrec.f index 6e2e1d38a3..7e5c6ced81 100644 --- a/TESTING/EIG/cerrec.f +++ b/TESTING/EIG/cerrec.f @@ -53,6 +53,7 @@ * * ===================================================================== SUBROUTINE CERREC( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cerred.f b/TESTING/EIG/cerred.f index a7da07929d..a406d9cc54 100644 --- a/TESTING/EIG/cerred.f +++ b/TESTING/EIG/cerred.f @@ -67,6 +67,7 @@ * * ===================================================================== SUBROUTINE CERRED( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cerrgg.f b/TESTING/EIG/cerrgg.f index 3839b5f2c3..fa5eeb47b6 100644 --- a/TESTING/EIG/cerrgg.f +++ b/TESTING/EIG/cerrgg.f @@ -54,6 +54,7 @@ * * ===================================================================== SUBROUTINE CERRGG( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cerrhs.f b/TESTING/EIG/cerrhs.f index 2dd86b8c90..8a87071baa 100644 --- a/TESTING/EIG/cerrhs.f +++ b/TESTING/EIG/cerrhs.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRHS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cerrst.f b/TESTING/EIG/cerrst.f index d23eb14eac..83e0679389 100644 --- a/TESTING/EIG/cerrst.f +++ b/TESTING/EIG/cerrst.f @@ -58,6 +58,7 @@ * * ===================================================================== SUBROUTINE CERRST( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget02.f b/TESTING/EIG/cget02.f index 3a8f6308ca..b5f96b7fe7 100644 --- a/TESTING/EIG/cget02.f +++ b/TESTING/EIG/cget02.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget10.f b/TESTING/EIG/cget10.f index 9e6b34ba8a..448f87819a 100644 --- a/TESTING/EIG/cget10.f +++ b/TESTING/EIG/cget10.f @@ -96,6 +96,7 @@ * * ===================================================================== SUBROUTINE CGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget22.f b/TESTING/EIG/cget22.f index 2f0896741b..f5bf430eaa 100644 --- a/TESTING/EIG/cget22.f +++ b/TESTING/EIG/cget22.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, $ WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget23.f b/TESTING/EIG/cget23.f index b4a8c4631c..e2c67785d9 100644 --- a/TESTING/EIG/cget23.f +++ b/TESTING/EIG/cget23.f @@ -365,6 +365,7 @@ SUBROUTINE CGET23( COMP, ISRT, BALANC, JTYPE, THRESH, ISEED, $ LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget24.f b/TESTING/EIG/cget24.f index 4674b62265..82c77006b8 100644 --- a/TESTING/EIG/cget24.f +++ b/TESTING/EIG/cget24.f @@ -332,6 +332,7 @@ SUBROUTINE CGET24( COMP, JTYPE, THRESH, ISEED, NOUNIT, N, A, LDA, $ H, HT, W, WT, WTMP, VS, LDVS, VS1, RCDEIN, $ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, $ LWORK, RWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget35.f b/TESTING/EIG/cget35.f index 1d92c4fc59..63ba3ad01a 100644 --- a/TESTING/EIG/cget35.f +++ b/TESTING/EIG/cget35.f @@ -81,6 +81,7 @@ * * ===================================================================== SUBROUTINE CGET35( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget36.f b/TESTING/EIG/cget36.f index 7f943f2564..56673d260c 100644 --- a/TESTING/EIG/cget36.f +++ b/TESTING/EIG/cget36.f @@ -82,6 +82,7 @@ * * ===================================================================== SUBROUTINE CGET36( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget37.f b/TESTING/EIG/cget37.f index 5eae323203..9a4bd3fde5 100644 --- a/TESTING/EIG/cget37.f +++ b/TESTING/EIG/cget37.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE CGET37( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget38.f b/TESTING/EIG/cget38.f index 9eccbc857d..95a9438f60 100644 --- a/TESTING/EIG/cget38.f +++ b/TESTING/EIG/cget38.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE CGET38( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget51.f b/TESTING/EIG/cget51.f index 3781c6a88b..5cffc356c4 100644 --- a/TESTING/EIG/cget51.f +++ b/TESTING/EIG/cget51.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget52.f b/TESTING/EIG/cget52.f index 558ec60ba6..967d56e362 100644 --- a/TESTING/EIG/cget52.f +++ b/TESTING/EIG/cget52.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, $ WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cget54.f b/TESTING/EIG/cget54.f index ce8376fc6d..19222a7b29 100644 --- a/TESTING/EIG/cget54.f +++ b/TESTING/EIG/cget54.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cglmts.f b/TESTING/EIG/cglmts.f index ecf8699f27..b906050a8d 100644 --- a/TESTING/EIG/cglmts.f +++ b/TESTING/EIG/cglmts.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, $ X, U, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cgqrts.f b/TESTING/EIG/cgqrts.f index 6a5bcc2d4e..b641c1820f 100644 --- a/TESTING/EIG/cgqrts.f +++ b/TESTING/EIG/cgqrts.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cgrqts.f b/TESTING/EIG/cgrqts.f index 103820ec11..51ef242617 100644 --- a/TESTING/EIG/cgrqts.f +++ b/TESTING/EIG/cgrqts.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cgsvts3.f b/TESTING/EIG/cgsvts3.f index 699f14b1cb..f505e81b65 100644 --- a/TESTING/EIG/cgsvts3.f +++ b/TESTING/EIG/cgsvts3.f @@ -206,6 +206,7 @@ SUBROUTINE CGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/chbt21.f b/TESTING/EIG/chbt21.f index b41936aa59..1e29d59604 100644 --- a/TESTING/EIG/chbt21.f +++ b/TESTING/EIG/chbt21.f @@ -149,6 +149,7 @@ * ===================================================================== SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/chet21.f b/TESTING/EIG/chet21.f index 1bd35cb41c..0fe30d25ae 100644 --- a/TESTING/EIG/chet21.f +++ b/TESTING/EIG/chet21.f @@ -211,6 +211,7 @@ * ===================================================================== SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/chet22.f b/TESTING/EIG/chet22.f index 27f22e9a42..6ad378ad7d 100644 --- a/TESTING/EIG/chet22.f +++ b/TESTING/EIG/chet22.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/chkxer.f b/TESTING/EIG/chkxer.f index 70caf7e0a3..eb9a0e57e6 100644 --- a/TESTING/EIG/chkxer.f +++ b/TESTING/EIG/chkxer.f @@ -38,6 +38,7 @@ * * ===================================================================== SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/chpt21.f b/TESTING/EIG/chpt21.f index bc342ca357..7a891abafc 100644 --- a/TESTING/EIG/chpt21.f +++ b/TESTING/EIG/chpt21.f @@ -225,6 +225,7 @@ * ===================================================================== SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/chst01.f b/TESTING/EIG/chst01.f index 5be1bc4de9..cf5022ca64 100644 --- a/TESTING/EIG/chst01.f +++ b/TESTING/EIG/chst01.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/clarfy.f b/TESTING/EIG/clarfy.f index 80329cab43..ad4baf2c51 100644 --- a/TESTING/EIG/clarfy.f +++ b/TESTING/EIG/clarfy.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/clarhs.f b/TESTING/EIG/clarhs.f index 9842df9599..671e71e1b2 100644 --- a/TESTING/EIG/clarhs.f +++ b/TESTING/EIG/clarhs.f @@ -205,6 +205,7 @@ * ===================================================================== SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/clatm4.f b/TESTING/EIG/clatm4.f index 12d0c63182..daafeb52e7 100644 --- a/TESTING/EIG/clatm4.f +++ b/TESTING/EIG/clatm4.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/clctes.f b/TESTING/EIG/clctes.f index 9bf95cbc4a..c62b9e5f23 100644 --- a/TESTING/EIG/clctes.f +++ b/TESTING/EIG/clctes.f @@ -55,6 +55,7 @@ * * ===================================================================== LOGICAL FUNCTION CLCTES( Z, D ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/clctsx.f b/TESTING/EIG/clctsx.f index 39c5cf321a..257c35ef86 100644 --- a/TESTING/EIG/clctsx.f +++ b/TESTING/EIG/clctsx.f @@ -54,6 +54,7 @@ * * ===================================================================== LOGICAL FUNCTION CLCTSX( ALPHA, BETA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/clsets.f b/TESTING/EIG/clsets.f index 2124a9e091..2c185d5af3 100644 --- a/TESTING/EIG/clsets.f +++ b/TESTING/EIG/clsets.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, $ D, DF, X, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/csbmv.f b/TESTING/EIG/csbmv.f index 567ea45178..63fa46482d 100644 --- a/TESTING/EIG/csbmv.f +++ b/TESTING/EIG/csbmv.f @@ -149,6 +149,7 @@ * ===================================================================== SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/csgt01.f b/TESTING/EIG/csgt01.f index 828669d48d..15ed7887d6 100644 --- a/TESTING/EIG/csgt01.f +++ b/TESTING/EIG/csgt01.f @@ -149,6 +149,7 @@ * ===================================================================== SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cslect.f b/TESTING/EIG/cslect.f index be324ec3c2..9f7e33dfcf 100644 --- a/TESTING/EIG/cslect.f +++ b/TESTING/EIG/cslect.f @@ -53,6 +53,7 @@ * * ===================================================================== LOGICAL FUNCTION CSLECT( Z ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cstt21.f b/TESTING/EIG/cstt21.f index 58f426961f..52e14c6fb3 100644 --- a/TESTING/EIG/cstt21.f +++ b/TESTING/EIG/cstt21.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, $ RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cstt22.f b/TESTING/EIG/cstt22.f index bd09f63020..ebc2e789eb 100644 --- a/TESTING/EIG/cstt22.f +++ b/TESTING/EIG/cstt22.f @@ -142,6 +142,7 @@ * ===================================================================== SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cunt01.f b/TESTING/EIG/cunt01.f index d8928954f7..1e5178e89e 100644 --- a/TESTING/EIG/cunt01.f +++ b/TESTING/EIG/cunt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/cunt03.f b/TESTING/EIG/cunt03.f index 56165f9543..81cbfe079d 100644 --- a/TESTING/EIG/cunt03.f +++ b/TESTING/EIG/cunt03.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dbdt01.f b/TESTING/EIG/dbdt01.f index 69e0b5ffc2..c265d0d6d4 100644 --- a/TESTING/EIG/dbdt01.f +++ b/TESTING/EIG/dbdt01.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dbdt02.f b/TESTING/EIG/dbdt02.f index ac0291219b..0e9e37d38e 100644 --- a/TESTING/EIG/dbdt02.f +++ b/TESTING/EIG/dbdt02.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dbdt03.f b/TESTING/EIG/dbdt03.f index 8af6162c96..44300f4380 100644 --- a/TESTING/EIG/dbdt03.f +++ b/TESTING/EIG/dbdt03.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE DBDT03( 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, -- diff --git a/TESTING/EIG/dbdt04.f b/TESTING/EIG/dbdt04.f index 1c07135552..762b8373a2 100644 --- a/TESTING/EIG/dbdt04.f +++ b/TESTING/EIG/dbdt04.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dbdt05.f b/TESTING/EIG/dbdt05.f index e4e6fcac68..ca12e830b8 100644 --- a/TESTING/EIG/dbdt05.f +++ b/TESTING/EIG/dbdt05.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE DBDT05( 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, -- diff --git a/TESTING/EIG/dchkbb.f b/TESTING/EIG/dchkbb.f index 9fec997288..9c24697509 100644 --- a/TESTING/EIG/dchkbb.f +++ b/TESTING/EIG/dchkbb.f @@ -352,6 +352,7 @@ SUBROUTINE DCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE, $ NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, $ BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, $ LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkbd.f b/TESTING/EIG/dchkbd.f index 400075abdf..92d4fff006 100644 --- a/TESTING/EIG/dchkbd.f +++ b/TESTING/EIG/dchkbd.f @@ -490,6 +490,7 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ IWORK, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkbk.f b/TESTING/EIG/dchkbk.f index 364b8f6b1f..d5ef617575 100644 --- a/TESTING/EIG/dchkbk.f +++ b/TESTING/EIG/dchkbk.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DCHKBK( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkbl.f b/TESTING/EIG/dchkbl.f index 7237dacf29..bfa4d0f62f 100644 --- a/TESTING/EIG/dchkbl.f +++ b/TESTING/EIG/dchkbl.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE DCHKBL( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkec.f b/TESTING/EIG/dchkec.f index c4451a627a..6409285e9d 100644 --- a/TESTING/EIG/dchkec.f +++ b/TESTING/EIG/dchkec.f @@ -73,6 +73,7 @@ * * ===================================================================== SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkgg.f b/TESTING/EIG/dchkgg.f index 3dc9f9595e..026c1e28f0 100644 --- a/TESTING/EIG/dchkgg.f +++ b/TESTING/EIG/dchkgg.f @@ -508,6 +508,7 @@ SUBROUTINE DCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ S2, P1, P2, U, LDU, V, Q, Z, ALPHR1, ALPHI1, $ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, $ WORK, LWORK, LLWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkgk.f b/TESTING/EIG/dchkgk.f index 9ba567d743..3f9feca2f5 100644 --- a/TESTING/EIG/dchkgk.f +++ b/TESTING/EIG/dchkgk.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE DCHKGK( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkgl.f b/TESTING/EIG/dchkgl.f index 60fee9870a..18ed77cfa9 100644 --- a/TESTING/EIG/dchkgl.f +++ b/TESTING/EIG/dchkgl.f @@ -50,6 +50,7 @@ * * ===================================================================== SUBROUTINE DCHKGL( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkhs.f b/TESTING/EIG/dchkhs.f index 2b0eb274a5..c21b7a2d32 100644 --- a/TESTING/EIG/dchkhs.f +++ b/TESTING/EIG/dchkhs.f @@ -419,6 +419,7 @@ SUBROUTINE DCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR, $ EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK, $ SELECT, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchksb.f b/TESTING/EIG/dchksb.f index 86f849b77c..fef7cc3b95 100644 --- a/TESTING/EIG/dchksb.f +++ b/TESTING/EIG/dchksb.f @@ -290,6 +290,7 @@ SUBROUTINE DCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchksb2stg.f b/TESTING/EIG/dchksb2stg.f index 1fb03e7f5c..6bc0ca532e 100644 --- a/TESTING/EIG/dchksb2stg.f +++ b/TESTING/EIG/dchksb2stg.f @@ -329,6 +329,7 @@ SUBROUTINE DCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, $ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, $ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkst.f b/TESTING/EIG/dchkst.f index 6e02c84fbb..d8ff91f698 100644 --- a/TESTING/EIG/dchkst.f +++ b/TESTING/EIG/dchkst.f @@ -588,6 +588,7 @@ SUBROUTINE DCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dchkst2stg.f b/TESTING/EIG/dchkst2stg.f index 0fbebc8b7a..9cc1052d3e 100644 --- a/TESTING/EIG/dchkst2stg.f +++ b/TESTING/EIG/dchkst2stg.f @@ -609,6 +609,7 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dckglm.f b/TESTING/EIG/dckglm.f index 389ba49328..6dd4a46cc5 100644 --- a/TESTING/EIG/dckglm.f +++ b/TESTING/EIG/dckglm.f @@ -164,6 +164,7 @@ SUBROUTINE DCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dckgqr.f b/TESTING/EIG/dckgqr.f index a810facc0e..ed915a757d 100644 --- a/TESTING/EIG/dckgqr.f +++ b/TESTING/EIG/dckgqr.f @@ -207,6 +207,7 @@ SUBROUTINE DCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dckgsv.f b/TESTING/EIG/dckgsv.f index 3b60dde6b7..bfd7f3d0b4 100644 --- a/TESTING/EIG/dckgsv.f +++ b/TESTING/EIG/dckgsv.f @@ -195,6 +195,7 @@ SUBROUTINE DCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dcklse.f b/TESTING/EIG/dcklse.f index b2dbbf1e52..77cd7cf9e4 100644 --- a/TESTING/EIG/dcklse.f +++ b/TESTING/EIG/dcklse.f @@ -164,6 +164,7 @@ SUBROUTINE DCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dcsdts.f b/TESTING/EIG/dcsdts.f index a671a8a258..4b6429214f 100644 --- a/TESTING/EIG/dcsdts.f +++ b/TESTING/EIG/dcsdts.f @@ -226,6 +226,7 @@ SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrges.f b/TESTING/EIG/ddrges.f index 4dc1bcefbf..dfe94799e2 100644 --- a/TESTING/EIG/ddrges.f +++ b/TESTING/EIG/ddrges.f @@ -400,6 +400,7 @@ SUBROUTINE DDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrges3.f b/TESTING/EIG/ddrges3.f index ae62800eeb..6d98d4bfad 100644 --- a/TESTING/EIG/ddrges3.f +++ b/TESTING/EIG/ddrges3.f @@ -400,6 +400,7 @@ SUBROUTINE DDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrgev.f b/TESTING/EIG/ddrgev.f index bafd8c2d25..b8c3e22ea6 100644 --- a/TESTING/EIG/ddrgev.f +++ b/TESTING/EIG/ddrgev.f @@ -405,6 +405,7 @@ SUBROUTINE DDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrgev3.f b/TESTING/EIG/ddrgev3.f index ac6944634b..145f08933d 100644 --- a/TESTING/EIG/ddrgev3.f +++ b/TESTING/EIG/ddrgev3.f @@ -405,6 +405,7 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrgsx.f b/TESTING/EIG/ddrgsx.f index 82470ead34..71164a64da 100644 --- a/TESTING/EIG/ddrgsx.f +++ b/TESTING/EIG/ddrgsx.f @@ -356,6 +356,7 @@ SUBROUTINE DDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, $ BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, $ WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrgvx.f b/TESTING/EIG/ddrgvx.f index 3de72eb70f..e375a37aea 100644 --- a/TESTING/EIG/ddrgvx.f +++ b/TESTING/EIG/ddrgvx.f @@ -297,6 +297,7 @@ SUBROUTINE DDRGVX( NSIZE, THRESH, NIN, NOUT, A, LDA, B, AI, BI, $ ALPHAR, ALPHAI, BETA, VL, VR, ILO, IHI, LSCALE, $ RSCALE, S, DTRU, DIF, DIFTRU, WORK, LWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrves.f b/TESTING/EIG/ddrves.f index 594158d989..c9822d8d65 100644 --- a/TESTING/EIG/ddrves.f +++ b/TESTING/EIG/ddrves.f @@ -385,6 +385,7 @@ SUBROUTINE DDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, $ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrvev.f b/TESTING/EIG/ddrvev.f index 402022a823..bc0104043f 100644 --- a/TESTING/EIG/ddrvev.f +++ b/TESTING/EIG/ddrvev.f @@ -403,6 +403,7 @@ SUBROUTINE DDRVEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, WR, WI, WR1, WI1, VL, LDVL, $ VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrvsg.f b/TESTING/EIG/ddrvsg.f index 72c373086a..a1716883cb 100644 --- a/TESTING/EIG/ddrvsg.f +++ b/TESTING/EIG/ddrvsg.f @@ -352,6 +352,7 @@ SUBROUTINE DDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, $ BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrvst.f b/TESTING/EIG/ddrvst.f index 311684238d..77e9755755 100644 --- a/TESTING/EIG/ddrvst.f +++ b/TESTING/EIG/ddrvst.f @@ -450,6 +450,7 @@ SUBROUTINE DDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrvst2stg.f b/TESTING/EIG/ddrvst2stg.f index e38671e385..9a24e346d0 100644 --- a/TESTING/EIG/ddrvst2stg.f +++ b/TESTING/EIG/ddrvst2stg.f @@ -450,6 +450,7 @@ SUBROUTINE DDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrvsx.f b/TESTING/EIG/ddrvsx.f index 8954f24600..46d11252ba 100644 --- a/TESTING/EIG/ddrvsx.f +++ b/TESTING/EIG/ddrvsx.f @@ -451,6 +451,7 @@ SUBROUTINE DDRVSX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NIUNIT, NOUNIT, A, LDA, H, HT, WR, WI, WRT, $ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, $ LWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ddrvvx.f b/TESTING/EIG/ddrvvx.f index 0ec6bb5ed1..ae0c438b67 100644 --- a/TESTING/EIG/ddrvvx.f +++ b/TESTING/EIG/ddrvvx.f @@ -518,6 +518,7 @@ SUBROUTINE DDRVVX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ VL, LDVL, VR, LDVR, LRE, LDLRE, RCONDV, RCNDV1, $ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, $ RESULT, WORK, NWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/derrbd.f b/TESTING/EIG/derrbd.f index 914274ff25..c57b0416ce 100644 --- a/TESTING/EIG/derrbd.f +++ b/TESTING/EIG/derrbd.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRBD( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/derrec.f b/TESTING/EIG/derrec.f index f11f488878..cdee741809 100644 --- a/TESTING/EIG/derrec.f +++ b/TESTING/EIG/derrec.f @@ -53,6 +53,7 @@ * * ===================================================================== SUBROUTINE DERREC( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index faa716f8b0..a20d08ff90 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -67,6 +67,7 @@ * * ===================================================================== SUBROUTINE DERRED( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/derrgg.f b/TESTING/EIG/derrgg.f index 6fc61b8727..63358eb9f3 100644 --- a/TESTING/EIG/derrgg.f +++ b/TESTING/EIG/derrgg.f @@ -54,6 +54,7 @@ * * ===================================================================== SUBROUTINE DERRGG( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/derrhs.f b/TESTING/EIG/derrhs.f index 583bebc9bc..78a6713c36 100644 --- a/TESTING/EIG/derrhs.f +++ b/TESTING/EIG/derrhs.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRHS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/derrst.f b/TESTING/EIG/derrst.f index 7d111e2e0d..94018743f2 100644 --- a/TESTING/EIG/derrst.f +++ b/TESTING/EIG/derrst.f @@ -58,6 +58,7 @@ * * ===================================================================== SUBROUTINE DERRST( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget02.f b/TESTING/EIG/dget02.f index b1f2995562..74395c0ea7 100644 --- a/TESTING/EIG/dget02.f +++ b/TESTING/EIG/dget02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget10.f b/TESTING/EIG/dget10.f index 684172f6b8..1233dd0805 100644 --- a/TESTING/EIG/dget10.f +++ b/TESTING/EIG/dget10.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE DGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget22.f b/TESTING/EIG/dget22.f index e19552ff78..ff52d3917a 100644 --- a/TESTING/EIG/dget22.f +++ b/TESTING/EIG/dget22.f @@ -165,6 +165,7 @@ * ===================================================================== SUBROUTINE DGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, $ WI, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget23.f b/TESTING/EIG/dget23.f index 2151669046..6588dfadd7 100644 --- a/TESTING/EIG/dget23.f +++ b/TESTING/EIG/dget23.f @@ -375,6 +375,7 @@ SUBROUTINE DGET23( COMP, BALANC, JTYPE, THRESH, ISEED, NOUNIT, N, $ LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget24.f b/TESTING/EIG/dget24.f index eeb9109e9c..3b2f1eb440 100644 --- a/TESTING/EIG/dget24.f +++ b/TESTING/EIG/dget24.f @@ -340,6 +340,7 @@ SUBROUTINE DGET24( COMP, JTYPE, THRESH, ISEED, NOUNIT, N, A, LDA, $ H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, $ LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, $ RESULT, WORK, LWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget31.f b/TESTING/EIG/dget31.f index 511b413be6..3b0420d513 100644 --- a/TESTING/EIG/dget31.f +++ b/TESTING/EIG/dget31.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE DGET31( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget32.f b/TESTING/EIG/dget32.f index 13d8a7494f..8672d33610 100644 --- a/TESTING/EIG/dget32.f +++ b/TESTING/EIG/dget32.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE DGET32( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget33.f b/TESTING/EIG/dget33.f index 7b6454b5ac..f10f58525e 100644 --- a/TESTING/EIG/dget33.f +++ b/TESTING/EIG/dget33.f @@ -73,6 +73,7 @@ * * ===================================================================== SUBROUTINE DGET33( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget34.f b/TESTING/EIG/dget34.f index cfc9f3aabc..6d8a40e220 100644 --- a/TESTING/EIG/dget34.f +++ b/TESTING/EIG/dget34.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE DGET34( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget35.f b/TESTING/EIG/dget35.f index 4f1d4ea718..241ce43804 100644 --- a/TESTING/EIG/dget35.f +++ b/TESTING/EIG/dget35.f @@ -75,6 +75,7 @@ * * ===================================================================== SUBROUTINE DGET35( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget36.f b/TESTING/EIG/dget36.f index 8725ae2e40..c79949ae78 100644 --- a/TESTING/EIG/dget36.f +++ b/TESTING/EIG/dget36.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE DGET36( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget37.f b/TESTING/EIG/dget37.f index 552aa5323d..2eb80ea726 100644 --- a/TESTING/EIG/dget37.f +++ b/TESTING/EIG/dget37.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE DGET37( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget38.f b/TESTING/EIG/dget38.f index 7cc910039e..f81d601324 100644 --- a/TESTING/EIG/dget38.f +++ b/TESTING/EIG/dget38.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE DGET38( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget39.f b/TESTING/EIG/dget39.f index 62137402ce..0dc3977862 100644 --- a/TESTING/EIG/dget39.f +++ b/TESTING/EIG/dget39.f @@ -100,6 +100,7 @@ * * ===================================================================== SUBROUTINE DGET39( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget40.f b/TESTING/EIG/dget40.f index 0c3926022a..f0b6cacd0f 100644 --- a/TESTING/EIG/dget40.f +++ b/TESTING/EIG/dget40.f @@ -82,6 +82,7 @@ * * ===================================================================== SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget51.f b/TESTING/EIG/dget51.f index 27a4030161..4a4433e248 100644 --- a/TESTING/EIG/dget51.f +++ b/TESTING/EIG/dget51.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE DGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget52.f b/TESTING/EIG/dget52.f index b662bb6945..52945a252e 100644 --- a/TESTING/EIG/dget52.f +++ b/TESTING/EIG/dget52.f @@ -196,6 +196,7 @@ * ===================================================================== SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, $ ALPHAI, BETA, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget53.f b/TESTING/EIG/dget53.f index ca0e830a78..b6d526f405 100644 --- a/TESTING/EIG/dget53.f +++ b/TESTING/EIG/dget53.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE DGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dget54.f b/TESTING/EIG/dget54.f index 5ea5933102..c4f49b7158 100644 --- a/TESTING/EIG/dget54.f +++ b/TESTING/EIG/dget54.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE DGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dglmts.f b/TESTING/EIG/dglmts.f index 0286a757cd..d2d24fea35 100644 --- a/TESTING/EIG/dglmts.f +++ b/TESTING/EIG/dglmts.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE DGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, $ WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dgqrts.f b/TESTING/EIG/dgqrts.f index 4ea8a0ec94..8b26736265 100644 --- a/TESTING/EIG/dgqrts.f +++ b/TESTING/EIG/dgqrts.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE DGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dgrqts.f b/TESTING/EIG/dgrqts.f index c69aeee230..10ea0e5f69 100644 --- a/TESTING/EIG/dgrqts.f +++ b/TESTING/EIG/dgrqts.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE DGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dgsvts3.f b/TESTING/EIG/dgsvts3.f index 8a0ebac03d..47fc3465cd 100644 --- a/TESTING/EIG/dgsvts3.f +++ b/TESTING/EIG/dgsvts3.f @@ -207,6 +207,7 @@ SUBROUTINE DGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dhst01.f b/TESTING/EIG/dhst01.f index 1d87fc206d..26aa14b263 100644 --- a/TESTING/EIG/dhst01.f +++ b/TESTING/EIG/dhst01.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE DHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlafts.f b/TESTING/EIG/dlafts.f index 64a0bfc52f..586ed52ece 100644 --- a/TESTING/EIG/dlafts.f +++ b/TESTING/EIG/dlafts.f @@ -96,6 +96,7 @@ * ===================================================================== SUBROUTINE DLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, $ THRESH, IOUNIT, IE ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlahd2.f b/TESTING/EIG/dlahd2.f index cccbd2537c..1e0dd71ba8 100644 --- a/TESTING/EIG/dlahd2.f +++ b/TESTING/EIG/dlahd2.f @@ -62,6 +62,7 @@ * * ===================================================================== SUBROUTINE DLAHD2( IOUNIT, PATH ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlarfy.f b/TESTING/EIG/dlarfy.f index dc0e328e79..7761fa4fa5 100644 --- a/TESTING/EIG/dlarfy.f +++ b/TESTING/EIG/dlarfy.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlarhs.f b/TESTING/EIG/dlarhs.f index bc048bbcfe..7ef614dff4 100644 --- a/TESTING/EIG/dlarhs.f +++ b/TESTING/EIG/dlarhs.f @@ -202,6 +202,7 @@ * ===================================================================== SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlasum.f b/TESTING/EIG/dlasum.f index d5b8717b48..4523b42efa 100644 --- a/TESTING/EIG/dlasum.f +++ b/TESTING/EIG/dlasum.f @@ -40,6 +40,7 @@ * * ===================================================================== SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlatb9.f b/TESTING/EIG/dlatb9.f index 87c0aacbf8..22be069fe9 100644 --- a/TESTING/EIG/dlatb9.f +++ b/TESTING/EIG/dlatb9.f @@ -167,6 +167,7 @@ SUBROUTINE DLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, KLB, KUB, $ ANORM, BNORM, MODEA, MODEB, CNDNMA, CNDNMB, $ DISTA, DISTB ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlatm4.f b/TESTING/EIG/dlatm4.f index 266c10ff18..4a028e5a81 100644 --- a/TESTING/EIG/dlatm4.f +++ b/TESTING/EIG/dlatm4.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE DLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlctes.f b/TESTING/EIG/dlctes.f index 039dfb2aac..4317b076a2 100644 --- a/TESTING/EIG/dlctes.f +++ b/TESTING/EIG/dlctes.f @@ -65,6 +65,7 @@ * * ===================================================================== LOGICAL FUNCTION DLCTES( ZR, ZI, D ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlctsx.f b/TESTING/EIG/dlctsx.f index 878262070b..b49f3cad46 100644 --- a/TESTING/EIG/dlctsx.f +++ b/TESTING/EIG/dlctsx.f @@ -62,6 +62,7 @@ * * ===================================================================== LOGICAL FUNCTION DLCTSX( AR, AI, BETA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dlsets.f b/TESTING/EIG/dlsets.f index 3616183a52..afb46a7276 100644 --- a/TESTING/EIG/dlsets.f +++ b/TESTING/EIG/dlsets.f @@ -148,6 +148,7 @@ * ===================================================================== SUBROUTINE DLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, $ X, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dort01.f b/TESTING/EIG/dort01.f index eb1d7a7ec2..19865a6857 100644 --- a/TESTING/EIG/dort01.f +++ b/TESTING/EIG/dort01.f @@ -113,6 +113,7 @@ * * ===================================================================== SUBROUTINE DORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dort03.f b/TESTING/EIG/dort03.f index a7ce1588ea..ae3c3090bf 100644 --- a/TESTING/EIG/dort03.f +++ b/TESTING/EIG/dort03.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE DORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dsbt21.f b/TESTING/EIG/dsbt21.f index 33a0c807b3..31b131f687 100644 --- a/TESTING/EIG/dsbt21.f +++ b/TESTING/EIG/dsbt21.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE DSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dsgt01.f b/TESTING/EIG/dsgt01.f index db76456c6b..2f4fd8d8eb 100644 --- a/TESTING/EIG/dsgt01.f +++ b/TESTING/EIG/dsgt01.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dslect.f b/TESTING/EIG/dslect.f index e2ef8df887..e74998d011 100644 --- a/TESTING/EIG/dslect.f +++ b/TESTING/EIG/dslect.f @@ -59,6 +59,7 @@ * * ===================================================================== LOGICAL FUNCTION DSLECT( ZR, ZI ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dspt21.f b/TESTING/EIG/dspt21.f index 7fba320f4d..3d97af27c0 100644 --- a/TESTING/EIG/dspt21.f +++ b/TESTING/EIG/dspt21.f @@ -218,6 +218,7 @@ * ===================================================================== SUBROUTINE DSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dstech.f b/TESTING/EIG/dstech.f index 00a1406ea6..15487a824a 100644 --- a/TESTING/EIG/dstech.f +++ b/TESTING/EIG/dstech.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE DSTECH( N, A, B, EIG, TOL, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dstect.f b/TESTING/EIG/dstect.f index d23f8dc4ba..32f0d9eafe 100644 --- a/TESTING/EIG/dstect.f +++ b/TESTING/EIG/dstect.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE DSTECT( N, A, B, SHIFT, NUM ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dstt21.f b/TESTING/EIG/dstt21.f index 6eca6e6b7a..4fb78c3985 100644 --- a/TESTING/EIG/dstt21.f +++ b/TESTING/EIG/dstt21.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE DSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dstt22.f b/TESTING/EIG/dstt22.f index fc68590cf2..4521e44845 100644 --- a/TESTING/EIG/dstt22.f +++ b/TESTING/EIG/dstt22.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE DSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dsvdch.f b/TESTING/EIG/dsvdch.f index 58cfb5cb69..db8b7eba07 100644 --- a/TESTING/EIG/dsvdch.f +++ b/TESTING/EIG/dsvdch.f @@ -94,6 +94,7 @@ * * ===================================================================== SUBROUTINE DSVDCH( N, S, E, SVD, TOL, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dsvdct.f b/TESTING/EIG/dsvdct.f index 6f87c5712c..44bf7a1c4e 100644 --- a/TESTING/EIG/dsvdct.f +++ b/TESTING/EIG/dsvdct.f @@ -84,6 +84,7 @@ * * ===================================================================== SUBROUTINE DSVDCT( N, S, E, SHIFT, NUM ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dsxt1.f b/TESTING/EIG/dsxt1.f index 97b323ca0b..3826e02c08 100644 --- a/TESTING/EIG/dsxt1.f +++ b/TESTING/EIG/dsxt1.f @@ -103,6 +103,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DSXT1( IJOB, D1, N1, D2, N2, ABSTOL, $ ULP, UNFL ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dsyt21.f b/TESTING/EIG/dsyt21.f index 86c506902d..9986323420 100644 --- a/TESTING/EIG/dsyt21.f +++ b/TESTING/EIG/dsyt21.f @@ -204,6 +204,7 @@ * ===================================================================== SUBROUTINE DSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/dsyt22.f b/TESTING/EIG/dsyt22.f index 5a98f90950..c1b19486a0 100644 --- a/TESTING/EIG/dsyt22.f +++ b/TESTING/EIG/dsyt22.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE DSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ilaenv.f b/TESTING/EIG/ilaenv.f index 2b6c6f0912..bbe3c88b2b 100644 --- a/TESTING/EIG/ilaenv.f +++ b/TESTING/EIG/ilaenv.f @@ -150,6 +150,7 @@ * ===================================================================== INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -250,6 +251,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, END INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, $ N3, N4 ) + IMPLICIT NONE * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS INTEGER ISPEC, N1, N2, N3, N4 @@ -299,6 +301,7 @@ INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, * END INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) + IMPLICIT NONE * INTEGER INMIN, INWIN, INIBL, ISHFTS, IACC22 PARAMETER ( INMIN = 12, INWIN = 13, INIBL = 14, diff --git a/TESTING/EIG/sbdt01.f b/TESTING/EIG/sbdt01.f index fdc30a51ea..90c71a1d88 100644 --- a/TESTING/EIG/sbdt01.f +++ b/TESTING/EIG/sbdt01.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sbdt02.f b/TESTING/EIG/sbdt02.f index e86863f78b..acd41acc2d 100644 --- a/TESTING/EIG/sbdt02.f +++ b/TESTING/EIG/sbdt02.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE SBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sbdt03.f b/TESTING/EIG/sbdt03.f index 1956325e99..d49737baad 100644 --- a/TESTING/EIG/sbdt03.f +++ b/TESTING/EIG/sbdt03.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE SBDT03( 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, -- diff --git a/TESTING/EIG/sbdt04.f b/TESTING/EIG/sbdt04.f index a97cc28c1b..0111b1a644 100644 --- a/TESTING/EIG/sbdt04.f +++ b/TESTING/EIG/sbdt04.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sbdt05.f b/TESTING/EIG/sbdt05.f index 121c35a90d..b4c91c2cb7 100644 --- a/TESTING/EIG/sbdt05.f +++ b/TESTING/EIG/sbdt05.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE SBDT05( 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, -- diff --git a/TESTING/EIG/schkbb.f b/TESTING/EIG/schkbb.f index a3d48d7373..3d214b04b7 100644 --- a/TESTING/EIG/schkbb.f +++ b/TESTING/EIG/schkbb.f @@ -352,6 +352,7 @@ SUBROUTINE SCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE, $ NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, $ BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, $ LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkbd.f b/TESTING/EIG/schkbd.f index 9c8adc71f1..9fd4f3480a 100644 --- a/TESTING/EIG/schkbd.f +++ b/TESTING/EIG/schkbd.f @@ -490,6 +490,7 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ IWORK, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkbk.f b/TESTING/EIG/schkbk.f index 1824017572..1e4108d1f1 100644 --- a/TESTING/EIG/schkbk.f +++ b/TESTING/EIG/schkbk.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SCHKBK( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkbl.f b/TESTING/EIG/schkbl.f index e0634603b6..ba83564778 100644 --- a/TESTING/EIG/schkbl.f +++ b/TESTING/EIG/schkbl.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE SCHKBL( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkec.f b/TESTING/EIG/schkec.f index 59abb24664..2f92e221ff 100644 --- a/TESTING/EIG/schkec.f +++ b/TESTING/EIG/schkec.f @@ -73,6 +73,7 @@ * * ===================================================================== SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkgg.f b/TESTING/EIG/schkgg.f index f0e5f35854..5736954413 100644 --- a/TESTING/EIG/schkgg.f +++ b/TESTING/EIG/schkgg.f @@ -508,6 +508,7 @@ SUBROUTINE SCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ S2, P1, P2, U, LDU, V, Q, Z, ALPHR1, ALPHI1, $ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, $ WORK, LWORK, LLWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkgk.f b/TESTING/EIG/schkgk.f index d8d98ca960..464d9dbc5e 100644 --- a/TESTING/EIG/schkgk.f +++ b/TESTING/EIG/schkgk.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE SCHKGK( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkgl.f b/TESTING/EIG/schkgl.f index 5ce99d90a3..8bd51ac72a 100644 --- a/TESTING/EIG/schkgl.f +++ b/TESTING/EIG/schkgl.f @@ -50,6 +50,7 @@ * * ===================================================================== SUBROUTINE SCHKGL( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkhs.f b/TESTING/EIG/schkhs.f index f21137f17a..1ac07ac972 100644 --- a/TESTING/EIG/schkhs.f +++ b/TESTING/EIG/schkhs.f @@ -418,6 +418,7 @@ SUBROUTINE SCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR, $ EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK, $ SELECT, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schksb.f b/TESTING/EIG/schksb.f index b93e9e6801..096d57247c 100644 --- a/TESTING/EIG/schksb.f +++ b/TESTING/EIG/schksb.f @@ -290,6 +290,7 @@ SUBROUTINE SCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schksb2stg.f b/TESTING/EIG/schksb2stg.f index d896f82cb9..d9ec6db295 100644 --- a/TESTING/EIG/schksb2stg.f +++ b/TESTING/EIG/schksb2stg.f @@ -329,6 +329,7 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, $ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, $ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkst.f b/TESTING/EIG/schkst.f index aecbdfe932..91b9db668c 100644 --- a/TESTING/EIG/schkst.f +++ b/TESTING/EIG/schkst.f @@ -588,6 +588,7 @@ SUBROUTINE SCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/schkst2stg.f b/TESTING/EIG/schkst2stg.f index 49899a660e..1e65fa2fae 100644 --- a/TESTING/EIG/schkst2stg.f +++ b/TESTING/EIG/schkst2stg.f @@ -609,6 +609,7 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sckglm.f b/TESTING/EIG/sckglm.f index 167cb61de7..c3cea580ee 100644 --- a/TESTING/EIG/sckglm.f +++ b/TESTING/EIG/sckglm.f @@ -164,6 +164,7 @@ SUBROUTINE SCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sckgqr.f b/TESTING/EIG/sckgqr.f index 919879504f..8db203ad9e 100644 --- a/TESTING/EIG/sckgqr.f +++ b/TESTING/EIG/sckgqr.f @@ -207,6 +207,7 @@ SUBROUTINE SCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sckgsv.f b/TESTING/EIG/sckgsv.f index 20838b5ba8..9cd4c4210d 100644 --- a/TESTING/EIG/sckgsv.f +++ b/TESTING/EIG/sckgsv.f @@ -195,6 +195,7 @@ SUBROUTINE SCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/scklse.f b/TESTING/EIG/scklse.f index 123217688e..7979e70fcf 100644 --- a/TESTING/EIG/scklse.f +++ b/TESTING/EIG/scklse.f @@ -164,6 +164,7 @@ SUBROUTINE SCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/scsdts.f b/TESTING/EIG/scsdts.f index 1debe8341d..245b592a5e 100644 --- a/TESTING/EIG/scsdts.f +++ b/TESTING/EIG/scsdts.f @@ -226,6 +226,7 @@ SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrges.f b/TESTING/EIG/sdrges.f index bfeb7560a0..fda8b56447 100644 --- a/TESTING/EIG/sdrges.f +++ b/TESTING/EIG/sdrges.f @@ -400,6 +400,7 @@ SUBROUTINE SDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrges3.f b/TESTING/EIG/sdrges3.f index 3eab1fcb8b..b9abc64fd2 100644 --- a/TESTING/EIG/sdrges3.f +++ b/TESTING/EIG/sdrges3.f @@ -400,6 +400,7 @@ SUBROUTINE SDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrgev.f b/TESTING/EIG/sdrgev.f index db1c1b3e76..24dd20f049 100644 --- a/TESTING/EIG/sdrgev.f +++ b/TESTING/EIG/sdrgev.f @@ -405,6 +405,7 @@ SUBROUTINE SDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrgev3.f b/TESTING/EIG/sdrgev3.f index 9012c615a3..772e47a555 100644 --- a/TESTING/EIG/sdrgev3.f +++ b/TESTING/EIG/sdrgev3.f @@ -405,6 +405,7 @@ SUBROUTINE SDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrgsx.f b/TESTING/EIG/sdrgsx.f index 2015cac1c8..daf118a051 100644 --- a/TESTING/EIG/sdrgsx.f +++ b/TESTING/EIG/sdrgsx.f @@ -356,6 +356,7 @@ SUBROUTINE SDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, $ AI, BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, $ WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrgvx.f b/TESTING/EIG/sdrgvx.f index 91803f60a0..59a0c67cc6 100644 --- a/TESTING/EIG/sdrgvx.f +++ b/TESTING/EIG/sdrgvx.f @@ -298,6 +298,7 @@ SUBROUTINE SDRGVX( NSIZE, THRESH, NIN, NOUT, A, LDA, B, AI, BI, $ ALPHAR, ALPHAI, BETA, VL, VR, ILO, IHI, LSCALE, $ RSCALE, S, STRU, DIF, DIFTRU, WORK, LWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrves.f b/TESTING/EIG/sdrves.f index f82939d7fe..f87b028c27 100644 --- a/TESTING/EIG/sdrves.f +++ b/TESTING/EIG/sdrves.f @@ -385,6 +385,7 @@ SUBROUTINE SDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, $ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrvev.f b/TESTING/EIG/sdrvev.f index f6d233551e..d7131338a4 100644 --- a/TESTING/EIG/sdrvev.f +++ b/TESTING/EIG/sdrvev.f @@ -403,6 +403,7 @@ SUBROUTINE SDRVEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, WR, WI, WR1, WI1, VL, LDVL, $ VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrvsg.f b/TESTING/EIG/sdrvsg.f index 0c82b6f493..de7ce12f7f 100644 --- a/TESTING/EIG/sdrvsg.f +++ b/TESTING/EIG/sdrvsg.f @@ -352,6 +352,7 @@ SUBROUTINE SDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, $ BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrvst.f b/TESTING/EIG/sdrvst.f index 2d02f54edf..22fdf264ea 100644 --- a/TESTING/EIG/sdrvst.f +++ b/TESTING/EIG/sdrvst.f @@ -450,6 +450,7 @@ SUBROUTINE SDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrvst2stg.f b/TESTING/EIG/sdrvst2stg.f index e05ec07491..6fe62b0713 100644 --- a/TESTING/EIG/sdrvst2stg.f +++ b/TESTING/EIG/sdrvst2stg.f @@ -450,6 +450,7 @@ SUBROUTINE SDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrvsx.f b/TESTING/EIG/sdrvsx.f index 003140483c..03406409f5 100644 --- a/TESTING/EIG/sdrvsx.f +++ b/TESTING/EIG/sdrvsx.f @@ -451,6 +451,7 @@ SUBROUTINE SDRVSX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NIUNIT, NOUNIT, A, LDA, H, HT, WR, WI, WRT, $ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, $ LWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sdrvvx.f b/TESTING/EIG/sdrvvx.f index 035b22d590..0d7b8d3809 100644 --- a/TESTING/EIG/sdrvvx.f +++ b/TESTING/EIG/sdrvvx.f @@ -517,6 +517,7 @@ SUBROUTINE SDRVVX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ VL, LDVL, VR, LDVR, LRE, LDLRE, RCONDV, RCNDV1, $ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, $ RESULT, WORK, NWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/serrbd.f b/TESTING/EIG/serrbd.f index 0d0089ebec..c4abad1c2f 100644 --- a/TESTING/EIG/serrbd.f +++ b/TESTING/EIG/serrbd.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRBD( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/serrec.f b/TESTING/EIG/serrec.f index 9a7ceb3627..6c89ed3a1e 100644 --- a/TESTING/EIG/serrec.f +++ b/TESTING/EIG/serrec.f @@ -53,6 +53,7 @@ * * ===================================================================== SUBROUTINE SERREC( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/serred.f b/TESTING/EIG/serred.f index a55097ebad..d6d5f5c61f 100644 --- a/TESTING/EIG/serred.f +++ b/TESTING/EIG/serred.f @@ -67,6 +67,7 @@ * * ===================================================================== SUBROUTINE SERRED( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/serrgg.f b/TESTING/EIG/serrgg.f index 7824f8618d..ed7ce49479 100644 --- a/TESTING/EIG/serrgg.f +++ b/TESTING/EIG/serrgg.f @@ -54,6 +54,7 @@ * * ===================================================================== SUBROUTINE SERRGG( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/serrhs.f b/TESTING/EIG/serrhs.f index 89b7303cd4..d6fa9d318f 100644 --- a/TESTING/EIG/serrhs.f +++ b/TESTING/EIG/serrhs.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRHS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/serrst.f b/TESTING/EIG/serrst.f index 4083463829..471fa35993 100644 --- a/TESTING/EIG/serrst.f +++ b/TESTING/EIG/serrst.f @@ -58,6 +58,7 @@ * * ===================================================================== SUBROUTINE SERRST( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget02.f b/TESTING/EIG/sget02.f index 5cae02bf22..363e6f0b03 100644 --- a/TESTING/EIG/sget02.f +++ b/TESTING/EIG/sget02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget10.f b/TESTING/EIG/sget10.f index cbec05bf68..e8b8d9ea61 100644 --- a/TESTING/EIG/sget10.f +++ b/TESTING/EIG/sget10.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE SGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget22.f b/TESTING/EIG/sget22.f index ddfc2592f1..1517a5265b 100644 --- a/TESTING/EIG/sget22.f +++ b/TESTING/EIG/sget22.f @@ -165,6 +165,7 @@ * ===================================================================== SUBROUTINE SGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, $ WI, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget23.f b/TESTING/EIG/sget23.f index 8275781811..8c3c26f098 100644 --- a/TESTING/EIG/sget23.f +++ b/TESTING/EIG/sget23.f @@ -375,6 +375,7 @@ SUBROUTINE SGET23( COMP, BALANC, JTYPE, THRESH, ISEED, NOUNIT, N, $ LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget24.f b/TESTING/EIG/sget24.f index fef8762552..2ca65a82a6 100644 --- a/TESTING/EIG/sget24.f +++ b/TESTING/EIG/sget24.f @@ -340,6 +340,7 @@ SUBROUTINE SGET24( COMP, JTYPE, THRESH, ISEED, NOUNIT, N, A, LDA, $ H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, $ LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, $ RESULT, WORK, LWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget31.f b/TESTING/EIG/sget31.f index c5ec3ee419..27933beadb 100644 --- a/TESTING/EIG/sget31.f +++ b/TESTING/EIG/sget31.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE SGET31( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget32.f b/TESTING/EIG/sget32.f index 948fb80f27..aae64fc42c 100644 --- a/TESTING/EIG/sget32.f +++ b/TESTING/EIG/sget32.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE SGET32( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget33.f b/TESTING/EIG/sget33.f index a73c423588..70f67ad967 100644 --- a/TESTING/EIG/sget33.f +++ b/TESTING/EIG/sget33.f @@ -73,6 +73,7 @@ * * ===================================================================== SUBROUTINE SGET33( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget34.f b/TESTING/EIG/sget34.f index 21ca3756d8..3d217775a0 100644 --- a/TESTING/EIG/sget34.f +++ b/TESTING/EIG/sget34.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget35.f b/TESTING/EIG/sget35.f index b91677e8e2..1b9fb77415 100644 --- a/TESTING/EIG/sget35.f +++ b/TESTING/EIG/sget35.f @@ -75,6 +75,7 @@ * * ===================================================================== SUBROUTINE SGET35( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget36.f b/TESTING/EIG/sget36.f index 47eae95e41..102a84324a 100644 --- a/TESTING/EIG/sget36.f +++ b/TESTING/EIG/sget36.f @@ -85,6 +85,7 @@ * * ===================================================================== SUBROUTINE SGET36( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget37.f b/TESTING/EIG/sget37.f index 4867e2c255..3a75283261 100644 --- a/TESTING/EIG/sget37.f +++ b/TESTING/EIG/sget37.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE SGET37( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget38.f b/TESTING/EIG/sget38.f index 6cc56866ec..fda8c7c948 100644 --- a/TESTING/EIG/sget38.f +++ b/TESTING/EIG/sget38.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE SGET38( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget39.f b/TESTING/EIG/sget39.f index 4fee5eb004..2ed9894e51 100644 --- a/TESTING/EIG/sget39.f +++ b/TESTING/EIG/sget39.f @@ -100,6 +100,7 @@ * * ===================================================================== SUBROUTINE SGET39( RMAX, LMAX, NINFO, KNT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget40.f b/TESTING/EIG/sget40.f index 15a25fbf1a..355f993afb 100644 --- a/TESTING/EIG/sget40.f +++ b/TESTING/EIG/sget40.f @@ -82,6 +82,7 @@ * * ===================================================================== SUBROUTINE SGET40( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget51.f b/TESTING/EIG/sget51.f index 2067b8c3d9..c60129827b 100644 --- a/TESTING/EIG/sget51.f +++ b/TESTING/EIG/sget51.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE SGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget52.f b/TESTING/EIG/sget52.f index 5bd5e414c2..a286132487 100644 --- a/TESTING/EIG/sget52.f +++ b/TESTING/EIG/sget52.f @@ -196,6 +196,7 @@ * ===================================================================== SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, $ ALPHAI, BETA, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget53.f b/TESTING/EIG/sget53.f index 11decbe82f..932b587b83 100644 --- a/TESTING/EIG/sget53.f +++ b/TESTING/EIG/sget53.f @@ -123,6 +123,7 @@ * * ===================================================================== SUBROUTINE SGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sget54.f b/TESTING/EIG/sget54.f index 8d73a29131..540a909bdc 100644 --- a/TESTING/EIG/sget54.f +++ b/TESTING/EIG/sget54.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE SGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sglmts.f b/TESTING/EIG/sglmts.f index 0859b3e0dc..0add7d0a0c 100644 --- a/TESTING/EIG/sglmts.f +++ b/TESTING/EIG/sglmts.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, $ X, U, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sgqrts.f b/TESTING/EIG/sgqrts.f index eacdc858f0..e292e897b3 100644 --- a/TESTING/EIG/sgqrts.f +++ b/TESTING/EIG/sgqrts.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sgrqts.f b/TESTING/EIG/sgrqts.f index 005adcacc8..b0190c2794 100644 --- a/TESTING/EIG/sgrqts.f +++ b/TESTING/EIG/sgrqts.f @@ -174,6 +174,7 @@ * ===================================================================== SUBROUTINE SGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sgsvts3.f b/TESTING/EIG/sgsvts3.f index b9b87be8c5..9d72861ad8 100644 --- a/TESTING/EIG/sgsvts3.f +++ b/TESTING/EIG/sgsvts3.f @@ -207,6 +207,7 @@ SUBROUTINE SGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/shst01.f b/TESTING/EIG/shst01.f index c18b9ebba5..f0884772ed 100644 --- a/TESTING/EIG/shst01.f +++ b/TESTING/EIG/shst01.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE SHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slafts.f b/TESTING/EIG/slafts.f index 7bbb389d3c..ddf6e3f9f1 100644 --- a/TESTING/EIG/slafts.f +++ b/TESTING/EIG/slafts.f @@ -96,6 +96,7 @@ * ===================================================================== SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, $ THRESH, IOUNIT, IE ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slahd2.f b/TESTING/EIG/slahd2.f index 401c247b7c..03d5f84777 100644 --- a/TESTING/EIG/slahd2.f +++ b/TESTING/EIG/slahd2.f @@ -62,6 +62,7 @@ * * ===================================================================== SUBROUTINE SLAHD2( IOUNIT, PATH ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slarfy.f b/TESTING/EIG/slarfy.f index c2a819fe1f..fc2084779b 100644 --- a/TESTING/EIG/slarfy.f +++ b/TESTING/EIG/slarfy.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slarhs.f b/TESTING/EIG/slarhs.f index bdb74724e8..183c1e8d61 100644 --- a/TESTING/EIG/slarhs.f +++ b/TESTING/EIG/slarhs.f @@ -202,6 +202,7 @@ * ===================================================================== SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slasum.f b/TESTING/EIG/slasum.f index fa1e43388d..0e1f8f60d4 100644 --- a/TESTING/EIG/slasum.f +++ b/TESTING/EIG/slasum.f @@ -38,6 +38,7 @@ * * ===================================================================== SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slatb9.f b/TESTING/EIG/slatb9.f index b68dcda317..9642c8f8e5 100644 --- a/TESTING/EIG/slatb9.f +++ b/TESTING/EIG/slatb9.f @@ -167,6 +167,7 @@ SUBROUTINE SLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, $ KLB, KUB, ANORM, BNORM, MODEA, MODEB, $ CNDNMA, CNDNMB, DISTA, DISTB ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slatm4.f b/TESTING/EIG/slatm4.f index 3c40de70fa..d286f0f8d3 100644 --- a/TESTING/EIG/slatm4.f +++ b/TESTING/EIG/slatm4.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE SLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slctes.f b/TESTING/EIG/slctes.f index d5dec3fef0..b3e10a8730 100644 --- a/TESTING/EIG/slctes.f +++ b/TESTING/EIG/slctes.f @@ -65,6 +65,7 @@ * * ===================================================================== LOGICAL FUNCTION SLCTES( ZR, ZI, D ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slctsx.f b/TESTING/EIG/slctsx.f index d650baed9f..b784e16e16 100644 --- a/TESTING/EIG/slctsx.f +++ b/TESTING/EIG/slctsx.f @@ -62,6 +62,7 @@ * * ===================================================================== LOGICAL FUNCTION SLCTSX( AR, AI, BETA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/slsets.f b/TESTING/EIG/slsets.f index 0fb66decf2..aecad49b91 100644 --- a/TESTING/EIG/slsets.f +++ b/TESTING/EIG/slsets.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, $ D, DF, X, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sort01.f b/TESTING/EIG/sort01.f index c8fb5ff6ec..ca13d6ba3a 100644 --- a/TESTING/EIG/sort01.f +++ b/TESTING/EIG/sort01.f @@ -113,6 +113,7 @@ * * ===================================================================== SUBROUTINE SORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sort03.f b/TESTING/EIG/sort03.f index 3ca35705ac..792c4be9ab 100644 --- a/TESTING/EIG/sort03.f +++ b/TESTING/EIG/sort03.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE SORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ssbt21.f b/TESTING/EIG/ssbt21.f index f4b4fbe0c4..63256ad8ba 100644 --- a/TESTING/EIG/ssbt21.f +++ b/TESTING/EIG/ssbt21.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE SSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ssgt01.f b/TESTING/EIG/ssgt01.f index b606422a61..adebef44d4 100644 --- a/TESTING/EIG/ssgt01.f +++ b/TESTING/EIG/ssgt01.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sslect.f b/TESTING/EIG/sslect.f index 1880f02a6d..10bf84927d 100644 --- a/TESTING/EIG/sslect.f +++ b/TESTING/EIG/sslect.f @@ -59,6 +59,7 @@ * * ===================================================================== LOGICAL FUNCTION SSLECT( ZR, ZI ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sspt21.f b/TESTING/EIG/sspt21.f index 6945f142ed..7330e36e0d 100644 --- a/TESTING/EIG/sspt21.f +++ b/TESTING/EIG/sspt21.f @@ -218,6 +218,7 @@ * ===================================================================== SUBROUTINE SSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sstech.f b/TESTING/EIG/sstech.f index f05e1efa0d..db4545ec7d 100644 --- a/TESTING/EIG/sstech.f +++ b/TESTING/EIG/sstech.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE SSTECH( N, A, B, EIG, TOL, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sstect.f b/TESTING/EIG/sstect.f index 94a2653690..498d6dd2a9 100644 --- a/TESTING/EIG/sstect.f +++ b/TESTING/EIG/sstect.f @@ -79,6 +79,7 @@ * * ===================================================================== SUBROUTINE SSTECT( N, A, B, SHIFT, NUM ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sstt21.f b/TESTING/EIG/sstt21.f index 90984502d7..6aca3061c4 100644 --- a/TESTING/EIG/sstt21.f +++ b/TESTING/EIG/sstt21.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE SSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/sstt22.f b/TESTING/EIG/sstt22.f index f07405fb7b..f6b21da8b3 100644 --- a/TESTING/EIG/sstt22.f +++ b/TESTING/EIG/sstt22.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE SSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ssvdch.f b/TESTING/EIG/ssvdch.f index e85181b14e..4e6bfb249a 100644 --- a/TESTING/EIG/ssvdch.f +++ b/TESTING/EIG/ssvdch.f @@ -94,6 +94,7 @@ * * ===================================================================== SUBROUTINE SSVDCH( N, S, E, SVD, TOL, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ssvdct.f b/TESTING/EIG/ssvdct.f index 9b6aad3152..bfa561bc4b 100644 --- a/TESTING/EIG/ssvdct.f +++ b/TESTING/EIG/ssvdct.f @@ -84,6 +84,7 @@ * * ===================================================================== SUBROUTINE SSVDCT( N, S, E, SHIFT, NUM ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ssxt1.f b/TESTING/EIG/ssxt1.f index 3fa6d6bb8b..5293107b76 100644 --- a/TESTING/EIG/ssxt1.f +++ b/TESTING/EIG/ssxt1.f @@ -103,6 +103,7 @@ * ===================================================================== REAL FUNCTION SSXT1( IJOB, D1, N1, D2, N2, ABSTOL, $ ULP, UNFL ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ssyt21.f b/TESTING/EIG/ssyt21.f index b14fdf67bc..ba3194fc69 100644 --- a/TESTING/EIG/ssyt21.f +++ b/TESTING/EIG/ssyt21.f @@ -204,6 +204,7 @@ * ===================================================================== SUBROUTINE SSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/ssyt22.f b/TESTING/EIG/ssyt22.f index 2319bb2db0..ea88687c34 100644 --- a/TESTING/EIG/ssyt22.f +++ b/TESTING/EIG/ssyt22.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/xerbla.f b/TESTING/EIG/xerbla.f index e5fd237155..6a45740d40 100644 --- a/TESTING/EIG/xerbla.f +++ b/TESTING/EIG/xerbla.f @@ -72,6 +72,7 @@ *> * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/xlaenv.f b/TESTING/EIG/xlaenv.f index 23b6c75673..c030ede9c5 100644 --- a/TESTING/EIG/xlaenv.f +++ b/TESTING/EIG/xlaenv.f @@ -78,6 +78,7 @@ * * ===================================================================== SUBROUTINE XLAENV( ISPEC, NVALUE ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zbdt01.f b/TESTING/EIG/zbdt01.f index afe2fa89a5..3b6804af59 100644 --- a/TESTING/EIG/zbdt01.f +++ b/TESTING/EIG/zbdt01.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE ZBDT01( 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, -- diff --git a/TESTING/EIG/zbdt02.f b/TESTING/EIG/zbdt02.f index f0da37222b..f1ad90780a 100644 --- a/TESTING/EIG/zbdt02.f +++ b/TESTING/EIG/zbdt02.f @@ -117,6 +117,7 @@ * ===================================================================== SUBROUTINE ZBDT02( 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, -- diff --git a/TESTING/EIG/zbdt03.f b/TESTING/EIG/zbdt03.f index 289e555852..6d8c95de1d 100644 --- a/TESTING/EIG/zbdt03.f +++ b/TESTING/EIG/zbdt03.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE ZBDT03( 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, -- diff --git a/TESTING/EIG/zbdt05.f b/TESTING/EIG/zbdt05.f index c6298e7e3b..2a4bf82016 100644 --- a/TESTING/EIG/zbdt05.f +++ b/TESTING/EIG/zbdt05.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE ZBDT05( 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, -- diff --git a/TESTING/EIG/zchkbb.f b/TESTING/EIG/zchkbb.f index b9e165ce87..77ee6acc6b 100644 --- a/TESTING/EIG/zchkbb.f +++ b/TESTING/EIG/zchkbb.f @@ -358,6 +358,7 @@ SUBROUTINE ZCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE, $ NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, $ BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, $ LWORK, RWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkbd.f b/TESTING/EIG/zchkbd.f index 3fe2256fae..9a874b1999 100644 --- a/TESTING/EIG/zchkbd.f +++ b/TESTING/EIG/zchkbd.f @@ -412,6 +412,7 @@ SUBROUTINE ZCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ RWORK, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkbk.f b/TESTING/EIG/zchkbk.f index 206e9c2b96..5596d9621b 100644 --- a/TESTING/EIG/zchkbk.f +++ b/TESTING/EIG/zchkbk.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZCHKBK( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkbl.f b/TESTING/EIG/zchkbl.f index f623bc311e..762a56df9f 100644 --- a/TESTING/EIG/zchkbl.f +++ b/TESTING/EIG/zchkbl.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE ZCHKBL( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkec.f b/TESTING/EIG/zchkec.f index 62a76d3574..a9cbe14ff8 100644 --- a/TESTING/EIG/zchkec.f +++ b/TESTING/EIG/zchkec.f @@ -72,6 +72,7 @@ * * ===================================================================== SUBROUTINE ZCHKEC( THRESH, TSTERR, NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkgg.f b/TESTING/EIG/zchkgg.f index 239fe752ed..5feafc1b1b 100644 --- a/TESTING/EIG/zchkgg.f +++ b/TESTING/EIG/zchkgg.f @@ -500,6 +500,7 @@ SUBROUTINE ZCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ S2, P1, P2, U, LDU, V, Q, Z, ALPHA1, BETA1, $ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, $ RWORK, LLWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkgk.f b/TESTING/EIG/zchkgk.f index 0838411775..cd02b6fe96 100644 --- a/TESTING/EIG/zchkgk.f +++ b/TESTING/EIG/zchkgk.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE ZCHKGK( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkgl.f b/TESTING/EIG/zchkgl.f index 27c8babc97..3acbbb2d6b 100644 --- a/TESTING/EIG/zchkgl.f +++ b/TESTING/EIG/zchkgl.f @@ -50,6 +50,7 @@ * * ===================================================================== SUBROUTINE ZCHKGL( NIN, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkhb.f b/TESTING/EIG/zchkhb.f index 080ce81706..8b79e9d001 100644 --- a/TESTING/EIG/zchkhb.f +++ b/TESTING/EIG/zchkhb.f @@ -295,6 +295,7 @@ SUBROUTINE ZCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkhb2stg.f b/TESTING/EIG/zchkhb2stg.f index 798fbdaa01..ba576d36fa 100644 --- a/TESTING/EIG/zchkhb2stg.f +++ b/TESTING/EIG/zchkhb2stg.f @@ -335,6 +335,7 @@ SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, $ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, $ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkhs.f b/TESTING/EIG/zchkhs.f index b08a8ea583..310f72a333 100644 --- a/TESTING/EIG/zchkhs.f +++ b/TESTING/EIG/zchkhs.f @@ -418,6 +418,7 @@ SUBROUTINE ZCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ W3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, $ WORK, NWORK, RWORK, IWORK, SELECT, RESULT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkst.f b/TESTING/EIG/zchkst.f index b77d944388..63b2c2c641 100644 --- a/TESTING/EIG/zchkst.f +++ b/TESTING/EIG/zchkst.f @@ -601,6 +601,7 @@ SUBROUTINE ZCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zchkst2stg.f b/TESTING/EIG/zchkst2stg.f index 3b333ef1c0..c9f0c5f3b8 100644 --- a/TESTING/EIG/zchkst2stg.f +++ b/TESTING/EIG/zchkst2stg.f @@ -622,6 +622,7 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zckglm.f b/TESTING/EIG/zckglm.f index ff8101bb91..ab7791e153 100644 --- a/TESTING/EIG/zckglm.f +++ b/TESTING/EIG/zckglm.f @@ -165,6 +165,7 @@ SUBROUTINE ZCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zckgqr.f b/TESTING/EIG/zckgqr.f index 769d0f8b07..f256c367e3 100644 --- a/TESTING/EIG/zckgqr.f +++ b/TESTING/EIG/zckgqr.f @@ -208,6 +208,7 @@ SUBROUTINE ZCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zckgsv.f b/TESTING/EIG/zckgsv.f index 800aa5edd3..7d73df7e97 100644 --- a/TESTING/EIG/zckgsv.f +++ b/TESTING/EIG/zckgsv.f @@ -195,6 +195,7 @@ SUBROUTINE ZCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zcklse.f b/TESTING/EIG/zcklse.f index 26b0298e3c..7d9d068545 100644 --- a/TESTING/EIG/zcklse.f +++ b/TESTING/EIG/zcklse.f @@ -165,6 +165,7 @@ SUBROUTINE ZCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zcsdts.f b/TESTING/EIG/zcsdts.f index c96cb1613c..45ad1c942f 100644 --- a/TESTING/EIG/zcsdts.f +++ b/TESTING/EIG/zcsdts.f @@ -226,6 +226,7 @@ SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrges.f b/TESTING/EIG/zdrges.f index f677cc85b0..9b4726a16c 100644 --- a/TESTING/EIG/zdrges.f +++ b/TESTING/EIG/zdrges.f @@ -378,6 +378,7 @@ SUBROUTINE ZDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrges3.f b/TESTING/EIG/zdrges3.f index f3d8869590..7dc73fee94 100644 --- a/TESTING/EIG/zdrges3.f +++ b/TESTING/EIG/zdrges3.f @@ -379,6 +379,7 @@ SUBROUTINE ZDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrgev.f b/TESTING/EIG/zdrgev.f index 7adf9ba8f3..66a813d897 100644 --- a/TESTING/EIG/zdrgev.f +++ b/TESTING/EIG/zdrgev.f @@ -396,6 +396,7 @@ SUBROUTINE ZDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, $ RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrgev3.f b/TESTING/EIG/zdrgev3.f index f445913198..4de01513a0 100644 --- a/TESTING/EIG/zdrgev3.f +++ b/TESTING/EIG/zdrgev3.f @@ -396,6 +396,7 @@ SUBROUTINE ZDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, $ RWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrgsx.f b/TESTING/EIG/zdrgsx.f index a486873fa4..c43cc94a6b 100644 --- a/TESTING/EIG/zdrgsx.f +++ b/TESTING/EIG/zdrgsx.f @@ -346,6 +346,7 @@ SUBROUTINE ZDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, $ BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, LWORK, $ RWORK, IWORK, LIWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrgvx.f b/TESTING/EIG/zdrgvx.f index 813151f139..27532a2be4 100644 --- a/TESTING/EIG/zdrgvx.f +++ b/TESTING/EIG/zdrgvx.f @@ -294,6 +294,7 @@ SUBROUTINE ZDRGVX( NSIZE, THRESH, NIN, NOUT, A, LDA, B, AI, BI, $ ALPHA, BETA, VL, VR, ILO, IHI, LSCALE, RSCALE, $ S, DTRU, DIF, DIFTRU, WORK, LWORK, RWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrves.f b/TESTING/EIG/zdrves.f index 1d81e7f336..15aeca16bb 100644 --- a/TESTING/EIG/zdrves.f +++ b/TESTING/EIG/zdrves.f @@ -375,6 +375,7 @@ SUBROUTINE ZDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, $ WORK, NWORK, RWORK, IWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrvev.f b/TESTING/EIG/zdrvev.f index ca410f437f..c6fec57abe 100644 --- a/TESTING/EIG/zdrvev.f +++ b/TESTING/EIG/zdrvev.f @@ -388,6 +388,7 @@ SUBROUTINE ZDRVEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, W, W1, VL, LDVL, VR, LDVR, $ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrvsg.f b/TESTING/EIG/zdrvsg.f index 1796805ea3..c82c494182 100644 --- a/TESTING/EIG/zdrvsg.f +++ b/TESTING/EIG/zdrvsg.f @@ -367,6 +367,7 @@ SUBROUTINE ZDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, $ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, $ RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrvst.f b/TESTING/EIG/zdrvst.f index f838f0af2e..c90dc3049e 100644 --- a/TESTING/EIG/zdrvst.f +++ b/TESTING/EIG/zdrvst.f @@ -335,6 +335,7 @@ SUBROUTINE ZDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrvst2stg.f b/TESTING/EIG/zdrvst2stg.f index 4b989b4606..5dd58c173d 100644 --- a/TESTING/EIG/zdrvst2stg.f +++ b/TESTING/EIG/zdrvst2stg.f @@ -335,6 +335,7 @@ SUBROUTINE ZDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrvsx.f b/TESTING/EIG/zdrvsx.f index 03de455393..4af65a4dd4 100644 --- a/TESTING/EIG/zdrvsx.f +++ b/TESTING/EIG/zdrvsx.f @@ -432,6 +432,7 @@ SUBROUTINE ZDRVSX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NIUNIT, NOUNIT, A, LDA, H, HT, W, WT, WTMP, VS, $ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zdrvvx.f b/TESTING/EIG/zdrvvx.f index f5dfa982a7..8bd6dbc5b0 100644 --- a/TESTING/EIG/zdrvvx.f +++ b/TESTING/EIG/zdrvvx.f @@ -493,6 +493,7 @@ SUBROUTINE ZDRVVX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, NWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zerrbd.f b/TESTING/EIG/zerrbd.f index 424e448617..fb74e846c3 100644 --- a/TESTING/EIG/zerrbd.f +++ b/TESTING/EIG/zerrbd.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRBD( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index e1938f57d1..cc3f48b482 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -53,6 +53,7 @@ * * ===================================================================== SUBROUTINE ZERREC( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zerred.f b/TESTING/EIG/zerred.f index f325dcdc3a..eef38dda77 100644 --- a/TESTING/EIG/zerred.f +++ b/TESTING/EIG/zerred.f @@ -67,6 +67,7 @@ * * ===================================================================== SUBROUTINE ZERRED( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zerrgg.f b/TESTING/EIG/zerrgg.f index 26e8df9834..e232133d5a 100644 --- a/TESTING/EIG/zerrgg.f +++ b/TESTING/EIG/zerrgg.f @@ -54,6 +54,7 @@ * * ===================================================================== SUBROUTINE ZERRGG( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zerrhs.f b/TESTING/EIG/zerrhs.f index 3a70a556e6..f9e2e32ddf 100644 --- a/TESTING/EIG/zerrhs.f +++ b/TESTING/EIG/zerrhs.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRHS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zerrst.f b/TESTING/EIG/zerrst.f index 31881c4de1..2a989a232d 100644 --- a/TESTING/EIG/zerrst.f +++ b/TESTING/EIG/zerrst.f @@ -59,6 +59,7 @@ * * ===================================================================== SUBROUTINE ZERRST( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget02.f b/TESTING/EIG/zget02.f index c43704693f..bd808c598a 100644 --- a/TESTING/EIG/zget02.f +++ b/TESTING/EIG/zget02.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget10.f b/TESTING/EIG/zget10.f index 4442fc8ec2..10b4ff5d13 100644 --- a/TESTING/EIG/zget10.f +++ b/TESTING/EIG/zget10.f @@ -96,6 +96,7 @@ * * ===================================================================== SUBROUTINE ZGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget22.f b/TESTING/EIG/zget22.f index 73ed0ac344..f31fe26c41 100644 --- a/TESTING/EIG/zget22.f +++ b/TESTING/EIG/zget22.f @@ -141,6 +141,7 @@ * ===================================================================== SUBROUTINE ZGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, $ WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget23.f b/TESTING/EIG/zget23.f index fc48a5e1b3..7c84d0fd45 100644 --- a/TESTING/EIG/zget23.f +++ b/TESTING/EIG/zget23.f @@ -365,6 +365,7 @@ SUBROUTINE ZGET23( COMP, ISRT, BALANC, JTYPE, THRESH, ISEED, $ LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget24.f b/TESTING/EIG/zget24.f index 670611e91c..69a1589519 100644 --- a/TESTING/EIG/zget24.f +++ b/TESTING/EIG/zget24.f @@ -332,6 +332,7 @@ SUBROUTINE ZGET24( COMP, JTYPE, THRESH, ISEED, NOUNIT, N, A, LDA, $ H, HT, W, WT, WTMP, VS, LDVS, VS1, RCDEIN, $ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, $ LWORK, RWORK, BWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget35.f b/TESTING/EIG/zget35.f index 1fb27892d9..38a2d98ac8 100644 --- a/TESTING/EIG/zget35.f +++ b/TESTING/EIG/zget35.f @@ -81,6 +81,7 @@ * * ===================================================================== SUBROUTINE ZGET35( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget36.f b/TESTING/EIG/zget36.f index c7a79b99f7..9c4fbaf504 100644 --- a/TESTING/EIG/zget36.f +++ b/TESTING/EIG/zget36.f @@ -82,6 +82,7 @@ * * ===================================================================== SUBROUTINE ZGET36( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget37.f b/TESTING/EIG/zget37.f index 065280ae56..7002e4f601 100644 --- a/TESTING/EIG/zget37.f +++ b/TESTING/EIG/zget37.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE ZGET37( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget38.f b/TESTING/EIG/zget38.f index 337569c032..c8385c23bc 100644 --- a/TESTING/EIG/zget38.f +++ b/TESTING/EIG/zget38.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE ZGET38( RMAX, LMAX, NINFO, KNT, NIN ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget51.f b/TESTING/EIG/zget51.f index 7b2ea679a3..c1d1b43664 100644 --- a/TESTING/EIG/zget51.f +++ b/TESTING/EIG/zget51.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE ZGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget52.f b/TESTING/EIG/zget52.f index 1e9ebafe55..d0d2563834 100644 --- a/TESTING/EIG/zget52.f +++ b/TESTING/EIG/zget52.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, $ WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zget54.f b/TESTING/EIG/zget54.f index 6ac622018d..44a256ee84 100644 --- a/TESTING/EIG/zget54.f +++ b/TESTING/EIG/zget54.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE ZGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zglmts.f b/TESTING/EIG/zglmts.f index 63664241d3..54ceca0512 100644 --- a/TESTING/EIG/zglmts.f +++ b/TESTING/EIG/zglmts.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE ZGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, $ WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zgqrts.f b/TESTING/EIG/zgqrts.f index 7d331414ab..434e080058 100644 --- a/TESTING/EIG/zgqrts.f +++ b/TESTING/EIG/zgqrts.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zgrqts.f b/TESTING/EIG/zgrqts.f index f62b23a6f8..368dbdbffe 100644 --- a/TESTING/EIG/zgrqts.f +++ b/TESTING/EIG/zgrqts.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zgsvts3.f b/TESTING/EIG/zgsvts3.f index 729a6f3ce6..66846eec83 100644 --- a/TESTING/EIG/zgsvts3.f +++ b/TESTING/EIG/zgsvts3.f @@ -206,6 +206,7 @@ SUBROUTINE ZGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zhbt21.f b/TESTING/EIG/zhbt21.f index cedf8344fe..ec5057dbdf 100644 --- a/TESTING/EIG/zhbt21.f +++ b/TESTING/EIG/zhbt21.f @@ -149,6 +149,7 @@ * ===================================================================== SUBROUTINE ZHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zhet21.f b/TESTING/EIG/zhet21.f index b927a502fa..ac3bb3b474 100644 --- a/TESTING/EIG/zhet21.f +++ b/TESTING/EIG/zhet21.f @@ -211,6 +211,7 @@ * ===================================================================== SUBROUTINE ZHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zhet22.f b/TESTING/EIG/zhet22.f index 6606d250b6..56fc4dd471 100644 --- a/TESTING/EIG/zhet22.f +++ b/TESTING/EIG/zhet22.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE ZHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zhpt21.f b/TESTING/EIG/zhpt21.f index 70734dafe9..c75fcda4da 100644 --- a/TESTING/EIG/zhpt21.f +++ b/TESTING/EIG/zhpt21.f @@ -225,6 +225,7 @@ * ===================================================================== SUBROUTINE ZHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zhst01.f b/TESTING/EIG/zhst01.f index b6dc27c32e..2172368c97 100644 --- a/TESTING/EIG/zhst01.f +++ b/TESTING/EIG/zhst01.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE ZHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zlarfy.f b/TESTING/EIG/zlarfy.f index e0cb2f9795..af07e7a697 100644 --- a/TESTING/EIG/zlarfy.f +++ b/TESTING/EIG/zlarfy.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zlarhs.f b/TESTING/EIG/zlarhs.f index 1dc003f2e4..2fb9d9758d 100644 --- a/TESTING/EIG/zlarhs.f +++ b/TESTING/EIG/zlarhs.f @@ -205,6 +205,7 @@ * ===================================================================== SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zlatm4.f b/TESTING/EIG/zlatm4.f index 1223993879..b752eaf9f2 100644 --- a/TESTING/EIG/zlatm4.f +++ b/TESTING/EIG/zlatm4.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zlctes.f b/TESTING/EIG/zlctes.f index a7ac8b067f..fe544678e6 100644 --- a/TESTING/EIG/zlctes.f +++ b/TESTING/EIG/zlctes.f @@ -55,6 +55,7 @@ * * ===================================================================== LOGICAL FUNCTION ZLCTES( Z, D ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zlctsx.f b/TESTING/EIG/zlctsx.f index 95d3e13258..ac04b5294b 100644 --- a/TESTING/EIG/zlctsx.f +++ b/TESTING/EIG/zlctsx.f @@ -54,6 +54,7 @@ * * ===================================================================== LOGICAL FUNCTION ZLCTSX( ALPHA, BETA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zlsets.f b/TESTING/EIG/zlsets.f index 8c8ff01b22..ede45d7af7 100644 --- a/TESTING/EIG/zlsets.f +++ b/TESTING/EIG/zlsets.f @@ -148,6 +148,7 @@ * ===================================================================== SUBROUTINE ZLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, $ X, WORK, LWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zsbmv.f b/TESTING/EIG/zsbmv.f index ad8baee592..be44143088 100644 --- a/TESTING/EIG/zsbmv.f +++ b/TESTING/EIG/zsbmv.f @@ -149,6 +149,7 @@ * ===================================================================== SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zsgt01.f b/TESTING/EIG/zsgt01.f index 97e10fcea9..5e885ea826 100644 --- a/TESTING/EIG/zsgt01.f +++ b/TESTING/EIG/zsgt01.f @@ -149,6 +149,7 @@ * ===================================================================== SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zslect.f b/TESTING/EIG/zslect.f index ec6ff4e016..f34ba72b7c 100644 --- a/TESTING/EIG/zslect.f +++ b/TESTING/EIG/zslect.f @@ -53,6 +53,7 @@ * * ===================================================================== LOGICAL FUNCTION ZSLECT( Z ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zstt21.f b/TESTING/EIG/zstt21.f index 4df1f7fe2b..69bbe0b9f7 100644 --- a/TESTING/EIG/zstt21.f +++ b/TESTING/EIG/zstt21.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE ZSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, $ RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zstt22.f b/TESTING/EIG/zstt22.f index b21773b162..8155976ca6 100644 --- a/TESTING/EIG/zstt22.f +++ b/TESTING/EIG/zstt22.f @@ -142,6 +142,7 @@ * ===================================================================== SUBROUTINE ZSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zunt01.f b/TESTING/EIG/zunt01.f index 040c88f449..6405f658ce 100644 --- a/TESTING/EIG/zunt01.f +++ b/TESTING/EIG/zunt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/EIG/zunt03.f b/TESTING/EIG/zunt03.f index 2ab2cde0d4..ca87d48b4e 100644 --- a/TESTING/EIG/zunt03.f +++ b/TESTING/EIG/zunt03.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE ZUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RWORK, RESULT, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/aladhd.f b/TESTING/LIN/aladhd.f index f2a1c39511..6ca0bcb79e 100644 --- a/TESTING/LIN/aladhd.f +++ b/TESTING/LIN/aladhd.f @@ -87,6 +87,7 @@ * * ===================================================================== SUBROUTINE ALADHD( IOUNIT, PATH ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/alaerh.f b/TESTING/LIN/alaerh.f index 6c8a47f1e2..9ce2580ee2 100644 --- a/TESTING/LIN/alaerh.f +++ b/TESTING/LIN/alaerh.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE ALAERH( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, $ N5, IMAT, NFAIL, NERRS, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/alaesm.f b/TESTING/LIN/alaesm.f index 391da22d4f..345ea0d420 100644 --- a/TESTING/LIN/alaesm.f +++ b/TESTING/LIN/alaesm.f @@ -60,6 +60,7 @@ * * ===================================================================== SUBROUTINE ALAESM( PATH, OK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/alahd.f b/TESTING/LIN/alahd.f index c0334b5de9..87e84aee8f 100644 --- a/TESTING/LIN/alahd.f +++ b/TESTING/LIN/alahd.f @@ -104,6 +104,7 @@ * * ===================================================================== SUBROUTINE ALAHD( IOUNIT, PATH ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/alareq.f b/TESTING/LIN/alareq.f index 3f057fa486..e30578c46e 100644 --- a/TESTING/LIN/alareq.f +++ b/TESTING/LIN/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, -- diff --git a/TESTING/LIN/alasum.f b/TESTING/LIN/alasum.f index 432b8df458..4758146b47 100644 --- a/TESTING/LIN/alasum.f +++ b/TESTING/LIN/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, -- diff --git a/TESTING/LIN/alasvm.f b/TESTING/LIN/alasvm.f index d9e5000134..930b779e8b 100644 --- a/TESTING/LIN/alasvm.f +++ b/TESTING/LIN/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, -- diff --git a/TESTING/LIN/cchkeq.f b/TESTING/LIN/cchkeq.f index e2f092fc6c..7e5cfad170 100644 --- a/TESTING/LIN/cchkeq.f +++ b/TESTING/LIN/cchkeq.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE CCHKEQ( THRESH, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkgb.f b/TESTING/LIN/cchkgb.f index 9bb6f29b79..17e4a495e8 100644 --- a/TESTING/LIN/cchkgb.f +++ b/TESTING/LIN/cchkgb.f @@ -188,6 +188,7 @@ SUBROUTINE CCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkge.f b/TESTING/LIN/cchkge.f index 0ee1c85c57..a8bace2b69 100644 --- a/TESTING/LIN/cchkge.f +++ b/TESTING/LIN/cchkge.f @@ -183,6 +183,7 @@ SUBROUTINE CCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkgt.f b/TESTING/LIN/cchkgt.f index b6fd5e4b55..b6e0539a11 100644 --- a/TESTING/LIN/cchkgt.f +++ b/TESTING/LIN/cchkgt.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE CCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkhe.f b/TESTING/LIN/cchkhe.f index 1ff0257579..61f1862f33 100644 --- a/TESTING/LIN/cchkhe.f +++ b/TESTING/LIN/cchkhe.f @@ -168,6 +168,7 @@ SUBROUTINE CCHKHE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkhe_rk.f b/TESTING/LIN/cchkhe_rk.f index 4f9801f88d..a606af3ffb 100644 --- a/TESTING/LIN/cchkhe_rk.f +++ b/TESTING/LIN/cchkhe_rk.f @@ -174,6 +174,7 @@ SUBROUTINE CCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkhe_rook.f b/TESTING/LIN/cchkhe_rook.f index 72a4a1d4d0..34692d2155 100644 --- a/TESTING/LIN/cchkhe_rook.f +++ b/TESTING/LIN/cchkhe_rook.f @@ -169,6 +169,7 @@ SUBROUTINE CCHKHE_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkhp.f b/TESTING/LIN/cchkhp.f index 8d7cf477a2..339dec2887 100644 --- a/TESTING/LIN/cchkhp.f +++ b/TESTING/LIN/cchkhp.f @@ -161,6 +161,7 @@ SUBROUTINE CCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchklq.f b/TESTING/LIN/cchklq.f index 4499de36f7..c400bdf7b4 100644 --- a/TESTING/LIN/cchklq.f +++ b/TESTING/LIN/cchklq.f @@ -193,6 +193,7 @@ SUBROUTINE CCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkpb.f b/TESTING/LIN/cchkpb.f index 4d1ab6f4f9..877e88d6a5 100644 --- a/TESTING/LIN/cchkpb.f +++ b/TESTING/LIN/cchkpb.f @@ -165,6 +165,7 @@ SUBROUTINE CCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkpo.f b/TESTING/LIN/cchkpo.f index 8cf85bf6e4..6c193f1604 100644 --- a/TESTING/LIN/cchkpo.f +++ b/TESTING/LIN/cchkpo.f @@ -165,6 +165,7 @@ SUBROUTINE CCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkpp.f b/TESTING/LIN/cchkpp.f index 8b736e52b7..98c108d9fe 100644 --- a/TESTING/LIN/cchkpp.f +++ b/TESTING/LIN/cchkpp.f @@ -156,6 +156,7 @@ SUBROUTINE CCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkps.f b/TESTING/LIN/cchkps.f index d77ffc0262..c7e364fb93 100644 --- a/TESTING/LIN/cchkps.f +++ b/TESTING/LIN/cchkps.f @@ -151,6 +151,7 @@ SUBROUTINE CCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkpt.f b/TESTING/LIN/cchkpt.f index 7dc367eebf..16ccca2c2c 100644 --- a/TESTING/LIN/cchkpt.f +++ b/TESTING/LIN/cchkpt.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE CCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkq3.f b/TESTING/LIN/cchkq3.f index e065655393..2fe44658ad 100644 --- a/TESTING/LIN/cchkq3.f +++ b/TESTING/LIN/cchkq3.f @@ -155,6 +155,7 @@ SUBROUTINE CCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ THRESH, A, COPYA, S, TAU, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkql.f b/TESTING/LIN/cchkql.f index 34c6ca6a71..8b029263b7 100644 --- a/TESTING/LIN/cchkql.f +++ b/TESTING/LIN/cchkql.f @@ -193,6 +193,7 @@ SUBROUTINE CCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkqr.f b/TESTING/LIN/cchkqr.f index 4fa7413f98..2f3e640005 100644 --- a/TESTING/LIN/cchkqr.f +++ b/TESTING/LIN/cchkqr.f @@ -198,6 +198,7 @@ SUBROUTINE CCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f index 2511f8b56b..a926380d4c 100644 --- a/TESTING/LIN/cchkrfp.f +++ b/TESTING/LIN/cchkrfp.f @@ -56,6 +56,7 @@ * * ===================================================================== PROGRAM CCHKRFP + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchkrq.f b/TESTING/LIN/cchkrq.f index 48050c51f9..4d77d192fe 100644 --- a/TESTING/LIN/cchkrq.f +++ b/TESTING/LIN/cchkrq.f @@ -198,6 +198,7 @@ SUBROUTINE CCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchksp.f b/TESTING/LIN/cchksp.f index 584cf426cc..7c0a44c78a 100644 --- a/TESTING/LIN/cchksp.f +++ b/TESTING/LIN/cchksp.f @@ -161,6 +161,7 @@ SUBROUTINE CCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchksy.f b/TESTING/LIN/cchksy.f index c933f0c967..ce69f88b8f 100644 --- a/TESTING/LIN/cchksy.f +++ b/TESTING/LIN/cchksy.f @@ -168,6 +168,7 @@ SUBROUTINE CCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchksy_rk.f b/TESTING/LIN/cchksy_rk.f index f4954054f4..0f7c43a31c 100644 --- a/TESTING/LIN/cchksy_rk.f +++ b/TESTING/LIN/cchksy_rk.f @@ -174,6 +174,7 @@ SUBROUTINE CCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchksy_rook.f b/TESTING/LIN/cchksy_rook.f index 2031089801..81e7450e0e 100644 --- a/TESTING/LIN/cchksy_rook.f +++ b/TESTING/LIN/cchksy_rook.f @@ -169,6 +169,7 @@ SUBROUTINE CCHKSY_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchktb.f b/TESTING/LIN/cchktb.f index 865b9de329..dae182a745 100644 --- a/TESTING/LIN/cchktb.f +++ b/TESTING/LIN/cchktb.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE CCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchktp.f b/TESTING/LIN/cchktp.f index e14f1062eb..8588d82fa7 100644 --- a/TESTING/LIN/cchktp.f +++ b/TESTING/LIN/cchktp.f @@ -148,6 +148,7 @@ SUBROUTINE CCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchktr.f b/TESTING/LIN/cchktr.f index 2953a2bd53..4957a556db 100644 --- a/TESTING/LIN/cchktr.f +++ b/TESTING/LIN/cchktr.f @@ -160,6 +160,7 @@ SUBROUTINE CCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cchktz.f b/TESTING/LIN/cchktz.f index 192b1c390e..c65c768988 100644 --- a/TESTING/LIN/cchktz.f +++ b/TESTING/LIN/cchktz.f @@ -134,6 +134,7 @@ * ===================================================================== SUBROUTINE CCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvgb.f b/TESTING/LIN/cdrvgb.f index 389725eaed..16d9e11bef 100644 --- a/TESTING/LIN/cdrvgb.f +++ b/TESTING/LIN/cdrvgb.f @@ -169,6 +169,7 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvgbx.f b/TESTING/LIN/cdrvgbx.f index 68ff66e07e..11c1d0c772 100644 --- a/TESTING/LIN/cdrvgbx.f +++ b/TESTING/LIN/cdrvgbx.f @@ -172,6 +172,7 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvge.f b/TESTING/LIN/cdrvge.f index 386bd31086..8a9bcd0453 100644 --- a/TESTING/LIN/cdrvge.f +++ b/TESTING/LIN/cdrvge.f @@ -161,6 +161,7 @@ SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvgex.f b/TESTING/LIN/cdrvgex.f index d989261db3..2cf1611e50 100644 --- a/TESTING/LIN/cdrvgex.f +++ b/TESTING/LIN/cdrvgex.f @@ -164,6 +164,7 @@ SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvgt.f b/TESTING/LIN/cdrvgt.f index acfbbcfa13..e4e07afee7 100644 --- a/TESTING/LIN/cdrvgt.f +++ b/TESTING/LIN/cdrvgt.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvhe.f b/TESTING/LIN/cdrvhe.f index de7851e0f5..43a0c5b31e 100644 --- a/TESTING/LIN/cdrvhe.f +++ b/TESTING/LIN/cdrvhe.f @@ -150,6 +150,7 @@ SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvhe_aa.f b/TESTING/LIN/cdrvhe_aa.f index 70c4a7e312..3a5b965faa 100644 --- a/TESTING/LIN/cdrvhe_aa.f +++ b/TESTING/LIN/cdrvhe_aa.f @@ -150,6 +150,7 @@ SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvhe_aa_2stage.f b/TESTING/LIN/cdrvhe_aa_2stage.f index 83e8a17b0f..cb71a60b36 100644 --- a/TESTING/LIN/cdrvhe_aa_2stage.f +++ b/TESTING/LIN/cdrvhe_aa_2stage.f @@ -152,6 +152,7 @@ SUBROUTINE CDRVHE_AA_2STAGE( $ DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvhe_rk.f b/TESTING/LIN/cdrvhe_rk.f index 72669ccd18..30205622e8 100644 --- a/TESTING/LIN/cdrvhe_rk.f +++ b/TESTING/LIN/cdrvhe_rk.f @@ -155,6 +155,7 @@ SUBROUTINE CDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvhe_rook.f b/TESTING/LIN/cdrvhe_rook.f index d2f3cb7975..f396aed00d 100644 --- a/TESTING/LIN/cdrvhe_rook.f +++ b/TESTING/LIN/cdrvhe_rook.f @@ -150,6 +150,7 @@ SUBROUTINE CDRVHE_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvhex.f b/TESTING/LIN/cdrvhex.f index 940ad416d6..3a7872ee0f 100644 --- a/TESTING/LIN/cdrvhex.f +++ b/TESTING/LIN/cdrvhex.f @@ -154,6 +154,7 @@ SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvhp.f b/TESTING/LIN/cdrvhp.f index 27ff71c5e3..1a1d54c128 100644 --- a/TESTING/LIN/cdrvhp.f +++ b/TESTING/LIN/cdrvhp.f @@ -154,6 +154,7 @@ SUBROUTINE CDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvls.f b/TESTING/LIN/cdrvls.f index ecba705d5f..03b89b4973 100644 --- a/TESTING/LIN/cdrvls.f +++ b/TESTING/LIN/cdrvls.f @@ -190,6 +190,7 @@ SUBROUTINE CDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvpb.f b/TESTING/LIN/cdrvpb.f index 7f8a846280..f72bac1ae7 100644 --- a/TESTING/LIN/cdrvpb.f +++ b/TESTING/LIN/cdrvpb.f @@ -156,6 +156,7 @@ SUBROUTINE CDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvpo.f b/TESTING/LIN/cdrvpo.f index 88cca10dfd..5d8a78d684 100644 --- a/TESTING/LIN/cdrvpo.f +++ b/TESTING/LIN/cdrvpo.f @@ -156,6 +156,7 @@ SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvpox.f b/TESTING/LIN/cdrvpox.f index 4103b543e0..2b234d3048 100644 --- a/TESTING/LIN/cdrvpox.f +++ b/TESTING/LIN/cdrvpox.f @@ -159,6 +159,7 @@ SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvpp.f b/TESTING/LIN/cdrvpp.f index c2fa2eb76c..dc15ec9bc8 100644 --- a/TESTING/LIN/cdrvpp.f +++ b/TESTING/LIN/cdrvpp.f @@ -156,6 +156,7 @@ SUBROUTINE CDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvpt.f b/TESTING/LIN/cdrvpt.f index d0ba29b871..942cabc338 100644 --- a/TESTING/LIN/cdrvpt.f +++ b/TESTING/LIN/cdrvpt.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvrf1.f b/TESTING/LIN/cdrvrf1.f index dec82def2c..428361a556 100644 --- a/TESTING/LIN/cdrvrf1.f +++ b/TESTING/LIN/cdrvrf1.f @@ -92,6 +92,7 @@ * * ===================================================================== SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvrf2.f b/TESTING/LIN/cdrvrf2.f index 774e3880ff..7ae8086bcd 100644 --- a/TESTING/LIN/cdrvrf2.f +++ b/TESTING/LIN/cdrvrf2.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvrf3.f b/TESTING/LIN/cdrvrf3.f index d0edf75e10..b8451b0552 100644 --- a/TESTING/LIN/cdrvrf3.f +++ b/TESTING/LIN/cdrvrf3.f @@ -116,6 +116,7 @@ * ===================================================================== SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + S_WORK_CLANGE, C_WORK_CGEQRF, TAU ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvrf4.f b/TESTING/LIN/cdrvrf4.f index 047c1760bc..d00513dd88 100644 --- a/TESTING/LIN/cdrvrf4.f +++ b/TESTING/LIN/cdrvrf4.f @@ -111,6 +111,7 @@ * ===================================================================== SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, S_WORK_CLANGE ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvrfp.f b/TESTING/LIN/cdrvrfp.f index cffa28d5fb..18cbebf171 100644 --- a/TESTING/LIN/cdrvrfp.f +++ b/TESTING/LIN/cdrvrfp.f @@ -241,6 +241,7 @@ SUBROUTINE CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + C_WORK_CLATMS, C_WORK_CPOT02, + C_WORK_CPOT03, S_WORK_CLATMS, S_WORK_CLANHE, + S_WORK_CPOT01, S_WORK_CPOT02, S_WORK_CPOT03 ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvsp.f b/TESTING/LIN/cdrvsp.f index d7a9748d18..753d324531 100644 --- a/TESTING/LIN/cdrvsp.f +++ b/TESTING/LIN/cdrvsp.f @@ -154,6 +154,7 @@ SUBROUTINE CDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvsy.f b/TESTING/LIN/cdrvsy.f index 27a697e8b0..f5fd5695b9 100644 --- a/TESTING/LIN/cdrvsy.f +++ b/TESTING/LIN/cdrvsy.f @@ -150,6 +150,7 @@ SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvsy_aa.f b/TESTING/LIN/cdrvsy_aa.f index 7814d3ae6d..70291ee7a2 100644 --- a/TESTING/LIN/cdrvsy_aa.f +++ b/TESTING/LIN/cdrvsy_aa.f @@ -150,6 +150,7 @@ SUBROUTINE CDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvsy_aa_2stage.f b/TESTING/LIN/cdrvsy_aa_2stage.f index 3059a4c9c6..f33aef213f 100644 --- a/TESTING/LIN/cdrvsy_aa_2stage.f +++ b/TESTING/LIN/cdrvsy_aa_2stage.f @@ -152,6 +152,7 @@ SUBROUTINE CDRVSY_AA_2STAGE( $ DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvsy_rk.f b/TESTING/LIN/cdrvsy_rk.f index baa9e178d1..844643f956 100644 --- a/TESTING/LIN/cdrvsy_rk.f +++ b/TESTING/LIN/cdrvsy_rk.f @@ -154,6 +154,7 @@ SUBROUTINE CDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvsy_rook.f b/TESTING/LIN/cdrvsy_rook.f index 4dc04c0299..586cee58ff 100644 --- a/TESTING/LIN/cdrvsy_rook.f +++ b/TESTING/LIN/cdrvsy_rook.f @@ -149,6 +149,7 @@ SUBROUTINE CDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cdrvsyx.f b/TESTING/LIN/cdrvsyx.f index 309f7f8702..60a1159680 100644 --- a/TESTING/LIN/cdrvsyx.f +++ b/TESTING/LIN/cdrvsyx.f @@ -154,6 +154,7 @@ SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrge.f b/TESTING/LIN/cerrge.f index 1fcf656f78..5e73d7db19 100644 --- a/TESTING/LIN/cerrge.f +++ b/TESTING/LIN/cerrge.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRGE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrgex.f b/TESTING/LIN/cerrgex.f index 9858faeaa5..c544f27d05 100644 --- a/TESTING/LIN/cerrgex.f +++ b/TESTING/LIN/cerrgex.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE CERRGE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrgt.f b/TESTING/LIN/cerrgt.f index c342133ebe..dc5566cb26 100644 --- a/TESTING/LIN/cerrgt.f +++ b/TESTING/LIN/cerrgt.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRGT( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrhe.f b/TESTING/LIN/cerrhe.f index 1798aed57f..cbec382423 100644 --- a/TESTING/LIN/cerrhe.f +++ b/TESTING/LIN/cerrhe.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRHE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrhex.f b/TESTING/LIN/cerrhex.f index 83b3a92ad9..8cd7d92581 100644 --- a/TESTING/LIN/cerrhex.f +++ b/TESTING/LIN/cerrhex.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE CERRHE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrlq.f b/TESTING/LIN/cerrlq.f index 495adac0da..e9a5b3b533 100644 --- a/TESTING/LIN/cerrlq.f +++ b/TESTING/LIN/cerrlq.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRLQ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrls.f b/TESTING/LIN/cerrls.f index fca9439181..5c0daad020 100644 --- a/TESTING/LIN/cerrls.f +++ b/TESTING/LIN/cerrls.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRLS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrpo.f b/TESTING/LIN/cerrpo.f index 40ebe52201..04e0d250d6 100644 --- a/TESTING/LIN/cerrpo.f +++ b/TESTING/LIN/cerrpo.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRPO( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrpox.f b/TESTING/LIN/cerrpox.f index 2973a1da5b..45d295e4e2 100644 --- a/TESTING/LIN/cerrpox.f +++ b/TESTING/LIN/cerrpox.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE CERRPO( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrps.f b/TESTING/LIN/cerrps.f index 6b19424bc6..4e8685abc3 100644 --- a/TESTING/LIN/cerrps.f +++ b/TESTING/LIN/cerrps.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRPS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrql.f b/TESTING/LIN/cerrql.f index 50f97d4dc9..801a933abf 100644 --- a/TESTING/LIN/cerrql.f +++ b/TESTING/LIN/cerrql.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRQL( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrqp.f b/TESTING/LIN/cerrqp.f index a2188a71ad..64b4cdef99 100644 --- a/TESTING/LIN/cerrqp.f +++ b/TESTING/LIN/cerrqp.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE CERRQP( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrqr.f b/TESTING/LIN/cerrqr.f index 30ce001eb3..313afbcb44 100644 --- a/TESTING/LIN/cerrqr.f +++ b/TESTING/LIN/cerrqr.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRQR( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrrfp.f b/TESTING/LIN/cerrrfp.f index bf56311e39..252109c0fd 100644 --- a/TESTING/LIN/cerrrfp.f +++ b/TESTING/LIN/cerrrfp.f @@ -49,6 +49,7 @@ * * ===================================================================== SUBROUTINE CERRRFP( NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrrq.f b/TESTING/LIN/cerrrq.f index 2c8c5978fa..79c23c2fc3 100644 --- a/TESTING/LIN/cerrrq.f +++ b/TESTING/LIN/cerrrq.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRRQ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrsy.f b/TESTING/LIN/cerrsy.f index 6d284be980..fd84418fbc 100644 --- a/TESTING/LIN/cerrsy.f +++ b/TESTING/LIN/cerrsy.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRSY( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrsyx.f b/TESTING/LIN/cerrsyx.f index c8d269c84e..dc238780cf 100644 --- a/TESTING/LIN/cerrsyx.f +++ b/TESTING/LIN/cerrsyx.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE CERRSY( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrtr.f b/TESTING/LIN/cerrtr.f index ab83357f8e..bda688b1bc 100644 --- a/TESTING/LIN/cerrtr.f +++ b/TESTING/LIN/cerrtr.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE CERRTR( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrtz.f b/TESTING/LIN/cerrtz.f index 4c81279ab4..e2750349d2 100644 --- a/TESTING/LIN/cerrtz.f +++ b/TESTING/LIN/cerrtz.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE CERRTZ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrvx.f b/TESTING/LIN/cerrvx.f index 548d09d0c8..a86f0712ec 100644 --- a/TESTING/LIN/cerrvx.f +++ b/TESTING/LIN/cerrvx.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRVX( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f index 8fdd36f7c3..57c45cf3c7 100644 --- a/TESTING/LIN/cerrvxx.f +++ b/TESTING/LIN/cerrvxx.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE CERRVX( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgbt01.f b/TESTING/LIN/cgbt01.f index 148076e9ac..d079c447af 100644 --- a/TESTING/LIN/cgbt01.f +++ b/TESTING/LIN/cgbt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgbt02.f b/TESTING/LIN/cgbt02.f index 3204a89867..af9b14ee38 100644 --- a/TESTING/LIN/cgbt02.f +++ b/TESTING/LIN/cgbt02.f @@ -145,6 +145,7 @@ * ===================================================================== SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, $ LDB, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgbt05.f b/TESTING/LIN/cgbt05.f index 34b81058fd..ec359d6543 100644 --- a/TESTING/LIN/cgbt05.f +++ b/TESTING/LIN/cgbt05.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE CGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgennd.f b/TESTING/LIN/cgennd.f index 9667d24730..919a0d6cb5 100644 --- a/TESTING/LIN/cgennd.f +++ b/TESTING/LIN/cgennd.f @@ -65,6 +65,7 @@ * * ===================================================================== LOGICAL FUNCTION CGENND (M, N, A, LDA) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgeqls.f b/TESTING/LIN/cgeqls.f index 75351220d4..232b5dd238 100644 --- a/TESTING/LIN/cgeqls.f +++ b/TESTING/LIN/cgeqls.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE CGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgerqs.f b/TESTING/LIN/cgerqs.f index 32cc5a89a5..ac28a3643c 100644 --- a/TESTING/LIN/cgerqs.f +++ b/TESTING/LIN/cgerqs.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE CGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cget01.f b/TESTING/LIN/cget01.f index 8020512c40..40693e3678 100644 --- a/TESTING/LIN/cget01.f +++ b/TESTING/LIN/cget01.f @@ -105,6 +105,7 @@ * ===================================================================== SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cget02.f b/TESTING/LIN/cget02.f index 805ad949ec..cb92c35535 100644 --- a/TESTING/LIN/cget02.f +++ b/TESTING/LIN/cget02.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cget03.f b/TESTING/LIN/cget03.f index b55435a234..f5dd5a0652 100644 --- a/TESTING/LIN/cget03.f +++ b/TESTING/LIN/cget03.f @@ -107,6 +107,7 @@ * ===================================================================== SUBROUTINE CGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cget04.f b/TESTING/LIN/cget04.f index 9aba9910f5..3e7068b853 100644 --- a/TESTING/LIN/cget04.f +++ b/TESTING/LIN/cget04.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cget07.f b/TESTING/LIN/cget07.f index 5e51dca5a7..f3b43a2e94 100644 --- a/TESTING/LIN/cget07.f +++ b/TESTING/LIN/cget07.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE CGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgtt01.f b/TESTING/LIN/cgtt01.f index 64dc5f8fab..7bbac81393 100644 --- a/TESTING/LIN/cgtt01.f +++ b/TESTING/LIN/cgtt01.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE CGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgtt02.f b/TESTING/LIN/cgtt02.f index 8b951acd50..302f9fa337 100644 --- a/TESTING/LIN/cgtt02.f +++ b/TESTING/LIN/cgtt02.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cgtt05.f b/TESTING/LIN/cgtt05.f index 2467cf7c4b..cd80c931c4 100644 --- a/TESTING/LIN/cgtt05.f +++ b/TESTING/LIN/cgtt05.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE CGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/chet01.f b/TESTING/LIN/chet01.f index 4fc12ed654..6b91c67e59 100644 --- a/TESTING/LIN/chet01.f +++ b/TESTING/LIN/chet01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/chet01_3.f b/TESTING/LIN/chet01_3.f index 7e07b57901..e79f40f392 100644 --- a/TESTING/LIN/chet01_3.f +++ b/TESTING/LIN/chet01_3.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE CHET01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/chet01_aa.f b/TESTING/LIN/chet01_aa.f index 196ec7eb31..5b1a1d708c 100644 --- a/TESTING/LIN/chet01_aa.f +++ b/TESTING/LIN/chet01_aa.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/chet01_rook.f b/TESTING/LIN/chet01_rook.f index 30aa976a08..6d22ad9f34 100644 --- a/TESTING/LIN/chet01_rook.f +++ b/TESTING/LIN/chet01_rook.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE CHET01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/chkxer.f b/TESTING/LIN/chkxer.f index d2b2c636a4..5a068e7505 100644 --- a/TESTING/LIN/chkxer.f +++ b/TESTING/LIN/chkxer.f @@ -38,6 +38,7 @@ * * ===================================================================== SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/chpt01.f b/TESTING/LIN/chpt01.f index 9ed6b7f44c..6df37c8986 100644 --- a/TESTING/LIN/chpt01.f +++ b/TESTING/LIN/chpt01.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE CHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clahilb.f b/TESTING/LIN/clahilb.f index ba05c5740b..f868a9424d 100644 --- a/TESTING/LIN/clahilb.f +++ b/TESTING/LIN/clahilb.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/claipd.f b/TESTING/LIN/claipd.f index 958639c0ee..daad94da82 100644 --- a/TESTING/LIN/claipd.f +++ b/TESTING/LIN/claipd.f @@ -80,6 +80,7 @@ * * ===================================================================== SUBROUTINE CLAIPD( N, A, INDA, VINDA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/claptm.f b/TESTING/LIN/claptm.f index 52febe0333..99934931eb 100644 --- a/TESTING/LIN/claptm.f +++ b/TESTING/LIN/claptm.f @@ -126,6 +126,7 @@ * ===================================================================== SUBROUTINE CLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, $ LDB ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clarhs.f b/TESTING/LIN/clarhs.f index 279c98f953..085c5f9fc0 100644 --- a/TESTING/LIN/clarhs.f +++ b/TESTING/LIN/clarhs.f @@ -205,6 +205,7 @@ * ===================================================================== SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clatb4.f b/TESTING/LIN/clatb4.f index 233a8631a8..0893c117cc 100644 --- a/TESTING/LIN/clatb4.f +++ b/TESTING/LIN/clatb4.f @@ -118,6 +118,7 @@ * ===================================================================== SUBROUTINE CLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clatb5.f b/TESTING/LIN/clatb5.f index 91e3a6a1b3..46b593ba4b 100644 --- a/TESTING/LIN/clatb5.f +++ b/TESTING/LIN/clatb5.f @@ -111,6 +111,7 @@ * ===================================================================== SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clatsp.f b/TESTING/LIN/clatsp.f index 79bc010ecd..f66c5974ee 100644 --- a/TESTING/LIN/clatsp.f +++ b/TESTING/LIN/clatsp.f @@ -81,6 +81,7 @@ * * ===================================================================== SUBROUTINE CLATSP( UPLO, N, X, ISEED ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clatsy.f b/TESTING/LIN/clatsy.f index 111c649984..b82b20d179 100644 --- a/TESTING/LIN/clatsy.f +++ b/TESTING/LIN/clatsy.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clattb.f b/TESTING/LIN/clattb.f index cc836b49ba..0385bbe82a 100644 --- a/TESTING/LIN/clattb.f +++ b/TESTING/LIN/clattb.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE CLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clattp.f b/TESTING/LIN/clattp.f index 970d523934..010697033e 100644 --- a/TESTING/LIN/clattp.f +++ b/TESTING/LIN/clattp.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE CLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clattr.f b/TESTING/LIN/clattr.f index a53e7cd933..275c1d702e 100644 --- a/TESTING/LIN/clattr.f +++ b/TESTING/LIN/clattr.f @@ -135,6 +135,7 @@ * ===================================================================== SUBROUTINE CLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clavhe.f b/TESTING/LIN/clavhe.f index 838c321212..c572be9276 100644 --- a/TESTING/LIN/clavhe.f +++ b/TESTING/LIN/clavhe.f @@ -150,6 +150,7 @@ * ===================================================================== SUBROUTINE CLAVHE( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clavhe_rook.f b/TESTING/LIN/clavhe_rook.f index 9d14637ac7..f6899a1709 100644 --- a/TESTING/LIN/clavhe_rook.f +++ b/TESTING/LIN/clavhe_rook.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE CLAVHE_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clavhp.f b/TESTING/LIN/clavhp.f index 5715e87f02..1b493e316f 100644 --- a/TESTING/LIN/clavhp.f +++ b/TESTING/LIN/clavhp.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE CLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clavsp.f b/TESTING/LIN/clavsp.f index f23c4d9e53..8e961957af 100644 --- a/TESTING/LIN/clavsp.f +++ b/TESTING/LIN/clavsp.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE CLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clavsy.f b/TESTING/LIN/clavsy.f index f78fef7959..1df649bef1 100644 --- a/TESTING/LIN/clavsy.f +++ b/TESTING/LIN/clavsy.f @@ -150,6 +150,7 @@ * ===================================================================== SUBROUTINE CLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clavsy_rook.f b/TESTING/LIN/clavsy_rook.f index 604e2de652..1b82a0c296 100644 --- a/TESTING/LIN/clavsy_rook.f +++ b/TESTING/LIN/clavsy_rook.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE CLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clqt01.f b/TESTING/LIN/clqt01.f index b302d3541a..10ff41647c 100644 --- a/TESTING/LIN/clqt01.f +++ b/TESTING/LIN/clqt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clqt02.f b/TESTING/LIN/clqt02.f index 20297f6cc6..7173a2832b 100644 --- a/TESTING/LIN/clqt02.f +++ b/TESTING/LIN/clqt02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE CLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/clqt03.f b/TESTING/LIN/clqt03.f index 56706ab309..ddc731c6ca 100644 --- a/TESTING/LIN/clqt03.f +++ b/TESTING/LIN/clqt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cpbt01.f b/TESTING/LIN/cpbt01.f index 6145a18756..0dbd19f360 100644 --- a/TESTING/LIN/cpbt01.f +++ b/TESTING/LIN/cpbt01.f @@ -117,6 +117,7 @@ * ===================================================================== SUBROUTINE CPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cpbt02.f b/TESTING/LIN/cpbt02.f index d84f38e82a..c03c510c85 100644 --- a/TESTING/LIN/cpbt02.f +++ b/TESTING/LIN/cpbt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cpbt05.f b/TESTING/LIN/cpbt05.f index 6e1a7b119a..8403f94bef 100644 --- a/TESTING/LIN/cpbt05.f +++ b/TESTING/LIN/cpbt05.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE CPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cpot01.f b/TESTING/LIN/cpot01.f index fbcf650862..874f433c5c 100644 --- a/TESTING/LIN/cpot01.f +++ b/TESTING/LIN/cpot01.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cpot02.f b/TESTING/LIN/cpot02.f index 9578e4b0d7..2468cd96dd 100644 --- a/TESTING/LIN/cpot02.f +++ b/TESTING/LIN/cpot02.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE CPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cpot03.f b/TESTING/LIN/cpot03.f index 1f6fc9bc4a..43dbb72980 100644 --- a/TESTING/LIN/cpot03.f +++ b/TESTING/LIN/cpot03.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cpot05.f b/TESTING/LIN/cpot05.f index 436a15dfee..641bca2f5a 100644 --- a/TESTING/LIN/cpot05.f +++ b/TESTING/LIN/cpot05.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE CPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cppt01.f b/TESTING/LIN/cppt01.f index f865ec7794..1deb398052 100644 --- a/TESTING/LIN/cppt01.f +++ b/TESTING/LIN/cppt01.f @@ -92,6 +92,7 @@ * * ===================================================================== SUBROUTINE CPPT01( UPLO, N, A, AFAC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cppt02.f b/TESTING/LIN/cppt02.f index ac5a8dbcaf..16309bb2b8 100644 --- a/TESTING/LIN/cppt02.f +++ b/TESTING/LIN/cppt02.f @@ -120,6 +120,7 @@ * ===================================================================== SUBROUTINE CPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cppt03.f b/TESTING/LIN/cppt03.f index 3383d24378..ea6fcd2af4 100644 --- a/TESTING/LIN/cppt03.f +++ b/TESTING/LIN/cppt03.f @@ -107,6 +107,7 @@ * ===================================================================== SUBROUTINE CPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cppt05.f b/TESTING/LIN/cppt05.f index 685e823e58..af668a9263 100644 --- a/TESTING/LIN/cppt05.f +++ b/TESTING/LIN/cppt05.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE CPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cpst01.f b/TESTING/LIN/cpst01.f index 03d25515da..3dce0baae0 100644 --- a/TESTING/LIN/cpst01.f +++ b/TESTING/LIN/cpst01.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cptt01.f b/TESTING/LIN/cptt01.f index 3b117ad285..41c77e80d4 100644 --- a/TESTING/LIN/cptt01.f +++ b/TESTING/LIN/cptt01.f @@ -89,6 +89,7 @@ * * ===================================================================== SUBROUTINE CPTT01( N, D, E, DF, EF, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cptt02.f b/TESTING/LIN/cptt02.f index ffaef89bd5..6b2a18b67e 100644 --- a/TESTING/LIN/cptt02.f +++ b/TESTING/LIN/cptt02.f @@ -112,6 +112,7 @@ * * ===================================================================== SUBROUTINE CPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cptt05.f b/TESTING/LIN/cptt05.f index 9762c68419..feae0cc3ca 100644 --- a/TESTING/LIN/cptt05.f +++ b/TESTING/LIN/cptt05.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE CPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqlt01.f b/TESTING/LIN/cqlt01.f index 2a8fe6b786..83222f5e17 100644 --- a/TESTING/LIN/cqlt01.f +++ b/TESTING/LIN/cqlt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqlt02.f b/TESTING/LIN/cqlt02.f index 53080cd172..95037f1db6 100644 --- a/TESTING/LIN/cqlt02.f +++ b/TESTING/LIN/cqlt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqlt03.f b/TESTING/LIN/cqlt03.f index fb1bea003f..ef2b1a1331 100644 --- a/TESTING/LIN/cqlt03.f +++ b/TESTING/LIN/cqlt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqpt01.f b/TESTING/LIN/cqpt01.f index 149c5bb7c7..8476bf937e 100644 --- a/TESTING/LIN/cqpt01.f +++ b/TESTING/LIN/cqpt01.f @@ -118,6 +118,7 @@ * ===================================================================== REAL FUNCTION CQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt01.f b/TESTING/LIN/cqrt01.f index 714edc9c7e..fd9289a1bf 100644 --- a/TESTING/LIN/cqrt01.f +++ b/TESTING/LIN/cqrt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt01p.f b/TESTING/LIN/cqrt01p.f index 4f12f28c5d..e498ae1da8 100644 --- a/TESTING/LIN/cqrt01p.f +++ b/TESTING/LIN/cqrt01p.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt02.f b/TESTING/LIN/cqrt02.f index db22496cf1..66f28320ee 100644 --- a/TESTING/LIN/cqrt02.f +++ b/TESTING/LIN/cqrt02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE CQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt03.f b/TESTING/LIN/cqrt03.f index 08bb826c71..25a735719c 100644 --- a/TESTING/LIN/cqrt03.f +++ b/TESTING/LIN/cqrt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt11.f b/TESTING/LIN/cqrt11.f index a520849737..54265930cb 100644 --- a/TESTING/LIN/cqrt11.f +++ b/TESTING/LIN/cqrt11.f @@ -95,6 +95,7 @@ * * ===================================================================== REAL FUNCTION CQRT11( M, K, A, LDA, TAU, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt12.f b/TESTING/LIN/cqrt12.f index 0df2d833b9..77ba06eb28 100644 --- a/TESTING/LIN/cqrt12.f +++ b/TESTING/LIN/cqrt12.f @@ -94,6 +94,7 @@ * ===================================================================== REAL FUNCTION CQRT12( M, N, A, LDA, S, WORK, LWORK, $ RWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt13.f b/TESTING/LIN/cqrt13.f index 1aa586fcea..e87b7eafb3 100644 --- a/TESTING/LIN/cqrt13.f +++ b/TESTING/LIN/cqrt13.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE CQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt14.f b/TESTING/LIN/cqrt14.f index 474af0ed58..0f531f4a84 100644 --- a/TESTING/LIN/cqrt14.f +++ b/TESTING/LIN/cqrt14.f @@ -113,6 +113,7 @@ * ===================================================================== REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt15.f b/TESTING/LIN/cqrt15.f index 7dfe1324d1..0709edf25e 100644 --- a/TESTING/LIN/cqrt15.f +++ b/TESTING/LIN/cqrt15.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE CQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt16.f b/TESTING/LIN/cqrt16.f index a11b319c18..5aa56ffb7f 100644 --- a/TESTING/LIN/cqrt16.f +++ b/TESTING/LIN/cqrt16.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE CQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cqrt17.f b/TESTING/LIN/cqrt17.f index 5cea027097..b5795b36d8 100644 --- a/TESTING/LIN/cqrt17.f +++ b/TESTING/LIN/cqrt17.f @@ -150,6 +150,7 @@ * ===================================================================== REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/crqt01.f b/TESTING/LIN/crqt01.f index 23d0c96b32..4769853820 100644 --- a/TESTING/LIN/crqt01.f +++ b/TESTING/LIN/crqt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/crqt02.f b/TESTING/LIN/crqt02.f index 81c805dc40..8b5ede7abc 100644 --- a/TESTING/LIN/crqt02.f +++ b/TESTING/LIN/crqt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/crqt03.f b/TESTING/LIN/crqt03.f index b3d25d2a8b..4438404110 100644 --- a/TESTING/LIN/crqt03.f +++ b/TESTING/LIN/crqt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE CRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/crzt01.f b/TESTING/LIN/crzt01.f index 94fdcb4a92..55ffa7988f 100644 --- a/TESTING/LIN/crzt01.f +++ b/TESTING/LIN/crzt01.f @@ -95,6 +95,7 @@ * ===================================================================== REAL FUNCTION CRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/crzt02.f b/TESTING/LIN/crzt02.f index 8c807c825a..4bb0b19045 100644 --- a/TESTING/LIN/crzt02.f +++ b/TESTING/LIN/crzt02.f @@ -88,6 +88,7 @@ * ===================================================================== REAL FUNCTION CRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/csbmv.f b/TESTING/LIN/csbmv.f index 4ea747390b..a761220cd6 100644 --- a/TESTING/LIN/csbmv.f +++ b/TESTING/LIN/csbmv.f @@ -149,6 +149,7 @@ * ===================================================================== SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cspt01.f b/TESTING/LIN/cspt01.f index 31c73e9e46..625c1ada72 100644 --- a/TESTING/LIN/cspt01.f +++ b/TESTING/LIN/cspt01.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cspt02.f b/TESTING/LIN/cspt02.f index f4d1fd2683..a7c29aaf46 100644 --- a/TESTING/LIN/cspt02.f +++ b/TESTING/LIN/cspt02.f @@ -120,6 +120,7 @@ * ===================================================================== SUBROUTINE CSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/cspt03.f b/TESTING/LIN/cspt03.f index 46b27df25f..0ac374a38b 100644 --- a/TESTING/LIN/cspt03.f +++ b/TESTING/LIN/cspt03.f @@ -107,6 +107,7 @@ * ===================================================================== SUBROUTINE CSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/csyt01.f b/TESTING/LIN/csyt01.f index cec8f34f96..d5b2af2e2e 100644 --- a/TESTING/LIN/csyt01.f +++ b/TESTING/LIN/csyt01.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE CSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/csyt01_3.f b/TESTING/LIN/csyt01_3.f index 879749a10f..e4f402b923 100644 --- a/TESTING/LIN/csyt01_3.f +++ b/TESTING/LIN/csyt01_3.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE CSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/csyt01_aa.f b/TESTING/LIN/csyt01_aa.f index 6442922f86..48b4173ad0 100644 --- a/TESTING/LIN/csyt01_aa.f +++ b/TESTING/LIN/csyt01_aa.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE CSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/csyt01_rook.f b/TESTING/LIN/csyt01_rook.f index f2ca4541a8..10021f3212 100644 --- a/TESTING/LIN/csyt01_rook.f +++ b/TESTING/LIN/csyt01_rook.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE CSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/csyt02.f b/TESTING/LIN/csyt02.f index a4a3f99b49..e17ead97f9 100644 --- a/TESTING/LIN/csyt02.f +++ b/TESTING/LIN/csyt02.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE CSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/csyt03.f b/TESTING/LIN/csyt03.f index f01e24c86e..3da4e284a6 100644 --- a/TESTING/LIN/csyt03.f +++ b/TESTING/LIN/csyt03.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctbt02.f b/TESTING/LIN/ctbt02.f index bf58aa1da1..75e13671a3 100644 --- a/TESTING/LIN/ctbt02.f +++ b/TESTING/LIN/ctbt02.f @@ -156,6 +156,7 @@ * ===================================================================== SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctbt03.f b/TESTING/LIN/ctbt03.f index 94ae9a77ec..f2198eb52a 100644 --- a/TESTING/LIN/ctbt03.f +++ b/TESTING/LIN/ctbt03.f @@ -174,6 +174,7 @@ SUBROUTINE CTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctbt05.f b/TESTING/LIN/ctbt05.f index b6060564d9..6e50227826 100644 --- a/TESTING/LIN/ctbt05.f +++ b/TESTING/LIN/ctbt05.f @@ -186,6 +186,7 @@ * ===================================================================== SUBROUTINE CTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctbt06.f b/TESTING/LIN/ctbt06.f index c81b854893..b5ce929e6b 100644 --- a/TESTING/LIN/ctbt06.f +++ b/TESTING/LIN/ctbt06.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE CTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ RWORK, RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctpt01.f b/TESTING/LIN/ctpt01.f index 41a1f78f52..f21df71d3e 100644 --- a/TESTING/LIN/ctpt01.f +++ b/TESTING/LIN/ctpt01.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE CTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctpt02.f b/TESTING/LIN/ctpt02.f index 9c32d4206a..8d18a9ffd0 100644 --- a/TESTING/LIN/ctpt02.f +++ b/TESTING/LIN/ctpt02.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctpt03.f b/TESTING/LIN/ctpt03.f index 43ba503104..74c8820714 100644 --- a/TESTING/LIN/ctpt03.f +++ b/TESTING/LIN/ctpt03.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE CTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctpt05.f b/TESTING/LIN/ctpt05.f index 0f1f4ac1c6..281e57747d 100644 --- a/TESTING/LIN/ctpt05.f +++ b/TESTING/LIN/ctpt05.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE CTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctpt06.f b/TESTING/LIN/ctpt06.f index 20e8f81c7c..aaf89a217e 100644 --- a/TESTING/LIN/ctpt06.f +++ b/TESTING/LIN/ctpt06.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE CTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctrt01.f b/TESTING/LIN/ctrt01.f index 30c4f2138d..0d246b56c4 100644 --- a/TESTING/LIN/ctrt01.f +++ b/TESTING/LIN/ctrt01.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE CTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctrt02.f b/TESTING/LIN/ctrt02.f index 72f44af4c7..3168441d3e 100644 --- a/TESTING/LIN/ctrt02.f +++ b/TESTING/LIN/ctrt02.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctrt03.f b/TESTING/LIN/ctrt03.f index b8f44aa053..ab2ecc68fa 100644 --- a/TESTING/LIN/ctrt03.f +++ b/TESTING/LIN/ctrt03.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE CTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctrt05.f b/TESTING/LIN/ctrt05.f index 0edb2d832b..08f1b46e8b 100644 --- a/TESTING/LIN/ctrt05.f +++ b/TESTING/LIN/ctrt05.f @@ -179,6 +179,7 @@ * ===================================================================== SUBROUTINE CTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ctrt06.f b/TESTING/LIN/ctrt06.f index 07a0ec73f8..8c498a23b9 100644 --- a/TESTING/LIN/ctrt06.f +++ b/TESTING/LIN/ctrt06.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE CTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, $ RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkab.f b/TESTING/LIN/dchkab.f index afa73c80ce..25f081302a 100644 --- a/TESTING/LIN/dchkab.f +++ b/TESTING/LIN/dchkab.f @@ -70,6 +70,7 @@ * * ===================================================================== PROGRAM DCHKAB + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkeq.f b/TESTING/LIN/dchkeq.f index 025ddabcf6..52f100d8a8 100644 --- a/TESTING/LIN/dchkeq.f +++ b/TESTING/LIN/dchkeq.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE DCHKEQ( THRESH, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkgb.f b/TESTING/LIN/dchkgb.f index fa8dce5cff..80e2b9b8f9 100644 --- a/TESTING/LIN/dchkgb.f +++ b/TESTING/LIN/dchkgb.f @@ -188,6 +188,7 @@ SUBROUTINE DCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkge.f b/TESTING/LIN/dchkge.f index 467667a42b..2e9c3b97f4 100644 --- a/TESTING/LIN/dchkge.f +++ b/TESTING/LIN/dchkge.f @@ -182,6 +182,7 @@ SUBROUTINE DCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkgt.f b/TESTING/LIN/dchkgt.f index ace78f00c6..0acbc28a49 100644 --- a/TESTING/LIN/dchkgt.f +++ b/TESTING/LIN/dchkgt.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE DCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchklq.f b/TESTING/LIN/dchklq.f index a207e00565..0b5daca999 100644 --- a/TESTING/LIN/dchklq.f +++ b/TESTING/LIN/dchklq.f @@ -193,6 +193,7 @@ SUBROUTINE DCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkpb.f b/TESTING/LIN/dchkpb.f index c5d51230ed..0b93755045 100644 --- a/TESTING/LIN/dchkpb.f +++ b/TESTING/LIN/dchkpb.f @@ -169,6 +169,7 @@ SUBROUTINE DCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkpo.f b/TESTING/LIN/dchkpo.f index e9d5af1863..233b742e6e 100644 --- a/TESTING/LIN/dchkpo.f +++ b/TESTING/LIN/dchkpo.f @@ -169,6 +169,7 @@ SUBROUTINE DCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkpp.f b/TESTING/LIN/dchkpp.f index 3da13227a2..4338db4130 100644 --- a/TESTING/LIN/dchkpp.f +++ b/TESTING/LIN/dchkpp.f @@ -160,6 +160,7 @@ SUBROUTINE DCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkps.f b/TESTING/LIN/dchkps.f index 1e4a9e58de..a4c6b44af5 100644 --- a/TESTING/LIN/dchkps.f +++ b/TESTING/LIN/dchkps.f @@ -151,6 +151,7 @@ SUBROUTINE DCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkpt.f b/TESTING/LIN/dchkpt.f index 2869723f28..c2df8e58e6 100644 --- a/TESTING/LIN/dchkpt.f +++ b/TESTING/LIN/dchkpt.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE DCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkq3.f b/TESTING/LIN/dchkq3.f index 494008fa85..a6ce4c8a88 100644 --- a/TESTING/LIN/dchkq3.f +++ b/TESTING/LIN/dchkq3.f @@ -150,6 +150,7 @@ SUBROUTINE DCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ THRESH, A, COPYA, S, TAU, WORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkql.f b/TESTING/LIN/dchkql.f index 595ca10a61..24837f1c4a 100644 --- a/TESTING/LIN/dchkql.f +++ b/TESTING/LIN/dchkql.f @@ -193,6 +193,7 @@ SUBROUTINE DCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkqr.f b/TESTING/LIN/dchkqr.f index 8188d7a009..013f7676ab 100644 --- a/TESTING/LIN/dchkqr.f +++ b/TESTING/LIN/dchkqr.f @@ -198,6 +198,7 @@ SUBROUTINE DCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkrfp.f b/TESTING/LIN/dchkrfp.f index ebaa482fad..41d269b7e8 100644 --- a/TESTING/LIN/dchkrfp.f +++ b/TESTING/LIN/dchkrfp.f @@ -56,6 +56,7 @@ * * ===================================================================== PROGRAM DCHKRFP + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchkrq.f b/TESTING/LIN/dchkrq.f index 028359d08d..e85ac113b6 100644 --- a/TESTING/LIN/dchkrq.f +++ b/TESTING/LIN/dchkrq.f @@ -198,6 +198,7 @@ SUBROUTINE DCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchksp.f b/TESTING/LIN/dchksp.f index f327ca7ce9..b301ec4fa0 100644 --- a/TESTING/LIN/dchksp.f +++ b/TESTING/LIN/dchksp.f @@ -160,6 +160,7 @@ SUBROUTINE DCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchksy.f b/TESTING/LIN/dchksy.f index 8d127cd3b6..4d9789e742 100644 --- a/TESTING/LIN/dchksy.f +++ b/TESTING/LIN/dchksy.f @@ -167,6 +167,7 @@ SUBROUTINE DCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchksy_rk.f b/TESTING/LIN/dchksy_rk.f index 701cb9ce6a..d3d4134e2c 100644 --- a/TESTING/LIN/dchksy_rk.f +++ b/TESTING/LIN/dchksy_rk.f @@ -173,6 +173,7 @@ SUBROUTINE DCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchksy_rook.f b/TESTING/LIN/dchksy_rook.f index 03b16b78ac..1a3c6dee5d 100644 --- a/TESTING/LIN/dchksy_rook.f +++ b/TESTING/LIN/dchksy_rook.f @@ -168,6 +168,7 @@ SUBROUTINE DCHKSY_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchktb.f b/TESTING/LIN/dchktb.f index 16d0aed32a..c1a182d50d 100644 --- a/TESTING/LIN/dchktb.f +++ b/TESTING/LIN/dchktb.f @@ -152,6 +152,7 @@ SUBROUTINE DCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchktp.f b/TESTING/LIN/dchktp.f index 6db5b13760..bba30f5ca8 100644 --- a/TESTING/LIN/dchktp.f +++ b/TESTING/LIN/dchktp.f @@ -154,6 +154,7 @@ SUBROUTINE DCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchktr.f b/TESTING/LIN/dchktr.f index 57e87326b0..999309c8e8 100644 --- a/TESTING/LIN/dchktr.f +++ b/TESTING/LIN/dchktr.f @@ -164,6 +164,7 @@ SUBROUTINE DCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dchktz.f b/TESTING/LIN/dchktz.f index efb468f002..0e27b9d653 100644 --- a/TESTING/LIN/dchktz.f +++ b/TESTING/LIN/dchktz.f @@ -129,6 +129,7 @@ * ===================================================================== SUBROUTINE DCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f index 5fd32b951f..a56c77a9c3 100644 --- a/TESTING/LIN/ddrvab.f +++ b/TESTING/LIN/ddrvab.f @@ -148,6 +148,7 @@ SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, $ NSVAL, THRESH, NMAX, A, AFAC, B, $ X, WORK, RWORK, SWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvac.f b/TESTING/LIN/ddrvac.f index 3ecbc6a230..ec54f573a7 100644 --- a/TESTING/LIN/ddrvac.f +++ b/TESTING/LIN/ddrvac.f @@ -141,6 +141,7 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, $ A, AFAC, B, X, WORK, $ RWORK, SWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvgb.f b/TESTING/LIN/ddrvgb.f index ad323d5ec0..ee1a48f67d 100644 --- a/TESTING/LIN/ddrvgb.f +++ b/TESTING/LIN/ddrvgb.f @@ -169,6 +169,7 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvgbx.f b/TESTING/LIN/ddrvgbx.f index 8a9fdb645a..e2a5ec15de 100644 --- a/TESTING/LIN/ddrvgbx.f +++ b/TESTING/LIN/ddrvgbx.f @@ -172,6 +172,7 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvge.f b/TESTING/LIN/ddrvge.f index c079135a28..67e82bff87 100644 --- a/TESTING/LIN/ddrvge.f +++ b/TESTING/LIN/ddrvge.f @@ -161,6 +161,7 @@ SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvgex.f b/TESTING/LIN/ddrvgex.f index 53fa3ee748..615e37f9c9 100644 --- a/TESTING/LIN/ddrvgex.f +++ b/TESTING/LIN/ddrvgex.f @@ -164,6 +164,7 @@ SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvgt.f b/TESTING/LIN/ddrvgt.f index b1661e37b7..0d722726d0 100644 --- a/TESTING/LIN/ddrvgt.f +++ b/TESTING/LIN/ddrvgt.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE DDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvls.f b/TESTING/LIN/ddrvls.f index b3d07d67f2..9fb85e0a4f 100644 --- a/TESTING/LIN/ddrvls.f +++ b/TESTING/LIN/ddrvls.f @@ -189,6 +189,7 @@ SUBROUTINE DDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvpb.f b/TESTING/LIN/ddrvpb.f index 6508de866b..83bc5e6b90 100644 --- a/TESTING/LIN/ddrvpb.f +++ b/TESTING/LIN/ddrvpb.f @@ -161,6 +161,7 @@ SUBROUTINE DDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvpo.f b/TESTING/LIN/ddrvpo.f index c5c8076e0a..e095023476 100644 --- a/TESTING/LIN/ddrvpo.f +++ b/TESTING/LIN/ddrvpo.f @@ -161,6 +161,7 @@ SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvpox.f b/TESTING/LIN/ddrvpox.f index f23223ee15..13b1d0b7fc 100644 --- a/TESTING/LIN/ddrvpox.f +++ b/TESTING/LIN/ddrvpox.f @@ -164,6 +164,7 @@ SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvpp.f b/TESTING/LIN/ddrvpp.f index 15de557f93..a0012ba16a 100644 --- a/TESTING/LIN/ddrvpp.f +++ b/TESTING/LIN/ddrvpp.f @@ -164,6 +164,7 @@ SUBROUTINE DDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvpt.f b/TESTING/LIN/ddrvpt.f index c0c2806ec2..4568e2affc 100644 --- a/TESTING/LIN/ddrvpt.f +++ b/TESTING/LIN/ddrvpt.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE DDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvrf1.f b/TESTING/LIN/ddrvrf1.f index 08ab4895f6..cfcc722e53 100644 --- a/TESTING/LIN/ddrvrf1.f +++ b/TESTING/LIN/ddrvrf1.f @@ -91,6 +91,7 @@ * * ===================================================================== SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvrf2.f b/TESTING/LIN/ddrvrf2.f index 6ed60b1364..17a1a9e244 100644 --- a/TESTING/LIN/ddrvrf2.f +++ b/TESTING/LIN/ddrvrf2.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvrf3.f b/TESTING/LIN/ddrvrf3.f index ef823c2e75..d62d82c63d 100644 --- a/TESTING/LIN/ddrvrf3.f +++ b/TESTING/LIN/ddrvrf3.f @@ -115,6 +115,7 @@ * ===================================================================== SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + D_WORK_DLANGE, D_WORK_DGEQRF, TAU ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvrf4.f b/TESTING/LIN/ddrvrf4.f index 260a1bcc62..64dad8f40d 100644 --- a/TESTING/LIN/ddrvrf4.f +++ b/TESTING/LIN/ddrvrf4.f @@ -115,6 +115,7 @@ * ===================================================================== SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, D_WORK_DLANGE ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvrfp.f b/TESTING/LIN/ddrvrfp.f index 0e65969209..acacc53f63 100644 --- a/TESTING/LIN/ddrvrfp.f +++ b/TESTING/LIN/ddrvrfp.f @@ -235,6 +235,7 @@ SUBROUTINE DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + D_WORK_DLATMS, D_WORK_DPOT01, D_TEMP_DPOT02, + D_TEMP_DPOT03, D_WORK_DLANSY, + D_WORK_DPOT02, D_WORK_DPOT03 ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvsp.f b/TESTING/LIN/ddrvsp.f index a62561c66e..f7f9a7c0e8 100644 --- a/TESTING/LIN/ddrvsp.f +++ b/TESTING/LIN/ddrvsp.f @@ -153,6 +153,7 @@ SUBROUTINE DDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvsy.f b/TESTING/LIN/ddrvsy.f index 4eb3fa8e63..25fafda594 100644 --- a/TESTING/LIN/ddrvsy.f +++ b/TESTING/LIN/ddrvsy.f @@ -149,6 +149,7 @@ SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f index 0b8e46c716..206b25ebed 100644 --- a/TESTING/LIN/ddrvsy_aa.f +++ b/TESTING/LIN/ddrvsy_aa.f @@ -149,6 +149,7 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvsy_aa_2stage.f b/TESTING/LIN/ddrvsy_aa_2stage.f index d04106ae30..09dbea6422 100644 --- a/TESTING/LIN/ddrvsy_aa_2stage.f +++ b/TESTING/LIN/ddrvsy_aa_2stage.f @@ -152,6 +152,7 @@ SUBROUTINE DDRVSY_AA_2STAGE( $ DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvsy_rk.f b/TESTING/LIN/ddrvsy_rk.f index 15b2c2b781..6007662bec 100644 --- a/TESTING/LIN/ddrvsy_rk.f +++ b/TESTING/LIN/ddrvsy_rk.f @@ -153,6 +153,7 @@ SUBROUTINE DDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvsy_rook.f b/TESTING/LIN/ddrvsy_rook.f index dcfea94503..9a8fd4172d 100644 --- a/TESTING/LIN/ddrvsy_rook.f +++ b/TESTING/LIN/ddrvsy_rook.f @@ -149,6 +149,7 @@ SUBROUTINE DDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ddrvsyx.f b/TESTING/LIN/ddrvsyx.f index 51781ca982..88eea0923f 100644 --- a/TESTING/LIN/ddrvsyx.f +++ b/TESTING/LIN/ddrvsyx.f @@ -153,6 +153,7 @@ SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrab.f b/TESTING/LIN/derrab.f index 1ab97ef259..a7536832f0 100644 --- a/TESTING/LIN/derrab.f +++ b/TESTING/LIN/derrab.f @@ -44,6 +44,7 @@ * * ===================================================================== SUBROUTINE DERRAB( NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrac.f b/TESTING/LIN/derrac.f index 4db46ca599..224d9f3779 100644 --- a/TESTING/LIN/derrac.f +++ b/TESTING/LIN/derrac.f @@ -44,6 +44,7 @@ * * ===================================================================== SUBROUTINE DERRAC( NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrge.f b/TESTING/LIN/derrge.f index fc80bbbcfd..1ce4a04dec 100644 --- a/TESTING/LIN/derrge.f +++ b/TESTING/LIN/derrge.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRGE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrgex.f b/TESTING/LIN/derrgex.f index c54d82ce84..f2fe9153c0 100644 --- a/TESTING/LIN/derrgex.f +++ b/TESTING/LIN/derrgex.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE DERRGE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrgt.f b/TESTING/LIN/derrgt.f index c4cebf2f88..135058febe 100644 --- a/TESTING/LIN/derrgt.f +++ b/TESTING/LIN/derrgt.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRGT( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrlq.f b/TESTING/LIN/derrlq.f index 76ff4709ed..5377115609 100644 --- a/TESTING/LIN/derrlq.f +++ b/TESTING/LIN/derrlq.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRLQ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrls.f b/TESTING/LIN/derrls.f index 09d745238e..d885aab113 100644 --- a/TESTING/LIN/derrls.f +++ b/TESTING/LIN/derrls.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRLS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrpo.f b/TESTING/LIN/derrpo.f index 8282119ef6..02e9e644ed 100644 --- a/TESTING/LIN/derrpo.f +++ b/TESTING/LIN/derrpo.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRPO( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrpox.f b/TESTING/LIN/derrpox.f index c39cdd02fc..ed3c8f9234 100644 --- a/TESTING/LIN/derrpox.f +++ b/TESTING/LIN/derrpox.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE DERRPO( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrps.f b/TESTING/LIN/derrps.f index 378542c04f..7225f61041 100644 --- a/TESTING/LIN/derrps.f +++ b/TESTING/LIN/derrps.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRPS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrql.f b/TESTING/LIN/derrql.f index b9c50d9ab2..cf833e1cc5 100644 --- a/TESTING/LIN/derrql.f +++ b/TESTING/LIN/derrql.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRQL( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrqp.f b/TESTING/LIN/derrqp.f index 3f29bf60e2..eeb7b4f755 100644 --- a/TESTING/LIN/derrqp.f +++ b/TESTING/LIN/derrqp.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE DERRQP( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrqr.f b/TESTING/LIN/derrqr.f index f7e850b80e..5be9a30e39 100644 --- a/TESTING/LIN/derrqr.f +++ b/TESTING/LIN/derrqr.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRQR( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrrfp.f b/TESTING/LIN/derrrfp.f index d1e07a6efb..6c6a85e3e9 100644 --- a/TESTING/LIN/derrrfp.f +++ b/TESTING/LIN/derrrfp.f @@ -49,6 +49,7 @@ * * ===================================================================== SUBROUTINE DERRRFP( NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrrq.f b/TESTING/LIN/derrrq.f index ae51d4c723..b4269c7a9a 100644 --- a/TESTING/LIN/derrrq.f +++ b/TESTING/LIN/derrrq.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRRQ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrsy.f b/TESTING/LIN/derrsy.f index eb08d4c7bf..1da41d7180 100644 --- a/TESTING/LIN/derrsy.f +++ b/TESTING/LIN/derrsy.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRSY( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrsyx.f b/TESTING/LIN/derrsyx.f index 495302158a..6bd72c34b9 100644 --- a/TESTING/LIN/derrsyx.f +++ b/TESTING/LIN/derrsyx.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE DERRSY( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrtr.f b/TESTING/LIN/derrtr.f index 878d9070cb..c88c1f64d3 100644 --- a/TESTING/LIN/derrtr.f +++ b/TESTING/LIN/derrtr.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRTR( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrtz.f b/TESTING/LIN/derrtz.f index a43ae219c4..13d9c3a242 100644 --- a/TESTING/LIN/derrtz.f +++ b/TESTING/LIN/derrtz.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE DERRTZ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrvx.f b/TESTING/LIN/derrvx.f index f2d29f7a3b..2c8afc9d98 100644 --- a/TESTING/LIN/derrvx.f +++ b/TESTING/LIN/derrvx.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRVX( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f index dd2c5700d7..fda3867d21 100644 --- a/TESTING/LIN/derrvxx.f +++ b/TESTING/LIN/derrvxx.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE DERRVX( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgbt01.f b/TESTING/LIN/dgbt01.f index 6a095876ed..12df3b6735 100644 --- a/TESTING/LIN/dgbt01.f +++ b/TESTING/LIN/dgbt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE DGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgbt02.f b/TESTING/LIN/dgbt02.f index 5877562476..442f5713e8 100644 --- a/TESTING/LIN/dgbt02.f +++ b/TESTING/LIN/dgbt02.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, $ LDB, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgbt05.f b/TESTING/LIN/dgbt05.f index 793e73951d..c47882b8f3 100644 --- a/TESTING/LIN/dgbt05.f +++ b/TESTING/LIN/dgbt05.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE DGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgennd.f b/TESTING/LIN/dgennd.f index 9b3ed260b6..3767f7c1a7 100644 --- a/TESTING/LIN/dgennd.f +++ b/TESTING/LIN/dgennd.f @@ -65,6 +65,7 @@ * * ===================================================================== LOGICAL FUNCTION DGENND (M, N, A, LDA) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgeqls.f b/TESTING/LIN/dgeqls.f index e84df53ecc..749acb1eae 100644 --- a/TESTING/LIN/dgeqls.f +++ b/TESTING/LIN/dgeqls.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE DGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgerqs.f b/TESTING/LIN/dgerqs.f index a893249645..e16cdae2e9 100644 --- a/TESTING/LIN/dgerqs.f +++ b/TESTING/LIN/dgerqs.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE DGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dget01.f b/TESTING/LIN/dget01.f index fad1c2211c..e4304d7d65 100644 --- a/TESTING/LIN/dget01.f +++ b/TESTING/LIN/dget01.f @@ -104,6 +104,7 @@ * ===================================================================== SUBROUTINE DGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dget02.f b/TESTING/LIN/dget02.f index 85899e46d8..1ee42e613c 100644 --- a/TESTING/LIN/dget02.f +++ b/TESTING/LIN/dget02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dget03.f b/TESTING/LIN/dget03.f index 6486ff5d5a..0acf9916a7 100644 --- a/TESTING/LIN/dget03.f +++ b/TESTING/LIN/dget03.f @@ -106,6 +106,7 @@ * ===================================================================== SUBROUTINE DGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dget04.f b/TESTING/LIN/dget04.f index 255f1dd104..91824c6734 100644 --- a/TESTING/LIN/dget04.f +++ b/TESTING/LIN/dget04.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE DGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dget06.f b/TESTING/LIN/dget06.f index 0e72c74e63..1befb613fe 100644 --- a/TESTING/LIN/dget06.f +++ b/TESTING/LIN/dget06.f @@ -52,6 +52,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DGET06( RCOND, RCONDC ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dget07.f b/TESTING/LIN/dget07.f index 99dbe0c009..94278fae77 100644 --- a/TESTING/LIN/dget07.f +++ b/TESTING/LIN/dget07.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE DGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dget08.f b/TESTING/LIN/dget08.f index 5c82d7ba5d..b2bcb768c4 100644 --- a/TESTING/LIN/dget08.f +++ b/TESTING/LIN/dget08.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgtt01.f b/TESTING/LIN/dgtt01.f index 6fd754db20..4bf07606b2 100644 --- a/TESTING/LIN/dgtt01.f +++ b/TESTING/LIN/dgtt01.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE DGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgtt02.f b/TESTING/LIN/dgtt02.f index 4fecff86ec..401bc7b696 100644 --- a/TESTING/LIN/dgtt02.f +++ b/TESTING/LIN/dgtt02.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dgtt05.f b/TESTING/LIN/dgtt05.f index d389ef166c..e634de3c78 100644 --- a/TESTING/LIN/dgtt05.f +++ b/TESTING/LIN/dgtt05.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE DGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlahilb.f b/TESTING/LIN/dlahilb.f index 9590be53d2..4a0838f733 100644 --- a/TESTING/LIN/dlahilb.f +++ b/TESTING/LIN/dlahilb.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlaord.f b/TESTING/LIN/dlaord.f index e5f7e3b502..6e906ccb30 100644 --- a/TESTING/LIN/dlaord.f +++ b/TESTING/LIN/dlaord.f @@ -70,6 +70,7 @@ * * ===================================================================== SUBROUTINE DLAORD( JOB, N, X, INCX ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlaptm.f b/TESTING/LIN/dlaptm.f index 24cbf6ab55..603bfafc1c 100644 --- a/TESTING/LIN/dlaptm.f +++ b/TESTING/LIN/dlaptm.f @@ -113,6 +113,7 @@ * * ===================================================================== SUBROUTINE DLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlarhs.f b/TESTING/LIN/dlarhs.f index 48a1d54a68..2624c76196 100644 --- a/TESTING/LIN/dlarhs.f +++ b/TESTING/LIN/dlarhs.f @@ -202,6 +202,7 @@ * ===================================================================== SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlatb4.f b/TESTING/LIN/dlatb4.f index f3bccd45b2..65745dc4bc 100644 --- a/TESTING/LIN/dlatb4.f +++ b/TESTING/LIN/dlatb4.f @@ -117,6 +117,7 @@ * ===================================================================== SUBROUTINE DLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlatb5.f b/TESTING/LIN/dlatb5.f index 6a8aa0fb88..3e319bb172 100644 --- a/TESTING/LIN/dlatb5.f +++ b/TESTING/LIN/dlatb5.f @@ -111,6 +111,7 @@ * ===================================================================== SUBROUTINE DLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlattb.f b/TESTING/LIN/dlattb.f index 7b854768b0..636e966539 100644 --- a/TESTING/LIN/dlattb.f +++ b/TESTING/LIN/dlattb.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE DLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlattp.f b/TESTING/LIN/dlattp.f index 3aa51dc159..a444a27c88 100644 --- a/TESTING/LIN/dlattp.f +++ b/TESTING/LIN/dlattp.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE DLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlattr.f b/TESTING/LIN/dlattr.f index de9dbbf833..c4fa7aa882 100644 --- a/TESTING/LIN/dlattr.f +++ b/TESTING/LIN/dlattr.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE DLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlavsp.f b/TESTING/LIN/dlavsp.f index 3a5a85e9e0..a58719a68a 100644 --- a/TESTING/LIN/dlavsp.f +++ b/TESTING/LIN/dlavsp.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE DLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlavsy.f b/TESTING/LIN/dlavsy.f index 03e7058719..9dc877331e 100644 --- a/TESTING/LIN/dlavsy.f +++ b/TESTING/LIN/dlavsy.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE DLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlavsy_rook.f b/TESTING/LIN/dlavsy_rook.f index f1994aee92..80a2fd301e 100644 --- a/TESTING/LIN/dlavsy_rook.f +++ b/TESTING/LIN/dlavsy_rook.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE DLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlqt01.f b/TESTING/LIN/dlqt01.f index 1ef7365c47..4687cb340b 100644 --- a/TESTING/LIN/dlqt01.f +++ b/TESTING/LIN/dlqt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE DLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlqt02.f b/TESTING/LIN/dlqt02.f index 672d82bbc0..ac79a15572 100644 --- a/TESTING/LIN/dlqt02.f +++ b/TESTING/LIN/dlqt02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE DLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dlqt03.f b/TESTING/LIN/dlqt03.f index 55ce022ce2..c1fbb7a598 100644 --- a/TESTING/LIN/dlqt03.f +++ b/TESTING/LIN/dlqt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpbt01.f b/TESTING/LIN/dpbt01.f index 3d810dac17..928576fbef 100644 --- a/TESTING/LIN/dpbt01.f +++ b/TESTING/LIN/dpbt01.f @@ -116,6 +116,7 @@ * ===================================================================== SUBROUTINE DPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpbt02.f b/TESTING/LIN/dpbt02.f index 6abda62e06..9e86a119c6 100644 --- a/TESTING/LIN/dpbt02.f +++ b/TESTING/LIN/dpbt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpbt05.f b/TESTING/LIN/dpbt05.f index 47e656be79..169f4059be 100644 --- a/TESTING/LIN/dpbt05.f +++ b/TESTING/LIN/dpbt05.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE DPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpot01.f b/TESTING/LIN/dpot01.f index b48d066101..c6826d4514 100644 --- a/TESTING/LIN/dpot01.f +++ b/TESTING/LIN/dpot01.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpot02.f b/TESTING/LIN/dpot02.f index 6d87b89f55..b198526eaa 100644 --- a/TESTING/LIN/dpot02.f +++ b/TESTING/LIN/dpot02.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE DPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpot03.f b/TESTING/LIN/dpot03.f index 2e506b623b..16ebd7bb0d 100644 --- a/TESTING/LIN/dpot03.f +++ b/TESTING/LIN/dpot03.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE DPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpot05.f b/TESTING/LIN/dpot05.f index 25a195bdda..9280deef96 100644 --- a/TESTING/LIN/dpot05.f +++ b/TESTING/LIN/dpot05.f @@ -161,6 +161,7 @@ * ===================================================================== SUBROUTINE DPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpot06.f b/TESTING/LIN/dpot06.f index 397ed19c20..3b3f0d30e2 100644 --- a/TESTING/LIN/dpot06.f +++ b/TESTING/LIN/dpot06.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE DPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dppt01.f b/TESTING/LIN/dppt01.f index a357d07948..8a8d6c7109 100644 --- a/TESTING/LIN/dppt01.f +++ b/TESTING/LIN/dppt01.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE DPPT01( UPLO, N, A, AFAC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dppt02.f b/TESTING/LIN/dppt02.f index f854f9b189..8bf3112ef4 100644 --- a/TESTING/LIN/dppt02.f +++ b/TESTING/LIN/dppt02.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE DPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dppt03.f b/TESTING/LIN/dppt03.f index 9e24cf6b3c..731d07493b 100644 --- a/TESTING/LIN/dppt03.f +++ b/TESTING/LIN/dppt03.f @@ -107,6 +107,7 @@ * ===================================================================== SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dppt05.f b/TESTING/LIN/dppt05.f index fefe2e9235..e8dbe93a77 100644 --- a/TESTING/LIN/dppt05.f +++ b/TESTING/LIN/dppt05.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE DPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dpst01.f b/TESTING/LIN/dpst01.f index ffe75d8a9e..c3afc99dd4 100644 --- a/TESTING/LIN/dpst01.f +++ b/TESTING/LIN/dpst01.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE DPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dptt01.f b/TESTING/LIN/dptt01.f index 9e9c6bd85d..6e46a2993c 100644 --- a/TESTING/LIN/dptt01.f +++ b/TESTING/LIN/dptt01.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE DPTT01( N, D, E, DF, EF, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dptt02.f b/TESTING/LIN/dptt02.f index e045b87791..c52361a3fd 100644 --- a/TESTING/LIN/dptt02.f +++ b/TESTING/LIN/dptt02.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE DPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dptt05.f b/TESTING/LIN/dptt05.f index 1cd2c4b662..38c2cbf072 100644 --- a/TESTING/LIN/dptt05.f +++ b/TESTING/LIN/dptt05.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE DPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqlt01.f b/TESTING/LIN/dqlt01.f index 5a27350cbc..9d3322860b 100644 --- a/TESTING/LIN/dqlt01.f +++ b/TESTING/LIN/dqlt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE DQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqlt02.f b/TESTING/LIN/dqlt02.f index 7799e08586..b580d2d499 100644 --- a/TESTING/LIN/dqlt02.f +++ b/TESTING/LIN/dqlt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqlt03.f b/TESTING/LIN/dqlt03.f index bed6a00c8b..257572eb01 100644 --- a/TESTING/LIN/dqlt03.f +++ b/TESTING/LIN/dqlt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqpt01.f b/TESTING/LIN/dqpt01.f index af3f5dd364..75b1a872bc 100644 --- a/TESTING/LIN/dqpt01.f +++ b/TESTING/LIN/dqpt01.f @@ -118,6 +118,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt01.f b/TESTING/LIN/dqrt01.f index 2ddd551cef..d124afb4b8 100644 --- a/TESTING/LIN/dqrt01.f +++ b/TESTING/LIN/dqrt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE DQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt01p.f b/TESTING/LIN/dqrt01p.f index 7dc7668ce9..35a989c42c 100644 --- a/TESTING/LIN/dqrt01p.f +++ b/TESTING/LIN/dqrt01p.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE DQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt02.f b/TESTING/LIN/dqrt02.f index d41c7b3241..a1a314d500 100644 --- a/TESTING/LIN/dqrt02.f +++ b/TESTING/LIN/dqrt02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE DQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt03.f b/TESTING/LIN/dqrt03.f index d156faca03..146c96a922 100644 --- a/TESTING/LIN/dqrt03.f +++ b/TESTING/LIN/dqrt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt11.f b/TESTING/LIN/dqrt11.f index 38bbeb8228..18b93351c7 100644 --- a/TESTING/LIN/dqrt11.f +++ b/TESTING/LIN/dqrt11.f @@ -95,6 +95,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT11( M, K, A, LDA, TAU, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt12.f b/TESTING/LIN/dqrt12.f index b8a124c591..d1b1f772b2 100644 --- a/TESTING/LIN/dqrt12.f +++ b/TESTING/LIN/dqrt12.f @@ -86,6 +86,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT12( M, N, A, LDA, S, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt13.f b/TESTING/LIN/dqrt13.f index 359e76a9df..eaeefb3072 100644 --- a/TESTING/LIN/dqrt13.f +++ b/TESTING/LIN/dqrt13.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE DQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt14.f b/TESTING/LIN/dqrt14.f index fdfc96b98d..145a186330 100644 --- a/TESTING/LIN/dqrt14.f +++ b/TESTING/LIN/dqrt14.f @@ -113,6 +113,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt15.f b/TESTING/LIN/dqrt15.f index 1c5f9e47bb..9e7308048f 100644 --- a/TESTING/LIN/dqrt15.f +++ b/TESTING/LIN/dqrt15.f @@ -145,6 +145,7 @@ * ===================================================================== SUBROUTINE DQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt16.f b/TESTING/LIN/dqrt16.f index cb4ba183a6..a714358d7b 100644 --- a/TESTING/LIN/dqrt16.f +++ b/TESTING/LIN/dqrt16.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE DQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dqrt17.f b/TESTING/LIN/dqrt17.f index ccbb3cff42..e9bf2eb484 100644 --- a/TESTING/LIN/dqrt17.f +++ b/TESTING/LIN/dqrt17.f @@ -150,6 +150,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/drqt01.f b/TESTING/LIN/drqt01.f index 936583ccbe..bda8a1b04c 100644 --- a/TESTING/LIN/drqt01.f +++ b/TESTING/LIN/drqt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE DRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/drqt02.f b/TESTING/LIN/drqt02.f index faf639109e..4daea2476b 100644 --- a/TESTING/LIN/drqt02.f +++ b/TESTING/LIN/drqt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/drqt03.f b/TESTING/LIN/drqt03.f index 1ddd767064..aaea64e2e8 100644 --- a/TESTING/LIN/drqt03.f +++ b/TESTING/LIN/drqt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/drzt01.f b/TESTING/LIN/drzt01.f index 7a88a2c20b..110181d0ef 100644 --- a/TESTING/LIN/drzt01.f +++ b/TESTING/LIN/drzt01.f @@ -95,6 +95,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/drzt02.f b/TESTING/LIN/drzt02.f index 5b028f7990..6a28a9b4b2 100644 --- a/TESTING/LIN/drzt02.f +++ b/TESTING/LIN/drzt02.f @@ -88,6 +88,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dspt01.f b/TESTING/LIN/dspt01.f index e71d217ae1..f286478d5f 100644 --- a/TESTING/LIN/dspt01.f +++ b/TESTING/LIN/dspt01.f @@ -107,6 +107,7 @@ * * ===================================================================== SUBROUTINE DSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dsyt01.f b/TESTING/LIN/dsyt01.f index cb918de00e..181f2ba4f5 100644 --- a/TESTING/LIN/dsyt01.f +++ b/TESTING/LIN/dsyt01.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE DSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dsyt01_3.f b/TESTING/LIN/dsyt01_3.f index 060a9caed8..574a5e47cb 100644 --- a/TESTING/LIN/dsyt01_3.f +++ b/TESTING/LIN/dsyt01_3.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE DSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dsyt01_aa.f b/TESTING/LIN/dsyt01_aa.f index 94770532c7..7af9b3c3af 100644 --- a/TESTING/LIN/dsyt01_aa.f +++ b/TESTING/LIN/dsyt01_aa.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dsyt01_rook.f b/TESTING/LIN/dsyt01_rook.f index c7b6bc2aa3..c25e72bb5e 100644 --- a/TESTING/LIN/dsyt01_rook.f +++ b/TESTING/LIN/dsyt01_rook.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE DSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtbt02.f b/TESTING/LIN/dtbt02.f index 347fbcb9c8..1e0e7f5064 100644 --- a/TESTING/LIN/dtbt02.f +++ b/TESTING/LIN/dtbt02.f @@ -151,6 +151,7 @@ * ===================================================================== SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtbt03.f b/TESTING/LIN/dtbt03.f index f3a20e9272..8d7dce49a4 100644 --- a/TESTING/LIN/dtbt03.f +++ b/TESTING/LIN/dtbt03.f @@ -172,6 +172,7 @@ SUBROUTINE DTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtbt05.f b/TESTING/LIN/dtbt05.f index 0b2430d60b..28f53a7939 100644 --- a/TESTING/LIN/dtbt05.f +++ b/TESTING/LIN/dtbt05.f @@ -186,6 +186,7 @@ * ===================================================================== SUBROUTINE DTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtbt06.f b/TESTING/LIN/dtbt06.f index a731a3f290..54ca934e1e 100644 --- a/TESTING/LIN/dtbt06.f +++ b/TESTING/LIN/dtbt06.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE DTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ WORK, RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtplqt.f b/TESTING/LIN/dtplqt.f index 1890c503a9..b621b710dd 100644 --- a/TESTING/LIN/dtplqt.f +++ b/TESTING/LIN/dtplqt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE DTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtpt01.f b/TESTING/LIN/dtpt01.f index 58309b17bd..e2468b56bc 100644 --- a/TESTING/LIN/dtpt01.f +++ b/TESTING/LIN/dtpt01.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE DTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtpt02.f b/TESTING/LIN/dtpt02.f index 8b0b4a73d4..2c05acfa6c 100644 --- a/TESTING/LIN/dtpt02.f +++ b/TESTING/LIN/dtpt02.f @@ -139,6 +139,7 @@ * ===================================================================== SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtpt03.f b/TESTING/LIN/dtpt03.f index 267f8b3e02..5c51cab6d0 100644 --- a/TESTING/LIN/dtpt03.f +++ b/TESTING/LIN/dtpt03.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE DTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtpt05.f b/TESTING/LIN/dtpt05.f index 117acae01d..f82675d467 100644 --- a/TESTING/LIN/dtpt05.f +++ b/TESTING/LIN/dtpt05.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE DTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtpt06.f b/TESTING/LIN/dtpt06.f index d38a1e2cbf..8fec47e1fa 100644 --- a/TESTING/LIN/dtpt06.f +++ b/TESTING/LIN/dtpt06.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE DTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtrt01.f b/TESTING/LIN/dtrt01.f index e5827fe787..81e7c97e34 100644 --- a/TESTING/LIN/dtrt01.f +++ b/TESTING/LIN/dtrt01.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE DTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtrt02.f b/TESTING/LIN/dtrt02.f index 6d22f688ba..80438ab700 100644 --- a/TESTING/LIN/dtrt02.f +++ b/TESTING/LIN/dtrt02.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtrt03.f b/TESTING/LIN/dtrt03.f index 07d0d53d51..b4458f1820 100644 --- a/TESTING/LIN/dtrt03.f +++ b/TESTING/LIN/dtrt03.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE DTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtrt05.f b/TESTING/LIN/dtrt05.f index c03aa5bf9c..d3b31eb723 100644 --- a/TESTING/LIN/dtrt05.f +++ b/TESTING/LIN/dtrt05.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE DTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/dtrt06.f b/TESTING/LIN/dtrt06.f index d178352027..df88cc66df 100644 --- a/TESTING/LIN/dtrt06.f +++ b/TESTING/LIN/dtrt06.f @@ -118,6 +118,7 @@ * ===================================================================== SUBROUTINE DTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, $ RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/icopy.f b/TESTING/LIN/icopy.f index 05bbf11fca..cd8e8aede7 100644 --- a/TESTING/LIN/icopy.f +++ b/TESTING/LIN/icopy.f @@ -72,6 +72,7 @@ * * ===================================================================== SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ilaenv.f b/TESTING/LIN/ilaenv.f index 50c6a4c6c4..fbf5c78c3b 100644 --- a/TESTING/LIN/ilaenv.f +++ b/TESTING/LIN/ilaenv.f @@ -147,6 +147,7 @@ * ===================================================================== INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- @@ -243,6 +244,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, END INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, $ N3, N4 ) + IMPLICIT NONE * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS INTEGER ISPEC, N1, N2, N3, N4 diff --git a/TESTING/LIN/schkeq.f b/TESTING/LIN/schkeq.f index 62898cf7a1..f31673dcd7 100644 --- a/TESTING/LIN/schkeq.f +++ b/TESTING/LIN/schkeq.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE SCHKEQ( THRESH, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkgb.f b/TESTING/LIN/schkgb.f index 9ab8c0e018..5711438d04 100644 --- a/TESTING/LIN/schkgb.f +++ b/TESTING/LIN/schkgb.f @@ -188,6 +188,7 @@ SUBROUTINE SCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkge.f b/TESTING/LIN/schkge.f index 0921f79257..2d8500a4da 100644 --- a/TESTING/LIN/schkge.f +++ b/TESTING/LIN/schkge.f @@ -182,6 +182,7 @@ SUBROUTINE SCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkgt.f b/TESTING/LIN/schkgt.f index 0a538a6140..54367e017b 100644 --- a/TESTING/LIN/schkgt.f +++ b/TESTING/LIN/schkgt.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE SCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schklq.f b/TESTING/LIN/schklq.f index 9335503f96..d8be9862b4 100644 --- a/TESTING/LIN/schklq.f +++ b/TESTING/LIN/schklq.f @@ -193,6 +193,7 @@ SUBROUTINE SCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkpb.f b/TESTING/LIN/schkpb.f index fdad0d6dfd..98e23d8320 100644 --- a/TESTING/LIN/schkpb.f +++ b/TESTING/LIN/schkpb.f @@ -169,6 +169,7 @@ SUBROUTINE SCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkpo.f b/TESTING/LIN/schkpo.f index ccfb9b7b27..d269df4ea5 100644 --- a/TESTING/LIN/schkpo.f +++ b/TESTING/LIN/schkpo.f @@ -169,6 +169,7 @@ SUBROUTINE SCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkpp.f b/TESTING/LIN/schkpp.f index 977c785484..607c6a0577 100644 --- a/TESTING/LIN/schkpp.f +++ b/TESTING/LIN/schkpp.f @@ -160,6 +160,7 @@ SUBROUTINE SCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkps.f b/TESTING/LIN/schkps.f index 7bd70c4525..1801be3dc2 100644 --- a/TESTING/LIN/schkps.f +++ b/TESTING/LIN/schkps.f @@ -151,6 +151,7 @@ SUBROUTINE SCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkpt.f b/TESTING/LIN/schkpt.f index 569a3f01bc..5a356eaf3a 100644 --- a/TESTING/LIN/schkpt.f +++ b/TESTING/LIN/schkpt.f @@ -143,6 +143,7 @@ * ===================================================================== SUBROUTINE SCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkq3.f b/TESTING/LIN/schkq3.f index 209683f48e..99b228d5e9 100644 --- a/TESTING/LIN/schkq3.f +++ b/TESTING/LIN/schkq3.f @@ -150,6 +150,7 @@ SUBROUTINE SCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ THRESH, A, COPYA, S, TAU, WORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkql.f b/TESTING/LIN/schkql.f index b68c9bcb02..20726e188f 100644 --- a/TESTING/LIN/schkql.f +++ b/TESTING/LIN/schkql.f @@ -193,6 +193,7 @@ SUBROUTINE SCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkqr.f b/TESTING/LIN/schkqr.f index f72c8f1eba..49d775c172 100644 --- a/TESTING/LIN/schkqr.f +++ b/TESTING/LIN/schkqr.f @@ -198,6 +198,7 @@ SUBROUTINE SCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f index 6fd3c00abf..ab04f496b8 100644 --- a/TESTING/LIN/schkrfp.f +++ b/TESTING/LIN/schkrfp.f @@ -56,6 +56,7 @@ * * ===================================================================== PROGRAM SCHKRFP + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schkrq.f b/TESTING/LIN/schkrq.f index 095fbbf9be..1d919f19c8 100644 --- a/TESTING/LIN/schkrq.f +++ b/TESTING/LIN/schkrq.f @@ -198,6 +198,7 @@ SUBROUTINE SCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schksp.f b/TESTING/LIN/schksp.f index b3c45d1f27..3762433b7c 100644 --- a/TESTING/LIN/schksp.f +++ b/TESTING/LIN/schksp.f @@ -160,6 +160,7 @@ SUBROUTINE SCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schksy.f b/TESTING/LIN/schksy.f index dc94b34924..cfa26e41cd 100644 --- a/TESTING/LIN/schksy.f +++ b/TESTING/LIN/schksy.f @@ -167,6 +167,7 @@ SUBROUTINE SCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schksy_rk.f b/TESTING/LIN/schksy_rk.f index 932e6e1860..6e2d9c93d6 100644 --- a/TESTING/LIN/schksy_rk.f +++ b/TESTING/LIN/schksy_rk.f @@ -173,6 +173,7 @@ SUBROUTINE SCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schksy_rook.f b/TESTING/LIN/schksy_rook.f index eb91eba4f0..865af3ffbc 100644 --- a/TESTING/LIN/schksy_rook.f +++ b/TESTING/LIN/schksy_rook.f @@ -168,6 +168,7 @@ SUBROUTINE SCHKSY_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schktb.f b/TESTING/LIN/schktb.f index cdbb622b15..f1600ee292 100644 --- a/TESTING/LIN/schktb.f +++ b/TESTING/LIN/schktb.f @@ -152,6 +152,7 @@ SUBROUTINE SCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schktp.f b/TESTING/LIN/schktp.f index a5243f651b..b0128fe5ac 100644 --- a/TESTING/LIN/schktp.f +++ b/TESTING/LIN/schktp.f @@ -154,6 +154,7 @@ SUBROUTINE SCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schktr.f b/TESTING/LIN/schktr.f index 92d8761087..f8bbe8a89f 100644 --- a/TESTING/LIN/schktr.f +++ b/TESTING/LIN/schktr.f @@ -164,6 +164,7 @@ SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/schktz.f b/TESTING/LIN/schktz.f index 85544542a0..cdacd300fc 100644 --- a/TESTING/LIN/schktz.f +++ b/TESTING/LIN/schktz.f @@ -129,6 +129,7 @@ * ===================================================================== SUBROUTINE SCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvgb.f b/TESTING/LIN/sdrvgb.f index d7c293ab6a..a59bd992c3 100644 --- a/TESTING/LIN/sdrvgb.f +++ b/TESTING/LIN/sdrvgb.f @@ -169,6 +169,7 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvgbx.f b/TESTING/LIN/sdrvgbx.f index 342e25ac25..b1e300b569 100644 --- a/TESTING/LIN/sdrvgbx.f +++ b/TESTING/LIN/sdrvgbx.f @@ -172,6 +172,7 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvge.f b/TESTING/LIN/sdrvge.f index fa66d12c1a..30069cf8d9 100644 --- a/TESTING/LIN/sdrvge.f +++ b/TESTING/LIN/sdrvge.f @@ -161,6 +161,7 @@ SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvgex.f b/TESTING/LIN/sdrvgex.f index a7a9984ff2..e6082ef7bb 100644 --- a/TESTING/LIN/sdrvgex.f +++ b/TESTING/LIN/sdrvgex.f @@ -164,6 +164,7 @@ SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvgt.f b/TESTING/LIN/sdrvgt.f index 6c3ad2d7b9..2cb7c596d9 100644 --- a/TESTING/LIN/sdrvgt.f +++ b/TESTING/LIN/sdrvgt.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE SDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvls.f b/TESTING/LIN/sdrvls.f index 2baf9a3fb1..bb3ea9a7cb 100644 --- a/TESTING/LIN/sdrvls.f +++ b/TESTING/LIN/sdrvls.f @@ -189,6 +189,7 @@ SUBROUTINE SDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvpb.f b/TESTING/LIN/sdrvpb.f index e3e9ea3737..4b16f4a114 100644 --- a/TESTING/LIN/sdrvpb.f +++ b/TESTING/LIN/sdrvpb.f @@ -161,6 +161,7 @@ SUBROUTINE SDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvpo.f b/TESTING/LIN/sdrvpo.f index 5ac638b0b6..b334be09be 100644 --- a/TESTING/LIN/sdrvpo.f +++ b/TESTING/LIN/sdrvpo.f @@ -161,6 +161,7 @@ SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvpox.f b/TESTING/LIN/sdrvpox.f index ae3cf9bee9..29b5cf7794 100644 --- a/TESTING/LIN/sdrvpox.f +++ b/TESTING/LIN/sdrvpox.f @@ -164,6 +164,7 @@ SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvpp.f b/TESTING/LIN/sdrvpp.f index bfabe72b72..b800074c40 100644 --- a/TESTING/LIN/sdrvpp.f +++ b/TESTING/LIN/sdrvpp.f @@ -164,6 +164,7 @@ SUBROUTINE SDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvpt.f b/TESTING/LIN/sdrvpt.f index 00754141b9..de44011a06 100644 --- a/TESTING/LIN/sdrvpt.f +++ b/TESTING/LIN/sdrvpt.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE SDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvrf1.f b/TESTING/LIN/sdrvrf1.f index 1567b2762e..17843ad800 100644 --- a/TESTING/LIN/sdrvrf1.f +++ b/TESTING/LIN/sdrvrf1.f @@ -91,6 +91,7 @@ * * ===================================================================== SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvrf2.f b/TESTING/LIN/sdrvrf2.f index 1d2c85edb4..3105a6681e 100644 --- a/TESTING/LIN/sdrvrf2.f +++ b/TESTING/LIN/sdrvrf2.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvrf3.f b/TESTING/LIN/sdrvrf3.f index bc01d8473b..80364e3192 100644 --- a/TESTING/LIN/sdrvrf3.f +++ b/TESTING/LIN/sdrvrf3.f @@ -115,6 +115,7 @@ * ===================================================================== SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + S_WORK_SLANGE, S_WORK_SGEQRF, TAU ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvrf4.f b/TESTING/LIN/sdrvrf4.f index e4d08ccbb3..b08d5c7d08 100644 --- a/TESTING/LIN/sdrvrf4.f +++ b/TESTING/LIN/sdrvrf4.f @@ -115,6 +115,7 @@ * ===================================================================== SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, S_WORK_SLANGE ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvrfp.f b/TESTING/LIN/sdrvrfp.f index fbbf8bc88f..1f1e1f0824 100644 --- a/TESTING/LIN/sdrvrfp.f +++ b/TESTING/LIN/sdrvrfp.f @@ -235,6 +235,7 @@ SUBROUTINE SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + S_WORK_SLATMS, S_WORK_SPOT01, S_TEMP_SPOT02, + S_TEMP_SPOT03, S_WORK_SLANSY, + S_WORK_SPOT02, S_WORK_SPOT03 ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvsp.f b/TESTING/LIN/sdrvsp.f index 077f041353..b328f433ab 100644 --- a/TESTING/LIN/sdrvsp.f +++ b/TESTING/LIN/sdrvsp.f @@ -153,6 +153,7 @@ SUBROUTINE SDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvsy.f b/TESTING/LIN/sdrvsy.f index 509522c425..1f12acbe15 100644 --- a/TESTING/LIN/sdrvsy.f +++ b/TESTING/LIN/sdrvsy.f @@ -149,6 +149,7 @@ SUBROUTINE SDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f index ff0c3ab8de..e53db7309e 100644 --- a/TESTING/LIN/sdrvsy_aa.f +++ b/TESTING/LIN/sdrvsy_aa.f @@ -149,6 +149,7 @@ SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvsy_aa_2stage.f b/TESTING/LIN/sdrvsy_aa_2stage.f index 319b90805e..25e7fe0eca 100644 --- a/TESTING/LIN/sdrvsy_aa_2stage.f +++ b/TESTING/LIN/sdrvsy_aa_2stage.f @@ -152,6 +152,7 @@ SUBROUTINE SDRVSY_AA_2STAGE( $ DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvsy_rk.f b/TESTING/LIN/sdrvsy_rk.f index 6018126f69..776e644cfc 100644 --- a/TESTING/LIN/sdrvsy_rk.f +++ b/TESTING/LIN/sdrvsy_rk.f @@ -153,6 +153,7 @@ SUBROUTINE SDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvsy_rook.f b/TESTING/LIN/sdrvsy_rook.f index eebfea59b0..4ab67a81bd 100644 --- a/TESTING/LIN/sdrvsy_rook.f +++ b/TESTING/LIN/sdrvsy_rook.f @@ -150,6 +150,7 @@ SUBROUTINE SDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sdrvsyx.f b/TESTING/LIN/sdrvsyx.f index 26f300548f..6a33067122 100644 --- a/TESTING/LIN/sdrvsyx.f +++ b/TESTING/LIN/sdrvsyx.f @@ -153,6 +153,7 @@ SUBROUTINE SDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrge.f b/TESTING/LIN/serrge.f index 7ac5c926b3..d8b9fcc8be 100644 --- a/TESTING/LIN/serrge.f +++ b/TESTING/LIN/serrge.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRGE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrgex.f b/TESTING/LIN/serrgex.f index b6da20b5e0..2f080d4a1c 100644 --- a/TESTING/LIN/serrgex.f +++ b/TESTING/LIN/serrgex.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE SERRGE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrgt.f b/TESTING/LIN/serrgt.f index 431e8bbd94..0c64f6fc22 100644 --- a/TESTING/LIN/serrgt.f +++ b/TESTING/LIN/serrgt.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRGT( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrlq.f b/TESTING/LIN/serrlq.f index e5df8ce526..af27cafaf9 100644 --- a/TESTING/LIN/serrlq.f +++ b/TESTING/LIN/serrlq.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRLQ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrls.f b/TESTING/LIN/serrls.f index 6c4820066a..e4c0bfe7fa 100644 --- a/TESTING/LIN/serrls.f +++ b/TESTING/LIN/serrls.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRLS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrpo.f b/TESTING/LIN/serrpo.f index 4c07c8f875..ecd00071a8 100644 --- a/TESTING/LIN/serrpo.f +++ b/TESTING/LIN/serrpo.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRPO( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrpox.f b/TESTING/LIN/serrpox.f index 6e81bf6706..c2add9cf89 100644 --- a/TESTING/LIN/serrpox.f +++ b/TESTING/LIN/serrpox.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE SERRPO( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrps.f b/TESTING/LIN/serrps.f index 669028b815..50c3ea6717 100644 --- a/TESTING/LIN/serrps.f +++ b/TESTING/LIN/serrps.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRPS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrql.f b/TESTING/LIN/serrql.f index e714aa076b..edc8e88abc 100644 --- a/TESTING/LIN/serrql.f +++ b/TESTING/LIN/serrql.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRQL( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrqp.f b/TESTING/LIN/serrqp.f index 952c5ff4e3..c17b270138 100644 --- a/TESTING/LIN/serrqp.f +++ b/TESTING/LIN/serrqp.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE SERRQP( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrqr.f b/TESTING/LIN/serrqr.f index e228813f73..d6e7e73aef 100644 --- a/TESTING/LIN/serrqr.f +++ b/TESTING/LIN/serrqr.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRQR( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrrfp.f b/TESTING/LIN/serrrfp.f index 2c7ee8ed64..8bb637b900 100644 --- a/TESTING/LIN/serrrfp.f +++ b/TESTING/LIN/serrrfp.f @@ -49,6 +49,7 @@ * * ===================================================================== SUBROUTINE SERRRFP( NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrrq.f b/TESTING/LIN/serrrq.f index d8d9ea62b2..8b08abe9cd 100644 --- a/TESTING/LIN/serrrq.f +++ b/TESTING/LIN/serrrq.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRRQ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrsy.f b/TESTING/LIN/serrsy.f index ab422ba5c1..f9fac035c0 100644 --- a/TESTING/LIN/serrsy.f +++ b/TESTING/LIN/serrsy.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRSY( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrsyx.f b/TESTING/LIN/serrsyx.f index cffd28a52f..a83eed294d 100644 --- a/TESTING/LIN/serrsyx.f +++ b/TESTING/LIN/serrsyx.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE SERRSY( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrtr.f b/TESTING/LIN/serrtr.f index 391b54c3fd..73c072e6f3 100644 --- a/TESTING/LIN/serrtr.f +++ b/TESTING/LIN/serrtr.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRTR( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrtz.f b/TESTING/LIN/serrtz.f index 457f7b743e..49a6da81c8 100644 --- a/TESTING/LIN/serrtz.f +++ b/TESTING/LIN/serrtz.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE SERRTZ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrvx.f b/TESTING/LIN/serrvx.f index 440f9113e3..6dea06cf07 100644 --- a/TESTING/LIN/serrvx.f +++ b/TESTING/LIN/serrvx.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRVX( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f index d48c29a171..2a5480fa6e 100644 --- a/TESTING/LIN/serrvxx.f +++ b/TESTING/LIN/serrvxx.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE SERRVX( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgbt01.f b/TESTING/LIN/sgbt01.f index c5ae6b11a5..bf2676ce0c 100644 --- a/TESTING/LIN/sgbt01.f +++ b/TESTING/LIN/sgbt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE SGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgbt02.f b/TESTING/LIN/sgbt02.f index 3f9fedd6aa..fe1e492ffc 100644 --- a/TESTING/LIN/sgbt02.f +++ b/TESTING/LIN/sgbt02.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, $ LDB, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgbt05.f b/TESTING/LIN/sgbt05.f index bba80b56da..b5068c6256 100644 --- a/TESTING/LIN/sgbt05.f +++ b/TESTING/LIN/sgbt05.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE SGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgennd.f b/TESTING/LIN/sgennd.f index a5a420fdb0..f83a91c82b 100644 --- a/TESTING/LIN/sgennd.f +++ b/TESTING/LIN/sgennd.f @@ -65,6 +65,7 @@ * * ===================================================================== LOGICAL FUNCTION SGENND (M, N, A, LDA) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgeqls.f b/TESTING/LIN/sgeqls.f index 8215b6a5b8..e89fb37b78 100644 --- a/TESTING/LIN/sgeqls.f +++ b/TESTING/LIN/sgeqls.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE SGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgerqs.f b/TESTING/LIN/sgerqs.f index 0c5c693af8..9228a41286 100644 --- a/TESTING/LIN/sgerqs.f +++ b/TESTING/LIN/sgerqs.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE SGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sget01.f b/TESTING/LIN/sget01.f index a8b013d149..7a760c3098 100644 --- a/TESTING/LIN/sget01.f +++ b/TESTING/LIN/sget01.f @@ -104,6 +104,7 @@ * ===================================================================== SUBROUTINE SGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sget02.f b/TESTING/LIN/sget02.f index 7142a17e98..9c853b625b 100644 --- a/TESTING/LIN/sget02.f +++ b/TESTING/LIN/sget02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sget03.f b/TESTING/LIN/sget03.f index b32f104896..710cd6fc95 100644 --- a/TESTING/LIN/sget03.f +++ b/TESTING/LIN/sget03.f @@ -106,6 +106,7 @@ * ===================================================================== SUBROUTINE SGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sget04.f b/TESTING/LIN/sget04.f index 8c4fe9a892..72820c53a8 100644 --- a/TESTING/LIN/sget04.f +++ b/TESTING/LIN/sget04.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE SGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sget06.f b/TESTING/LIN/sget06.f index 12b952e134..5849b4e888 100644 --- a/TESTING/LIN/sget06.f +++ b/TESTING/LIN/sget06.f @@ -52,6 +52,7 @@ * * ===================================================================== REAL FUNCTION SGET06( RCOND, RCONDC ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sget07.f b/TESTING/LIN/sget07.f index 4333ad0b28..3b3b86b963 100644 --- a/TESTING/LIN/sget07.f +++ b/TESTING/LIN/sget07.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE SGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgtt01.f b/TESTING/LIN/sgtt01.f index 5d639af990..75e87e58a4 100644 --- a/TESTING/LIN/sgtt01.f +++ b/TESTING/LIN/sgtt01.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE SGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgtt02.f b/TESTING/LIN/sgtt02.f index 6daea295fd..76ab843c97 100644 --- a/TESTING/LIN/sgtt02.f +++ b/TESTING/LIN/sgtt02.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sgtt05.f b/TESTING/LIN/sgtt05.f index adf4089b50..0c96321f92 100644 --- a/TESTING/LIN/sgtt05.f +++ b/TESTING/LIN/sgtt05.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE SGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slahilb.f b/TESTING/LIN/slahilb.f index cb3272d3b6..43d1bd302f 100644 --- a/TESTING/LIN/slahilb.f +++ b/TESTING/LIN/slahilb.f @@ -121,6 +121,7 @@ * * ===================================================================== SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slaord.f b/TESTING/LIN/slaord.f index 06bccf02ea..318f4b23de 100644 --- a/TESTING/LIN/slaord.f +++ b/TESTING/LIN/slaord.f @@ -70,6 +70,7 @@ * * ===================================================================== SUBROUTINE SLAORD( JOB, N, X, INCX ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slaptm.f b/TESTING/LIN/slaptm.f index 6b3ffdf8ad..98333f1d2b 100644 --- a/TESTING/LIN/slaptm.f +++ b/TESTING/LIN/slaptm.f @@ -113,6 +113,7 @@ * * ===================================================================== SUBROUTINE SLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slarhs.f b/TESTING/LIN/slarhs.f index 6a8a592c8c..fde4c2cc04 100644 --- a/TESTING/LIN/slarhs.f +++ b/TESTING/LIN/slarhs.f @@ -202,6 +202,7 @@ * ===================================================================== SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slatb4.f b/TESTING/LIN/slatb4.f index 72a3107278..8156bb9989 100644 --- a/TESTING/LIN/slatb4.f +++ b/TESTING/LIN/slatb4.f @@ -117,6 +117,7 @@ * ===================================================================== SUBROUTINE SLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slatb5.f b/TESTING/LIN/slatb5.f index 6909110c12..8dcc0a68eb 100644 --- a/TESTING/LIN/slatb5.f +++ b/TESTING/LIN/slatb5.f @@ -111,6 +111,7 @@ * ===================================================================== SUBROUTINE SLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slattb.f b/TESTING/LIN/slattb.f index 23a12eadaa..600a4da61c 100644 --- a/TESTING/LIN/slattb.f +++ b/TESTING/LIN/slattb.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE SLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slattp.f b/TESTING/LIN/slattp.f index 8bd133d55a..f7b6925964 100644 --- a/TESTING/LIN/slattp.f +++ b/TESTING/LIN/slattp.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE SLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slattr.f b/TESTING/LIN/slattr.f index ebc7a6dd9e..2e7ddd3ac7 100644 --- a/TESTING/LIN/slattr.f +++ b/TESTING/LIN/slattr.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE SLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slavsp.f b/TESTING/LIN/slavsp.f index e6580d37fa..c58c3eb4f5 100644 --- a/TESTING/LIN/slavsp.f +++ b/TESTING/LIN/slavsp.f @@ -127,6 +127,7 @@ * ===================================================================== SUBROUTINE SLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slavsy.f b/TESTING/LIN/slavsy.f index c0f0ee4a1d..0216573ea9 100644 --- a/TESTING/LIN/slavsy.f +++ b/TESTING/LIN/slavsy.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE SLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slavsy_rook.f b/TESTING/LIN/slavsy_rook.f index d775e5e0e3..e183b5a830 100644 --- a/TESTING/LIN/slavsy_rook.f +++ b/TESTING/LIN/slavsy_rook.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE SLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slqt01.f b/TESTING/LIN/slqt01.f index 9b868ac117..ec8b2cc9da 100644 --- a/TESTING/LIN/slqt01.f +++ b/TESTING/LIN/slqt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE SLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slqt02.f b/TESTING/LIN/slqt02.f index 1c7bd4f0df..78dda770eb 100644 --- a/TESTING/LIN/slqt02.f +++ b/TESTING/LIN/slqt02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE SLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/slqt03.f b/TESTING/LIN/slqt03.f index bc78a0fca9..fa3b290199 100644 --- a/TESTING/LIN/slqt03.f +++ b/TESTING/LIN/slqt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/spbt01.f b/TESTING/LIN/spbt01.f index 7aae3a2c63..4cfb0f68e7 100644 --- a/TESTING/LIN/spbt01.f +++ b/TESTING/LIN/spbt01.f @@ -116,6 +116,7 @@ * ===================================================================== SUBROUTINE SPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/spbt02.f b/TESTING/LIN/spbt02.f index 7343063698..cb09239594 100644 --- a/TESTING/LIN/spbt02.f +++ b/TESTING/LIN/spbt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/spbt05.f b/TESTING/LIN/spbt05.f index 14b68c1096..8ea013f4c8 100644 --- a/TESTING/LIN/spbt05.f +++ b/TESTING/LIN/spbt05.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE SPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/spot01.f b/TESTING/LIN/spot01.f index 5f14b3f0ff..0ec68f4ef0 100644 --- a/TESTING/LIN/spot01.f +++ b/TESTING/LIN/spot01.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/spot02.f b/TESTING/LIN/spot02.f index 08176a87ee..6435ddee41 100644 --- a/TESTING/LIN/spot02.f +++ b/TESTING/LIN/spot02.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE SPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/spot03.f b/TESTING/LIN/spot03.f index 191b3139c8..3b28847db2 100644 --- a/TESTING/LIN/spot03.f +++ b/TESTING/LIN/spot03.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE SPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/spot05.f b/TESTING/LIN/spot05.f index 7658ea3856..00aa2bd2c4 100644 --- a/TESTING/LIN/spot05.f +++ b/TESTING/LIN/spot05.f @@ -161,6 +161,7 @@ * ===================================================================== SUBROUTINE SPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sppt01.f b/TESTING/LIN/sppt01.f index 213b38b410..cd38eec3a3 100644 --- a/TESTING/LIN/sppt01.f +++ b/TESTING/LIN/sppt01.f @@ -90,6 +90,7 @@ * * ===================================================================== SUBROUTINE SPPT01( UPLO, N, A, AFAC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sppt02.f b/TESTING/LIN/sppt02.f index 3e94585b09..8d9d4e0c32 100644 --- a/TESTING/LIN/sppt02.f +++ b/TESTING/LIN/sppt02.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE SPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sppt03.f b/TESTING/LIN/sppt03.f index abb31cb4a5..968cbc4675 100644 --- a/TESTING/LIN/sppt03.f +++ b/TESTING/LIN/sppt03.f @@ -107,6 +107,7 @@ * ===================================================================== SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sppt05.f b/TESTING/LIN/sppt05.f index a56d0411d9..de0824025e 100644 --- a/TESTING/LIN/sppt05.f +++ b/TESTING/LIN/sppt05.f @@ -153,6 +153,7 @@ * ===================================================================== SUBROUTINE SPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/spst01.f b/TESTING/LIN/spst01.f index 83084fba5e..5e56d3322b 100644 --- a/TESTING/LIN/spst01.f +++ b/TESTING/LIN/spst01.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE SPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sptt01.f b/TESTING/LIN/sptt01.f index 5b33bfad50..0c4d163eab 100644 --- a/TESTING/LIN/sptt01.f +++ b/TESTING/LIN/sptt01.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE SPTT01( N, D, E, DF, EF, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sptt02.f b/TESTING/LIN/sptt02.f index 2bd5535aa5..ff8c8a56ce 100644 --- a/TESTING/LIN/sptt02.f +++ b/TESTING/LIN/sptt02.f @@ -101,6 +101,7 @@ * * ===================================================================== SUBROUTINE SPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sptt05.f b/TESTING/LIN/sptt05.f index ddbc40f132..3b73f41ee3 100644 --- a/TESTING/LIN/sptt05.f +++ b/TESTING/LIN/sptt05.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE SPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqlt01.f b/TESTING/LIN/sqlt01.f index aa61e91a0b..661dec77e3 100644 --- a/TESTING/LIN/sqlt01.f +++ b/TESTING/LIN/sqlt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE SQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqlt02.f b/TESTING/LIN/sqlt02.f index f26352eb31..316bcdb9cf 100644 --- a/TESTING/LIN/sqlt02.f +++ b/TESTING/LIN/sqlt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqlt03.f b/TESTING/LIN/sqlt03.f index 5c1bcdf666..1232d813a4 100644 --- a/TESTING/LIN/sqlt03.f +++ b/TESTING/LIN/sqlt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqpt01.f b/TESTING/LIN/sqpt01.f index f53686a657..d7fc25a092 100644 --- a/TESTING/LIN/sqpt01.f +++ b/TESTING/LIN/sqpt01.f @@ -118,6 +118,7 @@ * ===================================================================== REAL FUNCTION SQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt01.f b/TESTING/LIN/sqrt01.f index 6f14989038..60d6b24bb9 100644 --- a/TESTING/LIN/sqrt01.f +++ b/TESTING/LIN/sqrt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE SQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt01p.f b/TESTING/LIN/sqrt01p.f index f3a53013df..14efb6b538 100644 --- a/TESTING/LIN/sqrt01p.f +++ b/TESTING/LIN/sqrt01p.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE SQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt02.f b/TESTING/LIN/sqrt02.f index 44b9c62702..d3bd40931b 100644 --- a/TESTING/LIN/sqrt02.f +++ b/TESTING/LIN/sqrt02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE SQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt03.f b/TESTING/LIN/sqrt03.f index bf11ef2588..58a08dead3 100644 --- a/TESTING/LIN/sqrt03.f +++ b/TESTING/LIN/sqrt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt11.f b/TESTING/LIN/sqrt11.f index a3753adcf9..1915721f98 100644 --- a/TESTING/LIN/sqrt11.f +++ b/TESTING/LIN/sqrt11.f @@ -95,6 +95,7 @@ * * ===================================================================== REAL FUNCTION SQRT11( M, K, A, LDA, TAU, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt12.f b/TESTING/LIN/sqrt12.f index 46b359e07b..128481fdfa 100644 --- a/TESTING/LIN/sqrt12.f +++ b/TESTING/LIN/sqrt12.f @@ -86,6 +86,7 @@ * * ===================================================================== REAL FUNCTION SQRT12( M, N, A, LDA, S, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt13.f b/TESTING/LIN/sqrt13.f index a3828140d6..bb153a67b5 100644 --- a/TESTING/LIN/sqrt13.f +++ b/TESTING/LIN/sqrt13.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE SQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt14.f b/TESTING/LIN/sqrt14.f index 64bdc81108..4d682d23a3 100644 --- a/TESTING/LIN/sqrt14.f +++ b/TESTING/LIN/sqrt14.f @@ -113,6 +113,7 @@ * ===================================================================== REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt15.f b/TESTING/LIN/sqrt15.f index 5a6967abba..b487837198 100644 --- a/TESTING/LIN/sqrt15.f +++ b/TESTING/LIN/sqrt15.f @@ -145,6 +145,7 @@ * ===================================================================== SUBROUTINE SQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt16.f b/TESTING/LIN/sqrt16.f index 1a5dbf785e..0c6620e42b 100644 --- a/TESTING/LIN/sqrt16.f +++ b/TESTING/LIN/sqrt16.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE SQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sqrt17.f b/TESTING/LIN/sqrt17.f index d2ff56bf1a..19fb600eef 100644 --- a/TESTING/LIN/sqrt17.f +++ b/TESTING/LIN/sqrt17.f @@ -150,6 +150,7 @@ * ===================================================================== REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/srqt01.f b/TESTING/LIN/srqt01.f index 07a040a157..136dcd7c44 100644 --- a/TESTING/LIN/srqt01.f +++ b/TESTING/LIN/srqt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE SRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/srqt02.f b/TESTING/LIN/srqt02.f index a33c98ba42..882fd09006 100644 --- a/TESTING/LIN/srqt02.f +++ b/TESTING/LIN/srqt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/srqt03.f b/TESTING/LIN/srqt03.f index 730d76d450..5cb2c444d2 100644 --- a/TESTING/LIN/srqt03.f +++ b/TESTING/LIN/srqt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/srzt01.f b/TESTING/LIN/srzt01.f index a2b8b29bad..d7ff5c6400 100644 --- a/TESTING/LIN/srzt01.f +++ b/TESTING/LIN/srzt01.f @@ -95,6 +95,7 @@ * ===================================================================== REAL FUNCTION SRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/srzt02.f b/TESTING/LIN/srzt02.f index cd76a7c62a..36fc218f95 100644 --- a/TESTING/LIN/srzt02.f +++ b/TESTING/LIN/srzt02.f @@ -88,6 +88,7 @@ * ===================================================================== REAL FUNCTION SRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/sspt01.f b/TESTING/LIN/sspt01.f index 05cac43f48..67192092fe 100644 --- a/TESTING/LIN/sspt01.f +++ b/TESTING/LIN/sspt01.f @@ -107,6 +107,7 @@ * * ===================================================================== SUBROUTINE SSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ssyt01.f b/TESTING/LIN/ssyt01.f index b47ca7d2fe..abc7d4350d 100644 --- a/TESTING/LIN/ssyt01.f +++ b/TESTING/LIN/ssyt01.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE SSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ssyt01_3.f b/TESTING/LIN/ssyt01_3.f index 951fcb7d6e..b5bb404ca5 100644 --- a/TESTING/LIN/ssyt01_3.f +++ b/TESTING/LIN/ssyt01_3.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE SSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ssyt01_aa.f b/TESTING/LIN/ssyt01_aa.f index dd8f69fc2b..248a39794f 100644 --- a/TESTING/LIN/ssyt01_aa.f +++ b/TESTING/LIN/ssyt01_aa.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ssyt01_rook.f b/TESTING/LIN/ssyt01_rook.f index 7f5803b007..aa7e08e0a8 100644 --- a/TESTING/LIN/ssyt01_rook.f +++ b/TESTING/LIN/ssyt01_rook.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE SSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stbt02.f b/TESTING/LIN/stbt02.f index f95b5d5f10..deb1a99980 100644 --- a/TESTING/LIN/stbt02.f +++ b/TESTING/LIN/stbt02.f @@ -151,6 +151,7 @@ * ===================================================================== SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stbt03.f b/TESTING/LIN/stbt03.f index 53efe4030d..5487913b37 100644 --- a/TESTING/LIN/stbt03.f +++ b/TESTING/LIN/stbt03.f @@ -172,6 +172,7 @@ SUBROUTINE STBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stbt05.f b/TESTING/LIN/stbt05.f index 60e39016c0..96c0f04d00 100644 --- a/TESTING/LIN/stbt05.f +++ b/TESTING/LIN/stbt05.f @@ -186,6 +186,7 @@ * ===================================================================== SUBROUTINE STBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stbt06.f b/TESTING/LIN/stbt06.f index d6d0806b44..19a70dd021 100644 --- a/TESTING/LIN/stbt06.f +++ b/TESTING/LIN/stbt06.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE STBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ WORK, RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stplqt.f b/TESTING/LIN/stplqt.f index 1e0227396a..49a609139c 100644 --- a/TESTING/LIN/stplqt.f +++ b/TESTING/LIN/stplqt.f @@ -184,6 +184,7 @@ * ===================================================================== SUBROUTINE STPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stpt01.f b/TESTING/LIN/stpt01.f index 5e27083b4e..65fbac2e3e 100644 --- a/TESTING/LIN/stpt01.f +++ b/TESTING/LIN/stpt01.f @@ -105,6 +105,7 @@ * * ===================================================================== SUBROUTINE STPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stpt02.f b/TESTING/LIN/stpt02.f index f81fa29b99..b77fbf010d 100644 --- a/TESTING/LIN/stpt02.f +++ b/TESTING/LIN/stpt02.f @@ -139,6 +139,7 @@ * ===================================================================== SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stpt03.f b/TESTING/LIN/stpt03.f index 1235020f97..c8302c62a2 100644 --- a/TESTING/LIN/stpt03.f +++ b/TESTING/LIN/stpt03.f @@ -158,6 +158,7 @@ * ===================================================================== SUBROUTINE STPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stpt05.f b/TESTING/LIN/stpt05.f index 81abb969f8..c8c767504d 100644 --- a/TESTING/LIN/stpt05.f +++ b/TESTING/LIN/stpt05.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE STPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/stpt06.f b/TESTING/LIN/stpt06.f index e72d1483e2..f4bd8783f9 100644 --- a/TESTING/LIN/stpt06.f +++ b/TESTING/LIN/stpt06.f @@ -108,6 +108,7 @@ * * ===================================================================== SUBROUTINE STPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/strt01.f b/TESTING/LIN/strt01.f index 08c2433ed4..ab02e1b6ca 100644 --- a/TESTING/LIN/strt01.f +++ b/TESTING/LIN/strt01.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE STRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/strt02.f b/TESTING/LIN/strt02.f index 26a95510a9..f93b75e0f2 100644 --- a/TESTING/LIN/strt02.f +++ b/TESTING/LIN/strt02.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/strt03.f b/TESTING/LIN/strt03.f index 899f45ec93..d89bd7fd67 100644 --- a/TESTING/LIN/strt03.f +++ b/TESTING/LIN/strt03.f @@ -166,6 +166,7 @@ * ===================================================================== SUBROUTINE STRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/strt05.f b/TESTING/LIN/strt05.f index af4ebe34a7..7ffb8b6e7e 100644 --- a/TESTING/LIN/strt05.f +++ b/TESTING/LIN/strt05.f @@ -178,6 +178,7 @@ * ===================================================================== SUBROUTINE STRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/strt06.f b/TESTING/LIN/strt06.f index 60572045b5..2e12303045 100644 --- a/TESTING/LIN/strt06.f +++ b/TESTING/LIN/strt06.f @@ -118,6 +118,7 @@ * ===================================================================== SUBROUTINE STRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, $ RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/xerbla.f b/TESTING/LIN/xerbla.f index 431339f785..8ebff6ff8d 100644 --- a/TESTING/LIN/xerbla.f +++ b/TESTING/LIN/xerbla.f @@ -72,6 +72,7 @@ *> * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/xlaenv.f b/TESTING/LIN/xlaenv.f index c1720c7f10..10049b6a65 100644 --- a/TESTING/LIN/xlaenv.f +++ b/TESTING/LIN/xlaenv.f @@ -75,6 +75,7 @@ * * ===================================================================== SUBROUTINE XLAENV( ISPEC, NVALUE ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkab.f b/TESTING/LIN/zchkab.f index 495d373e0c..253905fea8 100644 --- a/TESTING/LIN/zchkab.f +++ b/TESTING/LIN/zchkab.f @@ -70,6 +70,7 @@ * * ===================================================================== PROGRAM ZCHKAB + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkeq.f b/TESTING/LIN/zchkeq.f index 214331d5a6..e5d863612a 100644 --- a/TESTING/LIN/zchkeq.f +++ b/TESTING/LIN/zchkeq.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE ZCHKEQ( THRESH, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkgb.f b/TESTING/LIN/zchkgb.f index 3b0cd707ab..bd54ac5e84 100644 --- a/TESTING/LIN/zchkgb.f +++ b/TESTING/LIN/zchkgb.f @@ -188,6 +188,7 @@ SUBROUTINE ZCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkge.f b/TESTING/LIN/zchkge.f index d87759df5c..fa6970c779 100644 --- a/TESTING/LIN/zchkge.f +++ b/TESTING/LIN/zchkge.f @@ -183,6 +183,7 @@ SUBROUTINE ZCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkgt.f b/TESTING/LIN/zchkgt.f index b9a6ab7e4a..4c03bace8d 100644 --- a/TESTING/LIN/zchkgt.f +++ b/TESTING/LIN/zchkgt.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE ZCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkhe.f b/TESTING/LIN/zchkhe.f index e443eab04f..9ee0793b77 100644 --- a/TESTING/LIN/zchkhe.f +++ b/TESTING/LIN/zchkhe.f @@ -168,6 +168,7 @@ SUBROUTINE ZCHKHE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkhe_rk.f b/TESTING/LIN/zchkhe_rk.f index 63697d33a1..2abef5c64c 100644 --- a/TESTING/LIN/zchkhe_rk.f +++ b/TESTING/LIN/zchkhe_rk.f @@ -174,6 +174,7 @@ SUBROUTINE ZCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkhe_rook.f b/TESTING/LIN/zchkhe_rook.f index 84f5a84220..a75d880114 100644 --- a/TESTING/LIN/zchkhe_rook.f +++ b/TESTING/LIN/zchkhe_rook.f @@ -169,6 +169,7 @@ SUBROUTINE ZCHKHE_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkhp.f b/TESTING/LIN/zchkhp.f index 6525ed65e3..93951e1414 100644 --- a/TESTING/LIN/zchkhp.f +++ b/TESTING/LIN/zchkhp.f @@ -161,6 +161,7 @@ SUBROUTINE ZCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchklq.f b/TESTING/LIN/zchklq.f index ccef7b803a..7afe70c6ce 100644 --- a/TESTING/LIN/zchklq.f +++ b/TESTING/LIN/zchklq.f @@ -193,6 +193,7 @@ SUBROUTINE ZCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkpb.f b/TESTING/LIN/zchkpb.f index 1ce8c3b88f..4f3160b5cf 100644 --- a/TESTING/LIN/zchkpb.f +++ b/TESTING/LIN/zchkpb.f @@ -165,6 +165,7 @@ SUBROUTINE ZCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkpo.f b/TESTING/LIN/zchkpo.f index 93ea721633..6a8398ffc6 100644 --- a/TESTING/LIN/zchkpo.f +++ b/TESTING/LIN/zchkpo.f @@ -165,6 +165,7 @@ SUBROUTINE ZCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkpp.f b/TESTING/LIN/zchkpp.f index 250b12359d..c3dcbcaff6 100644 --- a/TESTING/LIN/zchkpp.f +++ b/TESTING/LIN/zchkpp.f @@ -156,6 +156,7 @@ SUBROUTINE ZCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkps.f b/TESTING/LIN/zchkps.f index 79fc951e22..a7fc5fb7db 100644 --- a/TESTING/LIN/zchkps.f +++ b/TESTING/LIN/zchkps.f @@ -151,6 +151,7 @@ SUBROUTINE ZCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkpt.f b/TESTING/LIN/zchkpt.f index 11089d2a1a..b2c4238647 100644 --- a/TESTING/LIN/zchkpt.f +++ b/TESTING/LIN/zchkpt.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE ZCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkq3.f b/TESTING/LIN/zchkq3.f index 33cd0fe15f..f27510656c 100644 --- a/TESTING/LIN/zchkq3.f +++ b/TESTING/LIN/zchkq3.f @@ -155,6 +155,7 @@ SUBROUTINE ZCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ THRESH, A, COPYA, S, TAU, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkql.f b/TESTING/LIN/zchkql.f index 0dbb345b06..cafb2c623f 100644 --- a/TESTING/LIN/zchkql.f +++ b/TESTING/LIN/zchkql.f @@ -193,6 +193,7 @@ SUBROUTINE ZCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkqr.f b/TESTING/LIN/zchkqr.f index c088bacc9e..740abf4dfb 100644 --- a/TESTING/LIN/zchkqr.f +++ b/TESTING/LIN/zchkqr.f @@ -198,6 +198,7 @@ SUBROUTINE ZCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkrfp.f b/TESTING/LIN/zchkrfp.f index 2bf2ac3cf7..b2af1e9fbb 100644 --- a/TESTING/LIN/zchkrfp.f +++ b/TESTING/LIN/zchkrfp.f @@ -56,6 +56,7 @@ * * ===================================================================== PROGRAM ZCHKRFP + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchkrq.f b/TESTING/LIN/zchkrq.f index 32347c697c..6bcb3d6b9e 100644 --- a/TESTING/LIN/zchkrq.f +++ b/TESTING/LIN/zchkrq.f @@ -198,6 +198,7 @@ SUBROUTINE ZCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchksp.f b/TESTING/LIN/zchksp.f index fbfc45eeb7..43bfc86b81 100644 --- a/TESTING/LIN/zchksp.f +++ b/TESTING/LIN/zchksp.f @@ -161,6 +161,7 @@ SUBROUTINE ZCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchksy.f b/TESTING/LIN/zchksy.f index 7877eb7e2d..0c8c2c2b16 100644 --- a/TESTING/LIN/zchksy.f +++ b/TESTING/LIN/zchksy.f @@ -168,6 +168,7 @@ SUBROUTINE ZCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchksy_rk.f b/TESTING/LIN/zchksy_rk.f index 3a206b30d8..d891f6425d 100644 --- a/TESTING/LIN/zchksy_rk.f +++ b/TESTING/LIN/zchksy_rk.f @@ -174,6 +174,7 @@ SUBROUTINE ZCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchksy_rook.f b/TESTING/LIN/zchksy_rook.f index dcb5b6edd1..0a18fd3de8 100644 --- a/TESTING/LIN/zchksy_rook.f +++ b/TESTING/LIN/zchksy_rook.f @@ -169,6 +169,7 @@ SUBROUTINE ZCHKSY_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchktb.f b/TESTING/LIN/zchktb.f index e719786247..31253f7cbb 100644 --- a/TESTING/LIN/zchktb.f +++ b/TESTING/LIN/zchktb.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE ZCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchktp.f b/TESTING/LIN/zchktp.f index ab46f5ce54..38f4017980 100644 --- a/TESTING/LIN/zchktp.f +++ b/TESTING/LIN/zchktp.f @@ -148,6 +148,7 @@ SUBROUTINE ZCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchktr.f b/TESTING/LIN/zchktr.f index 48968fc887..fa23993b75 100644 --- a/TESTING/LIN/zchktr.f +++ b/TESTING/LIN/zchktr.f @@ -160,6 +160,7 @@ SUBROUTINE ZCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zchktz.f b/TESTING/LIN/zchktz.f index 754b2a33c3..5b5734e644 100644 --- a/TESTING/LIN/zchktz.f +++ b/TESTING/LIN/zchktz.f @@ -134,6 +134,7 @@ * ===================================================================== SUBROUTINE ZCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f index 772eb08afb..db7a7bd782 100644 --- a/TESTING/LIN/zdrvab.f +++ b/TESTING/LIN/zdrvab.f @@ -149,6 +149,7 @@ SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, $ NSVAL, THRESH, NMAX, A, AFAC, B, $ X, WORK, RWORK, SWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvac.f b/TESTING/LIN/zdrvac.f index bbf73a263c..3a7d00da91 100644 --- a/TESTING/LIN/zdrvac.f +++ b/TESTING/LIN/zdrvac.f @@ -142,6 +142,7 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, $ A, AFAC, B, X, WORK, $ RWORK, SWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvgb.f b/TESTING/LIN/zdrvgb.f index aa5712c3b5..69a0c60ecf 100644 --- a/TESTING/LIN/zdrvgb.f +++ b/TESTING/LIN/zdrvgb.f @@ -169,6 +169,7 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvgbx.f b/TESTING/LIN/zdrvgbx.f index 9bf3560f20..b17bfa1a4d 100644 --- a/TESTING/LIN/zdrvgbx.f +++ b/TESTING/LIN/zdrvgbx.f @@ -172,6 +172,7 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvge.f b/TESTING/LIN/zdrvge.f index f6ef2d19c1..f6eebd8f19 100644 --- a/TESTING/LIN/zdrvge.f +++ b/TESTING/LIN/zdrvge.f @@ -161,6 +161,7 @@ SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvgex.f b/TESTING/LIN/zdrvgex.f index 27d9105a32..3be717ea4b 100644 --- a/TESTING/LIN/zdrvgex.f +++ b/TESTING/LIN/zdrvgex.f @@ -164,6 +164,7 @@ SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvgt.f b/TESTING/LIN/zdrvgt.f index b2e0f66b12..5bb2ee0ce4 100644 --- a/TESTING/LIN/zdrvgt.f +++ b/TESTING/LIN/zdrvgt.f @@ -136,6 +136,7 @@ * ===================================================================== SUBROUTINE ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvhe.f b/TESTING/LIN/zdrvhe.f index a4cc639b19..9b0c98e05d 100644 --- a/TESTING/LIN/zdrvhe.f +++ b/TESTING/LIN/zdrvhe.f @@ -150,6 +150,7 @@ SUBROUTINE ZDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvhe_aa.f b/TESTING/LIN/zdrvhe_aa.f index 34d8f2aaf1..28f268c5c6 100644 --- a/TESTING/LIN/zdrvhe_aa.f +++ b/TESTING/LIN/zdrvhe_aa.f @@ -150,6 +150,7 @@ SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvhe_aa_2stage.f b/TESTING/LIN/zdrvhe_aa_2stage.f index fcd7744912..9f6d5cba84 100644 --- a/TESTING/LIN/zdrvhe_aa_2stage.f +++ b/TESTING/LIN/zdrvhe_aa_2stage.f @@ -152,6 +152,7 @@ SUBROUTINE ZDRVHE_AA_2STAGE( $ DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvhe_rk.f b/TESTING/LIN/zdrvhe_rk.f index 2f34883d64..52232b7959 100644 --- a/TESTING/LIN/zdrvhe_rk.f +++ b/TESTING/LIN/zdrvhe_rk.f @@ -155,6 +155,7 @@ SUBROUTINE ZDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvhe_rook.f b/TESTING/LIN/zdrvhe_rook.f index 59aed71be6..4bee964b35 100644 --- a/TESTING/LIN/zdrvhe_rook.f +++ b/TESTING/LIN/zdrvhe_rook.f @@ -150,6 +150,7 @@ SUBROUTINE ZDRVHE_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvhex.f b/TESTING/LIN/zdrvhex.f index 0f66d28e93..d503610061 100644 --- a/TESTING/LIN/zdrvhex.f +++ b/TESTING/LIN/zdrvhex.f @@ -154,6 +154,7 @@ SUBROUTINE ZDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvhp.f b/TESTING/LIN/zdrvhp.f index 5c96c03e75..8a0e9770b1 100644 --- a/TESTING/LIN/zdrvhp.f +++ b/TESTING/LIN/zdrvhp.f @@ -154,6 +154,7 @@ SUBROUTINE ZDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvls.f b/TESTING/LIN/zdrvls.f index b21345d302..49a2fdcd75 100644 --- a/TESTING/LIN/zdrvls.f +++ b/TESTING/LIN/zdrvls.f @@ -189,6 +189,7 @@ SUBROUTINE ZDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvpb.f b/TESTING/LIN/zdrvpb.f index a3eecb83ea..3a98c16137 100644 --- a/TESTING/LIN/zdrvpb.f +++ b/TESTING/LIN/zdrvpb.f @@ -156,6 +156,7 @@ SUBROUTINE ZDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvpo.f b/TESTING/LIN/zdrvpo.f index 3cc691c5b4..81873f4043 100644 --- a/TESTING/LIN/zdrvpo.f +++ b/TESTING/LIN/zdrvpo.f @@ -156,6 +156,7 @@ SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvpox.f b/TESTING/LIN/zdrvpox.f index d124059620..2548be0f9d 100644 --- a/TESTING/LIN/zdrvpox.f +++ b/TESTING/LIN/zdrvpox.f @@ -159,6 +159,7 @@ SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvpp.f b/TESTING/LIN/zdrvpp.f index f63f7145dd..c78cd9637c 100644 --- a/TESTING/LIN/zdrvpp.f +++ b/TESTING/LIN/zdrvpp.f @@ -156,6 +156,7 @@ SUBROUTINE ZDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvpt.f b/TESTING/LIN/zdrvpt.f index 75f4d57380..7fcb62a8f6 100644 --- a/TESTING/LIN/zdrvpt.f +++ b/TESTING/LIN/zdrvpt.f @@ -137,6 +137,7 @@ * ===================================================================== SUBROUTINE ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvrf1.f b/TESTING/LIN/zdrvrf1.f index 0e54815fbc..86914b8ba8 100644 --- a/TESTING/LIN/zdrvrf1.f +++ b/TESTING/LIN/zdrvrf1.f @@ -92,6 +92,7 @@ * * ===================================================================== SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvrf2.f b/TESTING/LIN/zdrvrf2.f index 7f03e30ae3..34a1a2f364 100644 --- a/TESTING/LIN/zdrvrf2.f +++ b/TESTING/LIN/zdrvrf2.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvrf3.f b/TESTING/LIN/zdrvrf3.f index 4e55b03ef7..a08e3ccebd 100644 --- a/TESTING/LIN/zdrvrf3.f +++ b/TESTING/LIN/zdrvrf3.f @@ -116,6 +116,7 @@ * ===================================================================== SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + D_WORK_ZLANGE, Z_WORK_ZGEQRF, TAU ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvrf4.f b/TESTING/LIN/zdrvrf4.f index 17c4a2d24d..51f46066b7 100644 --- a/TESTING/LIN/zdrvrf4.f +++ b/TESTING/LIN/zdrvrf4.f @@ -111,6 +111,7 @@ * ===================================================================== SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, D_WORK_ZLANGE ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvrfp.f b/TESTING/LIN/zdrvrfp.f index be6c13445b..15a4eb7941 100644 --- a/TESTING/LIN/zdrvrfp.f +++ b/TESTING/LIN/zdrvrfp.f @@ -241,6 +241,7 @@ SUBROUTINE ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + Z_WORK_ZLATMS, Z_WORK_ZPOT02, + Z_WORK_ZPOT03, D_WORK_ZLATMS, D_WORK_ZLANHE, + D_WORK_ZPOT01, D_WORK_ZPOT02, D_WORK_ZPOT03 ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvsp.f b/TESTING/LIN/zdrvsp.f index 1b68711d74..5a382ba1f7 100644 --- a/TESTING/LIN/zdrvsp.f +++ b/TESTING/LIN/zdrvsp.f @@ -154,6 +154,7 @@ SUBROUTINE ZDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvsy.f b/TESTING/LIN/zdrvsy.f index 0e5623794e..e4ac1365b3 100644 --- a/TESTING/LIN/zdrvsy.f +++ b/TESTING/LIN/zdrvsy.f @@ -150,6 +150,7 @@ SUBROUTINE ZDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvsy_aa.f b/TESTING/LIN/zdrvsy_aa.f index eaac75ed71..74aaf61a14 100644 --- a/TESTING/LIN/zdrvsy_aa.f +++ b/TESTING/LIN/zdrvsy_aa.f @@ -150,6 +150,7 @@ SUBROUTINE ZDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvsy_aa_2stage.f b/TESTING/LIN/zdrvsy_aa_2stage.f index 5406a76bfd..744872db39 100644 --- a/TESTING/LIN/zdrvsy_aa_2stage.f +++ b/TESTING/LIN/zdrvsy_aa_2stage.f @@ -152,6 +152,7 @@ SUBROUTINE ZDRVSY_AA_2STAGE( $ DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvsy_rk.f b/TESTING/LIN/zdrvsy_rk.f index a27e891eb6..e628bf9c77 100644 --- a/TESTING/LIN/zdrvsy_rk.f +++ b/TESTING/LIN/zdrvsy_rk.f @@ -155,6 +155,7 @@ SUBROUTINE ZDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvsy_rook.f b/TESTING/LIN/zdrvsy_rook.f index eba5faa81b..8f1e16ddc8 100644 --- a/TESTING/LIN/zdrvsy_rook.f +++ b/TESTING/LIN/zdrvsy_rook.f @@ -150,6 +150,7 @@ SUBROUTINE ZDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zdrvsyx.f b/TESTING/LIN/zdrvsyx.f index 5d2d741c00..8c5e04241a 100644 --- a/TESTING/LIN/zdrvsyx.f +++ b/TESTING/LIN/zdrvsyx.f @@ -154,6 +154,7 @@ SUBROUTINE ZDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrab.f b/TESTING/LIN/zerrab.f index 81bf019d9f..f333df3fe2 100644 --- a/TESTING/LIN/zerrab.f +++ b/TESTING/LIN/zerrab.f @@ -44,6 +44,7 @@ * * ===================================================================== SUBROUTINE ZERRAB( NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrac.f b/TESTING/LIN/zerrac.f index 1d32450aa0..0d6ce859f9 100644 --- a/TESTING/LIN/zerrac.f +++ b/TESTING/LIN/zerrac.f @@ -44,6 +44,7 @@ * * ===================================================================== SUBROUTINE ZERRAC( NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrge.f b/TESTING/LIN/zerrge.f index 6bf79f6467..a1c1cb9720 100644 --- a/TESTING/LIN/zerrge.f +++ b/TESTING/LIN/zerrge.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRGE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrgex.f b/TESTING/LIN/zerrgex.f index b20f0ce74f..62b45e4fc5 100644 --- a/TESTING/LIN/zerrgex.f +++ b/TESTING/LIN/zerrgex.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE ZERRGE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrgt.f b/TESTING/LIN/zerrgt.f index bfb760e089..1126e5d258 100644 --- a/TESTING/LIN/zerrgt.f +++ b/TESTING/LIN/zerrgt.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRGT( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrhe.f b/TESTING/LIN/zerrhe.f index 40dd25d750..f7fb8baf37 100644 --- a/TESTING/LIN/zerrhe.f +++ b/TESTING/LIN/zerrhe.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRHE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrhex.f b/TESTING/LIN/zerrhex.f index bdcdefff7d..b831d8dea1 100644 --- a/TESTING/LIN/zerrhex.f +++ b/TESTING/LIN/zerrhex.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE ZERRHE( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrlq.f b/TESTING/LIN/zerrlq.f index d91b4e4b33..11c232b304 100644 --- a/TESTING/LIN/zerrlq.f +++ b/TESTING/LIN/zerrlq.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRLQ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrls.f b/TESTING/LIN/zerrls.f index 22f049ee06..2e7b7bcb74 100644 --- a/TESTING/LIN/zerrls.f +++ b/TESTING/LIN/zerrls.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRLS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrpo.f b/TESTING/LIN/zerrpo.f index 802377dd59..0e83f9d7e4 100644 --- a/TESTING/LIN/zerrpo.f +++ b/TESTING/LIN/zerrpo.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRPO( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrpox.f b/TESTING/LIN/zerrpox.f index 2af8aeab96..ed51764734 100644 --- a/TESTING/LIN/zerrpox.f +++ b/TESTING/LIN/zerrpox.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE ZERRPO( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrps.f b/TESTING/LIN/zerrps.f index 86425c1920..81c83736eb 100644 --- a/TESTING/LIN/zerrps.f +++ b/TESTING/LIN/zerrps.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRPS( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrql.f b/TESTING/LIN/zerrql.f index ebbbb8f644..4ffd774322 100644 --- a/TESTING/LIN/zerrql.f +++ b/TESTING/LIN/zerrql.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRQL( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrqp.f b/TESTING/LIN/zerrqp.f index 5251d45229..8906101b79 100644 --- a/TESTING/LIN/zerrqp.f +++ b/TESTING/LIN/zerrqp.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE ZERRQP( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrqr.f b/TESTING/LIN/zerrqr.f index 3542c7a043..f12f77b55f 100644 --- a/TESTING/LIN/zerrqr.f +++ b/TESTING/LIN/zerrqr.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRQR( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine (-- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrrfp.f b/TESTING/LIN/zerrrfp.f index e7916d50de..de7ee5c9ae 100644 --- a/TESTING/LIN/zerrrfp.f +++ b/TESTING/LIN/zerrrfp.f @@ -49,6 +49,7 @@ * * ===================================================================== SUBROUTINE ZERRRFP( NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrrq.f b/TESTING/LIN/zerrrq.f index e1af3729ce..4f67756abb 100644 --- a/TESTING/LIN/zerrrq.f +++ b/TESTING/LIN/zerrrq.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRRQ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f index 932df19368..a948e0795b 100644 --- a/TESTING/LIN/zerrsy.f +++ b/TESTING/LIN/zerrsy.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRSY( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrsyx.f b/TESTING/LIN/zerrsyx.f index 9d5e71288b..e238e6fd1a 100644 --- a/TESTING/LIN/zerrsyx.f +++ b/TESTING/LIN/zerrsyx.f @@ -55,6 +55,7 @@ * * ===================================================================== SUBROUTINE ZERRSY( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrtr.f b/TESTING/LIN/zerrtr.f index 640c39793f..7c61c0bfe2 100644 --- a/TESTING/LIN/zerrtr.f +++ b/TESTING/LIN/zerrtr.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE ZERRTR( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrtz.f b/TESTING/LIN/zerrtz.f index 693ec0cb1a..23fa3b6dda 100644 --- a/TESTING/LIN/zerrtz.f +++ b/TESTING/LIN/zerrtz.f @@ -51,6 +51,7 @@ * * ===================================================================== SUBROUTINE ZERRTZ( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrvx.f b/TESTING/LIN/zerrvx.f index 80b3aaf4af..09d412d07c 100644 --- a/TESTING/LIN/zerrvx.f +++ b/TESTING/LIN/zerrvx.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRVX( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f index 8fd920fccf..5b2d55c8d2 100644 --- a/TESTING/LIN/zerrvxx.f +++ b/TESTING/LIN/zerrvxx.f @@ -52,6 +52,7 @@ * * ===================================================================== SUBROUTINE ZERRVX( PATH, NUNIT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgbt01.f b/TESTING/LIN/zgbt01.f index e041ab9fa0..4126774539 100644 --- a/TESTING/LIN/zgbt01.f +++ b/TESTING/LIN/zgbt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgbt02.f b/TESTING/LIN/zgbt02.f index 0d13b571ad..9fa8429c6c 100644 --- a/TESTING/LIN/zgbt02.f +++ b/TESTING/LIN/zgbt02.f @@ -145,6 +145,7 @@ * ===================================================================== SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, $ LDB, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgbt05.f b/TESTING/LIN/zgbt05.f index 0dc6852118..898165aef9 100644 --- a/TESTING/LIN/zgbt05.f +++ b/TESTING/LIN/zgbt05.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE ZGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgennd.f b/TESTING/LIN/zgennd.f index 48c9ad7269..a4a99b6d06 100644 --- a/TESTING/LIN/zgennd.f +++ b/TESTING/LIN/zgennd.f @@ -65,6 +65,7 @@ * * ===================================================================== LOGICAL FUNCTION ZGENND (M, N, A, LDA) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgeqls.f b/TESTING/LIN/zgeqls.f index ee3ec4938a..5d0eb55e85 100644 --- a/TESTING/LIN/zgeqls.f +++ b/TESTING/LIN/zgeqls.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE ZGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgerqs.f b/TESTING/LIN/zgerqs.f index ca9f527f0a..ce3021284e 100644 --- a/TESTING/LIN/zgerqs.f +++ b/TESTING/LIN/zgerqs.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE ZGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zget01.f b/TESTING/LIN/zget01.f index e462298681..bbb20fd7a7 100644 --- a/TESTING/LIN/zget01.f +++ b/TESTING/LIN/zget01.f @@ -105,6 +105,7 @@ * ===================================================================== SUBROUTINE ZGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zget02.f b/TESTING/LIN/zget02.f index 1ffa387959..8f45177b52 100644 --- a/TESTING/LIN/zget02.f +++ b/TESTING/LIN/zget02.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zget03.f b/TESTING/LIN/zget03.f index 74121aabc3..94e5c2226d 100644 --- a/TESTING/LIN/zget03.f +++ b/TESTING/LIN/zget03.f @@ -107,6 +107,7 @@ * ===================================================================== SUBROUTINE ZGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zget04.f b/TESTING/LIN/zget04.f index fa0d23899e..5c2df339be 100644 --- a/TESTING/LIN/zget04.f +++ b/TESTING/LIN/zget04.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zget07.f b/TESTING/LIN/zget07.f index dc78e0bb60..6354993845 100644 --- a/TESTING/LIN/zget07.f +++ b/TESTING/LIN/zget07.f @@ -163,6 +163,7 @@ * ===================================================================== SUBROUTINE ZGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zget08.f b/TESTING/LIN/zget08.f index 32291170c1..9800ee02f7 100644 --- a/TESTING/LIN/zget08.f +++ b/TESTING/LIN/zget08.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE ZGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgtt01.f b/TESTING/LIN/zgtt01.f index a8ac13d2df..d41e26365e 100644 --- a/TESTING/LIN/zgtt01.f +++ b/TESTING/LIN/zgtt01.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE ZGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgtt02.f b/TESTING/LIN/zgtt02.f index f86fe9244c..90cc7356e1 100644 --- a/TESTING/LIN/zgtt02.f +++ b/TESTING/LIN/zgtt02.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zgtt05.f b/TESTING/LIN/zgtt05.f index fc8b2f8d62..cfd971088f 100644 --- a/TESTING/LIN/zgtt05.f +++ b/TESTING/LIN/zgtt05.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE ZGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zhet01.f b/TESTING/LIN/zhet01.f index b532964693..7410fb479d 100644 --- a/TESTING/LIN/zhet01.f +++ b/TESTING/LIN/zhet01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zhet01_3.f b/TESTING/LIN/zhet01_3.f index 5beed9042f..853f146684 100644 --- a/TESTING/LIN/zhet01_3.f +++ b/TESTING/LIN/zhet01_3.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE ZHET01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zhet01_aa.f b/TESTING/LIN/zhet01_aa.f index de6a7475ce..f1035c8180 100644 --- a/TESTING/LIN/zhet01_aa.f +++ b/TESTING/LIN/zhet01_aa.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zhet01_rook.f b/TESTING/LIN/zhet01_rook.f index 88ccf4c1f4..97639450fc 100644 --- a/TESTING/LIN/zhet01_rook.f +++ b/TESTING/LIN/zhet01_rook.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE ZHET01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zhpt01.f b/TESTING/LIN/zhpt01.f index 5ac14fdcfe..61db22601c 100644 --- a/TESTING/LIN/zhpt01.f +++ b/TESTING/LIN/zhpt01.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE ZHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlahilb.f b/TESTING/LIN/zlahilb.f index ffd98b4f8d..42babae7c4 100644 --- a/TESTING/LIN/zlahilb.f +++ b/TESTING/LIN/zlahilb.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlaipd.f b/TESTING/LIN/zlaipd.f index 2e70cdf480..b3d8efbb1f 100644 --- a/TESTING/LIN/zlaipd.f +++ b/TESTING/LIN/zlaipd.f @@ -80,6 +80,7 @@ * * ===================================================================== SUBROUTINE ZLAIPD( N, A, INDA, VINDA ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlaptm.f b/TESTING/LIN/zlaptm.f index 818284bb0d..664a6c88df 100644 --- a/TESTING/LIN/zlaptm.f +++ b/TESTING/LIN/zlaptm.f @@ -126,6 +126,7 @@ * ===================================================================== SUBROUTINE ZLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, $ LDB ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlarhs.f b/TESTING/LIN/zlarhs.f index 210a4a3c14..a8c72e2511 100644 --- a/TESTING/LIN/zlarhs.f +++ b/TESTING/LIN/zlarhs.f @@ -205,6 +205,7 @@ * ===================================================================== SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlatb4.f b/TESTING/LIN/zlatb4.f index a2b19f83d5..ab3d2343cb 100644 --- a/TESTING/LIN/zlatb4.f +++ b/TESTING/LIN/zlatb4.f @@ -118,6 +118,7 @@ * ===================================================================== SUBROUTINE ZLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlatb5.f b/TESTING/LIN/zlatb5.f index bf717e8d34..f062271db3 100644 --- a/TESTING/LIN/zlatb5.f +++ b/TESTING/LIN/zlatb5.f @@ -111,6 +111,7 @@ * ===================================================================== SUBROUTINE ZLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlatsp.f b/TESTING/LIN/zlatsp.f index e105062959..ccff3804c5 100644 --- a/TESTING/LIN/zlatsp.f +++ b/TESTING/LIN/zlatsp.f @@ -81,6 +81,7 @@ * * ===================================================================== SUBROUTINE ZLATSP( UPLO, N, X, ISEED ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlatsy.f b/TESTING/LIN/zlatsy.f index d79c55227e..31ce9ae0e4 100644 --- a/TESTING/LIN/zlatsy.f +++ b/TESTING/LIN/zlatsy.f @@ -86,6 +86,7 @@ * * ===================================================================== SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlattb.f b/TESTING/LIN/zlattb.f index e18fd7fcd7..7c4bc22737 100644 --- a/TESTING/LIN/zlattb.f +++ b/TESTING/LIN/zlattb.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE ZLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlattp.f b/TESTING/LIN/zlattp.f index 698b77ad41..7cc79bc576 100644 --- a/TESTING/LIN/zlattp.f +++ b/TESTING/LIN/zlattp.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE ZLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, $ RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlattr.f b/TESTING/LIN/zlattr.f index d5741aa32a..2a7b66f4f7 100644 --- a/TESTING/LIN/zlattr.f +++ b/TESTING/LIN/zlattr.f @@ -135,6 +135,7 @@ * ===================================================================== SUBROUTINE ZLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlavhe.f b/TESTING/LIN/zlavhe.f index 90806f613a..1c552b52ea 100644 --- a/TESTING/LIN/zlavhe.f +++ b/TESTING/LIN/zlavhe.f @@ -150,6 +150,7 @@ * ===================================================================== SUBROUTINE ZLAVHE( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlavhe_rook.f b/TESTING/LIN/zlavhe_rook.f index 7a7e3686c7..fcb5e60b53 100644 --- a/TESTING/LIN/zlavhe_rook.f +++ b/TESTING/LIN/zlavhe_rook.f @@ -150,6 +150,7 @@ * ===================================================================== SUBROUTINE ZLAVHE_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlavhp.f b/TESTING/LIN/zlavhp.f index 9d0afefd04..7fe97c95d8 100644 --- a/TESTING/LIN/zlavhp.f +++ b/TESTING/LIN/zlavhp.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE ZLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlavsp.f b/TESTING/LIN/zlavsp.f index eb296cb952..524d30603c 100644 --- a/TESTING/LIN/zlavsp.f +++ b/TESTING/LIN/zlavsp.f @@ -128,6 +128,7 @@ * ===================================================================== SUBROUTINE ZLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlavsy.f b/TESTING/LIN/zlavsy.f index b97148f9f8..49aa0aac47 100644 --- a/TESTING/LIN/zlavsy.f +++ b/TESTING/LIN/zlavsy.f @@ -150,6 +150,7 @@ * ===================================================================== SUBROUTINE ZLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlavsy_rook.f b/TESTING/LIN/zlavsy_rook.f index 942d0f0233..5493cff312 100644 --- a/TESTING/LIN/zlavsy_rook.f +++ b/TESTING/LIN/zlavsy_rook.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE ZLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlqt01.f b/TESTING/LIN/zlqt01.f index c2a7f82ce8..befabb8132 100644 --- a/TESTING/LIN/zlqt01.f +++ b/TESTING/LIN/zlqt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlqt02.f b/TESTING/LIN/zlqt02.f index 9ba98ff1f9..aaeafd8294 100644 --- a/TESTING/LIN/zlqt02.f +++ b/TESTING/LIN/zlqt02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE ZLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zlqt03.f b/TESTING/LIN/zlqt03.f index 0765b3cd6f..34df003fe8 100644 --- a/TESTING/LIN/zlqt03.f +++ b/TESTING/LIN/zlqt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpbt01.f b/TESTING/LIN/zpbt01.f index 1801b66cff..77adfc111a 100644 --- a/TESTING/LIN/zpbt01.f +++ b/TESTING/LIN/zpbt01.f @@ -117,6 +117,7 @@ * ===================================================================== SUBROUTINE ZPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpbt02.f b/TESTING/LIN/zpbt02.f index e4f8329963..330788467d 100644 --- a/TESTING/LIN/zpbt02.f +++ b/TESTING/LIN/zpbt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpbt05.f b/TESTING/LIN/zpbt05.f index 03376e0cec..6aece07379 100644 --- a/TESTING/LIN/zpbt05.f +++ b/TESTING/LIN/zpbt05.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE ZPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpot01.f b/TESTING/LIN/zpot01.f index de83414c63..844061107f 100644 --- a/TESTING/LIN/zpot01.f +++ b/TESTING/LIN/zpot01.f @@ -103,6 +103,7 @@ * * ===================================================================== SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpot02.f b/TESTING/LIN/zpot02.f index 17b6904001..df64a557d4 100644 --- a/TESTING/LIN/zpot02.f +++ b/TESTING/LIN/zpot02.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE ZPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpot03.f b/TESTING/LIN/zpot03.f index f3cbd11410..15d7f0a2e6 100644 --- a/TESTING/LIN/zpot03.f +++ b/TESTING/LIN/zpot03.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpot05.f b/TESTING/LIN/zpot05.f index 35239083ab..ad779d235b 100644 --- a/TESTING/LIN/zpot05.f +++ b/TESTING/LIN/zpot05.f @@ -162,6 +162,7 @@ * ===================================================================== SUBROUTINE ZPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpot06.f b/TESTING/LIN/zpot06.f index c97f432344..34993e8125 100644 --- a/TESTING/LIN/zpot06.f +++ b/TESTING/LIN/zpot06.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zppt01.f b/TESTING/LIN/zppt01.f index acaea50d20..4791d53b23 100644 --- a/TESTING/LIN/zppt01.f +++ b/TESTING/LIN/zppt01.f @@ -92,6 +92,7 @@ * * ===================================================================== SUBROUTINE ZPPT01( UPLO, N, A, AFAC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zppt02.f b/TESTING/LIN/zppt02.f index 40b71c9693..b3f22898b7 100644 --- a/TESTING/LIN/zppt02.f +++ b/TESTING/LIN/zppt02.f @@ -120,6 +120,7 @@ * ===================================================================== SUBROUTINE ZPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zppt03.f b/TESTING/LIN/zppt03.f index 52c2590faf..833118e373 100644 --- a/TESTING/LIN/zppt03.f +++ b/TESTING/LIN/zppt03.f @@ -107,6 +107,7 @@ * ===================================================================== SUBROUTINE ZPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zppt05.f b/TESTING/LIN/zppt05.f index ccde4a2372..2d5fedcd76 100644 --- a/TESTING/LIN/zppt05.f +++ b/TESTING/LIN/zppt05.f @@ -154,6 +154,7 @@ * ===================================================================== SUBROUTINE ZPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zpst01.f b/TESTING/LIN/zpst01.f index bed18c514d..afccb1046e 100644 --- a/TESTING/LIN/zpst01.f +++ b/TESTING/LIN/zpst01.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zptt01.f b/TESTING/LIN/zptt01.f index 9f2359c2a8..d1f43ae653 100644 --- a/TESTING/LIN/zptt01.f +++ b/TESTING/LIN/zptt01.f @@ -89,6 +89,7 @@ * * ===================================================================== SUBROUTINE ZPTT01( N, D, E, DF, EF, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zptt02.f b/TESTING/LIN/zptt02.f index 8a1e2961c6..c381046632 100644 --- a/TESTING/LIN/zptt02.f +++ b/TESTING/LIN/zptt02.f @@ -112,6 +112,7 @@ * * ===================================================================== SUBROUTINE ZPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zptt05.f b/TESTING/LIN/zptt05.f index 82d497e0e6..eb49b308b5 100644 --- a/TESTING/LIN/zptt05.f +++ b/TESTING/LIN/zptt05.f @@ -147,6 +147,7 @@ * ===================================================================== SUBROUTINE ZPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqlt01.f b/TESTING/LIN/zqlt01.f index d5eef9ff4f..5190b52574 100644 --- a/TESTING/LIN/zqlt01.f +++ b/TESTING/LIN/zqlt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqlt02.f b/TESTING/LIN/zqlt02.f index 7cb889931b..d7ffaed51a 100644 --- a/TESTING/LIN/zqlt02.f +++ b/TESTING/LIN/zqlt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqlt03.f b/TESTING/LIN/zqlt03.f index a7d9b27ca4..c8d856c0a5 100644 --- a/TESTING/LIN/zqlt03.f +++ b/TESTING/LIN/zqlt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqpt01.f b/TESTING/LIN/zqpt01.f index c69eb658fd..61a00aa483 100644 --- a/TESTING/LIN/zqpt01.f +++ b/TESTING/LIN/zqpt01.f @@ -117,6 +117,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt01.f b/TESTING/LIN/zqrt01.f index 4aa0aa59fd..f1f533d244 100644 --- a/TESTING/LIN/zqrt01.f +++ b/TESTING/LIN/zqrt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt01p.f b/TESTING/LIN/zqrt01p.f index eb991152ca..56bffa0b10 100644 --- a/TESTING/LIN/zqrt01p.f +++ b/TESTING/LIN/zqrt01p.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt02.f b/TESTING/LIN/zqrt02.f index a32703c496..f2d8e35663 100644 --- a/TESTING/LIN/zqrt02.f +++ b/TESTING/LIN/zqrt02.f @@ -132,6 +132,7 @@ * ===================================================================== SUBROUTINE ZQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt03.f b/TESTING/LIN/zqrt03.f index 56b2e3b505..5931c159ad 100644 --- a/TESTING/LIN/zqrt03.f +++ b/TESTING/LIN/zqrt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt11.f b/TESTING/LIN/zqrt11.f index dc4af744f6..7af12fffa8 100644 --- a/TESTING/LIN/zqrt11.f +++ b/TESTING/LIN/zqrt11.f @@ -95,6 +95,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT11( M, K, A, LDA, TAU, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt12.f b/TESTING/LIN/zqrt12.f index 91477b5ea2..87be412f4a 100644 --- a/TESTING/LIN/zqrt12.f +++ b/TESTING/LIN/zqrt12.f @@ -94,6 +94,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT12( M, N, A, LDA, S, WORK, LWORK, $ RWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt13.f b/TESTING/LIN/zqrt13.f index c28f2869ab..67c4884f74 100644 --- a/TESTING/LIN/zqrt13.f +++ b/TESTING/LIN/zqrt13.f @@ -88,6 +88,7 @@ * * ===================================================================== SUBROUTINE ZQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt14.f b/TESTING/LIN/zqrt14.f index 80c8ac56f1..919d2872fb 100644 --- a/TESTING/LIN/zqrt14.f +++ b/TESTING/LIN/zqrt14.f @@ -113,6 +113,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt15.f b/TESTING/LIN/zqrt15.f index efea51b944..625797547e 100644 --- a/TESTING/LIN/zqrt15.f +++ b/TESTING/LIN/zqrt15.f @@ -146,6 +146,7 @@ * ===================================================================== SUBROUTINE ZQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt16.f b/TESTING/LIN/zqrt16.f index 9becd6d3b0..5d9493119f 100644 --- a/TESTING/LIN/zqrt16.f +++ b/TESTING/LIN/zqrt16.f @@ -130,6 +130,7 @@ * ===================================================================== SUBROUTINE ZQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zqrt17.f b/TESTING/LIN/zqrt17.f index 9a0770c626..f404ad5bf3 100644 --- a/TESTING/LIN/zqrt17.f +++ b/TESTING/LIN/zqrt17.f @@ -150,6 +150,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zrqt01.f b/TESTING/LIN/zrqt01.f index 2f60426f5a..45a76d8e25 100644 --- a/TESTING/LIN/zrqt01.f +++ b/TESTING/LIN/zrqt01.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zrqt02.f b/TESTING/LIN/zrqt02.f index c44e04cb69..8de952847e 100644 --- a/TESTING/LIN/zrqt02.f +++ b/TESTING/LIN/zrqt02.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zrqt03.f b/TESTING/LIN/zrqt03.f index 6393224bfc..579cac4c18 100644 --- a/TESTING/LIN/zrqt03.f +++ b/TESTING/LIN/zrqt03.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE ZRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zrzt01.f b/TESTING/LIN/zrzt01.f index b6e4d73f9a..5d9f4a2154 100644 --- a/TESTING/LIN/zrzt01.f +++ b/TESTING/LIN/zrzt01.f @@ -95,6 +95,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zrzt02.f b/TESTING/LIN/zrzt02.f index 0ea6dab024..d532e8f607 100644 --- a/TESTING/LIN/zrzt02.f +++ b/TESTING/LIN/zrzt02.f @@ -88,6 +88,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zsbmv.f b/TESTING/LIN/zsbmv.f index 9272052626..938dd5e2ce 100644 --- a/TESTING/LIN/zsbmv.f +++ b/TESTING/LIN/zsbmv.f @@ -149,6 +149,7 @@ * ===================================================================== SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zspt01.f b/TESTING/LIN/zspt01.f index 6269ef790e..90bdd341d7 100644 --- a/TESTING/LIN/zspt01.f +++ b/TESTING/LIN/zspt01.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zspt02.f b/TESTING/LIN/zspt02.f index e34ce22c22..67ba287733 100644 --- a/TESTING/LIN/zspt02.f +++ b/TESTING/LIN/zspt02.f @@ -120,6 +120,7 @@ * ===================================================================== SUBROUTINE ZSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zspt03.f b/TESTING/LIN/zspt03.f index 2819b930ba..f818524628 100644 --- a/TESTING/LIN/zspt03.f +++ b/TESTING/LIN/zspt03.f @@ -107,6 +107,7 @@ * ===================================================================== SUBROUTINE ZSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zsyt01.f b/TESTING/LIN/zsyt01.f index 32b7a698cc..02d2b853ee 100644 --- a/TESTING/LIN/zsyt01.f +++ b/TESTING/LIN/zsyt01.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE ZSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zsyt01_3.f b/TESTING/LIN/zsyt01_3.f index a572353f26..6c8df0e862 100644 --- a/TESTING/LIN/zsyt01_3.f +++ b/TESTING/LIN/zsyt01_3.f @@ -138,6 +138,7 @@ * ===================================================================== SUBROUTINE ZSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zsyt01_aa.f b/TESTING/LIN/zsyt01_aa.f index 71779938d4..ed65a5128d 100644 --- a/TESTING/LIN/zsyt01_aa.f +++ b/TESTING/LIN/zsyt01_aa.f @@ -121,6 +121,7 @@ * ===================================================================== SUBROUTINE ZSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zsyt01_rook.f b/TESTING/LIN/zsyt01_rook.f index 885bebc021..cf7a9b3925 100644 --- a/TESTING/LIN/zsyt01_rook.f +++ b/TESTING/LIN/zsyt01_rook.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE ZSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zsyt02.f b/TESTING/LIN/zsyt02.f index 5792a3ba8e..0809380e75 100644 --- a/TESTING/LIN/zsyt02.f +++ b/TESTING/LIN/zsyt02.f @@ -124,6 +124,7 @@ * ===================================================================== SUBROUTINE ZSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/zsyt03.f b/TESTING/LIN/zsyt03.f index 74efd913f0..654a6f7d96 100644 --- a/TESTING/LIN/zsyt03.f +++ b/TESTING/LIN/zsyt03.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztbt02.f b/TESTING/LIN/ztbt02.f index 20917d9f7e..d6546a0b26 100644 --- a/TESTING/LIN/ztbt02.f +++ b/TESTING/LIN/ztbt02.f @@ -156,6 +156,7 @@ * ===================================================================== SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztbt03.f b/TESTING/LIN/ztbt03.f index d00cf82238..d21294f1c5 100644 --- a/TESTING/LIN/ztbt03.f +++ b/TESTING/LIN/ztbt03.f @@ -174,6 +174,7 @@ SUBROUTINE ZTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztbt05.f b/TESTING/LIN/ztbt05.f index 10863ff1c2..ed775e78ea 100644 --- a/TESTING/LIN/ztbt05.f +++ b/TESTING/LIN/ztbt05.f @@ -186,6 +186,7 @@ * ===================================================================== SUBROUTINE ZTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztbt06.f b/TESTING/LIN/ztbt06.f index b033a5db3d..358b9f8429 100644 --- a/TESTING/LIN/ztbt06.f +++ b/TESTING/LIN/ztbt06.f @@ -123,6 +123,7 @@ * ===================================================================== SUBROUTINE ZTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ RWORK, RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztpt01.f b/TESTING/LIN/ztpt01.f index 3da15f7f3d..da29456e84 100644 --- a/TESTING/LIN/ztpt01.f +++ b/TESTING/LIN/ztpt01.f @@ -106,6 +106,7 @@ * * ===================================================================== SUBROUTINE ZTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztpt02.f b/TESTING/LIN/ztpt02.f index d6b9dabafa..89b2a5920e 100644 --- a/TESTING/LIN/ztpt02.f +++ b/TESTING/LIN/ztpt02.f @@ -144,6 +144,7 @@ * ===================================================================== SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztpt03.f b/TESTING/LIN/ztpt03.f index 802e1a611b..f91960ec21 100644 --- a/TESTING/LIN/ztpt03.f +++ b/TESTING/LIN/ztpt03.f @@ -159,6 +159,7 @@ * ===================================================================== SUBROUTINE ZTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztpt05.f b/TESTING/LIN/ztpt05.f index 2ca7c38744..657edca5c1 100644 --- a/TESTING/LIN/ztpt05.f +++ b/TESTING/LIN/ztpt05.f @@ -172,6 +172,7 @@ * ===================================================================== SUBROUTINE ZTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztpt06.f b/TESTING/LIN/ztpt06.f index 5ab661626c..f9bf5e8181 100644 --- a/TESTING/LIN/ztpt06.f +++ b/TESTING/LIN/ztpt06.f @@ -109,6 +109,7 @@ * * ===================================================================== SUBROUTINE ZTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztrt01.f b/TESTING/LIN/ztrt01.f index ddb212b02f..3c573dd41d 100644 --- a/TESTING/LIN/ztrt01.f +++ b/TESTING/LIN/ztrt01.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE ZTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztrt02.f b/TESTING/LIN/ztrt02.f index 69f04c9dbc..6129881d96 100644 --- a/TESTING/LIN/ztrt02.f +++ b/TESTING/LIN/ztrt02.f @@ -152,6 +152,7 @@ * ===================================================================== SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RWORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztrt03.f b/TESTING/LIN/ztrt03.f index a37887f7e3..aff9a70d0e 100644 --- a/TESTING/LIN/ztrt03.f +++ b/TESTING/LIN/ztrt03.f @@ -168,6 +168,7 @@ * ===================================================================== SUBROUTINE ZTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztrt05.f b/TESTING/LIN/ztrt05.f index 63ba27b9aa..190a78874f 100644 --- a/TESTING/LIN/ztrt05.f +++ b/TESTING/LIN/ztrt05.f @@ -179,6 +179,7 @@ * ===================================================================== SUBROUTINE ZTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/LIN/ztrt06.f b/TESTING/LIN/ztrt06.f index ed55905dad..e3ecaa1293 100644 --- a/TESTING/LIN/ztrt06.f +++ b/TESTING/LIN/ztrt06.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE ZTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, $ RAT ) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clagge.f b/TESTING/MATGEN/clagge.f index 4575608f69..4fd32d2943 100644 --- a/TESTING/MATGEN/clagge.f +++ b/TESTING/MATGEN/clagge.f @@ -111,6 +111,7 @@ * * ===================================================================== SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/claghe.f b/TESTING/MATGEN/claghe.f index 723e0f2d14..259ab07dc9 100644 --- a/TESTING/MATGEN/claghe.f +++ b/TESTING/MATGEN/claghe.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clagsy.f b/TESTING/MATGEN/clagsy.f index b01d155653..9ee0e9777e 100644 --- a/TESTING/MATGEN/clagsy.f +++ b/TESTING/MATGEN/clagsy.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE CLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clahilb.f b/TESTING/MATGEN/clahilb.f index e543614a58..0a85eff47a 100644 --- a/TESTING/MATGEN/clahilb.f +++ b/TESTING/MATGEN/clahilb.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clakf2.f b/TESTING/MATGEN/clakf2.f index 5f03cc181c..6a717ef024 100644 --- a/TESTING/MATGEN/clakf2.f +++ b/TESTING/MATGEN/clakf2.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE CLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clarge.f b/TESTING/MATGEN/clarge.f index 77086a4815..1b68d7553a 100644 --- a/TESTING/MATGEN/clarge.f +++ b/TESTING/MATGEN/clarge.f @@ -84,6 +84,7 @@ * * ===================================================================== SUBROUTINE CLARGE( N, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clarnd.f b/TESTING/MATGEN/clarnd.f index 1de7f9f273..0e4b0250ba 100644 --- a/TESTING/MATGEN/clarnd.f +++ b/TESTING/MATGEN/clarnd.f @@ -72,6 +72,7 @@ *> * ===================================================================== COMPLEX FUNCTION CLARND( IDIST, ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/claror.f b/TESTING/MATGEN/claror.f index de5331e1f6..f303d270f7 100644 --- a/TESTING/MATGEN/claror.f +++ b/TESTING/MATGEN/claror.f @@ -155,6 +155,7 @@ * * ===================================================================== SUBROUTINE CLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clarot.f b/TESTING/MATGEN/clarot.f index 37cf75dcf4..14df3f0bf0 100644 --- a/TESTING/MATGEN/clarot.f +++ b/TESTING/MATGEN/clarot.f @@ -227,6 +227,7 @@ SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, $ XLEFT, $ XRIGHT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatm1.f b/TESTING/MATGEN/clatm1.f index 0ed6d8d871..6e056ec2ba 100644 --- a/TESTING/MATGEN/clatm1.f +++ b/TESTING/MATGEN/clatm1.f @@ -135,6 +135,7 @@ * ===================================================================== SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatm2.f b/TESTING/MATGEN/clatm2.f index cd2dc7ae47..6429304c2f 100644 --- a/TESTING/MATGEN/clatm2.f +++ b/TESTING/MATGEN/clatm2.f @@ -209,6 +209,7 @@ * ===================================================================== COMPLEX FUNCTION CLATM2( M, N, I, J, KL, KU, IDIST, ISEED, D, $ IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatm3.f b/TESTING/MATGEN/clatm3.f index 863325b3f2..7d9efca7dd 100644 --- a/TESTING/MATGEN/clatm3.f +++ b/TESTING/MATGEN/clatm3.f @@ -226,6 +226,7 @@ COMPLEX FUNCTION CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatm5.f b/TESTING/MATGEN/clatm5.f index c5938713b4..1a26de078f 100644 --- a/TESTING/MATGEN/clatm5.f +++ b/TESTING/MATGEN/clatm5.f @@ -266,6 +266,7 @@ SUBROUTINE CLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatm6.f b/TESTING/MATGEN/clatm6.f index 632e896d8c..42e57225fc 100644 --- a/TESTING/MATGEN/clatm6.f +++ b/TESTING/MATGEN/clatm6.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE CLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatme.f b/TESTING/MATGEN/clatme.f index 213a4b3bca..88b6467850 100644 --- a/TESTING/MATGEN/clatme.f +++ b/TESTING/MATGEN/clatme.f @@ -298,6 +298,7 @@ SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, $ A, $ LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatmr.f b/TESTING/MATGEN/clatmr.f index 9399ea0093..7c578b36e7 100644 --- a/TESTING/MATGEN/clatmr.f +++ b/TESTING/MATGEN/clatmr.f @@ -487,6 +487,7 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatms.f b/TESTING/MATGEN/clatms.f index cee254c7a9..36434d84a3 100644 --- a/TESTING/MATGEN/clatms.f +++ b/TESTING/MATGEN/clatms.f @@ -329,6 +329,7 @@ * ===================================================================== SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/clatmt.f b/TESTING/MATGEN/clatmt.f index 52425d8ac5..e93f00adcc 100644 --- a/TESTING/MATGEN/clatmt.f +++ b/TESTING/MATGEN/clatmt.f @@ -337,6 +337,7 @@ * ===================================================================== SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlagge.f b/TESTING/MATGEN/dlagge.f index ffd11d2785..9e5ee4d52a 100644 --- a/TESTING/MATGEN/dlagge.f +++ b/TESTING/MATGEN/dlagge.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlagsy.f b/TESTING/MATGEN/dlagsy.f index 7ba58ee4f5..e0205a67f6 100644 --- a/TESTING/MATGEN/dlagsy.f +++ b/TESTING/MATGEN/dlagsy.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE DLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlahilb.f b/TESTING/MATGEN/dlahilb.f index f16c6bfb8c..709cae8cbb 100644 --- a/TESTING/MATGEN/dlahilb.f +++ b/TESTING/MATGEN/dlahilb.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlakf2.f b/TESTING/MATGEN/dlakf2.f index 76baefdcdd..8c1e52dde6 100644 --- a/TESTING/MATGEN/dlakf2.f +++ b/TESTING/MATGEN/dlakf2.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE DLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlaran.f b/TESTING/MATGEN/dlaran.f index 24f6e97278..f42138a1b7 100644 --- a/TESTING/MATGEN/dlaran.f +++ b/TESTING/MATGEN/dlaran.f @@ -64,6 +64,7 @@ *> * ===================================================================== DOUBLE PRECISION FUNCTION DLARAN( ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlarge.f b/TESTING/MATGEN/dlarge.f index 4f1c09477d..842efc19fe 100644 --- a/TESTING/MATGEN/dlarge.f +++ b/TESTING/MATGEN/dlarge.f @@ -84,6 +84,7 @@ * * ===================================================================== SUBROUTINE DLARGE( N, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlarnd.f b/TESTING/MATGEN/dlarnd.f index f41f2ceab8..8562574f3d 100644 --- a/TESTING/MATGEN/dlarnd.f +++ b/TESTING/MATGEN/dlarnd.f @@ -70,6 +70,7 @@ *> * ===================================================================== DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlaror.f b/TESTING/MATGEN/dlaror.f index 183aa00d0a..8994def144 100644 --- a/TESTING/MATGEN/dlaror.f +++ b/TESTING/MATGEN/dlaror.f @@ -143,6 +143,7 @@ * * ===================================================================== SUBROUTINE DLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlarot.f b/TESTING/MATGEN/dlarot.f index 7dc7d6a0fc..d42b5e5d5c 100644 --- a/TESTING/MATGEN/dlarot.f +++ b/TESTING/MATGEN/dlarot.f @@ -224,6 +224,7 @@ SUBROUTINE DLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, $ XLEFT, $ XRIGHT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatm1.f b/TESTING/MATGEN/dlatm1.f index efe782ed47..00b3d3e47d 100644 --- a/TESTING/MATGEN/dlatm1.f +++ b/TESTING/MATGEN/dlatm1.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE DLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatm2.f b/TESTING/MATGEN/dlatm2.f index 5a55addc36..bf5c0700ce 100644 --- a/TESTING/MATGEN/dlatm2.f +++ b/TESTING/MATGEN/dlatm2.f @@ -205,6 +205,7 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatm3.f b/TESTING/MATGEN/dlatm3.f index 7ffee9cec9..bea8cec7cb 100644 --- a/TESTING/MATGEN/dlatm3.f +++ b/TESTING/MATGEN/dlatm3.f @@ -224,6 +224,7 @@ DOUBLE PRECISION FUNCTION DLATM3( M, N, I, J, ISUB, JSUB, KL, $ KU, $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatm5.f b/TESTING/MATGEN/dlatm5.f index 379183b009..a46d05ebd3 100644 --- a/TESTING/MATGEN/dlatm5.f +++ b/TESTING/MATGEN/dlatm5.f @@ -266,6 +266,7 @@ SUBROUTINE DLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatm6.f b/TESTING/MATGEN/dlatm6.f index 01941609cf..b4eede5e68 100644 --- a/TESTING/MATGEN/dlatm6.f +++ b/TESTING/MATGEN/dlatm6.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE DLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatm7.f b/TESTING/MATGEN/dlatm7.f index 38c993dad7..d4d3448ffb 100644 --- a/TESTING/MATGEN/dlatm7.f +++ b/TESTING/MATGEN/dlatm7.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE DLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ RANK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatme.f b/TESTING/MATGEN/dlatme.f index 311f16e2da..287449f10f 100644 --- a/TESTING/MATGEN/dlatme.f +++ b/TESTING/MATGEN/dlatme.f @@ -329,6 +329,7 @@ SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, $ A, $ LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatmr.f b/TESTING/MATGEN/dlatmr.f index 4bcc12f363..284eeb32e9 100644 --- a/TESTING/MATGEN/dlatmr.f +++ b/TESTING/MATGEN/dlatmr.f @@ -468,6 +468,7 @@ SUBROUTINE DLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatms.f b/TESTING/MATGEN/dlatms.f index 0cb6cf2434..e4e49d90ae 100644 --- a/TESTING/MATGEN/dlatms.f +++ b/TESTING/MATGEN/dlatms.f @@ -318,6 +318,7 @@ * ===================================================================== SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/dlatmt.f b/TESTING/MATGEN/dlatmt.f index 7b39daee7c..7463e4d9e3 100644 --- a/TESTING/MATGEN/dlatmt.f +++ b/TESTING/MATGEN/dlatmt.f @@ -328,6 +328,7 @@ * ===================================================================== SUBROUTINE DLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slagge.f b/TESTING/MATGEN/slagge.f index 9627d563d8..1e98d30236 100644 --- a/TESTING/MATGEN/slagge.f +++ b/TESTING/MATGEN/slagge.f @@ -110,6 +110,7 @@ * * ===================================================================== SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slagsy.f b/TESTING/MATGEN/slagsy.f index dd319dadcd..239c5eb1f8 100644 --- a/TESTING/MATGEN/slagsy.f +++ b/TESTING/MATGEN/slagsy.f @@ -98,6 +98,7 @@ * * ===================================================================== SUBROUTINE SLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slahilb.f b/TESTING/MATGEN/slahilb.f index 852de07529..77a8cff01c 100644 --- a/TESTING/MATGEN/slahilb.f +++ b/TESTING/MATGEN/slahilb.f @@ -122,6 +122,7 @@ * ===================================================================== SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slakf2.f b/TESTING/MATGEN/slakf2.f index ef9f90adf0..0046a4b755 100644 --- a/TESTING/MATGEN/slakf2.f +++ b/TESTING/MATGEN/slakf2.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE SLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slaran.f b/TESTING/MATGEN/slaran.f index 586612d9f4..9cefa865b2 100644 --- a/TESTING/MATGEN/slaran.f +++ b/TESTING/MATGEN/slaran.f @@ -64,6 +64,7 @@ *> * ===================================================================== REAL FUNCTION SLARAN( ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slarge.f b/TESTING/MATGEN/slarge.f index 8bebf48d5d..dd8c364c9f 100644 --- a/TESTING/MATGEN/slarge.f +++ b/TESTING/MATGEN/slarge.f @@ -84,6 +84,7 @@ * * ===================================================================== SUBROUTINE SLARGE( N, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slarnd.f b/TESTING/MATGEN/slarnd.f index c2d7a5cb2d..bde5c95e11 100644 --- a/TESTING/MATGEN/slarnd.f +++ b/TESTING/MATGEN/slarnd.f @@ -70,6 +70,7 @@ *> * ===================================================================== REAL FUNCTION SLARND( IDIST, ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slaror.f b/TESTING/MATGEN/slaror.f index 0fc0a7272d..60d19fdd18 100644 --- a/TESTING/MATGEN/slaror.f +++ b/TESTING/MATGEN/slaror.f @@ -143,6 +143,7 @@ * * ===================================================================== SUBROUTINE SLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slarot.f b/TESTING/MATGEN/slarot.f index 0e4d7ef106..c4fcc84652 100644 --- a/TESTING/MATGEN/slarot.f +++ b/TESTING/MATGEN/slarot.f @@ -224,6 +224,7 @@ SUBROUTINE SLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, $ XLEFT, $ XRIGHT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatm1.f b/TESTING/MATGEN/slatm1.f index fb76c55ac9..07ad8432d6 100644 --- a/TESTING/MATGEN/slatm1.f +++ b/TESTING/MATGEN/slatm1.f @@ -133,6 +133,7 @@ * ===================================================================== SUBROUTINE SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatm2.f b/TESTING/MATGEN/slatm2.f index b259c333ea..cdf18c4c61 100644 --- a/TESTING/MATGEN/slatm2.f +++ b/TESTING/MATGEN/slatm2.f @@ -205,6 +205,7 @@ * ===================================================================== REAL FUNCTION SLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatm3.f b/TESTING/MATGEN/slatm3.f index 875866d65e..1308b175f6 100644 --- a/TESTING/MATGEN/slatm3.f +++ b/TESTING/MATGEN/slatm3.f @@ -224,6 +224,7 @@ REAL FUNCTION SLATM3( M, N, I, J, ISUB, JSUB, KL, $ KU, $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatm5.f b/TESTING/MATGEN/slatm5.f index 345cf44d18..54c12b7622 100644 --- a/TESTING/MATGEN/slatm5.f +++ b/TESTING/MATGEN/slatm5.f @@ -266,6 +266,7 @@ SUBROUTINE SLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatm6.f b/TESTING/MATGEN/slatm6.f index b0d27f7dcd..d7448b435e 100644 --- a/TESTING/MATGEN/slatm6.f +++ b/TESTING/MATGEN/slatm6.f @@ -173,6 +173,7 @@ * ===================================================================== SUBROUTINE SLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatm7.f b/TESTING/MATGEN/slatm7.f index 9f9863b00a..a655a606d8 100644 --- a/TESTING/MATGEN/slatm7.f +++ b/TESTING/MATGEN/slatm7.f @@ -119,6 +119,7 @@ * ===================================================================== SUBROUTINE SLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ RANK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatme.f b/TESTING/MATGEN/slatme.f index 049409ca56..c51ed6112b 100644 --- a/TESTING/MATGEN/slatme.f +++ b/TESTING/MATGEN/slatme.f @@ -329,6 +329,7 @@ SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, $ A, $ LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatmr.f b/TESTING/MATGEN/slatmr.f index 0761fef0a0..e5a9c1c7a1 100644 --- a/TESTING/MATGEN/slatmr.f +++ b/TESTING/MATGEN/slatmr.f @@ -468,6 +468,7 @@ SUBROUTINE SLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatms.f b/TESTING/MATGEN/slatms.f index aead76b5f3..f51a8371f3 100644 --- a/TESTING/MATGEN/slatms.f +++ b/TESTING/MATGEN/slatms.f @@ -318,6 +318,7 @@ * ===================================================================== SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/slatmt.f b/TESTING/MATGEN/slatmt.f index 43b5fa372a..0cc7c8abf3 100644 --- a/TESTING/MATGEN/slatmt.f +++ b/TESTING/MATGEN/slatmt.f @@ -328,6 +328,7 @@ * ===================================================================== SUBROUTINE SLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlagge.f b/TESTING/MATGEN/zlagge.f index 8c2a9676ed..4e544a72d4 100644 --- a/TESTING/MATGEN/zlagge.f +++ b/TESTING/MATGEN/zlagge.f @@ -111,6 +111,7 @@ * * ===================================================================== SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlaghe.f b/TESTING/MATGEN/zlaghe.f index fb77cfb4ca..bb696505a3 100644 --- a/TESTING/MATGEN/zlaghe.f +++ b/TESTING/MATGEN/zlaghe.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlagsy.f b/TESTING/MATGEN/zlagsy.f index adbb41e39e..0d2019c8b3 100644 --- a/TESTING/MATGEN/zlagsy.f +++ b/TESTING/MATGEN/zlagsy.f @@ -99,6 +99,7 @@ * * ===================================================================== SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlahilb.f b/TESTING/MATGEN/zlahilb.f index 858b7444af..894e16f243 100644 --- a/TESTING/MATGEN/zlahilb.f +++ b/TESTING/MATGEN/zlahilb.f @@ -131,6 +131,7 @@ * ===================================================================== SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) + IMPLICIT NONE * * -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlakf2.f b/TESTING/MATGEN/zlakf2.f index b6b9ca4a7b..849ba79b59 100644 --- a/TESTING/MATGEN/zlakf2.f +++ b/TESTING/MATGEN/zlakf2.f @@ -102,6 +102,7 @@ * * ===================================================================== SUBROUTINE ZLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlarge.f b/TESTING/MATGEN/zlarge.f index f899bfd3ef..5c06086d3a 100644 --- a/TESTING/MATGEN/zlarge.f +++ b/TESTING/MATGEN/zlarge.f @@ -84,6 +84,7 @@ * * ===================================================================== SUBROUTINE ZLARGE( N, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlarnd.f b/TESTING/MATGEN/zlarnd.f index 6e88067d4f..e87e7dc38a 100644 --- a/TESTING/MATGEN/zlarnd.f +++ b/TESTING/MATGEN/zlarnd.f @@ -72,6 +72,7 @@ *> * ===================================================================== COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlaror.f b/TESTING/MATGEN/zlaror.f index 8ae8f9dc61..26646abad4 100644 --- a/TESTING/MATGEN/zlaror.f +++ b/TESTING/MATGEN/zlaror.f @@ -155,6 +155,7 @@ * * ===================================================================== SUBROUTINE ZLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlarot.f b/TESTING/MATGEN/zlarot.f index 3857d28569..718295e0ab 100644 --- a/TESTING/MATGEN/zlarot.f +++ b/TESTING/MATGEN/zlarot.f @@ -227,6 +227,7 @@ SUBROUTINE ZLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, $ XLEFT, $ XRIGHT ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatm1.f b/TESTING/MATGEN/zlatm1.f index 0a7475634d..8e99077ed7 100644 --- a/TESTING/MATGEN/zlatm1.f +++ b/TESTING/MATGEN/zlatm1.f @@ -135,6 +135,7 @@ * ===================================================================== SUBROUTINE ZLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatm2.f b/TESTING/MATGEN/zlatm2.f index af0151587e..f4b921d8fb 100644 --- a/TESTING/MATGEN/zlatm2.f +++ b/TESTING/MATGEN/zlatm2.f @@ -208,6 +208,7 @@ * ===================================================================== COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatm3.f b/TESTING/MATGEN/zlatm3.f index e7fab607cf..86ddd756d4 100644 --- a/TESTING/MATGEN/zlatm3.f +++ b/TESTING/MATGEN/zlatm3.f @@ -226,6 +226,7 @@ COMPLEX*16 FUNCTION ZLATM3( M, N, I, J, ISUB, JSUB, KL, KU, $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatm5.f b/TESTING/MATGEN/zlatm5.f index ebc2ec4419..bf6cce7d21 100644 --- a/TESTING/MATGEN/zlatm5.f +++ b/TESTING/MATGEN/zlatm5.f @@ -266,6 +266,7 @@ SUBROUTINE ZLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatm6.f b/TESTING/MATGEN/zlatm6.f index 104becfd1b..479f875b92 100644 --- a/TESTING/MATGEN/zlatm6.f +++ b/TESTING/MATGEN/zlatm6.f @@ -171,6 +171,7 @@ * ===================================================================== SUBROUTINE ZLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatme.f b/TESTING/MATGEN/zlatme.f index a081353ce9..7b90c406f4 100644 --- a/TESTING/MATGEN/zlatme.f +++ b/TESTING/MATGEN/zlatme.f @@ -298,6 +298,7 @@ SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, $ A, $ LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatmr.f b/TESTING/MATGEN/zlatmr.f index 72cffec121..faef49d653 100644 --- a/TESTING/MATGEN/zlatmr.f +++ b/TESTING/MATGEN/zlatmr.f @@ -487,6 +487,7 @@ SUBROUTINE ZLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatms.f b/TESTING/MATGEN/zlatms.f index 5e6c4eeccb..f79f8f1325 100644 --- a/TESTING/MATGEN/zlatms.f +++ b/TESTING/MATGEN/zlatms.f @@ -329,6 +329,7 @@ * ===================================================================== SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/TESTING/MATGEN/zlatmt.f b/TESTING/MATGEN/zlatmt.f index 9919456984..4a0662b1fc 100644 --- a/TESTING/MATGEN/zlatmt.f +++ b/TESTING/MATGEN/zlatmt.f @@ -337,6 +337,7 @@ * ===================================================================== SUBROUTINE ZLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, --