Implicit none

BLACS/TESTING/btprim.f

@@ -1,6 +1,7 @@
       SUBROUTINE BTSETUP( MEM, MEMLEN, CMEM, CMEMLEN, OUTNUM,
      $                    TESTSDRV, TESTBSBR, TESTCOMB, TESTAUX,
      $                    IAM, NNODES )
+      IMPLICIT NONE
 *
 *  -- BLACS tester (version 1.0) --
 *  University of Tennessee
@@ -44,6 +45,7 @@ SUBROUTINE BTSETUP( MEM, MEMLEN, CMEM, CMEMLEN, OUTNUM,
       RETURN
       END
       INTEGER FUNCTION IBTMYPROC()
+      IMPLICIT NONE
 *
 *  -- BLACS tester (version 1.0) --
 *  University of Tennessee
@@ -78,6 +80,7 @@ INTEGER FUNCTION IBTMYPROC()
       END
 *
       INTEGER FUNCTION IBTNPROCS()
+      IMPLICIT NONE
 *
 *  -- BLACS tester (version 1.0) --
 *  University of Tennessee
@@ -112,6 +115,7 @@ INTEGER FUNCTION IBTNPROCS()
       END
 *
       SUBROUTINE BTSEND(DTYPE, N, BUFF, DEST, MSGID)
+      IMPLICIT NONE
 *
 *  -- BLACS tester (version 1.0) --
 *  University of Tennessee
@@ -204,6 +208,7 @@ SUBROUTINE BTSEND(DTYPE, N, BUFF, DEST, MSGID)
       END
 *
       SUBROUTINE BTRECV(DTYPE, N, BUFF, SRC, MSGID)
+      IMPLICIT NONE
 *
 *  -- BLACS tester (version 1.0) --
 *  University of Tennessee
@@ -283,6 +288,7 @@ SUBROUTINE BTRECV(DTYPE, N, BUFF, SRC, MSGID)
       END
 *
       INTEGER FUNCTION IBTSIZEOF(TYPE)
+      IMPLICIT NONE
 *
 *  -- BLACS tester (version 1.0) --
 *  University of Tennessee
@@ -359,6 +365,7 @@ INTEGER FUNCTION IBTSIZEOF(TYPE)
       RETURN
       END
       SUBROUTINE BTMPIERR(ROUT, IERR0)
+      IMPLICIT NONE
       CHARACTER*(*) ROUT
       INTEGER IERR0
 *     ..

BLACS/TESTING/tools.f

@@ -7,6 +7,7 @@
 *  ================================================================
 
       DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -137,6 +138,7 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
 ************************************************************************
 *
       SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -324,6 +326,7 @@ SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 )
 ************************************************************************
 *
       SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -583,6 +586,7 @@ SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
 ************************************************************************
 *
       DOUBLE PRECISION FUNCTION DLAMC3( A, B )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -621,6 +625,7 @@ DOUBLE PRECISION FUNCTION DLAMC3( A, B )
 ************************************************************************
 *
       SUBROUTINE DLAMC4( EMIN, START, BASE )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -705,6 +710,7 @@ SUBROUTINE DLAMC4( EMIN, START, BASE )
 ************************************************************************
 *
       SUBROUTINE DLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -864,6 +870,7 @@ SUBROUTINE DLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
 *
       END
       REAL             FUNCTION SLAMCH( CMACH )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -994,6 +1001,7 @@ REAL             FUNCTION SLAMCH( CMACH )
 ************************************************************************
 *
       SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1181,6 +1189,7 @@ SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 )
 ************************************************************************
 *
       SUBROUTINE SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1440,6 +1449,7 @@ SUBROUTINE SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
 ************************************************************************
 *
       REAL             FUNCTION SLAMC3( A, B )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1478,6 +1488,7 @@ REAL             FUNCTION SLAMC3( A, B )
 ************************************************************************
 *
       SUBROUTINE SLAMC4( EMIN, START, BASE )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1562,6 +1573,7 @@ SUBROUTINE SLAMC4( EMIN, START, BASE )
 ************************************************************************
 *
       SUBROUTINE SLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1721,6 +1733,7 @@ SUBROUTINE SLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
 *
       END
       LOGICAL          FUNCTION LSAME( CA, CB )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1808,6 +1821,7 @@ LOGICAL          FUNCTION LSAME( CA, CB )
 *
       END
       DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1997,6 +2011,7 @@ DOUBLE COMPLEX   FUNCTION ZLARND( IDIST, ISEED )
 *
       END
       DOUBLE PRECISION FUNCTION DLARAN( ISEED )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine (version 2.0) --
 *     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,

EXAMPLE/pcscaex.f

@@ -1,4 +1,5 @@
       PROGRAM PCSCAEX
+      IMPLICIT NONE
 *
 *  -- ScaLAPACK example code --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory,

EXAMPLE/pdscaex.f

@@ -1,4 +1,5 @@
       PROGRAM PDSCAEX
+      IMPLICIT NONE
 *
 *  -- ScaLAPACK example code --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory,

EXAMPLE/pdscaexinfo.f

@@ -1,5 +1,6 @@
       SUBROUTINE PDSCAEXINFO( SUMMRY, NOUT, N, NRHS, NB, NPROW, NPCOL,
      $                        WORK, IAM, NPROCS )
+      IMPLICIT NONE
 *
 *  -- ScaLAPACK example code --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory,

EXAMPLE/psscaex.f

@@ -1,4 +1,5 @@
       PROGRAM PSSCAEX
+      IMPLICIT NONE
 *
 *  -- ScaLAPACK example code --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory,

EXAMPLE/pzscaex.f

@@ -1,4 +1,5 @@
       PROGRAM PZSCAEX
+      IMPLICIT NONE
 *
 *  -- ScaLAPACK example code --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory,

PBLAS/SRC/PBBLAS/pbcmatadd.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBCMATADD( ICONTXT, MODE, M, N, ALPHA, A, LDA, BETA, B,
      $                      LDB )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbctran.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBCTRAN( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, BETA,
      $                    C, LDC, IAROW, IACOL, ICROW, ICCOL, WORK )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -612,6 +613,7 @@ SUBROUTINE PBCTRAN( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, BETA,
 *
       SUBROUTINE PBCTR2AT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
      $                     BETA, B, LDB, LCMP, LCMQ )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -703,6 +705,7 @@ SUBROUTINE PBCTR2AT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
 *
       SUBROUTINE PBCTR2BT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
      $                     BETA, B, LDB, INTV )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -790,6 +793,7 @@ SUBROUTINE PBCTR2BT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
 *
       SUBROUTINE PBCTR2AF( ICONTXT, ADIST, M, N, NB, A, LDA, BETA, B,
      $                     LDB, LCMP, LCMQ, NINT )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbctrget.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBCTRGET( ICONTXT, ADIST, M, N, MNB, A, LDA, MCROW,
      $                     MCCOL, IGD, MYROW, MYCOL, NPROW, NPCOL )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbctrnv.f

@@ -1,6 +1,7 @@
       SUBROUTINE PBCTRNV( ICONTXT, XDIST, TRANS, N, NB, NZ, X, INCX,
      $                    BETA, Y, INCY, IXROW, IXCOL, IYROW, IYCOL,
      $                    WORK )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -646,6 +647,7 @@ SUBROUTINE PBCTRNV( ICONTXT, XDIST, TRANS, N, NB, NZ, X, INCX,
 *
       SUBROUTINE PBCTR2A1( ICONTXT, N, NB, NZ, X, INCX, BETA, Y, INCY,
      $                     INTV )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -718,6 +720,7 @@ SUBROUTINE PBCTR2A1( ICONTXT, N, NB, NZ, X, INCX, BETA, Y, INCY,
 *
       SUBROUTINE PBCTR2B1( ICONTXT, TRANS, N, NB, NZ, X, INCX, BETA, Y,
      $                     INCY, JINX, JINY )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbctrsrt.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBCTRSRT( ICONTXT, ADIST, M, N, NB, A, LDA, BETA, B,
      $                     LDB, LCMP, LCMQ, NINT )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbctrst1.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBCTRST1( ICONTXT, XDIST, N, NB, NZ, X, INCX, BETA, Y,
      $                     INCY, LCMP, LCMQ, NINT )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbcvecadd.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBCVECADD( ICONTXT, MODE, N, ALPHA, X, INCX, BETA, Y,
      $                      INCY )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbdmatadd.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBDMATADD( ICONTXT, MODE, M, N, ALPHA, A, LDA, BETA, B,
      $                      LDB )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbdtran.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBDTRAN( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, BETA,
      $                    C, LDC, IAROW, IACOL, ICROW, ICCOL, WORK )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -612,6 +613,7 @@ SUBROUTINE PBDTRAN( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, BETA,
 *
       SUBROUTINE PBDTR2AT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
      $                     BETA, B, LDB, LCMP, LCMQ )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -703,6 +705,7 @@ SUBROUTINE PBDTR2AT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
 *
       SUBROUTINE PBDTR2BT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
      $                     BETA, B, LDB, INTV )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -790,6 +793,7 @@ SUBROUTINE PBDTR2BT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
 *
       SUBROUTINE PBDTR2AF( ICONTXT, ADIST, M, N, NB, A, LDA, BETA, B,
      $                     LDB, LCMP, LCMQ, NINT )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbdtrget.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBDTRGET( ICONTXT, ADIST, M, N, MNB, A, LDA, MCROW,
      $                     MCCOL, IGD, MYROW, MYCOL, NPROW, NPCOL )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbdtrnv.f

@@ -1,6 +1,7 @@
       SUBROUTINE PBDTRNV( ICONTXT, XDIST, TRANS, N, NB, NZ, X, INCX,
      $                    BETA, Y, INCY, IXROW, IXCOL, IYROW, IYCOL,
      $                    WORK )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -645,6 +646,7 @@ SUBROUTINE PBDTRNV( ICONTXT, XDIST, TRANS, N, NB, NZ, X, INCX,
 *
       SUBROUTINE PBDTR2A1( ICONTXT, N, NB, NZ, X, INCX, BETA, Y, INCY,
      $                     INTV )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -717,6 +719,7 @@ SUBROUTINE PBDTR2A1( ICONTXT, N, NB, NZ, X, INCX, BETA, Y, INCY,
 *
       SUBROUTINE PBDTR2B1( ICONTXT, TRANS, N, NB, NZ, X, INCX, BETA, Y,
      $                     INCY, JINX, JINY )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbdtrsrt.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBDTRSRT( ICONTXT, ADIST, M, N, NB, A, LDA, BETA, B,
      $                     LDB, LCMP, LCMQ, NINT )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbdtrst1.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBDTRST1( ICONTXT, XDIST, N, NB, NZ, X, INCX, BETA, Y,
      $                     INCY, LCMP, LCMQ, NINT )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbdvecadd.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBDVECADD( ICONTXT, MODE, N, ALPHA, X, INCX, BETA, Y,
      $                      INCY )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.

PBLAS/SRC/PBBLAS/pbsmatadd.f

@@ -1,5 +1,6 @@
       SUBROUTINE PBSMATADD( ICONTXT, MODE, M, N, ALPHA, A, LDA, BETA, B,
      $                      LDB )
+      IMPLICIT NONE
 *
 *  -- PB-BLAS routine (version 2.1) --
 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory.