diff --git a/BLACS/TESTING/blacstest.f b/BLACS/TESTING/blacstest.f index d06ccd89..999ac3c6 100644 --- a/BLACS/TESTING/blacstest.f +++ b/BLACS/TESTING/blacstest.f @@ -1,4 +1,5 @@ PROGRAM BLACSTEST + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -178,6 +179,7 @@ PROGRAM BLACSTEST SUBROUTINE RUNTESTS( MEM, MEMLEN, CMEM, CMEMLEN, PREC, NPREC, $ OUTNUM, VERB, TESTSDRV, TESTBSBR, TESTCOMB, $ TESTAUX ) + IMPLICIT NONE * * .. Scalar Arguments .. INTEGER MEMLEN, CMEMLEN, NPREC, OUTNUM, VERB, IAM, NNODES @@ -637,6 +639,7 @@ SUBROUTINE RUNTESTS( MEM, MEMLEN, CMEM, CMEMLEN, PREC, NPREC, END * SUBROUTINE MAKEGRIDS( CONTEXTS, OUTNUM, NGRIDS, P, Q ) + IMPLICIT NONE INTEGER NGRIDS, OUTNUM INTEGER CONTEXTS(NGRIDS), P(NGRIDS), Q(NGRIDS) INTEGER IBTMYPROC @@ -665,6 +668,7 @@ SUBROUTINE MAKEGRIDS( CONTEXTS, OUTNUM, NGRIDS, P, Q ) END * SUBROUTINE FREEGRIDS( NGRIDS, CONTEXTS ) + IMPLICIT NONE INTEGER NGRIDS INTEGER CONTEXTS(NGRIDS) INTEGER I, NPROW, NPCOL, MYROW, MYCOL @@ -678,6 +682,7 @@ SUBROUTINE FREEGRIDS( NGRIDS, CONTEXTS ) END * SUBROUTINE AUXTEST( OUTNUM, MEM, MEMLEN ) + IMPLICIT NONE * * .. Scalar Arguments .. INTEGER OUTNUM, MEMLEN @@ -1036,6 +1041,7 @@ SUBROUTINE AUXTEST( OUTNUM, MEM, MEMLEN ) END * SUBROUTINE BTTRANSCHAR(TRANSTO, N, CMEM, IMEM) + IMPLICIT NONE CHARACTER TRANSTO INTEGER N CHARACTER*1 CMEM(N) @@ -1060,6 +1066,7 @@ SUBROUTINE BTINFO( TEST, MEMUSED, MEM, MEMLEN, CMEMUSED, CMEM, $ TOPPTR, UPLOPTR, DIAGPTR, MPTR, NPTR, LDSPTR, $ LDDPTR, LDIPTR, RSRCPTR, CSRCPTR, RDESTPTR, $ CDESTPTR, PPTR, QPTR ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 TEST @@ -1142,6 +1149,7 @@ SUBROUTINE BTINFO( TEST, MEMUSED, MEM, MEMLEN, CMEMUSED, CMEM, * SUBROUTINE RDBTIN( TESTSDRV, TESTBSBR, TESTCOMB, TESTAUX, NPREC, $ PREC, VERB, OUTNUM ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -1358,6 +1366,7 @@ SUBROUTINE RDBTIN( TESTSDRV, TESTBSBR, TESTCOMB, TESTAUX, NPREC, END * INTEGER FUNCTION IBTMSGID() + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -1394,6 +1403,7 @@ SUBROUTINE BTUNPACK(TEST, MEM, MEMLEN, NOP, NSCOPE, TREP, TCOH, $ SCOPEPTR, TOPPTR, UPLOPTR, DIAGPTR, MPTR, $ NPTR, LDSPTR, LDDPTR, LDIPTR, RSRCPTR, $ CSRCPTR, RDESTPTR, CDESTPTR, PPTR, QPTR) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -1514,6 +1524,7 @@ SUBROUTINE BTUNPACK(TEST, MEM, MEMLEN, NOP, NSCOPE, TREP, TCOH, END * INTEGER FUNCTION SAFEINDEX(INDX, SIZE1, SIZE2) + IMPLICIT NONE * * .. Scalar Arguments .. INTEGER INDX, SIZE1, SIZE2 @@ -1545,6 +1556,7 @@ INTEGER FUNCTION SAFEINDEX(INDX, SIZE1, SIZE2) * SUBROUTINE RDSDRV( MEMUSED, MEM, MEMLEN, CMEMUSED, CMEM, CMEMLEN, $ OUTNUM ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -1788,6 +1800,7 @@ SUBROUTINE RDSDRV( MEMUSED, MEM, MEMLEN, CMEMUSED, CMEM, CMEMLEN, * SUBROUTINE CHKMATDAT( NOUT, INFILE, TSTFLAG, NMAT, M0, N0, $ LDAS0, LDAD0, LDI0 ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -1878,6 +1891,7 @@ SUBROUTINE CHKMATDAT( NOUT, INFILE, TSTFLAG, NMAT, M0, N0, END * LOGICAL FUNCTION ALLPASS( THISTEST ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -1911,6 +1925,7 @@ LOGICAL FUNCTION ALLPASS( THISTEST ) * SUBROUTINE RDBSBR( MEMUSED, MEM, MEMLEN, CMEMUSED, CMEM, CMEMLEN, $ OUTNUM ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -2202,6 +2217,7 @@ SUBROUTINE ISDRVTEST( OUTNUM, VERB, NSHAPE, UPLO0, DIAG0, $ NMAT, M0, N0, LDAS0, LDAD0, NSRC, RSRC0, $ CSRC0, RDEST0, CDEST0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -2546,6 +2562,7 @@ SUBROUTINE SSDRVTEST( OUTNUM, VERB, NSHAPE, UPLO0, DIAG0, $ NMAT, M0, N0, LDAS0, LDAD0, NSRC, RSRC0, $ CSRC0, RDEST0, CDEST0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -2890,6 +2907,7 @@ SUBROUTINE DSDRVTEST( OUTNUM, VERB, NSHAPE, UPLO0, DIAG0, $ NMAT, M0, N0, LDAS0, LDAD0, NSRC, RSRC0, $ CSRC0, RDEST0, CDEST0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -3234,6 +3252,7 @@ SUBROUTINE CSDRVTEST( OUTNUM, VERB, NSHAPE, UPLO0, DIAG0, $ NMAT, M0, N0, LDAS0, LDAD0, NSRC, RSRC0, $ CSRC0, RDEST0, CDEST0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -3578,6 +3597,7 @@ SUBROUTINE ZSDRVTEST( OUTNUM, VERB, NSHAPE, UPLO0, DIAG0, $ NMAT, M0, N0, LDAS0, LDAD0, NSRC, RSRC0, $ CSRC0, RDEST0, CDEST0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -3922,6 +3942,7 @@ SUBROUTINE IBSBRTEST( OUTNUM, VERB, NSCOPE, SCOPE0, NTOP, TOP0, $ NSHAPE, UPLO0, DIAG0, NMAT, M0, N0, LDAS0, $ LDAD0, NSRC, RSRC0, CSRC0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -4337,6 +4358,7 @@ SUBROUTINE SBSBRTEST( OUTNUM, VERB, NSCOPE, SCOPE0, NTOP, TOP0, $ NSHAPE, UPLO0, DIAG0, NMAT, M0, N0, LDAS0, $ LDAD0, NSRC, RSRC0, CSRC0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -4752,6 +4774,7 @@ SUBROUTINE DBSBRTEST( OUTNUM, VERB, NSCOPE, SCOPE0, NTOP, TOP0, $ NSHAPE, UPLO0, DIAG0, NMAT, M0, N0, LDAS0, $ LDAD0, NSRC, RSRC0, CSRC0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -5167,6 +5190,7 @@ SUBROUTINE CBSBRTEST( OUTNUM, VERB, NSCOPE, SCOPE0, NTOP, TOP0, $ NSHAPE, UPLO0, DIAG0, NMAT, M0, N0, LDAS0, $ LDAD0, NSRC, RSRC0, CSRC0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -5582,6 +5606,7 @@ SUBROUTINE ZBSBRTEST( OUTNUM, VERB, NSCOPE, SCOPE0, NTOP, TOP0, $ NSHAPE, UPLO0, DIAG0, NMAT, M0, N0, LDAS0, $ LDAD0, NSRC, RSRC0, CSRC0, NGRID, CONTEXT0, $ P0, Q0, TFAIL, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -5995,6 +6020,7 @@ SUBROUTINE ZBSBRTEST( OUTNUM, VERB, NSCOPE, SCOPE0, NTOP, TOP0, * SUBROUTINE RDCOMB( MEMUSED, MEM, MEMLEN, CMEMUSED, CMEM, CMEMLEN, $ OUTNUM ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -6269,6 +6295,7 @@ SUBROUTINE RDCOMB( MEMUSED, MEM, MEMLEN, CMEMUSED, CMEM, CMEMLEN, * SUBROUTINE IBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, $ IVAL, TFAILED ) + IMPLICIT NONE INTEGER NFTESTS, OUTNUM, MAXERR, NERR INTEGER IERR(*), TFAILED(*) INTEGER IVAL(*) @@ -6391,6 +6418,7 @@ SUBROUTINE IBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, * SUBROUTINE IINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL, TESTNUM, MYROW, MYCOL) + IMPLICIT NONE CHARACTER*1 UPLO, DIAG INTEGER M, N, LDA, IPRE, IPOST, TESTNUM, MYROW, MYCOL INTEGER CHECKVAL @@ -6408,6 +6436,7 @@ SUBROUTINE IINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, END * SUBROUTINE IGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -6484,6 +6513,7 @@ SUBROUTINE IGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) END * INTEGER FUNCTION IBTRAN(ISEED) + IMPLICIT NONE INTEGER ISEED(*) * * .. External Functions .. @@ -6506,6 +6536,7 @@ INTEGER FUNCTION IBTRAN(ISEED) * SUBROUTINE IPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -6680,6 +6711,7 @@ SUBROUTINE IPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, SUBROUTINE ICHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, $ MYROW, MYCOL, IPRE, IPOST, CHECKVAL, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -6941,6 +6973,7 @@ SUBROUTINE ICHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, SUBROUTINE ICHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, $ MYROW, MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -7146,6 +7179,7 @@ SUBROUTINE ICHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, * SUBROUTINE IPRINTERRS( OUTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF, COUNTING, TFAILED ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -7339,6 +7373,7 @@ SUBROUTINE IPRINTERRS( OUTNUM, MAXERR, NERR, * SUBROUTINE SBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, $ SVAL, TFAILED ) + IMPLICIT NONE INTEGER NFTESTS, OUTNUM, MAXERR, NERR INTEGER IERR(*), TFAILED(*) REAL SVAL(*) @@ -7461,6 +7496,7 @@ SUBROUTINE SBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, * SUBROUTINE SINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL, TESTNUM, MYROW, MYCOL) + IMPLICIT NONE CHARACTER*1 UPLO, DIAG INTEGER M, N, LDA, IPRE, IPOST, TESTNUM, MYROW, MYCOL REAL CHECKVAL @@ -7478,6 +7514,7 @@ SUBROUTINE SINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, END * SUBROUTINE SGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -7554,6 +7591,7 @@ SUBROUTINE SGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) END * REAL FUNCTION SBTRAN(ISEED) + IMPLICIT NONE INTEGER ISEED(*) * * .. External Functions .. @@ -7571,6 +7609,7 @@ REAL FUNCTION SBTRAN(ISEED) * SUBROUTINE SPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -7745,6 +7784,7 @@ SUBROUTINE SPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, SUBROUTINE SCHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, $ MYROW, MYCOL, IPRE, IPOST, CHECKVAL, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -8006,6 +8046,7 @@ SUBROUTINE SCHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, SUBROUTINE SCHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, $ MYROW, MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -8211,6 +8252,7 @@ SUBROUTINE SCHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, * SUBROUTINE SPRINTERRS( OUTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF, COUNTING, TFAILED ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -8404,6 +8446,7 @@ SUBROUTINE SPRINTERRS( OUTNUM, MAXERR, NERR, * SUBROUTINE DBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, $ DVAL, TFAILED ) + IMPLICIT NONE INTEGER NFTESTS, OUTNUM, MAXERR, NERR INTEGER IERR(*), TFAILED(*) DOUBLE PRECISION DVAL(*) @@ -8526,6 +8569,7 @@ SUBROUTINE DBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, * SUBROUTINE DINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL, TESTNUM, MYROW, MYCOL) + IMPLICIT NONE CHARACTER*1 UPLO, DIAG INTEGER M, N, LDA, IPRE, IPOST, TESTNUM, MYROW, MYCOL DOUBLE PRECISION CHECKVAL @@ -8543,6 +8587,7 @@ SUBROUTINE DINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, END * SUBROUTINE DGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -8619,6 +8664,7 @@ SUBROUTINE DGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) END * DOUBLE PRECISION FUNCTION DBTRAN(ISEED) + IMPLICIT NONE INTEGER ISEED(*) * * .. External Functions .. @@ -8636,6 +8682,7 @@ DOUBLE PRECISION FUNCTION DBTRAN(ISEED) * SUBROUTINE DPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -8810,6 +8857,7 @@ SUBROUTINE DPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, SUBROUTINE DCHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, $ MYROW, MYCOL, IPRE, IPOST, CHECKVAL, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -9071,6 +9119,7 @@ SUBROUTINE DCHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, SUBROUTINE DCHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, $ MYROW, MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -9276,6 +9325,7 @@ SUBROUTINE DCHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, * SUBROUTINE DPRINTERRS( OUTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF, COUNTING, TFAILED ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -9469,6 +9519,7 @@ SUBROUTINE DPRINTERRS( OUTNUM, MAXERR, NERR, * SUBROUTINE CBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, $ CVAL, TFAILED ) + IMPLICIT NONE INTEGER NFTESTS, OUTNUM, MAXERR, NERR INTEGER IERR(*), TFAILED(*) COMPLEX CVAL(*) @@ -9591,6 +9642,7 @@ SUBROUTINE CBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, * SUBROUTINE CINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL, TESTNUM, MYROW, MYCOL) + IMPLICIT NONE CHARACTER*1 UPLO, DIAG INTEGER M, N, LDA, IPRE, IPOST, TESTNUM, MYROW, MYCOL COMPLEX CHECKVAL @@ -9608,6 +9660,7 @@ SUBROUTINE CINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, END * SUBROUTINE CGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -9684,6 +9737,7 @@ SUBROUTINE CGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) END * COMPLEX FUNCTION CBTRAN(ISEED) + IMPLICIT NONE INTEGER ISEED(*) * * .. External Functions .. @@ -9699,6 +9753,7 @@ COMPLEX FUNCTION CBTRAN(ISEED) * SUBROUTINE CPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -9873,6 +9928,7 @@ SUBROUTINE CPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, SUBROUTINE CCHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, $ MYROW, MYCOL, IPRE, IPOST, CHECKVAL, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -10134,6 +10190,7 @@ SUBROUTINE CCHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, SUBROUTINE CCHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, $ MYROW, MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -10339,6 +10396,7 @@ SUBROUTINE CCHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, * SUBROUTINE CPRINTERRS( OUTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF, COUNTING, TFAILED ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -10538,6 +10596,7 @@ SUBROUTINE CPRINTERRS( OUTNUM, MAXERR, NERR, * SUBROUTINE ZBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, $ ZVAL, TFAILED ) + IMPLICIT NONE INTEGER NFTESTS, OUTNUM, MAXERR, NERR INTEGER IERR(*), TFAILED(*) DOUBLE COMPLEX ZVAL(*) @@ -10660,6 +10719,7 @@ SUBROUTINE ZBTCHECKIN( NFTESTS, OUTNUM, MAXERR, NERR, IERR, * SUBROUTINE ZINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL, TESTNUM, MYROW, MYCOL) + IMPLICIT NONE CHARACTER*1 UPLO, DIAG INTEGER M, N, LDA, IPRE, IPOST, TESTNUM, MYROW, MYCOL DOUBLE COMPLEX CHECKVAL @@ -10677,6 +10737,7 @@ SUBROUTINE ZINITMAT(UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, END * SUBROUTINE ZGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -10768,6 +10829,7 @@ DOUBLE COMPLEX FUNCTION ZBTRAN(ISEED) * SUBROUTINE ZPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, $ CHECKVAL ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -10942,6 +11004,7 @@ SUBROUTINE ZPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, SUBROUTINE ZCHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, $ MYROW, MYCOL, IPRE, IPOST, CHECKVAL, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -11203,6 +11266,7 @@ SUBROUTINE ZCHKPAD( UPLO, DIAG, M, N, MEM, LDA, RSRC, CSRC, SUBROUTINE ZCHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, $ MYROW, MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -11408,6 +11472,7 @@ SUBROUTINE ZCHKMAT( UPLO, DIAG, M, N, A, LDA, RSRC, CSRC, * SUBROUTINE ZPRINTERRS( OUTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF, COUNTING, TFAILED ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -11609,6 +11674,7 @@ SUBROUTINE ISUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ SCOPE0, NTOP, TOP0, NMAT, M0, N0, LDAS0, $ LDAD0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -12029,6 +12095,7 @@ SUBROUTINE ISUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, END * INTEGER FUNCTION IBTABS(VAL) + IMPLICIT NONE INTEGER VAL IBTABS = ABS(VAL) RETURN @@ -12036,6 +12103,7 @@ INTEGER FUNCTION IBTABS(VAL) * SUBROUTINE ICHKSUM( SCOPE, ICTXT, M, N, A, LDA, TESTNUM, MAXERR, $ NERR, ERRIBUF, ERRDBUF, ISEED ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -12133,6 +12201,7 @@ SUBROUTINE SSUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ SCOPE0, NTOP, TOP0, NMAT, M0, N0, LDAS0, $ LDAD0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -12554,12 +12623,14 @@ SUBROUTINE SSUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, END * REAL FUNCTION SBTABS(VAL) + IMPLICIT NONE REAL VAL SBTABS = ABS(VAL) RETURN END * REAL FUNCTION SBTEPS() + IMPLICIT NONE * * .. External Functions .. INTEGER IBTMYPROC, IBTNPROCS, IBTMSGID @@ -12603,6 +12674,7 @@ REAL FUNCTION SBTEPS() * SUBROUTINE SCHKSUM( SCOPE, ICTXT, M, N, A, LDA, TESTNUM, MAXERR, $ NERR, ERRIBUF, ERRDBUF, ISEED ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -12711,6 +12783,7 @@ SUBROUTINE DSUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ SCOPE0, NTOP, TOP0, NMAT, M0, N0, LDAS0, $ LDAD0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -13132,12 +13205,14 @@ SUBROUTINE DSUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, END * DOUBLE PRECISION FUNCTION DBTABS(VAL) + IMPLICIT NONE DOUBLE PRECISION VAL DBTABS = ABS(VAL) RETURN END * DOUBLE PRECISION FUNCTION DBTEPS() + IMPLICIT NONE * * .. External Functions .. INTEGER IBTMYPROC, IBTNPROCS, IBTMSGID @@ -13181,6 +13256,7 @@ DOUBLE PRECISION FUNCTION DBTEPS() * SUBROUTINE DCHKSUM( SCOPE, ICTXT, M, N, A, LDA, TESTNUM, MAXERR, $ NERR, ERRIBUF, ERRDBUF, ISEED ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -13289,6 +13365,7 @@ SUBROUTINE CSUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ SCOPE0, NTOP, TOP0, NMAT, M0, N0, LDAS0, $ LDAD0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -13710,6 +13787,7 @@ SUBROUTINE CSUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, END * REAL FUNCTION CBTABS(VAL) + IMPLICIT NONE COMPLEX VAL CBTABS = ABS( REAL(VAL) ) + ABS( AIMAG(VAL) ) RETURN @@ -13717,6 +13795,7 @@ REAL FUNCTION CBTABS(VAL) * SUBROUTINE CCHKSUM( SCOPE, ICTXT, M, N, A, LDA, TESTNUM, MAXERR, $ NERR, ERRIBUF, ERRDBUF, ISEED ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -13838,6 +13917,7 @@ SUBROUTINE ZSUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ SCOPE0, NTOP, TOP0, NMAT, M0, N0, LDAS0, $ LDAD0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -14259,6 +14339,7 @@ SUBROUTINE ZSUMTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, END * DOUBLE PRECISION FUNCTION ZBTABS(VAL) + IMPLICIT NONE DOUBLE COMPLEX VAL ZBTABS = ABS( DBLE(VAL) ) + ABS( DIMAG(VAL) ) RETURN @@ -14266,6 +14347,7 @@ DOUBLE PRECISION FUNCTION ZBTABS(VAL) * SUBROUTINE ZCHKSUM( SCOPE, ICTXT, M, N, A, LDA, TESTNUM, MAXERR, $ NERR, ERRIBUF, ERRDBUF, ISEED ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -14388,6 +14470,7 @@ SUBROUTINE IAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -14852,6 +14935,7 @@ SUBROUTINE IAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, * SUBROUTINE IBTSPCOORD( SCOPE, PNUM, MYROW, MYCOL, NPCOL, $ PROW, PCOL ) + IMPLICIT NONE CHARACTER*1 SCOPE INTEGER PNUM, MYROW, MYCOL, NPCOL, PROW, PCOL * @@ -14872,6 +14956,7 @@ SUBROUTINE IBTSPCOORD( SCOPE, PNUM, MYROW, MYCOL, NPCOL, END * INTEGER FUNCTION IBTSPNUM( SCOPE, PROW, PCOL, NPCOL ) + IMPLICIT NONE CHARACTER*1 SCOPE INTEGER PROW, PCOL, NPCOL IF( SCOPE .EQ. 'R' ) THEN @@ -14891,6 +14976,7 @@ INTEGER FUNCTION IBTSPNUM( SCOPE, PROW, PCOL, NPCOL ) SUBROUTINE IRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, $ MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * .. Scalar Arguments .. INTEGER IPRE, IPOST, PADVAL, M, N, LDI, MYROW, MYCOL, TESTNUM @@ -15060,6 +15146,7 @@ SUBROUTINE IRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, SUBROUTINE ICHKAMX( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -15237,6 +15324,7 @@ SUBROUTINE SAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -15703,6 +15791,7 @@ SUBROUTINE SAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE SRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, $ MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * .. Scalar Arguments .. INTEGER IPRE, IPOST, PADVAL, M, N, LDI, MYROW, MYCOL, TESTNUM @@ -15872,6 +15961,7 @@ SUBROUTINE SRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, SUBROUTINE SCHKAMX( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -16052,6 +16142,7 @@ SUBROUTINE DAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -16518,6 +16609,7 @@ SUBROUTINE DAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE DRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, $ MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * .. Scalar Arguments .. INTEGER IPRE, IPOST, PADVAL, M, N, LDI, MYROW, MYCOL, TESTNUM @@ -16687,6 +16779,7 @@ SUBROUTINE DRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, SUBROUTINE DCHKAMX( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -16867,6 +16960,7 @@ SUBROUTINE CAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -17333,6 +17427,7 @@ SUBROUTINE CAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE CRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, $ MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * .. Scalar Arguments .. INTEGER IPRE, IPOST, PADVAL, M, N, LDI, MYROW, MYCOL, TESTNUM @@ -17502,6 +17597,7 @@ SUBROUTINE CRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, SUBROUTINE CCHKAMX( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -17684,6 +17780,7 @@ SUBROUTINE ZAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -18150,6 +18247,7 @@ SUBROUTINE ZAMXTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE ZRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, $ MYCOL, TESTNUM, MAXERR, NERR, $ ERRIBUF, ERRDBUF ) + IMPLICIT NONE * * .. Scalar Arguments .. INTEGER IPRE, IPOST, PADVAL, M, N, LDI, MYROW, MYCOL, TESTNUM @@ -18319,6 +18417,7 @@ SUBROUTINE ZRCCHK( IPRE, IPOST, PADVAL, M, N, RA, CA, LDI, MYROW, SUBROUTINE ZCHKAMX( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -18501,6 +18600,7 @@ SUBROUTINE IAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -18966,6 +19066,7 @@ SUBROUTINE IAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE ICHKAMN( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -19143,6 +19244,7 @@ SUBROUTINE SAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -19609,6 +19711,7 @@ SUBROUTINE SAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE SCHKAMN( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -19789,6 +19892,7 @@ SUBROUTINE DAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -20255,6 +20359,7 @@ SUBROUTINE DAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE DCHKAMN( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -20435,6 +20540,7 @@ SUBROUTINE CAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -20901,6 +21007,7 @@ SUBROUTINE CAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE CCHKAMN( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE @@ -21083,6 +21190,7 @@ SUBROUTINE ZAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, $ LDAD0, LDI0, NDEST, RDEST0, CDEST0, NGRID, $ CONTEXT0, P0, Q0, ISEED, RMEM, CMEM, RCLEN, $ MEM, MEMLEN ) + IMPLICIT NONE * * -- BLACS tester (version 1.0) -- * University of Tennessee @@ -21549,6 +21657,7 @@ SUBROUTINE ZAMNTEST( OUTNUM, VERB, TOPSREPEAT, TOPSCOHRNT, NSCOPE, SUBROUTINE ZCHKAMN( SCOPE, ICTXT, M, N, A, LDA, RA, CA, LDI, $ TESTNUM, MAXERR, NERR, ERRIBUF, ERRDBUF, $ ISEED, VALS ) + IMPLICIT NONE * * .. Scalar Arguments .. CHARACTER*1 SCOPE diff --git a/BLACS/TESTING/btprim.f b/BLACS/TESTING/btprim.f index e73c0b53..b893c081 100644 --- a/BLACS/TESTING/btprim.f +++ b/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 * .. diff --git a/BLACS/TESTING/tools.f b/BLACS/TESTING/tools.f index 7b14f232..56fd2d67 100644 --- a/BLACS/TESTING/tools.f +++ b/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., diff --git a/EXAMPLE/pcscaex.f b/EXAMPLE/pcscaex.f index e33f0270..505c09ea 100644 --- a/EXAMPLE/pcscaex.f +++ b/EXAMPLE/pcscaex.f @@ -1,4 +1,5 @@ PROGRAM PCSCAEX + IMPLICIT NONE * * -- ScaLAPACK example code -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/EXAMPLE/pdscaex.f b/EXAMPLE/pdscaex.f index 8b2556bd..0355d8c7 100644 --- a/EXAMPLE/pdscaex.f +++ b/EXAMPLE/pdscaex.f @@ -1,4 +1,5 @@ PROGRAM PDSCAEX + IMPLICIT NONE * * -- ScaLAPACK example code -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/EXAMPLE/pdscaexinfo.f b/EXAMPLE/pdscaexinfo.f index 234d70f3..0a98d47f 100644 --- a/EXAMPLE/pdscaexinfo.f +++ b/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, diff --git a/EXAMPLE/psscaex.f b/EXAMPLE/psscaex.f index 6705b571..577ddc21 100644 --- a/EXAMPLE/psscaex.f +++ b/EXAMPLE/psscaex.f @@ -1,4 +1,5 @@ PROGRAM PSSCAEX + IMPLICIT NONE * * -- ScaLAPACK example code -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/EXAMPLE/pzscaex.f b/EXAMPLE/pzscaex.f index a3ed49dd..82f774ff 100644 --- a/EXAMPLE/pzscaex.f +++ b/EXAMPLE/pzscaex.f @@ -1,4 +1,5 @@ PROGRAM PZSCAEX + IMPLICIT NONE * * -- ScaLAPACK example code -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PBBLAS/pbcmatadd.f b/PBLAS/SRC/PBBLAS/pbcmatadd.f index 388125da..67338310 100644 --- a/PBLAS/SRC/PBBLAS/pbcmatadd.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbctran.f b/PBLAS/SRC/PBBLAS/pbctran.f index 8667f428..3f1877a8 100644 --- a/PBLAS/SRC/PBBLAS/pbctran.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbctrget.f b/PBLAS/SRC/PBBLAS/pbctrget.f index 0ec45b83..a413784d 100644 --- a/PBLAS/SRC/PBBLAS/pbctrget.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbctrnv.f b/PBLAS/SRC/PBBLAS/pbctrnv.f index b187c942..44f69f79 100644 --- a/PBLAS/SRC/PBBLAS/pbctrnv.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbctrsrt.f b/PBLAS/SRC/PBBLAS/pbctrsrt.f index 951bcb39..35d9adaf 100644 --- a/PBLAS/SRC/PBBLAS/pbctrsrt.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbctrst1.f b/PBLAS/SRC/PBBLAS/pbctrst1.f index 57a5ff84..f60705f9 100644 --- a/PBLAS/SRC/PBBLAS/pbctrst1.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbcvecadd.f b/PBLAS/SRC/PBBLAS/pbcvecadd.f index bc55d423..f9277509 100644 --- a/PBLAS/SRC/PBBLAS/pbcvecadd.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbdmatadd.f b/PBLAS/SRC/PBBLAS/pbdmatadd.f index b36cd794..358fbcc1 100644 --- a/PBLAS/SRC/PBBLAS/pbdmatadd.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbdtran.f b/PBLAS/SRC/PBBLAS/pbdtran.f index 300faa22..a497d192 100644 --- a/PBLAS/SRC/PBBLAS/pbdtran.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbdtrget.f b/PBLAS/SRC/PBBLAS/pbdtrget.f index 39254a9e..93cb8b12 100644 --- a/PBLAS/SRC/PBBLAS/pbdtrget.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbdtrnv.f b/PBLAS/SRC/PBBLAS/pbdtrnv.f index 12570535..1369eb1d 100644 --- a/PBLAS/SRC/PBBLAS/pbdtrnv.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbdtrsrt.f b/PBLAS/SRC/PBBLAS/pbdtrsrt.f index 97807ec0..3fb19f8a 100644 --- a/PBLAS/SRC/PBBLAS/pbdtrsrt.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbdtrst1.f b/PBLAS/SRC/PBBLAS/pbdtrst1.f index 3e55e208..eb30e8b3 100644 --- a/PBLAS/SRC/PBBLAS/pbdtrst1.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbdvecadd.f b/PBLAS/SRC/PBBLAS/pbdvecadd.f index 8363c6bf..26784338 100644 --- a/PBLAS/SRC/PBBLAS/pbdvecadd.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbsmatadd.f b/PBLAS/SRC/PBBLAS/pbsmatadd.f index 7ba6a96c..ce7bb3a5 100644 --- a/PBLAS/SRC/PBBLAS/pbsmatadd.f +++ b/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. diff --git a/PBLAS/SRC/PBBLAS/pbstran.f b/PBLAS/SRC/PBBLAS/pbstran.f index 2c992bd3..014e7403 100644 --- a/PBLAS/SRC/PBBLAS/pbstran.f +++ b/PBLAS/SRC/PBBLAS/pbstran.f @@ -1,5 +1,6 @@ SUBROUTINE PBSTRAN( 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. @@ -611,6 +612,7 @@ SUBROUTINE PBSTRAN( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, BETA, * SUBROUTINE PBSTR2AT( 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. @@ -702,6 +704,7 @@ SUBROUTINE PBSTR2AT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, * SUBROUTINE PBSTR2BT( 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. @@ -789,6 +792,7 @@ SUBROUTINE PBSTR2BT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, * SUBROUTINE PBSTR2AF( 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. diff --git a/PBLAS/SRC/PBBLAS/pbstrget.f b/PBLAS/SRC/PBBLAS/pbstrget.f index 271c427b..870deeaf 100644 --- a/PBLAS/SRC/PBBLAS/pbstrget.f +++ b/PBLAS/SRC/PBBLAS/pbstrget.f @@ -1,5 +1,6 @@ SUBROUTINE PBSTRGET( 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. diff --git a/PBLAS/SRC/PBBLAS/pbstrnv.f b/PBLAS/SRC/PBBLAS/pbstrnv.f index 2f620f8b..e9f4d65f 100644 --- a/PBLAS/SRC/PBBLAS/pbstrnv.f +++ b/PBLAS/SRC/PBBLAS/pbstrnv.f @@ -1,6 +1,7 @@ SUBROUTINE PBSTRNV( 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 PBSTRNV( ICONTXT, XDIST, TRANS, N, NB, NZ, X, INCX, * SUBROUTINE PBSTR2A1( 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 PBSTR2A1( ICONTXT, N, NB, NZ, X, INCX, BETA, Y, INCY, * SUBROUTINE PBSTR2B1( 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. diff --git a/PBLAS/SRC/PBBLAS/pbstrsrt.f b/PBLAS/SRC/PBBLAS/pbstrsrt.f index d31c6ef0..e739999a 100644 --- a/PBLAS/SRC/PBBLAS/pbstrsrt.f +++ b/PBLAS/SRC/PBBLAS/pbstrsrt.f @@ -1,5 +1,6 @@ SUBROUTINE PBSTRSRT( 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. diff --git a/PBLAS/SRC/PBBLAS/pbstrst1.f b/PBLAS/SRC/PBBLAS/pbstrst1.f index 06f9271d..b2393a74 100644 --- a/PBLAS/SRC/PBBLAS/pbstrst1.f +++ b/PBLAS/SRC/PBBLAS/pbstrst1.f @@ -1,5 +1,6 @@ SUBROUTINE PBSTRST1( 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. diff --git a/PBLAS/SRC/PBBLAS/pbsvecadd.f b/PBLAS/SRC/PBBLAS/pbsvecadd.f index f51783fd..d9842629 100644 --- a/PBLAS/SRC/PBBLAS/pbsvecadd.f +++ b/PBLAS/SRC/PBBLAS/pbsvecadd.f @@ -1,5 +1,6 @@ SUBROUTINE PBSVECADD( 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. diff --git a/PBLAS/SRC/PBBLAS/pbzmatadd.f b/PBLAS/SRC/PBBLAS/pbzmatadd.f index 32f58bc7..236c2e02 100644 --- a/PBLAS/SRC/PBBLAS/pbzmatadd.f +++ b/PBLAS/SRC/PBBLAS/pbzmatadd.f @@ -1,5 +1,6 @@ SUBROUTINE PBZMATADD( 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. diff --git a/PBLAS/SRC/PBBLAS/pbztran.f b/PBLAS/SRC/PBBLAS/pbztran.f index 879bf2bf..793e29db 100644 --- a/PBLAS/SRC/PBBLAS/pbztran.f +++ b/PBLAS/SRC/PBBLAS/pbztran.f @@ -1,5 +1,6 @@ SUBROUTINE PBZTRAN( 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 PBZTRAN( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, BETA, * SUBROUTINE PBZTR2AT( 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 PBZTR2AT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, * SUBROUTINE PBZTR2BT( 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 PBZTR2BT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, * SUBROUTINE PBZTR2AF( 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. diff --git a/PBLAS/SRC/PBBLAS/pbztrget.f b/PBLAS/SRC/PBBLAS/pbztrget.f index bcacc6e9..4bb69e64 100644 --- a/PBLAS/SRC/PBBLAS/pbztrget.f +++ b/PBLAS/SRC/PBBLAS/pbztrget.f @@ -1,5 +1,6 @@ SUBROUTINE PBZTRGET( 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. diff --git a/PBLAS/SRC/PBBLAS/pbztrnv.f b/PBLAS/SRC/PBBLAS/pbztrnv.f index 361b0354..6fd25026 100644 --- a/PBLAS/SRC/PBBLAS/pbztrnv.f +++ b/PBLAS/SRC/PBBLAS/pbztrnv.f @@ -1,6 +1,7 @@ SUBROUTINE PBZTRNV( 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 PBZTRNV( ICONTXT, XDIST, TRANS, N, NB, NZ, X, INCX, * SUBROUTINE PBZTR2A1( 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 PBZTR2A1( ICONTXT, N, NB, NZ, X, INCX, BETA, Y, INCY, * SUBROUTINE PBZTR2B1( 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. diff --git a/PBLAS/SRC/PBBLAS/pbztrsrt.f b/PBLAS/SRC/PBBLAS/pbztrsrt.f index 67284b10..6219ff7c 100644 --- a/PBLAS/SRC/PBBLAS/pbztrsrt.f +++ b/PBLAS/SRC/PBBLAS/pbztrsrt.f @@ -1,5 +1,6 @@ SUBROUTINE PBZTRSRT( 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. diff --git a/PBLAS/SRC/PBBLAS/pbztrst1.f b/PBLAS/SRC/PBBLAS/pbztrst1.f index bcce22bb..1f5cd09d 100644 --- a/PBLAS/SRC/PBBLAS/pbztrst1.f +++ b/PBLAS/SRC/PBBLAS/pbztrst1.f @@ -1,5 +1,6 @@ SUBROUTINE PBZTRST1( 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. diff --git a/PBLAS/SRC/PBBLAS/pbzvecadd.f b/PBLAS/SRC/PBBLAS/pbzvecadd.f index 89b8eb65..6d67b11e 100644 --- a/PBLAS/SRC/PBBLAS/pbzvecadd.f +++ b/PBLAS/SRC/PBBLAS/pbzvecadd.f @@ -1,5 +1,6 @@ SUBROUTINE PBZVECADD( 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. diff --git a/PBLAS/SRC/PTZBLAS/cagemv.f b/PBLAS/SRC/PTZBLAS/cagemv.f index 3c183007..f43e8906 100644 --- a/PBLAS/SRC/PTZBLAS/cagemv.f +++ b/PBLAS/SRC/PTZBLAS/cagemv.f @@ -1,5 +1,6 @@ SUBROUTINE CAGEMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cahemv.f b/PBLAS/SRC/PTZBLAS/cahemv.f index 335df9ce..ab4d6639 100644 --- a/PBLAS/SRC/PTZBLAS/cahemv.f +++ b/PBLAS/SRC/PTZBLAS/cahemv.f @@ -1,5 +1,6 @@ SUBROUTINE CAHEMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/casymv.f b/PBLAS/SRC/PTZBLAS/casymv.f index e2967300..d988dd98 100644 --- a/PBLAS/SRC/PTZBLAS/casymv.f +++ b/PBLAS/SRC/PTZBLAS/casymv.f @@ -1,5 +1,6 @@ SUBROUTINE CASYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/catrmv.f b/PBLAS/SRC/PTZBLAS/catrmv.f index b958626b..009523bb 100644 --- a/PBLAS/SRC/PTZBLAS/catrmv.f +++ b/PBLAS/SRC/PTZBLAS/catrmv.f @@ -1,5 +1,6 @@ SUBROUTINE CATRMV( UPLO, TRANS, DIAG, N, ALPHA, A, LDA, X, INCX, $ BETA, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ccshft.f b/PBLAS/SRC/PTZBLAS/ccshft.f index 2854d83e..d1cea28b 100644 --- a/PBLAS/SRC/PTZBLAS/ccshft.f +++ b/PBLAS/SRC/PTZBLAS/ccshft.f @@ -1,4 +1,5 @@ SUBROUTINE CCSHFT( M, N, OFFSET, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/chescal.f b/PBLAS/SRC/PTZBLAS/chescal.f index 3d243f76..05c1c232 100644 --- a/PBLAS/SRC/PTZBLAS/chescal.f +++ b/PBLAS/SRC/PTZBLAS/chescal.f @@ -1,4 +1,5 @@ SUBROUTINE CHESCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cmmadd.f b/PBLAS/SRC/PTZBLAS/cmmadd.f index 83cd55df..683ad714 100644 --- a/PBLAS/SRC/PTZBLAS/cmmadd.f +++ b/PBLAS/SRC/PTZBLAS/cmmadd.f @@ -1,4 +1,5 @@ SUBROUTINE CMMADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cmmcadd.f b/PBLAS/SRC/PTZBLAS/cmmcadd.f index 501a3f77..e634144a 100644 --- a/PBLAS/SRC/PTZBLAS/cmmcadd.f +++ b/PBLAS/SRC/PTZBLAS/cmmcadd.f @@ -1,4 +1,5 @@ SUBROUTINE CMMCADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cmmdda.f b/PBLAS/SRC/PTZBLAS/cmmdda.f index 44fbd447..c9dc9126 100644 --- a/PBLAS/SRC/PTZBLAS/cmmdda.f +++ b/PBLAS/SRC/PTZBLAS/cmmdda.f @@ -1,4 +1,5 @@ SUBROUTINE CMMDDA( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cmmddac.f b/PBLAS/SRC/PTZBLAS/cmmddac.f index e54cdc22..85fd5b29 100644 --- a/PBLAS/SRC/PTZBLAS/cmmddac.f +++ b/PBLAS/SRC/PTZBLAS/cmmddac.f @@ -1,4 +1,5 @@ SUBROUTINE CMMDDAC( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cmmddact.f b/PBLAS/SRC/PTZBLAS/cmmddact.f index 45c3d085..25200d71 100644 --- a/PBLAS/SRC/PTZBLAS/cmmddact.f +++ b/PBLAS/SRC/PTZBLAS/cmmddact.f @@ -1,4 +1,5 @@ SUBROUTINE CMMDDACT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cmmddat.f b/PBLAS/SRC/PTZBLAS/cmmddat.f index 912295ed..8bcfc108 100644 --- a/PBLAS/SRC/PTZBLAS/cmmddat.f +++ b/PBLAS/SRC/PTZBLAS/cmmddat.f @@ -1,4 +1,5 @@ SUBROUTINE CMMDDAT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cmmtadd.f b/PBLAS/SRC/PTZBLAS/cmmtadd.f index 07803037..6a2dd465 100644 --- a/PBLAS/SRC/PTZBLAS/cmmtadd.f +++ b/PBLAS/SRC/PTZBLAS/cmmtadd.f @@ -1,4 +1,5 @@ SUBROUTINE CMMTADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cmmtcadd.f b/PBLAS/SRC/PTZBLAS/cmmtcadd.f index 1a1bdce6..eaf8a6ff 100644 --- a/PBLAS/SRC/PTZBLAS/cmmtcadd.f +++ b/PBLAS/SRC/PTZBLAS/cmmtcadd.f @@ -1,4 +1,5 @@ SUBROUTINE CMMTCADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/crshft.f b/PBLAS/SRC/PTZBLAS/crshft.f index 1d81fab1..af0b5c47 100644 --- a/PBLAS/SRC/PTZBLAS/crshft.f +++ b/PBLAS/SRC/PTZBLAS/crshft.f @@ -1,4 +1,5 @@ SUBROUTINE CRSHFT( M, N, OFFSET, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cset.f b/PBLAS/SRC/PTZBLAS/cset.f index da9abcf6..193d684d 100644 --- a/PBLAS/SRC/PTZBLAS/cset.f +++ b/PBLAS/SRC/PTZBLAS/cset.f @@ -1,4 +1,5 @@ SUBROUTINE CSET( N, ALPHA, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/csymv.f b/PBLAS/SRC/PTZBLAS/csymv.f index c69ea037..38b06717 100644 --- a/PBLAS/SRC/PTZBLAS/csymv.f +++ b/PBLAS/SRC/PTZBLAS/csymv.f @@ -1,4 +1,5 @@ SUBROUTINE CSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/csyr.f b/PBLAS/SRC/PTZBLAS/csyr.f index 1e19713e..36685c83 100644 --- a/PBLAS/SRC/PTZBLAS/csyr.f +++ b/PBLAS/SRC/PTZBLAS/csyr.f @@ -1,4 +1,5 @@ SUBROUTINE CSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/csyr2.f b/PBLAS/SRC/PTZBLAS/csyr2.f index d8cc332a..89d2db19 100644 --- a/PBLAS/SRC/PTZBLAS/csyr2.f +++ b/PBLAS/SRC/PTZBLAS/csyr2.f @@ -1,4 +1,5 @@ SUBROUTINE CSYR2( UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ctzcnjg.f b/PBLAS/SRC/PTZBLAS/ctzcnjg.f index aa339e9f..9afaf0ec 100644 --- a/PBLAS/SRC/PTZBLAS/ctzcnjg.f +++ b/PBLAS/SRC/PTZBLAS/ctzcnjg.f @@ -1,4 +1,5 @@ SUBROUTINE CTZCNJG( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ctzpad.f b/PBLAS/SRC/PTZBLAS/ctzpad.f index 5714b9b1..178d2356 100644 --- a/PBLAS/SRC/PTZBLAS/ctzpad.f +++ b/PBLAS/SRC/PTZBLAS/ctzpad.f @@ -1,4 +1,5 @@ SUBROUTINE CTZPAD( UPLO, HERM, M, N, IOFFD, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ctzpadcpy.f b/PBLAS/SRC/PTZBLAS/ctzpadcpy.f index edc6e37a..b8c0db67 100644 --- a/PBLAS/SRC/PTZBLAS/ctzpadcpy.f +++ b/PBLAS/SRC/PTZBLAS/ctzpadcpy.f @@ -1,4 +1,5 @@ SUBROUTINE CTZPADCPY( UPLO, DIAG, M, N, IOFFD, A, LDA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ctzscal.f b/PBLAS/SRC/PTZBLAS/ctzscal.f index d99cdef0..418f1fbd 100644 --- a/PBLAS/SRC/PTZBLAS/ctzscal.f +++ b/PBLAS/SRC/PTZBLAS/ctzscal.f @@ -1,4 +1,5 @@ SUBROUTINE CTZSCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cvvdotc.f b/PBLAS/SRC/PTZBLAS/cvvdotc.f index 67c29b50..0a63bad9 100644 --- a/PBLAS/SRC/PTZBLAS/cvvdotc.f +++ b/PBLAS/SRC/PTZBLAS/cvvdotc.f @@ -1,4 +1,5 @@ SUBROUTINE CVVDOTC( N, DOT, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/cvvdotu.f b/PBLAS/SRC/PTZBLAS/cvvdotu.f index cc302ca0..dac4e877 100644 --- a/PBLAS/SRC/PTZBLAS/cvvdotu.f +++ b/PBLAS/SRC/PTZBLAS/cvvdotu.f @@ -1,4 +1,5 @@ SUBROUTINE CVVDOTU( N, DOT, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dagemv.f b/PBLAS/SRC/PTZBLAS/dagemv.f index f53c81a2..72bd2bc4 100644 --- a/PBLAS/SRC/PTZBLAS/dagemv.f +++ b/PBLAS/SRC/PTZBLAS/dagemv.f @@ -1,5 +1,6 @@ SUBROUTINE DAGEMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dascal.f b/PBLAS/SRC/PTZBLAS/dascal.f index 30b9b1ce..d7558031 100644 --- a/PBLAS/SRC/PTZBLAS/dascal.f +++ b/PBLAS/SRC/PTZBLAS/dascal.f @@ -1,4 +1,5 @@ SUBROUTINE DASCAL( N, ALPHA, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dasqrtb.f b/PBLAS/SRC/PTZBLAS/dasqrtb.f index 82ad5a48..6988bf99 100644 --- a/PBLAS/SRC/PTZBLAS/dasqrtb.f +++ b/PBLAS/SRC/PTZBLAS/dasqrtb.f @@ -1,4 +1,5 @@ SUBROUTINE DASQRTB( A, B, C ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dasymv.f b/PBLAS/SRC/PTZBLAS/dasymv.f index faba2e9c..60fefbab 100644 --- a/PBLAS/SRC/PTZBLAS/dasymv.f +++ b/PBLAS/SRC/PTZBLAS/dasymv.f @@ -1,5 +1,6 @@ SUBROUTINE DASYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/datrmv.f b/PBLAS/SRC/PTZBLAS/datrmv.f index d5a164a3..4f487d23 100644 --- a/PBLAS/SRC/PTZBLAS/datrmv.f +++ b/PBLAS/SRC/PTZBLAS/datrmv.f @@ -1,5 +1,6 @@ SUBROUTINE DATRMV( UPLO, TRANS, DIAG, N, ALPHA, A, LDA, X, INCX, $ BETA, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dcshft.f b/PBLAS/SRC/PTZBLAS/dcshft.f index 878ef6d6..55a8f513 100644 --- a/PBLAS/SRC/PTZBLAS/dcshft.f +++ b/PBLAS/SRC/PTZBLAS/dcshft.f @@ -1,4 +1,5 @@ SUBROUTINE DCSHFT( M, N, OFFSET, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dmmadd.f b/PBLAS/SRC/PTZBLAS/dmmadd.f index c992da9b..49a3f640 100644 --- a/PBLAS/SRC/PTZBLAS/dmmadd.f +++ b/PBLAS/SRC/PTZBLAS/dmmadd.f @@ -1,4 +1,5 @@ SUBROUTINE DMMADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dmmcadd.f b/PBLAS/SRC/PTZBLAS/dmmcadd.f index 0e47f18f..47ea5c24 100644 --- a/PBLAS/SRC/PTZBLAS/dmmcadd.f +++ b/PBLAS/SRC/PTZBLAS/dmmcadd.f @@ -1,4 +1,5 @@ SUBROUTINE DMMCADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dmmdda.f b/PBLAS/SRC/PTZBLAS/dmmdda.f index f03eb320..f7d10730 100644 --- a/PBLAS/SRC/PTZBLAS/dmmdda.f +++ b/PBLAS/SRC/PTZBLAS/dmmdda.f @@ -1,4 +1,5 @@ SUBROUTINE DMMDDA( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dmmddac.f b/PBLAS/SRC/PTZBLAS/dmmddac.f index e49b5136..6c113ea7 100644 --- a/PBLAS/SRC/PTZBLAS/dmmddac.f +++ b/PBLAS/SRC/PTZBLAS/dmmddac.f @@ -1,4 +1,5 @@ SUBROUTINE DMMDDAC( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dmmddact.f b/PBLAS/SRC/PTZBLAS/dmmddact.f index 1e2a77ad..4bfbf3d3 100644 --- a/PBLAS/SRC/PTZBLAS/dmmddact.f +++ b/PBLAS/SRC/PTZBLAS/dmmddact.f @@ -1,4 +1,5 @@ SUBROUTINE DMMDDACT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dmmddat.f b/PBLAS/SRC/PTZBLAS/dmmddat.f index fa916c6d..48fd7da1 100644 --- a/PBLAS/SRC/PTZBLAS/dmmddat.f +++ b/PBLAS/SRC/PTZBLAS/dmmddat.f @@ -1,4 +1,5 @@ SUBROUTINE DMMDDAT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dmmtadd.f b/PBLAS/SRC/PTZBLAS/dmmtadd.f index 7cdadc33..f4c0c398 100644 --- a/PBLAS/SRC/PTZBLAS/dmmtadd.f +++ b/PBLAS/SRC/PTZBLAS/dmmtadd.f @@ -1,4 +1,5 @@ SUBROUTINE DMMTADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dmmtcadd.f b/PBLAS/SRC/PTZBLAS/dmmtcadd.f index 66f3203d..9e816950 100644 --- a/PBLAS/SRC/PTZBLAS/dmmtcadd.f +++ b/PBLAS/SRC/PTZBLAS/dmmtcadd.f @@ -1,4 +1,5 @@ SUBROUTINE DMMTCADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/drshft.f b/PBLAS/SRC/PTZBLAS/drshft.f index dd368c10..7454ebd8 100644 --- a/PBLAS/SRC/PTZBLAS/drshft.f +++ b/PBLAS/SRC/PTZBLAS/drshft.f @@ -1,4 +1,5 @@ SUBROUTINE DRSHFT( M, N, OFFSET, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dset.f b/PBLAS/SRC/PTZBLAS/dset.f index 85d5b403..a26196d4 100644 --- a/PBLAS/SRC/PTZBLAS/dset.f +++ b/PBLAS/SRC/PTZBLAS/dset.f @@ -1,4 +1,5 @@ SUBROUTINE DSET( N, ALPHA, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dtzpad.f b/PBLAS/SRC/PTZBLAS/dtzpad.f index fa949f0b..ae08356a 100644 --- a/PBLAS/SRC/PTZBLAS/dtzpad.f +++ b/PBLAS/SRC/PTZBLAS/dtzpad.f @@ -1,4 +1,5 @@ SUBROUTINE DTZPAD( UPLO, HERM, M, N, IOFFD, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dtzpadcpy.f b/PBLAS/SRC/PTZBLAS/dtzpadcpy.f index 97981b69..ac33fd83 100644 --- a/PBLAS/SRC/PTZBLAS/dtzpadcpy.f +++ b/PBLAS/SRC/PTZBLAS/dtzpadcpy.f @@ -1,4 +1,5 @@ SUBROUTINE DTZPADCPY( UPLO, DIAG, M, N, IOFFD, A, LDA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dtzscal.f b/PBLAS/SRC/PTZBLAS/dtzscal.f index 6af5f833..14138d26 100644 --- a/PBLAS/SRC/PTZBLAS/dtzscal.f +++ b/PBLAS/SRC/PTZBLAS/dtzscal.f @@ -1,4 +1,5 @@ SUBROUTINE DTZSCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dvasum.f b/PBLAS/SRC/PTZBLAS/dvasum.f index 0e20f7b0..3bc90291 100644 --- a/PBLAS/SRC/PTZBLAS/dvasum.f +++ b/PBLAS/SRC/PTZBLAS/dvasum.f @@ -1,4 +1,5 @@ SUBROUTINE DVASUM( N, ASUM, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dvvdot.f b/PBLAS/SRC/PTZBLAS/dvvdot.f index 5e43b3c4..93731c4b 100644 --- a/PBLAS/SRC/PTZBLAS/dvvdot.f +++ b/PBLAS/SRC/PTZBLAS/dvvdot.f @@ -1,4 +1,5 @@ SUBROUTINE DVVDOT( N, DOT, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/dzvasum.f b/PBLAS/SRC/PTZBLAS/dzvasum.f index cad0f2ef..ddf36fe7 100644 --- a/PBLAS/SRC/PTZBLAS/dzvasum.f +++ b/PBLAS/SRC/PTZBLAS/dzvasum.f @@ -1,4 +1,5 @@ SUBROUTINE DZVASUM( N, ASUM, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/immadd.f b/PBLAS/SRC/PTZBLAS/immadd.f index 1b71046c..5c867c1d 100644 --- a/PBLAS/SRC/PTZBLAS/immadd.f +++ b/PBLAS/SRC/PTZBLAS/immadd.f @@ -1,4 +1,5 @@ SUBROUTINE IMMADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/immdda.f b/PBLAS/SRC/PTZBLAS/immdda.f index 5c31cf50..028063bf 100644 --- a/PBLAS/SRC/PTZBLAS/immdda.f +++ b/PBLAS/SRC/PTZBLAS/immdda.f @@ -1,4 +1,5 @@ SUBROUTINE IMMDDA( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/immddat.f b/PBLAS/SRC/PTZBLAS/immddat.f index 1878d305..04187308 100644 --- a/PBLAS/SRC/PTZBLAS/immddat.f +++ b/PBLAS/SRC/PTZBLAS/immddat.f @@ -1,4 +1,5 @@ SUBROUTINE IMMDDAT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/immtadd.f b/PBLAS/SRC/PTZBLAS/immtadd.f index 5bf40f67..fa6ab14c 100644 --- a/PBLAS/SRC/PTZBLAS/immtadd.f +++ b/PBLAS/SRC/PTZBLAS/immtadd.f @@ -1,4 +1,5 @@ SUBROUTINE IMMTADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/pxerbla.f b/PBLAS/SRC/PTZBLAS/pxerbla.f index af6e911f..77e8922e 100644 --- a/PBLAS/SRC/PTZBLAS/pxerbla.f +++ b/PBLAS/SRC/PTZBLAS/pxerbla.f @@ -1,4 +1,5 @@ SUBROUTINE PXERBLA( ICTXT, SRNAME, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/sagemv.f b/PBLAS/SRC/PTZBLAS/sagemv.f index 3b25cc3c..314c3780 100644 --- a/PBLAS/SRC/PTZBLAS/sagemv.f +++ b/PBLAS/SRC/PTZBLAS/sagemv.f @@ -1,5 +1,6 @@ SUBROUTINE SAGEMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/sascal.f b/PBLAS/SRC/PTZBLAS/sascal.f index 7a168c23..0f43139d 100644 --- a/PBLAS/SRC/PTZBLAS/sascal.f +++ b/PBLAS/SRC/PTZBLAS/sascal.f @@ -1,4 +1,5 @@ SUBROUTINE SASCAL( N, ALPHA, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/sasqrtb.f b/PBLAS/SRC/PTZBLAS/sasqrtb.f index 0eb76c10..ce1c1b7e 100644 --- a/PBLAS/SRC/PTZBLAS/sasqrtb.f +++ b/PBLAS/SRC/PTZBLAS/sasqrtb.f @@ -1,4 +1,5 @@ SUBROUTINE SASQRTB( A, B, C ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/sasymv.f b/PBLAS/SRC/PTZBLAS/sasymv.f index 4f3879fa..dc2cf51f 100644 --- a/PBLAS/SRC/PTZBLAS/sasymv.f +++ b/PBLAS/SRC/PTZBLAS/sasymv.f @@ -1,5 +1,6 @@ SUBROUTINE SASYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/satrmv.f b/PBLAS/SRC/PTZBLAS/satrmv.f index 38712467..7bf113ed 100644 --- a/PBLAS/SRC/PTZBLAS/satrmv.f +++ b/PBLAS/SRC/PTZBLAS/satrmv.f @@ -1,5 +1,6 @@ SUBROUTINE SATRMV( UPLO, TRANS, DIAG, N, ALPHA, A, LDA, X, INCX, $ BETA, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/scshft.f b/PBLAS/SRC/PTZBLAS/scshft.f index c606091c..42646c60 100644 --- a/PBLAS/SRC/PTZBLAS/scshft.f +++ b/PBLAS/SRC/PTZBLAS/scshft.f @@ -1,4 +1,5 @@ SUBROUTINE SCSHFT( M, N, OFFSET, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/scvasum.f b/PBLAS/SRC/PTZBLAS/scvasum.f index 8cbd365c..707f1e1e 100644 --- a/PBLAS/SRC/PTZBLAS/scvasum.f +++ b/PBLAS/SRC/PTZBLAS/scvasum.f @@ -1,4 +1,5 @@ SUBROUTINE SCVASUM( N, ASUM, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/smmadd.f b/PBLAS/SRC/PTZBLAS/smmadd.f index 59589e4d..6b0e3708 100644 --- a/PBLAS/SRC/PTZBLAS/smmadd.f +++ b/PBLAS/SRC/PTZBLAS/smmadd.f @@ -1,4 +1,5 @@ SUBROUTINE SMMADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/smmcadd.f b/PBLAS/SRC/PTZBLAS/smmcadd.f index 5a2eac34..e94356e2 100644 --- a/PBLAS/SRC/PTZBLAS/smmcadd.f +++ b/PBLAS/SRC/PTZBLAS/smmcadd.f @@ -1,4 +1,5 @@ SUBROUTINE SMMCADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/smmdda.f b/PBLAS/SRC/PTZBLAS/smmdda.f index cfef8424..f351bb1e 100644 --- a/PBLAS/SRC/PTZBLAS/smmdda.f +++ b/PBLAS/SRC/PTZBLAS/smmdda.f @@ -1,4 +1,5 @@ SUBROUTINE SMMDDA( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/smmddac.f b/PBLAS/SRC/PTZBLAS/smmddac.f index 4ae0e4fb..aac335b1 100644 --- a/PBLAS/SRC/PTZBLAS/smmddac.f +++ b/PBLAS/SRC/PTZBLAS/smmddac.f @@ -1,4 +1,5 @@ SUBROUTINE SMMDDAC( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/smmddact.f b/PBLAS/SRC/PTZBLAS/smmddact.f index aafeb47d..d24e9557 100644 --- a/PBLAS/SRC/PTZBLAS/smmddact.f +++ b/PBLAS/SRC/PTZBLAS/smmddact.f @@ -1,4 +1,5 @@ SUBROUTINE SMMDDACT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/smmddat.f b/PBLAS/SRC/PTZBLAS/smmddat.f index 6c9a8632..28131dba 100644 --- a/PBLAS/SRC/PTZBLAS/smmddat.f +++ b/PBLAS/SRC/PTZBLAS/smmddat.f @@ -1,4 +1,5 @@ SUBROUTINE SMMDDAT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/smmtadd.f b/PBLAS/SRC/PTZBLAS/smmtadd.f index 36366f26..41531405 100644 --- a/PBLAS/SRC/PTZBLAS/smmtadd.f +++ b/PBLAS/SRC/PTZBLAS/smmtadd.f @@ -1,4 +1,5 @@ SUBROUTINE SMMTADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/smmtcadd.f b/PBLAS/SRC/PTZBLAS/smmtcadd.f index 63c22f42..c8757779 100644 --- a/PBLAS/SRC/PTZBLAS/smmtcadd.f +++ b/PBLAS/SRC/PTZBLAS/smmtcadd.f @@ -1,4 +1,5 @@ SUBROUTINE SMMTCADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/srshft.f b/PBLAS/SRC/PTZBLAS/srshft.f index ececab33..f0496207 100644 --- a/PBLAS/SRC/PTZBLAS/srshft.f +++ b/PBLAS/SRC/PTZBLAS/srshft.f @@ -1,4 +1,5 @@ SUBROUTINE SRSHFT( M, N, OFFSET, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/sset.f b/PBLAS/SRC/PTZBLAS/sset.f index 2c8dcaf2..de21e516 100644 --- a/PBLAS/SRC/PTZBLAS/sset.f +++ b/PBLAS/SRC/PTZBLAS/sset.f @@ -1,4 +1,5 @@ SUBROUTINE SSET( N, ALPHA, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/stzpad.f b/PBLAS/SRC/PTZBLAS/stzpad.f index 77992329..08fee508 100644 --- a/PBLAS/SRC/PTZBLAS/stzpad.f +++ b/PBLAS/SRC/PTZBLAS/stzpad.f @@ -1,4 +1,5 @@ SUBROUTINE STZPAD( UPLO, HERM, M, N, IOFFD, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/stzpadcpy.f b/PBLAS/SRC/PTZBLAS/stzpadcpy.f index 8a8f972d..4dc83ffc 100644 --- a/PBLAS/SRC/PTZBLAS/stzpadcpy.f +++ b/PBLAS/SRC/PTZBLAS/stzpadcpy.f @@ -1,4 +1,5 @@ SUBROUTINE STZPADCPY( UPLO, DIAG, M, N, IOFFD, A, LDA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/stzscal.f b/PBLAS/SRC/PTZBLAS/stzscal.f index 890bcd46..979c110d 100644 --- a/PBLAS/SRC/PTZBLAS/stzscal.f +++ b/PBLAS/SRC/PTZBLAS/stzscal.f @@ -1,4 +1,5 @@ SUBROUTINE STZSCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/svasum.f b/PBLAS/SRC/PTZBLAS/svasum.f index 6aaa3676..58c7221b 100644 --- a/PBLAS/SRC/PTZBLAS/svasum.f +++ b/PBLAS/SRC/PTZBLAS/svasum.f @@ -1,4 +1,5 @@ SUBROUTINE SVASUM( N, ASUM, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/svvdot.f b/PBLAS/SRC/PTZBLAS/svvdot.f index 74d54321..7c63994a 100644 --- a/PBLAS/SRC/PTZBLAS/svvdot.f +++ b/PBLAS/SRC/PTZBLAS/svvdot.f @@ -1,4 +1,5 @@ SUBROUTINE SVVDOT( N, DOT, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zagemv.f b/PBLAS/SRC/PTZBLAS/zagemv.f index 45f65a45..2395d233 100644 --- a/PBLAS/SRC/PTZBLAS/zagemv.f +++ b/PBLAS/SRC/PTZBLAS/zagemv.f @@ -1,5 +1,6 @@ SUBROUTINE ZAGEMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zahemv.f b/PBLAS/SRC/PTZBLAS/zahemv.f index 90a65502..970265a4 100644 --- a/PBLAS/SRC/PTZBLAS/zahemv.f +++ b/PBLAS/SRC/PTZBLAS/zahemv.f @@ -1,5 +1,6 @@ SUBROUTINE ZAHEMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zasymv.f b/PBLAS/SRC/PTZBLAS/zasymv.f index 07cf1179..593d6868 100644 --- a/PBLAS/SRC/PTZBLAS/zasymv.f +++ b/PBLAS/SRC/PTZBLAS/zasymv.f @@ -1,5 +1,6 @@ SUBROUTINE ZASYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zatrmv.f b/PBLAS/SRC/PTZBLAS/zatrmv.f index 6de05b1c..26df2eb9 100644 --- a/PBLAS/SRC/PTZBLAS/zatrmv.f +++ b/PBLAS/SRC/PTZBLAS/zatrmv.f @@ -1,5 +1,6 @@ SUBROUTINE ZATRMV( UPLO, TRANS, DIAG, N, ALPHA, A, LDA, X, INCX, $ BETA, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zcshft.f b/PBLAS/SRC/PTZBLAS/zcshft.f index 7f74e88a..311c733c 100644 --- a/PBLAS/SRC/PTZBLAS/zcshft.f +++ b/PBLAS/SRC/PTZBLAS/zcshft.f @@ -1,4 +1,5 @@ SUBROUTINE ZCSHFT( M, N, OFFSET, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zhescal.f b/PBLAS/SRC/PTZBLAS/zhescal.f index f03f9dc6..b19e7a8d 100644 --- a/PBLAS/SRC/PTZBLAS/zhescal.f +++ b/PBLAS/SRC/PTZBLAS/zhescal.f @@ -1,4 +1,5 @@ SUBROUTINE ZHESCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zmmadd.f b/PBLAS/SRC/PTZBLAS/zmmadd.f index 597b4a6f..7763bcfb 100644 --- a/PBLAS/SRC/PTZBLAS/zmmadd.f +++ b/PBLAS/SRC/PTZBLAS/zmmadd.f @@ -1,4 +1,5 @@ SUBROUTINE ZMMADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zmmcadd.f b/PBLAS/SRC/PTZBLAS/zmmcadd.f index c67c0fb7..42130dda 100644 --- a/PBLAS/SRC/PTZBLAS/zmmcadd.f +++ b/PBLAS/SRC/PTZBLAS/zmmcadd.f @@ -1,4 +1,5 @@ SUBROUTINE ZMMCADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zmmdda.f b/PBLAS/SRC/PTZBLAS/zmmdda.f index 310e73d3..5b39a5aa 100644 --- a/PBLAS/SRC/PTZBLAS/zmmdda.f +++ b/PBLAS/SRC/PTZBLAS/zmmdda.f @@ -1,4 +1,5 @@ SUBROUTINE ZMMDDA( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zmmddac.f b/PBLAS/SRC/PTZBLAS/zmmddac.f index 14e1c896..1d10526a 100644 --- a/PBLAS/SRC/PTZBLAS/zmmddac.f +++ b/PBLAS/SRC/PTZBLAS/zmmddac.f @@ -1,4 +1,5 @@ SUBROUTINE ZMMDDAC( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zmmddact.f b/PBLAS/SRC/PTZBLAS/zmmddact.f index f64de098..e2627ab3 100644 --- a/PBLAS/SRC/PTZBLAS/zmmddact.f +++ b/PBLAS/SRC/PTZBLAS/zmmddact.f @@ -1,4 +1,5 @@ SUBROUTINE ZMMDDACT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zmmddat.f b/PBLAS/SRC/PTZBLAS/zmmddat.f index 521e7351..8e3aa57c 100644 --- a/PBLAS/SRC/PTZBLAS/zmmddat.f +++ b/PBLAS/SRC/PTZBLAS/zmmddat.f @@ -1,4 +1,5 @@ SUBROUTINE ZMMDDAT( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zmmtadd.f b/PBLAS/SRC/PTZBLAS/zmmtadd.f index 8689350a..18170ab9 100644 --- a/PBLAS/SRC/PTZBLAS/zmmtadd.f +++ b/PBLAS/SRC/PTZBLAS/zmmtadd.f @@ -1,4 +1,5 @@ SUBROUTINE ZMMTADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zmmtcadd.f b/PBLAS/SRC/PTZBLAS/zmmtcadd.f index a10327f9..a9cfad58 100644 --- a/PBLAS/SRC/PTZBLAS/zmmtcadd.f +++ b/PBLAS/SRC/PTZBLAS/zmmtcadd.f @@ -1,4 +1,5 @@ SUBROUTINE ZMMTCADD( M, N, ALPHA, A, LDA, BETA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zrshft.f b/PBLAS/SRC/PTZBLAS/zrshft.f index 4d65caa6..65a55ff3 100644 --- a/PBLAS/SRC/PTZBLAS/zrshft.f +++ b/PBLAS/SRC/PTZBLAS/zrshft.f @@ -1,4 +1,5 @@ SUBROUTINE ZRSHFT( M, N, OFFSET, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zset.f b/PBLAS/SRC/PTZBLAS/zset.f index c4ceffdd..b60af820 100644 --- a/PBLAS/SRC/PTZBLAS/zset.f +++ b/PBLAS/SRC/PTZBLAS/zset.f @@ -1,4 +1,5 @@ SUBROUTINE ZSET( N, ALPHA, X, INCX ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zsymv.f b/PBLAS/SRC/PTZBLAS/zsymv.f index bd59e15b..ab4033ba 100644 --- a/PBLAS/SRC/PTZBLAS/zsymv.f +++ b/PBLAS/SRC/PTZBLAS/zsymv.f @@ -1,4 +1,5 @@ SUBROUTINE ZSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zsyr.f b/PBLAS/SRC/PTZBLAS/zsyr.f index c0429e55..f371d5ac 100644 --- a/PBLAS/SRC/PTZBLAS/zsyr.f +++ b/PBLAS/SRC/PTZBLAS/zsyr.f @@ -1,4 +1,5 @@ SUBROUTINE ZSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zsyr2.f b/PBLAS/SRC/PTZBLAS/zsyr2.f index 7af6c203..639f5cac 100644 --- a/PBLAS/SRC/PTZBLAS/zsyr2.f +++ b/PBLAS/SRC/PTZBLAS/zsyr2.f @@ -1,4 +1,5 @@ SUBROUTINE ZSYR2( UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ztzcnjg.f b/PBLAS/SRC/PTZBLAS/ztzcnjg.f index 4e659842..639204bb 100644 --- a/PBLAS/SRC/PTZBLAS/ztzcnjg.f +++ b/PBLAS/SRC/PTZBLAS/ztzcnjg.f @@ -1,4 +1,5 @@ SUBROUTINE ZTZCNJG( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ztzpad.f b/PBLAS/SRC/PTZBLAS/ztzpad.f index 0206a0da..ab74f665 100644 --- a/PBLAS/SRC/PTZBLAS/ztzpad.f +++ b/PBLAS/SRC/PTZBLAS/ztzpad.f @@ -1,4 +1,5 @@ SUBROUTINE ZTZPAD( UPLO, HERM, M, N, IOFFD, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ztzpadcpy.f b/PBLAS/SRC/PTZBLAS/ztzpadcpy.f index ebaf61de..f1354d58 100644 --- a/PBLAS/SRC/PTZBLAS/ztzpadcpy.f +++ b/PBLAS/SRC/PTZBLAS/ztzpadcpy.f @@ -1,4 +1,5 @@ SUBROUTINE ZTZPADCPY( UPLO, DIAG, M, N, IOFFD, A, LDA, B, LDB ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/ztzscal.f b/PBLAS/SRC/PTZBLAS/ztzscal.f index b95e38fb..1ee360a1 100644 --- a/PBLAS/SRC/PTZBLAS/ztzscal.f +++ b/PBLAS/SRC/PTZBLAS/ztzscal.f @@ -1,4 +1,5 @@ SUBROUTINE ZTZSCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zvvdotc.f b/PBLAS/SRC/PTZBLAS/zvvdotc.f index 6c4070f3..6132ca69 100644 --- a/PBLAS/SRC/PTZBLAS/zvvdotc.f +++ b/PBLAS/SRC/PTZBLAS/zvvdotc.f @@ -1,4 +1,5 @@ SUBROUTINE ZVVDOTC( N, DOT, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/PTZBLAS/zvvdotu.f b/PBLAS/SRC/PTZBLAS/zvvdotu.f index d83ed547..55c378bd 100644 --- a/PBLAS/SRC/PTZBLAS/zvvdotu.f +++ b/PBLAS/SRC/PTZBLAS/zvvdotu.f @@ -1,4 +1,5 @@ SUBROUTINE ZVVDOTU( N, DOT, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/SRC/pilaenv.f b/PBLAS/SRC/pilaenv.f index 67a6bb4e..7e23a2ba 100644 --- a/PBLAS/SRC/pilaenv.f +++ b/PBLAS/SRC/pilaenv.f @@ -1,4 +1,5 @@ INTEGER FUNCTION PILAENV( ICTXT, PREC ) + IMPLICIT NONE * * -- PBLAS auxiliary routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/dlamch.f b/PBLAS/TESTING/dlamch.f index fe3a2a85..503570e3 100644 --- a/PBLAS/TESTING/dlamch.f +++ b/PBLAS/TESTING/dlamch.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -129,6 +130,7 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH ) ************************************************************************ * SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -316,6 +318,7 @@ SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 ) ************************************************************************ * SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -575,6 +578,7 @@ SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX ) ************************************************************************ * DOUBLE PRECISION FUNCTION DLAMC3( A, B ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -613,6 +617,7 @@ DOUBLE PRECISION FUNCTION DLAMC3( A, B ) ************************************************************************ * SUBROUTINE DLAMC4( EMIN, START, BASE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -697,6 +702,7 @@ SUBROUTINE DLAMC4( EMIN, START, BASE ) ************************************************************************ * SUBROUTINE DLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/PBLAS/TESTING/pblastst.f b/PBLAS/TESTING/pblastst.f index 04159c00..e2c8d02d 100644 --- a/PBLAS/TESTING/pblastst.f +++ b/PBLAS/TESTING/pblastst.f @@ -1,5 +1,6 @@ SUBROUTINE PVDIMCHK( ICTXT, NOUT, N, MATRIX, IX, JX, DESCX, INCX, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -199,6 +200,7 @@ SUBROUTINE PVDIMCHK( ICTXT, NOUT, N, MATRIX, IX, JX, DESCX, INCX, END SUBROUTINE PMDIMCHK( ICTXT, NOUT, M, N, MATRIX, IA, JA, DESCA, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -385,6 +387,7 @@ SUBROUTINE PVDESCCHK( ICTXT, NOUT, MATRIX, DESCX, DTX, MX, NX, $ IMBX, INBX, MBX, NBX, RSRCX, CSRCX, INCX, $ MPX, NQX, IPREX, IMIDX, IPOSTX, IGAP, $ GAPMUL, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -743,6 +746,7 @@ SUBROUTINE PMDESCCHK( ICTXT, NOUT, MATRIX, DESCA, DTA, MA, NA, $ IMBA, INBA, MBA, NBA, RSRCA, CSRCA, MPA, $ NQA, IPREA, IMIDA, IPOSTA, IGAP, GAPMUL, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1081,6 +1085,7 @@ SUBROUTINE PMDESCCHK( ICTXT, NOUT, MATRIX, DESCA, DTA, MA, NA, * END SUBROUTINE PCHKPBE( ICTXT, NOUT, SNAME, INFOT ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1227,6 +1232,7 @@ SUBROUTINE PCHKPBE( ICTXT, NOUT, SNAME, INFOT ) * END REAL FUNCTION PSDIFF( X, Y ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1266,6 +1272,7 @@ REAL FUNCTION PSDIFF( X, Y ) END * DOUBLE PRECISION FUNCTION PDDIFF( X, Y ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1304,6 +1311,7 @@ DOUBLE PRECISION FUNCTION PDDIFF( X, Y ) * END SUBROUTINE PXERBLA( ICTXT, SRNAME, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1367,6 +1375,7 @@ SUBROUTINE PXERBLA( ICTXT, SRNAME, INFO ) * END LOGICAL FUNCTION LSAME( CA, CB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -1454,6 +1463,7 @@ LOGICAL FUNCTION LSAME( CA, CB ) * END LOGICAL FUNCTION LSAMEN( N, CA, CB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -1522,6 +1532,7 @@ LOGICAL FUNCTION LSAMEN( N, CA, CB ) * END SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -1619,6 +1630,7 @@ SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) * END INTEGER FUNCTION PB_NOABORT( CINFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1670,6 +1682,7 @@ INTEGER FUNCTION PB_NOABORT( CINFO ) END SUBROUTINE PB_INFOG2L( I, J, DESC, NPROW, NPCOL, MYROW, MYCOL, II, $ JJ, PROW, PCOL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2020,6 +2033,7 @@ SUBROUTINE PB_INFOG2L( I, J, DESC, NPROW, NPCOL, MYROW, MYCOL, II, SUBROUTINE PB_AINFOG2L( M, N, I, J, DESC, NPROW, NPCOL, MYROW, $ MYCOL, IMB1, INB1, MP, NQ, II, JJ, PROW, $ PCOL, RPROW, RPCOL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2545,6 +2559,7 @@ SUBROUTINE PB_AINFOG2L( M, N, I, J, DESC, NPROW, NPCOL, MYROW, * END INTEGER FUNCTION PB_NUMROC( N, I, INB, NB, PROC, SRCPROC, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2693,6 +2708,7 @@ INTEGER FUNCTION PB_NUMROC( N, I, INB, NB, PROC, SRCPROC, NPROCS ) * END INTEGER FUNCTION PB_FCEIL( NUM, DENOM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2739,6 +2755,7 @@ INTEGER FUNCTION PB_FCEIL( NUM, DENOM ) END SUBROUTINE PB_CHKMAT( ICTXT, M, MPOS0, N, NPOS0, IA, JA, DESCA, $ DPOS0, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2961,6 +2978,7 @@ SUBROUTINE PB_CHKMAT( ICTXT, M, MPOS0, N, NPOS0, IA, JA, DESCA, * END SUBROUTINE PB_DESCTRANS( DESCIN, DESCOUT ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3169,6 +3187,7 @@ SUBROUTINE PB_DESCTRANS( DESCIN, DESCOUT ) END SUBROUTINE PB_DESCSET2( DESC, M, N, IMB, INB, MB, NB, RSRC, CSRC, $ CTXT, LLD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3334,6 +3353,7 @@ SUBROUTINE PB_DESCSET2( DESC, M, N, IMB, INB, MB, NB, RSRC, CSRC, END SUBROUTINE PB_DESCINIT2( DESC, M, N, IMB, INB, MB, NB, RSRC, CSRC, $ CTXT, LLD, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3574,6 +3594,7 @@ SUBROUTINE PB_DESCINIT2( DESC, M, N, IMB, INB, MB, NB, RSRC, CSRC, SUBROUTINE PB_BINFO( OFFD, M, N, IMB1, INB1, MB, NB, MRROW, MRCOL, $ LCMT00, MBLKS, NBLKS, IMBLOC, INBLOC, LMBLOC, $ LNBLOC, ILOW, LOW, IUPP, UPP ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3855,6 +3876,7 @@ SUBROUTINE PB_BINFO( OFFD, M, N, IMB1, INB1, MB, NB, MRROW, MRCOL, * END INTEGER FUNCTION PILAENV( ICTXT, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3907,6 +3929,7 @@ INTEGER FUNCTION PILAENV( ICTXT, PREC ) END SUBROUTINE PB_LOCINFO( I, INB, NB, MYROC, SRCPROC, NPROCS, $ ILOCBLK, ILOCOFF, MYDIST ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4042,6 +4065,7 @@ SUBROUTINE PB_LOCINFO( I, INB, NB, MYROC, SRCPROC, NPROCS, SUBROUTINE PB_INITJMP( COLMAJ, NVIR, IMBVIR, INBVIR, IMBLOC, $ INBLOC, MB, NB, RSRC, CSRC, NPROW, NPCOL, $ STRIDE, JMP ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4193,6 +4217,7 @@ SUBROUTINE PB_INITJMP( COLMAJ, NVIR, IMBVIR, INBVIR, IMBLOC, * END SUBROUTINE PB_INITMULADD( MULADD0, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4299,6 +4324,7 @@ SUBROUTINE PB_INITMULADD( MULADD0, JMP, IMULADD ) SUBROUTINE PB_SETLOCRAN( SEED, ILOCBLK, JLOCBLK, ILOCOFF, JLOCOFF, $ MYRDIST, MYCDIST, NPROW, NPCOL, JMP, $ IMULADD, IRAN ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4477,6 +4503,7 @@ SUBROUTINE PB_SETLOCRAN( SEED, ILOCBLK, JLOCBLK, ILOCOFF, JLOCOFF, * END SUBROUTINE PB_LADD( J, K, I ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4556,6 +4583,7 @@ SUBROUTINE PB_LADD( J, K, I ) * END SUBROUTINE PB_LMUL( K, J, I ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4645,6 +4673,7 @@ SUBROUTINE PB_LMUL( K, J, I ) * END SUBROUTINE PB_JUMP( K, MULADD, IRANN, IRANM, IMA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4756,6 +4785,7 @@ SUBROUTINE PB_JUMP( K, MULADD, IRANN, IRANM, IMA ) * END SUBROUTINE PB_SETRAN( IRAN, IAC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4819,6 +4849,7 @@ SUBROUTINE PB_SETRAN( IRAN, IAC ) * END SUBROUTINE PB_JUMPIT( MULADD, IRANN, IRANM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pcblas1tst.f b/PBLAS/TESTING/pcblas1tst.f index f91915a7..ec63ee20 100644 --- a/PBLAS/TESTING/pcblas1tst.f +++ b/PBLAS/TESTING/pcblas1tst.f @@ -10,6 +10,7 @@ END BLOCK DATA PROGRAM PCBLA1TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -799,6 +800,7 @@ SUBROUTINE PCBLA1TSTINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, $ LDVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, LTEST, SOF, TEE, IAM, IGAP, $ IVERB, NPROCS, ALPHA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1492,6 +1494,7 @@ SUBROUTINE PCBLA1TSTINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, * END SUBROUTINE PCBLAS1TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1775,6 +1778,7 @@ SUBROUTINE PCBLAS1TSTCHKE( LTEST, INOUT, NPROCS ) END SUBROUTINE PCCHKARG1( ICTXT, NOUT, SNAME, N, ALPHA, IX, JX, $ DESCX, INCX, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2075,6 +2079,7 @@ SUBROUTINE PCCHKARG1( ICTXT, NOUT, SNAME, N, ALPHA, IX, JX, * END LOGICAL FUNCTION PISINSCOPE( ICTXT, N, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2252,6 +2257,7 @@ LOGICAL FUNCTION PISINSCOPE( ICTXT, N, IX, JX, DESCX, INCX ) SUBROUTINE PCBLAS1TSTCHK( ICTXT, NOUT, NROUT, N, PSCLR, PUSCLR, $ PISCLR, X, PX, IX, JX, DESCX, INCX, Y, $ PY, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3135,6 +3141,7 @@ SUBROUTINE PCBLAS1TSTCHK( ICTXT, NOUT, NROUT, N, PSCLR, PUSCLR, * END SUBROUTINE PCERRDOTU( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3279,6 +3286,7 @@ SUBROUTINE PCERRDOTU( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) * END SUBROUTINE PCERRDOTC( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3423,6 +3431,7 @@ SUBROUTINE PCERRDOTC( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) * END SUBROUTINE PCERRNRM2( ERRBND, N, USCLR, X, INCX, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3556,6 +3565,7 @@ SUBROUTINE PCERRNRM2( ERRBND, N, USCLR, X, INCX, PREC ) * END SUBROUTINE PCERRASUM( ERRBND, N, USCLR, X, INCX, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3639,6 +3649,7 @@ SUBROUTINE PCERRASUM( ERRBND, N, USCLR, X, INCX, PREC ) * END SUBROUTINE PCERRSCAL( ERRBND, PSCLR, X, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3707,6 +3718,7 @@ SUBROUTINE PCERRSCAL( ERRBND, PSCLR, X, PREC ) * END SUBROUTINE PCSERRSCAL( ERRBND, PUSCLR, X, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3775,6 +3787,7 @@ SUBROUTINE PCSERRSCAL( ERRBND, PUSCLR, X, PREC ) * END SUBROUTINE PCERRAXPY( ERRBND, PSCLR, X, Y, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pcblas2tst.f b/PBLAS/TESTING/pcblas2tst.f index 53416773..b27960f5 100644 --- a/PBLAS/TESTING/pcblas2tst.f +++ b/PBLAS/TESTING/pcblas2tst.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PCBLA2TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -1149,6 +1150,7 @@ SUBROUTINE PCBLA2TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, $ QVAL, LDQVAL, NBLOG, LTEST, SOF, TEE, $ IAM, IGAP, IVERB, NPROCS, THRESH, ALPHA, $ BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2021,6 +2023,7 @@ SUBROUTINE PCBLA2TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, * END SUBROUTINE PCBLAS2TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2238,6 +2241,7 @@ SUBROUTINE PCBLAS2TSTCHKE( LTEST, INOUT, NPROCS ) SUBROUTINE PCCHKARG2( ICTXT, NOUT, SNAME, UPLO, TRANS, DIAG, M, $ N, ALPHA, IA, JA, DESCA, IX, JX, DESCX, $ INCX, BETA, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2565,6 +2569,7 @@ SUBROUTINE PCBLAS2TSTCHK( ICTXT, NOUT, NROUT, UPLO, TRANS, DIAG, $ PX, IX, JX, DESCX, INCX, BETA, Y, PY, $ IY, JY, DESCY, INCY, THRESH, ROGUE, $ WORK, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pcblas3tst.f b/PBLAS/TESTING/pcblas3tst.f index b50a0893..6c9ea9ff 100644 --- a/PBLAS/TESTING/pcblas3tst.f +++ b/PBLAS/TESTING/pcblas3tst.f @@ -10,6 +10,7 @@ END BLOCK DATA PROGRAM PCBLA3TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -1414,6 +1415,7 @@ SUBROUTINE PCBLA3TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, $ LDPVAL, QVAL, LDQVAL, NBLOG, LTEST, SOF, $ TEE, IAM, IGAP, IVERB, NPROCS, THRESH, $ ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2292,6 +2294,7 @@ SUBROUTINE PCBLA3TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, * END SUBROUTINE PCBLAS3TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2536,6 +2539,7 @@ SUBROUTINE PCCHKARG3( ICTXT, NOUT, SNAME, SIDE, UPLO, TRANSA, $ TRANSB, DIAG, M, N, K, ALPHA, IA, JA, $ DESCA, IB, JB, DESCB, BETA, IC, JC, DESCC, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2867,6 +2871,7 @@ SUBROUTINE PCBLAS3TSTCHK( ICTXT, NOUT, NROUT, SIDE, UPLO, TRANSA, $ JA, DESCA, B, PB, IB, JB, DESCB, BETA, $ C, PC, IC, JC, DESCC, THRESH, ROGUE, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pcblastst.f b/PBLAS/TESTING/pcblastst.f index d17edbcc..9579d897 100644 --- a/PBLAS/TESTING/pcblastst.f +++ b/PBLAS/TESTING/pcblastst.f @@ -1,4 +1,5 @@ SUBROUTINE PCOPTEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -263,6 +264,7 @@ SUBROUTINE PCOPTEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) END SUBROUTINE PCCHKOPT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -452,6 +454,7 @@ SUBROUTINE PCCHKOPT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PCDIMEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -756,6 +759,7 @@ SUBROUTINE PCDIMEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) END SUBROUTINE PCCHKDIM( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -933,6 +937,7 @@ SUBROUTINE PCCHKDIM( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PCVECEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1187,6 +1192,7 @@ SUBROUTINE PCVECEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) * END SUBROUTINE PCMATEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1475,6 +1481,7 @@ SUBROUTINE PCMATEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) * END SUBROUTINE PCSETPBLAS( ICTXT ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1674,6 +1681,7 @@ SUBROUTINE PCSETPBLAS( ICTXT ) END SUBROUTINE PCCHKMAT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2180,6 +2188,7 @@ SUBROUTINE PCCHKMAT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PCCALLSUB( SUBPTR, SCODE ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2457,6 +2466,7 @@ SUBROUTINE PCCALLSUB( SUBPTR, SCODE ) * END SUBROUTINE PCERRSET( ERR, ERRMAX, XTRUE, X ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2579,6 +2589,7 @@ SUBROUTINE PCERRSET( ERR, ERRMAX, XTRUE, X ) END SUBROUTINE PCCHKVIN( ERRMAX, N, X, PX, IX, JX, DESCX, INCX, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2873,6 +2884,7 @@ SUBROUTINE PCCHKVIN( ERRMAX, N, X, PX, IX, JX, DESCX, INCX, * END SUBROUTINE PCCHKVOUT( N, X, PX, IX, JX, DESCX, INCX, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3329,6 +3341,7 @@ SUBROUTINE PCCHKVOUT( N, X, PX, IX, JX, DESCX, INCX, INFO ) * END SUBROUTINE PCCHKMIN( ERRMAX, M, N, A, PA, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3630,6 +3643,7 @@ SUBROUTINE PCCHKMIN( ERRMAX, M, N, A, PA, IA, JA, DESCA, INFO ) * END SUBROUTINE PCCHKMOUT( M, N, A, PA, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3952,6 +3966,7 @@ SUBROUTINE PCCHKMOUT( M, N, A, PA, IA, JA, DESCA, INFO ) END SUBROUTINE PCMPRNT( ICTXT, NOUT, M, N, A, LDA, IRPRNT, ICPRNT, $ CMATNM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4064,6 +4079,7 @@ SUBROUTINE PCMPRNT( ICTXT, NOUT, M, N, A, LDA, IRPRNT, ICPRNT, END SUBROUTINE PCVPRNT( ICTXT, NOUT, N, X, INCX, IRPRNT, ICPRNT, $ CVECNM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4169,6 +4185,7 @@ SUBROUTINE PCVPRNT( ICTXT, NOUT, N, X, INCX, IRPRNT, ICPRNT, SUBROUTINE PCMVCH( ICTXT, TRANS, M, N, ALPHA, A, IA, JA, DESCA, $ X, IX, JX, DESCX, INCX, BETA, Y, PY, IY, JY, $ DESCY, INCY, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4603,6 +4620,7 @@ SUBROUTINE PCMVCH( ICTXT, TRANS, M, N, ALPHA, A, IA, JA, DESCA, SUBROUTINE PCVMCH( ICTXT, TRANS, UPLO, M, N, ALPHA, X, IX, JX, $ DESCX, INCX, Y, IY, JY, DESCY, INCY, A, PA, $ IA, JA, DESCA, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4972,6 +4990,7 @@ SUBROUTINE PCVMCH( ICTXT, TRANS, UPLO, M, N, ALPHA, X, IX, JX, SUBROUTINE PCVMCH2( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, $ INCX, Y, IY, JY, DESCY, INCY, A, PA, IA, $ JA, DESCA, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5333,6 +5352,7 @@ SUBROUTINE PCVMCH2( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, SUBROUTINE PCMMCH( ICTXT, TRANSA, TRANSB, M, N, K, ALPHA, A, IA, $ JA, DESCA, B, IB, JB, DESCB, BETA, C, PC, IC, $ JC, DESCC, CT, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5786,6 +5806,7 @@ SUBROUTINE PCMMCH( ICTXT, TRANSA, TRANSB, M, N, K, ALPHA, A, IA, SUBROUTINE PCMMCH1( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, $ DESCA, BETA, C, PC, IC, JC, DESCC, CT, G, $ ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6165,6 +6186,7 @@ SUBROUTINE PCMMCH1( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, SUBROUTINE PCMMCH2( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, $ DESCA, B, IB, JB, DESCB, BETA, C, PC, IC, $ JC, DESCC, CT, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6581,6 +6603,7 @@ SUBROUTINE PCMMCH2( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, END SUBROUTINE PCMMCH3( UPLO, TRANS, M, N, ALPHA, A, IA, JA, DESCA, $ BETA, C, PC, IC, JC, DESCC, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6940,6 +6963,7 @@ SUBROUTINE PCMMCH3( UPLO, TRANS, M, N, ALPHA, A, IA, JA, DESCA, * END SUBROUTINE PCERRAXPBY( ERRBND, ALPHA, X, BETA, Y, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7041,6 +7065,7 @@ SUBROUTINE PCERRAXPBY( ERRBND, ALPHA, X, BETA, Y, PREC ) * END SUBROUTINE PCIPSET( TOGGLE, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7452,6 +7477,7 @@ SUBROUTINE PCIPSET( TOGGLE, N, A, IA, JA, DESCA ) * END REAL FUNCTION PSLAMCH( ICTXT, CMACH ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7505,6 +7531,7 @@ REAL FUNCTION PSLAMCH( ICTXT, CMACH ) * END SUBROUTINE PCLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7980,6 +8007,7 @@ SUBROUTINE PCLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) * END SUBROUTINE PCLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8488,6 +8516,7 @@ SUBROUTINE PCLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PCLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, $ DESCA, IASEED, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8891,6 +8920,7 @@ SUBROUTINE PCLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, * END SUBROUTINE PCLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9299,6 +9329,7 @@ SUBROUTINE PCLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PB_PCLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9513,6 +9544,7 @@ SUBROUTINE PB_PCLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, END SUBROUTINE PB_PCLAPRN2( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, PROW, PCOL, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9757,6 +9789,7 @@ SUBROUTINE PB_PCLAPRN2( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, * END SUBROUTINE PB_CFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9870,6 +9903,7 @@ SUBROUTINE PB_CFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) END SUBROUTINE PB_CCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10044,6 +10078,7 @@ SUBROUTINE PB_CCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, * END SUBROUTINE PB_CLASET( UPLO, M, N, IOFFD, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10241,6 +10276,7 @@ SUBROUTINE PB_CLASET( UPLO, M, N, IOFFD, ALPHA, BETA, A, LDA ) * END SUBROUTINE PB_CLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10422,6 +10458,7 @@ SUBROUTINE PB_CLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) SUBROUTINE PB_CLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, $ IMBLOC, MB, LMBLOC, NBLKS, INBLOC, NB, $ LNBLOC, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -11487,6 +11524,7 @@ SUBROUTINE PB_CLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, * END REAL FUNCTION PB_SRAND( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -11549,6 +11587,7 @@ REAL FUNCTION PB_SRAND( IDUMM ) * END REAL FUNCTION PB_SRAN( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pdblas1tst.f b/PBLAS/TESTING/pdblas1tst.f index 97975d0d..04dec535 100644 --- a/PBLAS/TESTING/pdblas1tst.f +++ b/PBLAS/TESTING/pdblas1tst.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PDBLA1TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -774,6 +775,7 @@ SUBROUTINE PDBLA1TSTINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, $ LDVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, LTEST, SOF, TEE, IAM, IGAP, $ IVERB, NPROCS, ALPHA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1466,6 +1468,7 @@ SUBROUTINE PDBLA1TSTINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, * END SUBROUTINE PDBLAS1TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1731,6 +1734,7 @@ SUBROUTINE PDBLAS1TSTCHKE( LTEST, INOUT, NPROCS ) END SUBROUTINE PDCHKARG1( ICTXT, NOUT, SNAME, N, ALPHA, IX, JX, $ DESCX, INCX, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2031,6 +2035,7 @@ SUBROUTINE PDCHKARG1( ICTXT, NOUT, SNAME, N, ALPHA, IX, JX, * END LOGICAL FUNCTION PISINSCOPE( ICTXT, N, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2208,6 +2213,7 @@ LOGICAL FUNCTION PISINSCOPE( ICTXT, N, IX, JX, DESCX, INCX ) SUBROUTINE PDBLAS1TSTCHK( ICTXT, NOUT, NROUT, N, PSCLR, PUSCLR, $ PISCLR, X, PX, IX, JX, DESCX, INCX, Y, $ PY, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2930,6 +2936,7 @@ SUBROUTINE PDBLAS1TSTCHK( ICTXT, NOUT, NROUT, N, PSCLR, PUSCLR, * END SUBROUTINE PDERRDOT( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3044,6 +3051,7 @@ SUBROUTINE PDERRDOT( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) * END SUBROUTINE PDERRNRM2( ERRBND, N, USCLR, X, INCX, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3161,6 +3169,7 @@ SUBROUTINE PDERRNRM2( ERRBND, N, USCLR, X, INCX, PREC ) * END SUBROUTINE PDERRASUM( ERRBND, N, USCLR, X, INCX, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3243,6 +3252,7 @@ SUBROUTINE PDERRASUM( ERRBND, N, USCLR, X, INCX, PREC ) * END SUBROUTINE PDERRSCAL( ERRBND, PSCLR, X, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3310,6 +3320,7 @@ SUBROUTINE PDERRSCAL( ERRBND, PSCLR, X, PREC ) * END SUBROUTINE PDERRAXPY( ERRBND, PSCLR, X, Y, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pdblas2tst.f b/PBLAS/TESTING/pdblas2tst.f index a4745a06..efb64c67 100644 --- a/PBLAS/TESTING/pdblas2tst.f +++ b/PBLAS/TESTING/pdblas2tst.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PDBLA2TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -1118,6 +1119,7 @@ SUBROUTINE PDBLA2TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, $ QVAL, LDQVAL, NBLOG, LTEST, SOF, TEE, $ IAM, IGAP, IVERB, NPROCS, THRESH, ALPHA, $ BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1988,6 +1990,7 @@ SUBROUTINE PDBLA2TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, * END SUBROUTINE PDBLAS2TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2195,6 +2198,7 @@ SUBROUTINE PDBLAS2TSTCHKE( LTEST, INOUT, NPROCS ) SUBROUTINE PDCHKARG2( ICTXT, NOUT, SNAME, UPLO, TRANS, DIAG, M, $ N, ALPHA, IA, JA, DESCA, IX, JX, DESCX, $ INCX, BETA, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2522,6 +2526,7 @@ SUBROUTINE PDBLAS2TSTCHK( ICTXT, NOUT, NROUT, UPLO, TRANS, DIAG, $ PX, IX, JX, DESCX, INCX, BETA, Y, PY, $ IY, JY, DESCY, INCY, THRESH, ROGUE, $ WORK, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pdblas3tst.f b/PBLAS/TESTING/pdblas3tst.f index cc936639..603b338a 100644 --- a/PBLAS/TESTING/pdblas3tst.f +++ b/PBLAS/TESTING/pdblas3tst.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PDBA3TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -1315,6 +1316,7 @@ SUBROUTINE PDBLA3TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, $ LDPVAL, QVAL, LDQVAL, NBLOG, LTEST, SOF, $ TEE, IAM, IGAP, IVERB, NPROCS, THRESH, $ ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2191,6 +2193,7 @@ SUBROUTINE PDBLA3TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, * END SUBROUTINE PDBLAS3TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2403,6 +2406,7 @@ SUBROUTINE PDCHKARG3( ICTXT, NOUT, SNAME, SIDE, UPLO, TRANSA, $ TRANSB, DIAG, M, N, K, ALPHA, IA, JA, $ DESCA, IB, JB, DESCB, BETA, IC, JC, DESCC, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2734,6 +2738,7 @@ SUBROUTINE PDBLAS3TSTCHK( ICTXT, NOUT, NROUT, SIDE, UPLO, TRANSA, $ JA, DESCA, B, PB, IB, JB, DESCB, BETA, $ C, PC, IC, JC, DESCC, THRESH, ROGUE, $ WORK, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pdblastst.f b/PBLAS/TESTING/pdblastst.f index 818c4d5b..f5babc80 100644 --- a/PBLAS/TESTING/pdblastst.f +++ b/PBLAS/TESTING/pdblastst.f @@ -1,4 +1,5 @@ SUBROUTINE PDOPTEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -263,6 +264,7 @@ SUBROUTINE PDOPTEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) END SUBROUTINE PDCHKOPT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -452,6 +454,7 @@ SUBROUTINE PDCHKOPT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PDDIMEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -756,6 +759,7 @@ SUBROUTINE PDDIMEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) END SUBROUTINE PDCHKDIM( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -933,6 +937,7 @@ SUBROUTINE PDCHKDIM( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PDVECEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1187,6 +1192,7 @@ SUBROUTINE PDVECEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) * END SUBROUTINE PDMATEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1475,6 +1481,7 @@ SUBROUTINE PDMATEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) * END SUBROUTINE PDSETPBLAS( ICTXT ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1671,6 +1678,7 @@ SUBROUTINE PDSETPBLAS( ICTXT ) END SUBROUTINE PDCHKMAT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2177,6 +2185,7 @@ SUBROUTINE PDCHKMAT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PDCALLSUB( SUBPTR, SCODE ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2453,6 +2462,7 @@ SUBROUTINE PDCALLSUB( SUBPTR, SCODE ) * END SUBROUTINE PDERRSET( ERR, ERRMAX, XTRUE, X ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2573,6 +2583,7 @@ SUBROUTINE PDERRSET( ERR, ERRMAX, XTRUE, X ) END SUBROUTINE PDCHKVIN( ERRMAX, N, X, PX, IX, JX, DESCX, INCX, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2867,6 +2878,7 @@ SUBROUTINE PDCHKVIN( ERRMAX, N, X, PX, IX, JX, DESCX, INCX, * END SUBROUTINE PDCHKVOUT( N, X, PX, IX, JX, DESCX, INCX, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3323,6 +3335,7 @@ SUBROUTINE PDCHKVOUT( N, X, PX, IX, JX, DESCX, INCX, INFO ) * END SUBROUTINE PDCHKMIN( ERRMAX, M, N, A, PA, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3624,6 +3637,7 @@ SUBROUTINE PDCHKMIN( ERRMAX, M, N, A, PA, IA, JA, DESCA, INFO ) * END SUBROUTINE PDCHKMOUT( M, N, A, PA, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3946,6 +3960,7 @@ SUBROUTINE PDCHKMOUT( M, N, A, PA, IA, JA, DESCA, INFO ) END SUBROUTINE PDMPRNT( ICTXT, NOUT, M, N, A, LDA, IRPRNT, ICPRNT, $ CMATNM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4053,6 +4068,7 @@ SUBROUTINE PDMPRNT( ICTXT, NOUT, M, N, A, LDA, IRPRNT, ICPRNT, END SUBROUTINE PDVPRNT( ICTXT, NOUT, N, X, INCX, IRPRNT, ICPRNT, $ CVECNM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4154,6 +4170,7 @@ SUBROUTINE PDVPRNT( ICTXT, NOUT, N, X, INCX, IRPRNT, ICPRNT, SUBROUTINE PDMVCH( ICTXT, TRANS, M, N, ALPHA, A, IA, JA, DESCA, $ X, IX, JX, DESCX, INCX, BETA, Y, PY, IY, JY, $ DESCY, INCY, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4567,6 +4584,7 @@ SUBROUTINE PDMVCH( ICTXT, TRANS, M, N, ALPHA, A, IA, JA, DESCA, SUBROUTINE PDVMCH( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, $ INCX, Y, IY, JY, DESCY, INCY, A, PA, IA, JA, $ DESCA, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4916,6 +4934,7 @@ SUBROUTINE PDVMCH( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, SUBROUTINE PDVMCH2( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, $ INCX, Y, IY, JY, DESCY, INCY, A, PA, IA, $ JA, DESCA, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5269,6 +5288,7 @@ SUBROUTINE PDVMCH2( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, SUBROUTINE PDMMCH( ICTXT, TRANSA, TRANSB, M, N, K, ALPHA, A, IA, $ JA, DESCA, B, IB, JB, DESCB, BETA, C, PC, IC, $ JC, DESCC, CT, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5646,6 +5666,7 @@ SUBROUTINE PDMMCH( ICTXT, TRANSA, TRANSB, M, N, K, ALPHA, A, IA, SUBROUTINE PDMMCH1( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, $ DESCA, BETA, C, PC, IC, JC, DESCC, CT, G, $ ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5993,6 +6014,7 @@ SUBROUTINE PDMMCH1( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, SUBROUTINE PDMMCH2( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, $ DESCA, B, IB, JB, DESCB, BETA, C, PC, IC, $ JC, DESCC, CT, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6369,6 +6391,7 @@ SUBROUTINE PDMMCH2( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, END SUBROUTINE PDMMCH3( UPLO, TRANS, M, N, ALPHA, A, IA, JA, DESCA, $ BETA, C, PC, IC, JC, DESCC, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6681,6 +6704,7 @@ SUBROUTINE PDMMCH3( UPLO, TRANS, M, N, ALPHA, A, IA, JA, DESCA, * END SUBROUTINE PDERRAXPBY( ERRBND, ALPHA, X, BETA, Y, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6766,6 +6790,7 @@ SUBROUTINE PDERRAXPBY( ERRBND, ALPHA, X, BETA, Y, PREC ) * END DOUBLE PRECISION FUNCTION PDLAMCH( ICTXT, CMACH ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6859,6 +6884,7 @@ DOUBLE PRECISION FUNCTION PDLAMCH( ICTXT, CMACH ) * END SUBROUTINE PDLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7334,6 +7360,7 @@ SUBROUTINE PDLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) * END SUBROUTINE PDLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7842,6 +7869,7 @@ SUBROUTINE PDLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PDLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, $ DESCA, IASEED, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8239,6 +8267,7 @@ SUBROUTINE PDLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, * END SUBROUTINE PDLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8631,6 +8660,7 @@ SUBROUTINE PDLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PB_PDLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8845,6 +8875,7 @@ SUBROUTINE PB_PDLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, END SUBROUTINE PB_PDLAPRN2( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, PROW, PCOL, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9076,6 +9107,7 @@ SUBROUTINE PB_PDLAPRN2( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, * END SUBROUTINE PB_DFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9189,6 +9221,7 @@ SUBROUTINE PB_DFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) END SUBROUTINE PB_DCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9356,6 +9389,7 @@ SUBROUTINE PB_DCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, * END SUBROUTINE PB_DLASET( UPLO, M, N, IOFFD, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9553,6 +9587,7 @@ SUBROUTINE PB_DLASET( UPLO, M, N, IOFFD, ALPHA, BETA, A, LDA ) * END SUBROUTINE PB_DLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9734,6 +9769,7 @@ SUBROUTINE PB_DLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) SUBROUTINE PB_DLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, $ IMBLOC, MB, LMBLOC, NBLKS, INBLOC, NB, $ LNBLOC, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10375,6 +10411,7 @@ SUBROUTINE PB_DLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, * END DOUBLE PRECISION FUNCTION PB_DRAND( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10437,6 +10474,7 @@ DOUBLE PRECISION FUNCTION PB_DRAND( IDUMM ) * END DOUBLE PRECISION FUNCTION PB_DRAN( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/psblas1tst.f b/PBLAS/TESTING/psblas1tst.f index 57cedfed..260fe575 100644 --- a/PBLAS/TESTING/psblas1tst.f +++ b/PBLAS/TESTING/psblas1tst.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PSBLA1TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -774,6 +775,7 @@ SUBROUTINE PSBLA1TSTINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, $ LDVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, LTEST, SOF, TEE, IAM, IGAP, $ IVERB, NPROCS, ALPHA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1466,6 +1468,7 @@ SUBROUTINE PSBLA1TSTINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, * END SUBROUTINE PSBLAS1TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1731,6 +1734,7 @@ SUBROUTINE PSBLAS1TSTCHKE( LTEST, INOUT, NPROCS ) END SUBROUTINE PSCHKARG1( ICTXT, NOUT, SNAME, N, ALPHA, IX, JX, $ DESCX, INCX, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2031,6 +2035,7 @@ SUBROUTINE PSCHKARG1( ICTXT, NOUT, SNAME, N, ALPHA, IX, JX, * END LOGICAL FUNCTION PISINSCOPE( ICTXT, N, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2208,6 +2213,7 @@ LOGICAL FUNCTION PISINSCOPE( ICTXT, N, IX, JX, DESCX, INCX ) SUBROUTINE PSBLAS1TSTCHK( ICTXT, NOUT, NROUT, N, PSCLR, PUSCLR, $ PISCLR, X, PX, IX, JX, DESCX, INCX, Y, $ PY, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2930,6 +2936,7 @@ SUBROUTINE PSBLAS1TSTCHK( ICTXT, NOUT, NROUT, N, PSCLR, PUSCLR, * END SUBROUTINE PSERRDOT( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3044,6 +3051,7 @@ SUBROUTINE PSERRDOT( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) * END SUBROUTINE PSERRNRM2( ERRBND, N, USCLR, X, INCX, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3161,6 +3169,7 @@ SUBROUTINE PSERRNRM2( ERRBND, N, USCLR, X, INCX, PREC ) * END SUBROUTINE PSERRASUM( ERRBND, N, USCLR, X, INCX, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3243,6 +3252,7 @@ SUBROUTINE PSERRASUM( ERRBND, N, USCLR, X, INCX, PREC ) * END SUBROUTINE PSERRSCAL( ERRBND, PSCLR, X, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3310,6 +3320,7 @@ SUBROUTINE PSERRSCAL( ERRBND, PSCLR, X, PREC ) * END SUBROUTINE PSERRAXPY( ERRBND, PSCLR, X, Y, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/psblas2tst.f b/PBLAS/TESTING/psblas2tst.f index 51e93bab..7e9c38d6 100644 --- a/PBLAS/TESTING/psblas2tst.f +++ b/PBLAS/TESTING/psblas2tst.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PSBLA2TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -1117,6 +1118,7 @@ SUBROUTINE PSBLA2TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, $ QVAL, LDQVAL, NBLOG, LTEST, SOF, TEE, $ IAM, IGAP, IVERB, NPROCS, THRESH, ALPHA, $ BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1986,6 +1988,7 @@ SUBROUTINE PSBLA2TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, * END SUBROUTINE PSBLAS2TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2193,6 +2196,7 @@ SUBROUTINE PSBLAS2TSTCHKE( LTEST, INOUT, NPROCS ) SUBROUTINE PSCHKARG2( ICTXT, NOUT, SNAME, UPLO, TRANS, DIAG, M, $ N, ALPHA, IA, JA, DESCA, IX, JX, DESCX, $ INCX, BETA, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2520,6 +2524,7 @@ SUBROUTINE PSBLAS2TSTCHK( ICTXT, NOUT, NROUT, UPLO, TRANS, DIAG, $ PX, IX, JX, DESCX, INCX, BETA, Y, PY, $ IY, JY, DESCY, INCY, THRESH, ROGUE, $ WORK, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/psblas3tst.f b/PBLAS/TESTING/psblas3tst.f index 2ddaaa10..0e7f4660 100644 --- a/PBLAS/TESTING/psblas3tst.f +++ b/PBLAS/TESTING/psblas3tst.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PSBLA3TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -1314,6 +1315,7 @@ SUBROUTINE PSBLA3TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, $ LDPVAL, QVAL, LDQVAL, NBLOG, LTEST, SOF, $ TEE, IAM, IGAP, IVERB, NPROCS, THRESH, $ ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2189,6 +2191,7 @@ SUBROUTINE PSBLA3TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, * END SUBROUTINE PSBLAS3TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2401,6 +2404,7 @@ SUBROUTINE PSCHKARG3( ICTXT, NOUT, SNAME, SIDE, UPLO, TRANSA, $ TRANSB, DIAG, M, N, K, ALPHA, IA, JA, $ DESCA, IB, JB, DESCB, BETA, IC, JC, DESCC, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2732,6 +2736,7 @@ SUBROUTINE PSBLAS3TSTCHK( ICTXT, NOUT, NROUT, SIDE, UPLO, TRANSA, $ JA, DESCA, B, PB, IB, JB, DESCB, BETA, $ C, PC, IC, JC, DESCC, THRESH, ROGUE, $ WORK, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/psblastst.f b/PBLAS/TESTING/psblastst.f index c6a2f28e..53fd53de 100644 --- a/PBLAS/TESTING/psblastst.f +++ b/PBLAS/TESTING/psblastst.f @@ -1,4 +1,5 @@ SUBROUTINE PSOPTEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -263,6 +264,7 @@ SUBROUTINE PSOPTEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) END SUBROUTINE PSCHKOPT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -452,6 +454,7 @@ SUBROUTINE PSCHKOPT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PSDIMEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -756,6 +759,7 @@ SUBROUTINE PSDIMEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) END SUBROUTINE PSCHKDIM( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -933,6 +937,7 @@ SUBROUTINE PSCHKDIM( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PSVECEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1187,6 +1192,7 @@ SUBROUTINE PSVECEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) * END SUBROUTINE PSMATEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1475,6 +1481,7 @@ SUBROUTINE PSMATEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) * END SUBROUTINE PSSETPBLAS( ICTXT ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1671,6 +1678,7 @@ SUBROUTINE PSSETPBLAS( ICTXT ) END SUBROUTINE PSCHKMAT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2177,6 +2185,7 @@ SUBROUTINE PSCHKMAT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PSCALLSUB( SUBPTR, SCODE ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2453,6 +2462,7 @@ SUBROUTINE PSCALLSUB( SUBPTR, SCODE ) * END SUBROUTINE PSERRSET( ERR, ERRMAX, XTRUE, X ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2573,6 +2583,7 @@ SUBROUTINE PSERRSET( ERR, ERRMAX, XTRUE, X ) END SUBROUTINE PSCHKVIN( ERRMAX, N, X, PX, IX, JX, DESCX, INCX, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2867,6 +2878,7 @@ SUBROUTINE PSCHKVIN( ERRMAX, N, X, PX, IX, JX, DESCX, INCX, * END SUBROUTINE PSCHKVOUT( N, X, PX, IX, JX, DESCX, INCX, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3323,6 +3335,7 @@ SUBROUTINE PSCHKVOUT( N, X, PX, IX, JX, DESCX, INCX, INFO ) * END SUBROUTINE PSCHKMIN( ERRMAX, M, N, A, PA, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3624,6 +3637,7 @@ SUBROUTINE PSCHKMIN( ERRMAX, M, N, A, PA, IA, JA, DESCA, INFO ) * END SUBROUTINE PSCHKMOUT( M, N, A, PA, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3946,6 +3960,7 @@ SUBROUTINE PSCHKMOUT( M, N, A, PA, IA, JA, DESCA, INFO ) END SUBROUTINE PSMPRNT( ICTXT, NOUT, M, N, A, LDA, IRPRNT, ICPRNT, $ CMATNM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4053,6 +4068,7 @@ SUBROUTINE PSMPRNT( ICTXT, NOUT, M, N, A, LDA, IRPRNT, ICPRNT, END SUBROUTINE PSVPRNT( ICTXT, NOUT, N, X, INCX, IRPRNT, ICPRNT, $ CVECNM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4154,6 +4170,7 @@ SUBROUTINE PSVPRNT( ICTXT, NOUT, N, X, INCX, IRPRNT, ICPRNT, SUBROUTINE PSMVCH( ICTXT, TRANS, M, N, ALPHA, A, IA, JA, DESCA, $ X, IX, JX, DESCX, INCX, BETA, Y, PY, IY, JY, $ DESCY, INCY, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4567,6 +4584,7 @@ SUBROUTINE PSMVCH( ICTXT, TRANS, M, N, ALPHA, A, IA, JA, DESCA, SUBROUTINE PSVMCH( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, $ INCX, Y, IY, JY, DESCY, INCY, A, PA, IA, JA, $ DESCA, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4916,6 +4934,7 @@ SUBROUTINE PSVMCH( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, SUBROUTINE PSVMCH2( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, $ INCX, Y, IY, JY, DESCY, INCY, A, PA, IA, $ JA, DESCA, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5269,6 +5288,7 @@ SUBROUTINE PSVMCH2( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, SUBROUTINE PSMMCH( ICTXT, TRANSA, TRANSB, M, N, K, ALPHA, A, IA, $ JA, DESCA, B, IB, JB, DESCB, BETA, C, PC, IC, $ JC, DESCC, CT, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5646,6 +5666,7 @@ SUBROUTINE PSMMCH( ICTXT, TRANSA, TRANSB, M, N, K, ALPHA, A, IA, SUBROUTINE PSMMCH1( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, $ DESCA, BETA, C, PC, IC, JC, DESCC, CT, G, $ ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5993,6 +6014,7 @@ SUBROUTINE PSMMCH1( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, SUBROUTINE PSMMCH2( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, $ DESCA, B, IB, JB, DESCB, BETA, C, PC, IC, $ JC, DESCC, CT, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6369,6 +6391,7 @@ SUBROUTINE PSMMCH2( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, END SUBROUTINE PSMMCH3( UPLO, TRANS, M, N, ALPHA, A, IA, JA, DESCA, $ BETA, C, PC, IC, JC, DESCC, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6681,6 +6704,7 @@ SUBROUTINE PSMMCH3( UPLO, TRANS, M, N, ALPHA, A, IA, JA, DESCA, * END SUBROUTINE PSERRAXPBY( ERRBND, ALPHA, X, BETA, Y, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6766,6 +6790,7 @@ SUBROUTINE PSERRAXPBY( ERRBND, ALPHA, X, BETA, Y, PREC ) * END REAL FUNCTION PSLAMCH( ICTXT, CMACH ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6860,6 +6885,7 @@ REAL FUNCTION PSLAMCH( ICTXT, CMACH ) * END SUBROUTINE PSLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7335,6 +7361,7 @@ SUBROUTINE PSLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) * END SUBROUTINE PSLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7843,6 +7870,7 @@ SUBROUTINE PSLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PSLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, $ DESCA, IASEED, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8241,6 +8269,7 @@ SUBROUTINE PSLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, * END SUBROUTINE PSLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8633,6 +8662,7 @@ SUBROUTINE PSLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PB_PSLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8847,6 +8877,7 @@ SUBROUTINE PB_PSLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, END SUBROUTINE PB_PSLAPRN2( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, PROW, PCOL, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9078,6 +9109,7 @@ SUBROUTINE PB_PSLAPRN2( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, * END SUBROUTINE PB_SFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9191,6 +9223,7 @@ SUBROUTINE PB_SFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) END SUBROUTINE PB_SCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9358,6 +9391,7 @@ SUBROUTINE PB_SCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, * END SUBROUTINE PB_SLASET( UPLO, M, N, IOFFD, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9555,6 +9589,7 @@ SUBROUTINE PB_SLASET( UPLO, M, N, IOFFD, ALPHA, BETA, A, LDA ) * END SUBROUTINE PB_SLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9736,6 +9771,7 @@ SUBROUTINE PB_SLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) SUBROUTINE PB_SLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, $ IMBLOC, MB, LMBLOC, NBLKS, INBLOC, NB, $ LNBLOC, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10377,6 +10413,7 @@ SUBROUTINE PB_SLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, * END REAL FUNCTION PB_SRAND( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10439,6 +10476,7 @@ REAL FUNCTION PB_SRAND( IDUMM ) * END REAL FUNCTION PB_SRAN( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pzblas1tst.f b/PBLAS/TESTING/pzblas1tst.f index fb9043bf..152d5549 100644 --- a/PBLAS/TESTING/pzblas1tst.f +++ b/PBLAS/TESTING/pzblas1tst.f @@ -10,6 +10,7 @@ END BLOCK DATA PROGRAM PZBLA1TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -799,6 +800,7 @@ SUBROUTINE PZBLA1TSTINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, $ LDVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, LTEST, SOF, TEE, IAM, IGAP, $ IVERB, NPROCS, ALPHA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1492,6 +1494,7 @@ SUBROUTINE PZBLA1TSTINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, * END SUBROUTINE PZBLAS1TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1775,6 +1778,7 @@ SUBROUTINE PZBLAS1TSTCHKE( LTEST, INOUT, NPROCS ) END SUBROUTINE PZCHKARG1( ICTXT, NOUT, SNAME, N, ALPHA, IX, JX, $ DESCX, INCX, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2075,6 +2079,7 @@ SUBROUTINE PZCHKARG1( ICTXT, NOUT, SNAME, N, ALPHA, IX, JX, * END LOGICAL FUNCTION PISINSCOPE( ICTXT, N, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2252,6 +2257,7 @@ LOGICAL FUNCTION PISINSCOPE( ICTXT, N, IX, JX, DESCX, INCX ) SUBROUTINE PZBLAS1TSTCHK( ICTXT, NOUT, NROUT, N, PSCLR, PUSCLR, $ PISCLR, X, PX, IX, JX, DESCX, INCX, Y, $ PY, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3134,6 +3140,7 @@ SUBROUTINE PZBLAS1TSTCHK( ICTXT, NOUT, NROUT, N, PSCLR, PUSCLR, * END SUBROUTINE PZERRDOTU( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3278,6 +3285,7 @@ SUBROUTINE PZERRDOTU( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) * END SUBROUTINE PZERRDOTC( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3422,6 +3430,7 @@ SUBROUTINE PZERRDOTC( ERRBND, N, SCLR, X, INCX, Y, INCY, PREC ) * END SUBROUTINE PZERRNRM2( ERRBND, N, USCLR, X, INCX, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3555,6 +3564,7 @@ SUBROUTINE PZERRNRM2( ERRBND, N, USCLR, X, INCX, PREC ) * END SUBROUTINE PZERRASUM( ERRBND, N, USCLR, X, INCX, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3638,6 +3648,7 @@ SUBROUTINE PZERRASUM( ERRBND, N, USCLR, X, INCX, PREC ) * END SUBROUTINE PZERRSCAL( ERRBND, PSCLR, X, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3706,6 +3717,7 @@ SUBROUTINE PZERRSCAL( ERRBND, PSCLR, X, PREC ) * END SUBROUTINE PZDERRSCAL( ERRBND, PUSCLR, X, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3774,6 +3786,7 @@ SUBROUTINE PZDERRSCAL( ERRBND, PUSCLR, X, PREC ) * END SUBROUTINE PZERRAXPY( ERRBND, PSCLR, X, Y, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pzblas2tst.f b/PBLAS/TESTING/pzblas2tst.f index 02772403..106fe6b9 100644 --- a/PBLAS/TESTING/pzblas2tst.f +++ b/PBLAS/TESTING/pzblas2tst.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PZBLA2TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -1148,6 +1149,7 @@ SUBROUTINE PZBLA2TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, $ QVAL, LDQVAL, NBLOG, LTEST, SOF, TEE, $ IAM, IGAP, IVERB, NPROCS, THRESH, ALPHA, $ BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2020,6 +2022,7 @@ SUBROUTINE PZBLA2TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, * END SUBROUTINE PZBLAS2TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2237,6 +2240,7 @@ SUBROUTINE PZBLAS2TSTCHKE( LTEST, INOUT, NPROCS ) SUBROUTINE PZCHKARG2( ICTXT, NOUT, SNAME, UPLO, TRANS, DIAG, M, $ N, ALPHA, IA, JA, DESCA, IX, JX, DESCX, $ INCX, BETA, IY, JY, DESCY, INCY, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2564,6 +2568,7 @@ SUBROUTINE PZBLAS2TSTCHK( ICTXT, NOUT, NROUT, UPLO, TRANS, DIAG, $ PX, IX, JX, DESCX, INCX, BETA, Y, PY, $ IY, JY, DESCY, INCY, THRESH, ROGUE, $ WORK, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pzblas3tst.f b/PBLAS/TESTING/pzblas3tst.f index cd947de2..abd49eb4 100644 --- a/PBLAS/TESTING/pzblas3tst.f +++ b/PBLAS/TESTING/pzblas3tst.f @@ -10,6 +10,7 @@ END BLOCK DATA PROGRAM PZBLA3TST + IMPLICIT NONE * * -- PBLAS testing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -1414,6 +1415,7 @@ SUBROUTINE PZBLA3TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, $ LDPVAL, QVAL, LDQVAL, NBLOG, LTEST, SOF, $ TEE, IAM, IGAP, IVERB, NPROCS, THRESH, $ ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2292,6 +2294,7 @@ SUBROUTINE PZBLA3TSTINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, * END SUBROUTINE PZBLAS3TSTCHKE( LTEST, INOUT, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2536,6 +2539,7 @@ SUBROUTINE PZCHKARG3( ICTXT, NOUT, SNAME, SIDE, UPLO, TRANSA, $ TRANSB, DIAG, M, N, K, ALPHA, IA, JA, $ DESCA, IB, JB, DESCB, BETA, IC, JC, DESCC, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2867,6 +2871,7 @@ SUBROUTINE PZBLAS3TSTCHK( ICTXT, NOUT, NROUT, SIDE, UPLO, TRANSA, $ JA, DESCA, B, PB, IB, JB, DESCB, BETA, $ C, PC, IC, JC, DESCC, THRESH, ROGUE, $ WORK, RWORK, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/pzblastst.f b/PBLAS/TESTING/pzblastst.f index f6142158..bd4f70ae 100644 --- a/PBLAS/TESTING/pzblastst.f +++ b/PBLAS/TESTING/pzblastst.f @@ -1,4 +1,5 @@ SUBROUTINE PZOPTEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -263,6 +264,7 @@ SUBROUTINE PZOPTEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) END SUBROUTINE PZCHKOPT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -452,6 +454,7 @@ SUBROUTINE PZCHKOPT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PZDIMEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -756,6 +759,7 @@ SUBROUTINE PZDIMEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) END SUBROUTINE PZCHKDIM( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -933,6 +937,7 @@ SUBROUTINE PZCHKDIM( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PZVECEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1187,6 +1192,7 @@ SUBROUTINE PZVECEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) * END SUBROUTINE PZMATEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1475,6 +1481,7 @@ SUBROUTINE PZMATEE( ICTXT, NOUT, SUBPTR, SCODE, SNAME ) * END SUBROUTINE PZSETPBLAS( ICTXT ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1674,6 +1681,7 @@ SUBROUTINE PZSETPBLAS( ICTXT ) END SUBROUTINE PZCHKMAT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, $ ARGPOS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2180,6 +2188,7 @@ SUBROUTINE PZCHKMAT( ICTXT, NOUT, SUBPTR, SCODE, SNAME, ARGNAM, * END SUBROUTINE PZCALLSUB( SUBPTR, SCODE ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2457,6 +2466,7 @@ SUBROUTINE PZCALLSUB( SUBPTR, SCODE ) * END SUBROUTINE PZERRSET( ERR, ERRMAX, XTRUE, X ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2579,6 +2589,7 @@ SUBROUTINE PZERRSET( ERR, ERRMAX, XTRUE, X ) END SUBROUTINE PZCHKVIN( ERRMAX, N, X, PX, IX, JX, DESCX, INCX, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2873,6 +2884,7 @@ SUBROUTINE PZCHKVIN( ERRMAX, N, X, PX, IX, JX, DESCX, INCX, * END SUBROUTINE PZCHKVOUT( N, X, PX, IX, JX, DESCX, INCX, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3329,6 +3341,7 @@ SUBROUTINE PZCHKVOUT( N, X, PX, IX, JX, DESCX, INCX, INFO ) * END SUBROUTINE PZCHKMIN( ERRMAX, M, N, A, PA, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3630,6 +3643,7 @@ SUBROUTINE PZCHKMIN( ERRMAX, M, N, A, PA, IA, JA, DESCA, INFO ) * END SUBROUTINE PZCHKMOUT( M, N, A, PA, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3952,6 +3966,7 @@ SUBROUTINE PZCHKMOUT( M, N, A, PA, IA, JA, DESCA, INFO ) END SUBROUTINE PZMPRNT( ICTXT, NOUT, M, N, A, LDA, IRPRNT, ICPRNT, $ CMATNM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4064,6 +4079,7 @@ SUBROUTINE PZMPRNT( ICTXT, NOUT, M, N, A, LDA, IRPRNT, ICPRNT, END SUBROUTINE PZVPRNT( ICTXT, NOUT, N, X, INCX, IRPRNT, ICPRNT, $ CVECNM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4169,6 +4185,7 @@ SUBROUTINE PZVPRNT( ICTXT, NOUT, N, X, INCX, IRPRNT, ICPRNT, SUBROUTINE PZMVCH( ICTXT, TRANS, M, N, ALPHA, A, IA, JA, DESCA, $ X, IX, JX, DESCX, INCX, BETA, Y, PY, IY, JY, $ DESCY, INCY, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4603,6 +4620,7 @@ SUBROUTINE PZMVCH( ICTXT, TRANS, M, N, ALPHA, A, IA, JA, DESCA, SUBROUTINE PZVMCH( ICTXT, TRANS, UPLO, M, N, ALPHA, X, IX, JX, $ DESCX, INCX, Y, IY, JY, DESCY, INCY, A, PA, $ IA, JA, DESCA, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4972,6 +4990,7 @@ SUBROUTINE PZVMCH( ICTXT, TRANS, UPLO, M, N, ALPHA, X, IX, JX, SUBROUTINE PZVMCH2( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, $ INCX, Y, IY, JY, DESCY, INCY, A, PA, IA, $ JA, DESCA, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5333,6 +5352,7 @@ SUBROUTINE PZVMCH2( ICTXT, UPLO, M, N, ALPHA, X, IX, JX, DESCX, SUBROUTINE PZMMCH( ICTXT, TRANSA, TRANSB, M, N, K, ALPHA, A, IA, $ JA, DESCA, B, IB, JB, DESCB, BETA, C, PC, IC, $ JC, DESCC, CT, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5786,6 +5806,7 @@ SUBROUTINE PZMMCH( ICTXT, TRANSA, TRANSB, M, N, K, ALPHA, A, IA, SUBROUTINE PZMMCH1( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, $ DESCA, BETA, C, PC, IC, JC, DESCC, CT, G, $ ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6166,6 +6187,7 @@ SUBROUTINE PZMMCH1( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, SUBROUTINE PZMMCH2( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, $ DESCA, B, IB, JB, DESCB, BETA, C, PC, IC, $ JC, DESCC, CT, G, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6582,6 +6604,7 @@ SUBROUTINE PZMMCH2( ICTXT, UPLO, TRANS, N, K, ALPHA, A, IA, JA, END SUBROUTINE PZMMCH3( UPLO, TRANS, M, N, ALPHA, A, IA, JA, DESCA, $ BETA, C, PC, IC, JC, DESCC, ERR, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -6941,6 +6964,7 @@ SUBROUTINE PZMMCH3( UPLO, TRANS, M, N, ALPHA, A, IA, JA, DESCA, * END SUBROUTINE PZERRAXPBY( ERRBND, ALPHA, X, BETA, Y, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7042,6 +7066,7 @@ SUBROUTINE PZERRAXPBY( ERRBND, ALPHA, X, BETA, Y, PREC ) * END SUBROUTINE PZIPSET( TOGGLE, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7453,6 +7478,7 @@ SUBROUTINE PZIPSET( TOGGLE, N, A, IA, JA, DESCA ) * END DOUBLE PRECISION FUNCTION PDLAMCH( ICTXT, CMACH ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7506,6 +7532,7 @@ DOUBLE PRECISION FUNCTION PDLAMCH( ICTXT, CMACH ) * END SUBROUTINE PZLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -7981,6 +8008,7 @@ SUBROUTINE PZLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) * END SUBROUTINE PZLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8489,6 +8517,7 @@ SUBROUTINE PZLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PZLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, $ DESCA, IASEED, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -8893,6 +8922,7 @@ SUBROUTINE PZLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, * END SUBROUTINE PZLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9301,6 +9331,7 @@ SUBROUTINE PZLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PB_PZLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9515,6 +9546,7 @@ SUBROUTINE PB_PZLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, END SUBROUTINE PB_PZLAPRN2( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, PROW, PCOL, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9759,6 +9791,7 @@ SUBROUTINE PB_PZLAPRN2( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, * END SUBROUTINE PB_ZFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -9872,6 +9905,7 @@ SUBROUTINE PB_ZFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) END SUBROUTINE PB_ZCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10046,6 +10080,7 @@ SUBROUTINE PB_ZCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, * END SUBROUTINE PB_ZLASET( UPLO, M, N, IOFFD, ALPHA, BETA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10243,6 +10278,7 @@ SUBROUTINE PB_ZLASET( UPLO, M, N, IOFFD, ALPHA, BETA, A, LDA ) * END SUBROUTINE PB_ZLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10424,6 +10460,7 @@ SUBROUTINE PB_ZLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) SUBROUTINE PB_ZLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, $ IMBLOC, MB, LMBLOC, NBLKS, INBLOC, NB, $ LNBLOC, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -11492,6 +11529,7 @@ SUBROUTINE PB_ZLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, * END DOUBLE PRECISION FUNCTION PB_DRAND( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -11554,6 +11592,7 @@ DOUBLE PRECISION FUNCTION PB_DRAND( IDUMM ) * END DOUBLE PRECISION FUNCTION PB_DRAN( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TESTING/slamch.f b/PBLAS/TESTING/slamch.f index 716b0465..040697ce 100644 --- a/PBLAS/TESTING/slamch.f +++ b/PBLAS/TESTING/slamch.f @@ -1,4 +1,5 @@ REAL FUNCTION SLAMCH( CMACH ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -129,6 +130,7 @@ REAL FUNCTION SLAMCH( CMACH ) ************************************************************************ * SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -316,6 +318,7 @@ SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 ) ************************************************************************ * SUBROUTINE SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -575,6 +578,7 @@ SUBROUTINE SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX ) ************************************************************************ * REAL FUNCTION SLAMC3( A, B ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -613,6 +617,7 @@ REAL FUNCTION SLAMC3( A, B ) ************************************************************************ * SUBROUTINE SLAMC4( EMIN, START, BASE ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -697,6 +702,7 @@ SUBROUTINE SLAMC4( EMIN, START, BASE ) ************************************************************************ * SUBROUTINE SLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/PBLAS/TIMING/pblastim.f b/PBLAS/TIMING/pblastim.f index 413a971f..6a36cd7e 100644 --- a/PBLAS/TIMING/pblastim.f +++ b/PBLAS/TIMING/pblastim.f @@ -1,5 +1,6 @@ SUBROUTINE PVDIMCHK( ICTXT, NOUT, N, MATRIX, IX, JX, DESCX, INCX, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -199,6 +200,7 @@ SUBROUTINE PVDIMCHK( ICTXT, NOUT, N, MATRIX, IX, JX, DESCX, INCX, END SUBROUTINE PMDIMCHK( ICTXT, NOUT, M, N, MATRIX, IA, JA, DESCA, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -385,6 +387,7 @@ SUBROUTINE PVDESCCHK( ICTXT, NOUT, MATRIX, DESCX, DTX, MX, NX, $ IMBX, INBX, MBX, NBX, RSRCX, CSRCX, INCX, $ MPX, NQX, IPREX, IMIDX, IPOSTX, IGAP, $ GAPMUL, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -743,6 +746,7 @@ SUBROUTINE PMDESCCHK( ICTXT, NOUT, MATRIX, DESCA, DTA, MA, NA, $ IMBA, INBA, MBA, NBA, RSRCA, CSRCA, MPA, $ NQA, IPREA, IMIDA, IPOSTA, IGAP, GAPMUL, $ INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1081,6 +1085,7 @@ SUBROUTINE PMDESCCHK( ICTXT, NOUT, MATRIX, DESCA, DTA, MA, NA, * END DOUBLE PRECISION FUNCTION PDOPBL2( SUBNAM, M, N, KKL, KKU ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1310,6 +1315,7 @@ DOUBLE PRECISION FUNCTION PDOPBL2( SUBNAM, M, N, KKL, KKU ) * END DOUBLE PRECISION FUNCTION PDOPBL3( SUBNAM, M, N, K ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1535,6 +1541,7 @@ DOUBLE PRECISION FUNCTION PDOPBL3( SUBNAM, M, N, K ) * END SUBROUTINE PXERBLA( ICTXT, SRNAME, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1598,6 +1605,7 @@ SUBROUTINE PXERBLA( ICTXT, SRNAME, INFO ) * END LOGICAL FUNCTION LSAME( CA, CB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -1685,6 +1693,7 @@ LOGICAL FUNCTION LSAME( CA, CB ) * END LOGICAL FUNCTION LSAMEN( N, CA, CB ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -1753,6 +1762,7 @@ LOGICAL FUNCTION LSAMEN( N, CA, CB ) * END SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 2.1) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., @@ -1850,6 +1860,7 @@ SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) * END INTEGER FUNCTION PB_NOABORT( CINFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1901,6 +1912,7 @@ INTEGER FUNCTION PB_NOABORT( CINFO ) END SUBROUTINE PB_INFOG2L( I, J, DESC, NPROW, NPCOL, MYROW, MYCOL, II, $ JJ, PROW, PCOL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2251,6 +2263,7 @@ SUBROUTINE PB_INFOG2L( I, J, DESC, NPROW, NPCOL, MYROW, MYCOL, II, SUBROUTINE PB_AINFOG2L( M, N, I, J, DESC, NPROW, NPCOL, MYROW, $ MYCOL, IMB1, INB1, MP, NQ, II, JJ, PROW, $ PCOL, RPROW, RPCOL ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2776,6 +2789,7 @@ SUBROUTINE PB_AINFOG2L( M, N, I, J, DESC, NPROW, NPCOL, MYROW, * END INTEGER FUNCTION PB_NUMROC( N, I, INB, NB, PROC, SRCPROC, NPROCS ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2924,6 +2938,7 @@ INTEGER FUNCTION PB_NUMROC( N, I, INB, NB, PROC, SRCPROC, NPROCS ) * END SUBROUTINE PB_BOOT() + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2973,6 +2988,7 @@ SUBROUTINE PB_BOOT() END * SUBROUTINE PB_TIMER( I ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3051,6 +3067,7 @@ SUBROUTINE PB_TIMER( I ) END * SUBROUTINE PB_ENABLE() + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3089,6 +3106,7 @@ SUBROUTINE PB_ENABLE() END * SUBROUTINE PB_DISABLE() + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3126,6 +3144,7 @@ SUBROUTINE PB_DISABLE() END * DOUBLE PRECISION FUNCTION PB_INQUIRE( TMTYPE, I ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3208,6 +3227,7 @@ DOUBLE PRECISION FUNCTION PB_INQUIRE( TMTYPE, I ) * SUBROUTINE PB_COMBINE( ICTXT, SCOPE, OP, TMTYPE, N, IBEG, $ TIMES ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3334,6 +3354,7 @@ SUBROUTINE PB_COMBINE( ICTXT, SCOPE, OP, TMTYPE, N, IBEG, END SUBROUTINE PB_CHKMAT( ICTXT, M, MPOS0, N, NPOS0, IA, JA, DESCA, $ DPOS0, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3556,6 +3577,7 @@ SUBROUTINE PB_CHKMAT( ICTXT, M, MPOS0, N, NPOS0, IA, JA, DESCA, * END SUBROUTINE PB_DESCTRANS( DESCIN, DESCOUT ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3764,6 +3786,7 @@ SUBROUTINE PB_DESCTRANS( DESCIN, DESCOUT ) END SUBROUTINE PB_DESCSET2( DESC, M, N, IMB, INB, MB, NB, RSRC, CSRC, $ CTXT, LLD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -3929,6 +3952,7 @@ SUBROUTINE PB_DESCSET2( DESC, M, N, IMB, INB, MB, NB, RSRC, CSRC, END SUBROUTINE PB_DESCINIT2( DESC, M, N, IMB, INB, MB, NB, RSRC, CSRC, $ CTXT, LLD, INFO ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4169,6 +4193,7 @@ SUBROUTINE PB_DESCINIT2( DESC, M, N, IMB, INB, MB, NB, RSRC, CSRC, SUBROUTINE PB_BINFO( OFFD, M, N, IMB1, INB1, MB, NB, MRROW, MRCOL, $ LCMT00, MBLKS, NBLKS, IMBLOC, INBLOC, LMBLOC, $ LNBLOC, ILOW, LOW, IUPP, UPP ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4450,6 +4475,7 @@ SUBROUTINE PB_BINFO( OFFD, M, N, IMB1, INB1, MB, NB, MRROW, MRCOL, * END INTEGER FUNCTION PILAENV( ICTXT, PREC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4502,6 +4528,7 @@ INTEGER FUNCTION PILAENV( ICTXT, PREC ) END SUBROUTINE PB_LOCINFO( I, INB, NB, MYROC, SRCPROC, NPROCS, $ ILOCBLK, ILOCOFF, MYDIST ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4637,6 +4664,7 @@ SUBROUTINE PB_LOCINFO( I, INB, NB, MYROC, SRCPROC, NPROCS, SUBROUTINE PB_INITJMP( COLMAJ, NVIR, IMBVIR, INBVIR, IMBLOC, $ INBLOC, MB, NB, RSRC, CSRC, NPROW, NPCOL, $ STRIDE, JMP ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4788,6 +4816,7 @@ SUBROUTINE PB_INITJMP( COLMAJ, NVIR, IMBVIR, INBVIR, IMBLOC, * END SUBROUTINE PB_INITMULADD( MULADD0, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -4894,6 +4923,7 @@ SUBROUTINE PB_INITMULADD( MULADD0, JMP, IMULADD ) SUBROUTINE PB_SETLOCRAN( SEED, ILOCBLK, JLOCBLK, ILOCOFF, JLOCOFF, $ MYRDIST, MYCDIST, NPROW, NPCOL, JMP, $ IMULADD, IRAN ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5072,6 +5102,7 @@ SUBROUTINE PB_SETLOCRAN( SEED, ILOCBLK, JLOCBLK, ILOCOFF, JLOCOFF, * END SUBROUTINE PB_LADD( J, K, I ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5151,6 +5182,7 @@ SUBROUTINE PB_LADD( J, K, I ) * END SUBROUTINE PB_LMUL( K, J, I ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5240,6 +5272,7 @@ SUBROUTINE PB_LMUL( K, J, I ) * END SUBROUTINE PB_JUMP( K, MULADD, IRANN, IRANM, IMA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5351,6 +5384,7 @@ SUBROUTINE PB_JUMP( K, MULADD, IRANN, IRANM, IMA ) * END SUBROUTINE PB_SETRAN( IRAN, IAC ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -5414,6 +5448,7 @@ SUBROUTINE PB_SETRAN( IRAN, IAC ) * END SUBROUTINE PB_JUMPIT( MULADD, IRANN, IRANM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pcblas1tim.f b/PBLAS/TIMING/pcblas1tim.f index 1c74954e..cb154d31 100644 --- a/PBLAS/TIMING/pcblas1tim.f +++ b/PBLAS/TIMING/pcblas1tim.f @@ -10,6 +10,7 @@ END BLOCK DATA PROGRAM PCBLA1TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -578,6 +579,7 @@ SUBROUTINE PCBLA1TIMINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, NXVAL, $ IYVAL, JYVAL, INCYVAL, LDVAL, NGRIDS, $ PVAL, LDPVAL, QVAL, LDQVAL, LTEST, IAM, $ NPROCS, ALPHA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pcblas2tim.f b/PBLAS/TIMING/pcblas2tim.f index eb14e25c..0c974de0 100644 --- a/PBLAS/TIMING/pcblas2tim.f +++ b/PBLAS/TIMING/pcblas2tim.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PCBLA2TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -714,6 +715,7 @@ SUBROUTINE PCBLA2TIMINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, $ INCYVAL, LDVAL, NGRIDS, PVAL, LDPVAL, $ QVAL, LDQVAL, NBLOG, LTEST, IAM, NPROCS, $ ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pcblas3tim.f b/PBLAS/TIMING/pcblas3tim.f index 0bf9f6b3..1721dae3 100644 --- a/PBLAS/TIMING/pcblas3tim.f +++ b/PBLAS/TIMING/pcblas3tim.f @@ -10,6 +10,7 @@ END BLOCK DATA PROGRAM PCBLA3TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -964,6 +965,7 @@ SUBROUTINE PCBLA3TIMINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, $ ICVAL, JCVAL, LDVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, NBLOG, LTEST, $ IAM, NPROCS, ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pcblastim.f b/PBLAS/TIMING/pcblastim.f index 3393a395..afaf6b0d 100644 --- a/PBLAS/TIMING/pcblastim.f +++ b/PBLAS/TIMING/pcblastim.f @@ -1,4 +1,5 @@ SUBROUTINE PCLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -507,6 +508,7 @@ SUBROUTINE PCLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PCLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, $ DESCA, IASEED, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -910,6 +912,7 @@ SUBROUTINE PCLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, * END SUBROUTINE PCLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1317,6 +1320,7 @@ SUBROUTINE PCLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) * END SUBROUTINE PB_CLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1498,6 +1502,7 @@ SUBROUTINE PB_CLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) SUBROUTINE PB_CLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, $ IMBLOC, MB, LMBLOC, NBLKS, INBLOC, NB, $ LNBLOC, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2563,6 +2568,7 @@ SUBROUTINE PB_CLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, * END REAL FUNCTION PB_SRAND( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2625,6 +2631,7 @@ REAL FUNCTION PB_SRAND( IDUMM ) * END REAL FUNCTION PB_SRAN( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pdblas1tim.f b/PBLAS/TIMING/pdblas1tim.f index c97c04fe..836d6d15 100644 --- a/PBLAS/TIMING/pdblas1tim.f +++ b/PBLAS/TIMING/pdblas1tim.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PDBLA1TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -547,6 +548,7 @@ SUBROUTINE PDBLA1TIMINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, NXVAL, $ IYVAL, JYVAL, INCYVAL, LDVAL, NGRIDS, $ PVAL, LDPVAL, QVAL, LDQVAL, LTEST, IAM, $ NPROCS, ALPHA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pdblas2tim.f b/PBLAS/TIMING/pdblas2tim.f index b1b889d1..62820be7 100644 --- a/PBLAS/TIMING/pdblas2tim.f +++ b/PBLAS/TIMING/pdblas2tim.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PDBLA2TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -698,6 +699,7 @@ SUBROUTINE PDBLA2TIMINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, $ INCYVAL, LDVAL, NGRIDS, PVAL, LDPVAL, $ QVAL, LDQVAL, NBLOG, LTEST, IAM, NPROCS, $ ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pdblas3tim.f b/PBLAS/TIMING/pdblas3tim.f index 8ea69e32..c589f41f 100644 --- a/PBLAS/TIMING/pdblas3tim.f +++ b/PBLAS/TIMING/pdblas3tim.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PDBLA3TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -873,6 +874,7 @@ SUBROUTINE PDBLA3TIMINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, $ ICVAL, JCVAL, LDVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, NBLOG, LTEST, $ IAM, NPROCS, ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pdblastim.f b/PBLAS/TIMING/pdblastim.f index 84bddb25..74217cf6 100644 --- a/PBLAS/TIMING/pdblastim.f +++ b/PBLAS/TIMING/pdblastim.f @@ -1,4 +1,5 @@ SUBROUTINE PDLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -507,6 +508,7 @@ SUBROUTINE PDLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PDLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, $ DESCA, IASEED, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -904,6 +906,7 @@ SUBROUTINE PDLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, * END SUBROUTINE PDLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1295,6 +1298,7 @@ SUBROUTINE PDLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) * END SUBROUTINE PB_DLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1476,6 +1480,7 @@ SUBROUTINE PB_DLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) SUBROUTINE PB_DLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, $ IMBLOC, MB, LMBLOC, NBLKS, INBLOC, NB, $ LNBLOC, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2117,6 +2122,7 @@ SUBROUTINE PB_DLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, * END DOUBLE PRECISION FUNCTION PB_DRAND( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2179,6 +2185,7 @@ DOUBLE PRECISION FUNCTION PB_DRAND( IDUMM ) * END DOUBLE PRECISION FUNCTION PB_DRAN( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/psblas1tim.f b/PBLAS/TIMING/psblas1tim.f index aa006e38..7548610a 100644 --- a/PBLAS/TIMING/psblas1tim.f +++ b/PBLAS/TIMING/psblas1tim.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PSBLA1TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -548,6 +549,7 @@ SUBROUTINE PSBLA1TIMINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, NXVAL, $ IYVAL, JYVAL, INCYVAL, LDVAL, NGRIDS, $ PVAL, LDPVAL, QVAL, LDQVAL, LTEST, IAM, $ NPROCS, ALPHA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/psblas2tim.f b/PBLAS/TIMING/psblas2tim.f index 8593220e..70e6dbc2 100644 --- a/PBLAS/TIMING/psblas2tim.f +++ b/PBLAS/TIMING/psblas2tim.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PSBLA2TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -700,6 +701,7 @@ SUBROUTINE PSBLA2TIMINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, $ INCYVAL, LDVAL, NGRIDS, PVAL, LDPVAL, $ QVAL, LDQVAL, NBLOG, LTEST, IAM, NPROCS, $ ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/psblas3tim.f b/PBLAS/TIMING/psblas3tim.f index 160fc917..be4b62f7 100644 --- a/PBLAS/TIMING/psblas3tim.f +++ b/PBLAS/TIMING/psblas3tim.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PSBLA3TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -875,6 +876,7 @@ SUBROUTINE PSBLA3TIMINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, $ ICVAL, JCVAL, LDVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, NBLOG, LTEST, $ IAM, NPROCS, ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/psblastim.f b/PBLAS/TIMING/psblastim.f index 77115e78..8a63937d 100644 --- a/PBLAS/TIMING/psblastim.f +++ b/PBLAS/TIMING/psblastim.f @@ -1,4 +1,5 @@ SUBROUTINE PSLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -507,6 +508,7 @@ SUBROUTINE PSLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PSLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, $ DESCA, IASEED, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -905,6 +907,7 @@ SUBROUTINE PSLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, * END SUBROUTINE PSLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1296,6 +1299,7 @@ SUBROUTINE PSLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) * END SUBROUTINE PB_SLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1477,6 +1481,7 @@ SUBROUTINE PB_SLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) SUBROUTINE PB_SLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, $ IMBLOC, MB, LMBLOC, NBLKS, INBLOC, NB, $ LNBLOC, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2118,6 +2123,7 @@ SUBROUTINE PB_SLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, * END REAL FUNCTION PB_SRAND( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2180,6 +2186,7 @@ REAL FUNCTION PB_SRAND( IDUMM ) * END REAL FUNCTION PB_SRAN( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pzblas1tim.f b/PBLAS/TIMING/pzblas1tim.f index b0c956dc..53715698 100644 --- a/PBLAS/TIMING/pzblas1tim.f +++ b/PBLAS/TIMING/pzblas1tim.f @@ -10,6 +10,7 @@ END BLOCK DATA PROGRAM PZBLA1TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -577,6 +578,7 @@ SUBROUTINE PZBLA1TIMINFO( SUMMRY, NOUT, NMAT, NVAL, MXVAL, NXVAL, $ IYVAL, JYVAL, INCYVAL, LDVAL, NGRIDS, $ PVAL, LDPVAL, QVAL, LDQVAL, LTEST, IAM, $ NPROCS, ALPHA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pzblas2tim.f b/PBLAS/TIMING/pzblas2tim.f index 86026355..0bf8fe55 100644 --- a/PBLAS/TIMING/pzblas2tim.f +++ b/PBLAS/TIMING/pzblas2tim.f @@ -9,6 +9,7 @@ END BLOCK DATA PROGRAM PZBLA2TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -714,6 +715,7 @@ SUBROUTINE PZBLA2TIMINFO( SUMMRY, NOUT, NMAT, DIAGVAL, TRANVAL, $ INCYVAL, LDVAL, NGRIDS, PVAL, LDPVAL, $ QVAL, LDQVAL, NBLOG, LTEST, IAM, NPROCS, $ ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pzblas3tim.f b/PBLAS/TIMING/pzblas3tim.f index 83f1be19..80df71ab 100644 --- a/PBLAS/TIMING/pzblas3tim.f +++ b/PBLAS/TIMING/pzblas3tim.f @@ -10,6 +10,7 @@ END BLOCK DATA PROGRAM PZBLA3TIM + IMPLICIT NONE * * -- PBLAS timing driver (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver @@ -964,6 +965,7 @@ SUBROUTINE PZBLA3TIMINFO( SUMMRY, NOUT, NMAT, DIAGVAL, SIDEVAL, $ ICVAL, JCVAL, LDVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, NBLOG, LTEST, $ IAM, NPROCS, ALPHA, BETA, WORK ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/PBLAS/TIMING/pzblastim.f b/PBLAS/TIMING/pzblastim.f index b9d0e647..982dae61 100644 --- a/PBLAS/TIMING/pzblastim.f +++ b/PBLAS/TIMING/pzblastim.f @@ -1,4 +1,5 @@ SUBROUTINE PZLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -507,6 +508,7 @@ SUBROUTINE PZLASCAL( TYPE, M, N, ALPHA, A, IA, JA, DESCA ) END SUBROUTINE PZLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, $ DESCA, IASEED, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -911,6 +913,7 @@ SUBROUTINE PZLAGEN( INPLACE, AFORM, DIAG, OFFA, M, N, IA, JA, * END SUBROUTINE PZLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1318,6 +1321,7 @@ SUBROUTINE PZLADOM( INPLACE, N, ALPHA, A, IA, JA, DESCA ) * END SUBROUTINE PB_ZLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1499,6 +1503,7 @@ SUBROUTINE PB_ZLASCAL( UPLO, M, N, IOFFD, ALPHA, A, LDA ) SUBROUTINE PB_ZLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, $ IMBLOC, MB, LMBLOC, NBLKS, INBLOC, NB, $ LNBLOC, JMP, IMULADD ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2567,6 +2572,7 @@ SUBROUTINE PB_ZLAGEN( UPLO, AFORM, A, LDA, LCMT00, IRAN, MBLKS, * END DOUBLE PRECISION FUNCTION PB_DRAND( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -2629,6 +2635,7 @@ DOUBLE PRECISION FUNCTION PB_DRAND( IDUMM ) * END DOUBLE PRECISION FUNCTION PB_DRAN( IDUMM ) + IMPLICIT NONE * * -- PBLAS test routine (version 2.0) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/cdbtf2.f b/SRC/cdbtf2.f index d14f8ce2..9bf4321c 100644 --- a/SRC/cdbtf2.f +++ b/SRC/cdbtf2.f @@ -1,4 +1,5 @@ SUBROUTINE CDBTF2( M, N, KL, KU, AB, LDAB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/cdbtrf.f b/SRC/cdbtrf.f index 204c9083..c521af8f 100644 --- a/SRC/cdbtrf.f +++ b/SRC/cdbtrf.f @@ -1,4 +1,5 @@ SUBROUTINE CDBTRF( M, N, KL, KU, AB, LDAB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/cdttrf.f b/SRC/cdttrf.f index 85dff767..e6a4261a 100644 --- a/SRC/cdttrf.f +++ b/SRC/cdttrf.f @@ -1,4 +1,5 @@ SUBROUTINE CDTTRF( N, DL, D, DU, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/cdttrsv.f b/SRC/cdttrsv.f index 54a5f70f..0b5fb0f3 100644 --- a/SRC/cdttrsv.f +++ b/SRC/cdttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE CDTTRSV( UPLO, TRANS, N, NRHS, DL, D, DU, $ B, LDB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/clahqr2.f b/SRC/clahqr2.f index 4b0046a2..35a5862c 100644 --- a/SRC/clahqr2.f +++ b/SRC/clahqr2.f @@ -1,5 +1,6 @@ SUBROUTINE CLAHQR2( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/clamsh.f b/SRC/clamsh.f index 87ed8e47..f4e38e50 100644 --- a/SRC/clamsh.f +++ b/SRC/clamsh.f @@ -1,4 +1,5 @@ SUBROUTINE CLAMSH( S, LDS, NBULGE, JBLK, H, LDH, N, ULP ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/clanv2.f b/SRC/clanv2.f index 2880c0e9..28f26f58 100644 --- a/SRC/clanv2.f +++ b/SRC/clanv2.f @@ -1,4 +1,5 @@ SUBROUTINE CLANV2( A, B, C, D, RT1, RT2, CS, SN ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/claref.f b/SRC/claref.f index 5189ed23..ba617d49 100644 --- a/SRC/claref.f +++ b/SRC/claref.f @@ -1,6 +1,7 @@ SUBROUTINE CLAREF( TYPE, A, LDA, WANTZ, Z, LDZ, BLOCK, IROW1, $ ICOL1, ISTART, ISTOP, ITMP1, ITMP2, LILOZ, $ LIHIZ, VECS, V2, V3, T1, T2, T3 ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/cpttrsv.f b/SRC/cpttrsv.f index 20942654..a1099b0c 100644 --- a/SRC/cpttrsv.f +++ b/SRC/cpttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE CPTTRSV( UPLO, TRANS, N, NRHS, D, E, B, LDB, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/csteqr2.f b/SRC/csteqr2.f index bf3db120..e2b30688 100644 --- a/SRC/csteqr2.f +++ b/SRC/csteqr2.f @@ -1,4 +1,5 @@ SUBROUTINE CSTEQR2( COMPZ, N, D, E, Z, LDZ, NR, WORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/ctrmvt.f b/SRC/ctrmvt.f index c8433c8c..05bd73cd 100644 --- a/SRC/ctrmvt.f +++ b/SRC/ctrmvt.f @@ -1,5 +1,6 @@ SUBROUTINE CTRMVT( UPLO, N, T, LDT, X, INCX, Y, INCY, W, INCW, Z, $ INCZ ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/ddbtf2.f b/SRC/ddbtf2.f index c70fb635..b895b123 100644 --- a/SRC/ddbtf2.f +++ b/SRC/ddbtf2.f @@ -1,4 +1,5 @@ SUBROUTINE DDBTF2( M, N, KL, KU, AB, LDAB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/ddbtrf.f b/SRC/ddbtrf.f index 78b7b4d0..886f8c1a 100644 --- a/SRC/ddbtrf.f +++ b/SRC/ddbtrf.f @@ -1,4 +1,5 @@ SUBROUTINE DDBTRF( M, N, KL, KU, AB, LDAB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/ddttrf.f b/SRC/ddttrf.f index a32d984f..b9cc3081 100644 --- a/SRC/ddttrf.f +++ b/SRC/ddttrf.f @@ -1,4 +1,5 @@ SUBROUTINE DDTTRF( N, DL, D, DU, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/ddttrsv.f b/SRC/ddttrsv.f index 598c8078..c07343de 100644 --- a/SRC/ddttrsv.f +++ b/SRC/ddttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE DDTTRSV( UPLO, TRANS, N, NRHS, DL, D, DU, $ B, LDB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/dlamsh.f b/SRC/dlamsh.f index 82301c35..21c4f933 100644 --- a/SRC/dlamsh.f +++ b/SRC/dlamsh.f @@ -1,4 +1,5 @@ SUBROUTINE DLAMSH ( S, LDS, NBULGE, JBLK, H, LDH, N, ULP ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/dlapst.f b/SRC/dlapst.f index 9a90d223..0cb7b527 100644 --- a/SRC/dlapst.f +++ b/SRC/dlapst.f @@ -1,4 +1,5 @@ SUBROUTINE DLAPST( ID, N, D, INDX, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/dlarrd2.f b/SRC/dlarrd2.f index 51aaccc6..6eb5684e 100644 --- a/SRC/dlarrd2.f +++ b/SRC/dlarrd2.f @@ -2,6 +2,7 @@ SUBROUTINE DLARRD2( RANGE, ORDER, N, VL, VU, IL, IU, GERS, $ RELTOL, D, E, E2, PIVMIN, NSPLIT, ISPLIT, $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, DOL, DOU, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ of Colorado Denver diff --git a/SRC/dlarre2.f b/SRC/dlarre2.f index 269835ac..308c9dea 100644 --- a/SRC/dlarre2.f +++ b/SRC/dlarre2.f @@ -3,6 +3,7 @@ SUBROUTINE DLARRE2( RANGE, N, VL, VU, IL, IU, D, E, E2, $ M, DOL, DOU, $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ of Colorado Denver diff --git a/SRC/dlasorte.f b/SRC/dlasorte.f index db1cf5d2..d819ae25 100644 --- a/SRC/dlasorte.f +++ b/SRC/dlasorte.f @@ -1,4 +1,5 @@ SUBROUTINE DLASORTE( S, LDS, J, OUT, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/dlasrt2.f b/SRC/dlasrt2.f index b134da5c..22cd1f86 100644 --- a/SRC/dlasrt2.f +++ b/SRC/dlasrt2.f @@ -1,6 +1,7 @@ * * SUBROUTINE DLASRT2( ID, N, D, KEY, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/dpttrsv.f b/SRC/dpttrsv.f index 618b7ca3..710029e8 100644 --- a/SRC/dpttrsv.f +++ b/SRC/dpttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE DPTTRSV( TRANS, N, NRHS, D, E, B, LDB, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/dstegr2.f b/SRC/dstegr2.f index ee4b7fc2..efae1916 100644 --- a/SRC/dstegr2.f +++ b/SRC/dstegr2.f @@ -1,6 +1,7 @@ SUBROUTINE DSTEGR2( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, DOL, DOU, ZOFFSET, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/dstein2.f b/SRC/dstein2.f index 4ac61d75..cb27eb90 100644 --- a/SRC/dstein2.f +++ b/SRC/dstein2.f @@ -2,6 +2,7 @@ * SUBROUTINE DSTEIN2( N, D, E, M, W, IBLOCK, ISPLIT, ORFAC, Z, LDZ, $ WORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/dsteqr2.f b/SRC/dsteqr2.f index 23fafdbf..568dec97 100644 --- a/SRC/dsteqr2.f +++ b/SRC/dsteqr2.f @@ -1,4 +1,5 @@ SUBROUTINE DSTEQR2( COMPZ, N, D, E, Z, LDZ, NR, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/dtrmvt.f b/SRC/dtrmvt.f index c52694b1..66165a88 100644 --- a/SRC/dtrmvt.f +++ b/SRC/dtrmvt.f @@ -1,5 +1,6 @@ SUBROUTINE DTRMVT( UPLO, N, T, LDT, X, INCX, Y, INCY, W, INCW, Z, $ INCZ ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcdbsv.f b/SRC/pcdbsv.f index c8bc24fe..e9047526 100644 --- a/SRC/pcdbsv.f +++ b/SRC/pcdbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCDBSV( N, BWL, BWU, NRHS, A, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcdbtrf.f b/SRC/pcdbtrf.f index cee598de..ecfacc8b 100644 --- a/SRC/pcdbtrf.f +++ b/SRC/pcdbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PCDBTRF( N, BWL, BWU, A, JA, DESCA, AF, LAF, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pcdbtrs.f b/SRC/pcdbtrs.f index 2d5c6095..ee7f79f5 100644 --- a/SRC/pcdbtrs.f +++ b/SRC/pcdbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCDBTRS( TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcdbtrsv.f b/SRC/pcdbtrsv.f index fbb0ddad..f7a84a61 100644 --- a/SRC/pcdbtrsv.f +++ b/SRC/pcdbtrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCDBTRSV( UPLO, TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pcdtsv.f b/SRC/pcdtsv.f index 83af99db..a6a7e7c2 100644 --- a/SRC/pcdtsv.f +++ b/SRC/pcdtsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCDTSV( N, NRHS, DL, D, DU, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcdttrf.f b/SRC/pcdttrf.f index 065817c4..d0fe4b21 100644 --- a/SRC/pcdttrf.f +++ b/SRC/pcdttrf.f @@ -1,5 +1,6 @@ SUBROUTINE PCDTTRF( N, DL, D, DU, JA, DESCA, AF, LAF, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pcdttrs.f b/SRC/pcdttrs.f index d41406e7..fd2eb9b8 100644 --- a/SRC/pcdttrs.f +++ b/SRC/pcdttrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCDTTRS( TRANS, N, NRHS, DL, D, DU, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcdttrsv.f b/SRC/pcdttrsv.f index 417c14d0..d06e3480 100644 --- a/SRC/pcdttrsv.f +++ b/SRC/pcdttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCDTTRSV( UPLO, TRANS, N, NRHS, DL, D, DU, JA, DESCA, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pcgbsv.f b/SRC/pcgbsv.f index 20480f6e..785fb92c 100644 --- a/SRC/pcgbsv.f +++ b/SRC/pcgbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCGBSV( N, BWL, BWU, NRHS, A, JA, DESCA, IPIV, B, IB, $ DESCB, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcgbtrf.f b/SRC/pcgbtrf.f index ce246fdd..62d57746 100644 --- a/SRC/pcgbtrf.f +++ b/SRC/pcgbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PCGBTRF( N, BWL, BWU, A, JA, DESCA, IPIV, AF, LAF, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pcgbtrs.f b/SRC/pcgbtrs.f index 1ded0781..e78f56cd 100644 --- a/SRC/pcgbtrs.f +++ b/SRC/pcgbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCGBTRS( TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, IPIV, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pcgebd2.f b/SRC/pcgebd2.f index 22f7fbbf..8c957810 100644 --- a/SRC/pcgebd2.f +++ b/SRC/pcgebd2.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEBD2( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgebrd.f b/SRC/pcgebrd.f index 94327ecb..4a03cada 100644 --- a/SRC/pcgebrd.f +++ b/SRC/pcgebrd.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEBRD( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgecon.f b/SRC/pcgecon.f index 82b157cf..5d2d85cb 100644 --- a/SRC/pcgecon.f +++ b/SRC/pcgecon.f @@ -1,5 +1,6 @@ SUBROUTINE PCGECON( NORM, N, A, IA, JA, DESCA, ANORM, RCOND, WORK, $ LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgeequ.f b/SRC/pcgeequ.f index bea7071f..8eaa67ba 100644 --- a/SRC/pcgeequ.f +++ b/SRC/pcgeequ.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEEQU( M, N, A, IA, JA, DESCA, R, C, ROWCND, COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgehd2.f b/SRC/pcgehd2.f index 9b0f2d18..c54d81d1 100644 --- a/SRC/pcgehd2.f +++ b/SRC/pcgehd2.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEHD2( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgehrd.f b/SRC/pcgehrd.f index 16c4e262..0c706ddc 100644 --- a/SRC/pcgehrd.f +++ b/SRC/pcgehrd.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEHRD( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgelq2.f b/SRC/pcgelq2.f index ce845fc9..43b11b8e 100644 --- a/SRC/pcgelq2.f +++ b/SRC/pcgelq2.f @@ -1,5 +1,6 @@ SUBROUTINE PCGELQ2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgelqf.f b/SRC/pcgelqf.f index 51e5be80..a63a757e 100644 --- a/SRC/pcgelqf.f +++ b/SRC/pcgelqf.f @@ -1,5 +1,6 @@ SUBROUTINE PCGELQF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgels.f b/SRC/pcgels.f index 494c10a1..ded9e120 100644 --- a/SRC/pcgels.f +++ b/SRC/pcgels.f @@ -1,5 +1,6 @@ SUBROUTINE PCGELS( TRANS, M, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgeql2.f b/SRC/pcgeql2.f index 3a74a6f2..20826188 100644 --- a/SRC/pcgeql2.f +++ b/SRC/pcgeql2.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEQL2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgeqlf.f b/SRC/pcgeqlf.f index e7808a5e..ed1e2097 100644 --- a/SRC/pcgeqlf.f +++ b/SRC/pcgeqlf.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEQLF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgeqpf.f b/SRC/pcgeqpf.f index 5e3e2d08..1694e885 100644 --- a/SRC/pcgeqpf.f +++ b/SRC/pcgeqpf.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEQPF( M, N, A, IA, JA, DESCA, IPIV, TAU, WORK, $ LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.1) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgeqr2.f b/SRC/pcgeqr2.f index 5ef4cd6a..384f0249 100644 --- a/SRC/pcgeqr2.f +++ b/SRC/pcgeqr2.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEQR2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgeqrf.f b/SRC/pcgeqrf.f index 4a1f110e..5d58215e 100644 --- a/SRC/pcgeqrf.f +++ b/SRC/pcgeqrf.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEQRF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgerfs.f b/SRC/pcgerfs.f index 3a04bc69..598c236d 100644 --- a/SRC/pcgerfs.f +++ b/SRC/pcgerfs.f @@ -2,6 +2,7 @@ SUBROUTINE PCGERFS( TRANS, N, NRHS, A, IA, JA, DESCA, AF, IAF, $ JAF, DESCAF, IPIV, B, IB, JB, DESCB, X, IX, $ JX, DESCX, FERR, BERR, WORK, LWORK, RWORK, $ LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgerq2.f b/SRC/pcgerq2.f index dcdb7703..4344ea16 100644 --- a/SRC/pcgerq2.f +++ b/SRC/pcgerq2.f @@ -1,5 +1,6 @@ SUBROUTINE PCGERQ2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgerqf.f b/SRC/pcgerqf.f index 5faf6223..b616cf0d 100644 --- a/SRC/pcgerqf.f +++ b/SRC/pcgerqf.f @@ -1,5 +1,6 @@ SUBROUTINE PCGERQF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgesv.f b/SRC/pcgesv.f index a3e435cd..e6168bc5 100644 --- a/SRC/pcgesv.f +++ b/SRC/pcgesv.f @@ -1,5 +1,6 @@ SUBROUTINE PCGESV( N, NRHS, A, IA, JA, DESCA, IPIV, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgesvd.f b/SRC/pcgesvd.f index 67f1f324..bbfd3158 100644 --- a/SRC/pcgesvd.f +++ b/SRC/pcgesvd.f @@ -1,6 +1,7 @@ SUBROUTINE PCGESVD(JOBU,JOBVT,M,N,A,IA,JA,DESCA,S,U,IU,JU,DESCU, + VT,IVT,JVT,DESCVT,WORK,LWORK,RWORK,INFO) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Oak Ridge National Laboratory diff --git a/SRC/pcgesvx.f b/SRC/pcgesvx.f index 018b56ef..aef46183 100644 --- a/SRC/pcgesvx.f +++ b/SRC/pcgesvx.f @@ -2,6 +2,7 @@ SUBROUTINE PCGESVX( FACT, TRANS, N, NRHS, A, IA, JA, DESCA, AF, $ IAF, JAF, DESCAF, IPIV, EQUED, R, C, B, IB, $ JB, DESCB, X, IX, JX, DESCX, RCOND, FERR, $ BERR, WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgetf2.f b/SRC/pcgetf2.f index 7807ac17..67c1675d 100644 --- a/SRC/pcgetf2.f +++ b/SRC/pcgetf2.f @@ -1,4 +1,5 @@ SUBROUTINE PCGETF2( M, N, A, IA, JA, DESCA, IPIV, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgetrf.f b/SRC/pcgetrf.f index 9889e0f7..0ccaa43e 100644 --- a/SRC/pcgetrf.f +++ b/SRC/pcgetrf.f @@ -1,4 +1,5 @@ SUBROUTINE PCGETRF( M, N, A, IA, JA, DESCA, IPIV, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgetri.f b/SRC/pcgetri.f index 8d582dd1..baec5775 100644 --- a/SRC/pcgetri.f +++ b/SRC/pcgetri.f @@ -1,5 +1,6 @@ SUBROUTINE PCGETRI( N, A, IA, JA, DESCA, IPIV, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7.4) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcgetrs.f b/SRC/pcgetrs.f index 0979fee1..c177149f 100644 --- a/SRC/pcgetrs.f +++ b/SRC/pcgetrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCGETRS( TRANS, N, NRHS, A, IA, JA, DESCA, IPIV, B, $ IB, JB, DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcggqrf.f b/SRC/pcggqrf.f index a794a27a..a9bf2203 100644 --- a/SRC/pcggqrf.f +++ b/SRC/pcggqrf.f @@ -1,5 +1,6 @@ SUBROUTINE PCGGQRF( N, M, P, A, IA, JA, DESCA, TAUA, B, IB, JB, $ DESCB, TAUB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcggrqf.f b/SRC/pcggrqf.f index a5a1c2fd..bef9ab4b 100644 --- a/SRC/pcggrqf.f +++ b/SRC/pcggrqf.f @@ -1,5 +1,6 @@ SUBROUTINE PCGGRQF( M, P, N, A, IA, JA, DESCA, TAUA, B, IB, JB, $ DESCB, TAUB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcheev.f b/SRC/pcheev.f index 17682a32..4d40d707 100644 --- a/SRC/pcheev.f +++ b/SRC/pcheev.f @@ -1,5 +1,6 @@ SUBROUTINE PCHEEV( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, $ DESCZ, WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcheevd.f b/SRC/pcheevd.f index 45f62bd7..ea883a79 100644 --- a/SRC/pcheevd.f +++ b/SRC/pcheevd.f @@ -1,6 +1,7 @@ SUBROUTINE PCHEEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, $ DESCZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10,6 +11,7 @@ SUBROUTINE PCHEEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, * .. Scalar Arguments .. CHARACTER JOBZ, UPLO INTEGER IA, INFO, IZ, JA, JZ, LIWORK, LRWORK, LWORK, N + INTEGER ICTXT * .. * .. Array Arguments .. INTEGER DESCA( * ), DESCZ( * ), IWORK( * ) diff --git a/SRC/pcheevx.f b/SRC/pcheevx.f index 3de0547f..ac8b1247 100644 --- a/SRC/pcheevx.f +++ b/SRC/pcheevx.f @@ -2,6 +2,7 @@ SUBROUTINE PCHEEVX( JOBZ, RANGE, UPLO, N, A, IA, JA, DESCA, VL, $ VU, IL, IU, ABSTOL, M, NZ, W, ORFAC, Z, IZ, $ JZ, DESCZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, IFAIL, ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pchegs2.f b/SRC/pchegs2.f index b5fafa7d..799457b3 100644 --- a/SRC/pchegs2.f +++ b/SRC/pchegs2.f @@ -2,6 +2,7 @@ * SUBROUTINE PCHEGS2( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pchegst.f b/SRC/pchegst.f index 4969708c..5a5b03cc 100644 --- a/SRC/pchegst.f +++ b/SRC/pchegst.f @@ -2,6 +2,7 @@ * SUBROUTINE PCHEGST( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, SCALE, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pchegvx.f b/SRC/pchegvx.f index 9309b07f..a3085d57 100644 --- a/SRC/pchegvx.f +++ b/SRC/pchegvx.f @@ -3,6 +3,7 @@ SUBROUTINE PCHEGVX( IBTYPE, JOBZ, RANGE, UPLO, N, A, IA, JA, $ ABSTOL, M, NZ, W, ORFAC, Z, IZ, JZ, DESCZ, $ WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, $ IFAIL, ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pchengst.f b/SRC/pchengst.f index 3d970c21..a7b5e15d 100644 --- a/SRC/pchengst.f +++ b/SRC/pchengst.f @@ -1,5 +1,6 @@ SUBROUTINE PCHENGST( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, SCALE, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pchentrd.f b/SRC/pchentrd.f index d09f2536..44e05f6c 100644 --- a/SRC/pchentrd.f +++ b/SRC/pchentrd.f @@ -1,5 +1,6 @@ SUBROUTINE PCHENTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pchetd2.f b/SRC/pchetd2.f index dd0a909d..6413bd87 100644 --- a/SRC/pchetd2.f +++ b/SRC/pchetd2.f @@ -1,5 +1,6 @@ SUBROUTINE PCHETD2( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pchetrd.f b/SRC/pchetrd.f index 00aec5fd..a8a36ed2 100644 --- a/SRC/pchetrd.f +++ b/SRC/pchetrd.f @@ -1,5 +1,6 @@ SUBROUTINE PCHETRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pchettrd.f b/SRC/pchettrd.f index c3870c8a..bd1df4a0 100644 --- a/SRC/pchettrd.f +++ b/SRC/pchettrd.f @@ -1,5 +1,6 @@ SUBROUTINE PCHETTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pclabrd.f b/SRC/pclabrd.f index 5229b8f3..b09b2620 100644 --- a/SRC/pclabrd.f +++ b/SRC/pclabrd.f @@ -1,5 +1,6 @@ SUBROUTINE PCLABRD( M, N, NB, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ X, IX, JX, DESCX, Y, IY, JY, DESCY, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclacgv.f b/SRC/pclacgv.f index a69802f9..155355ff 100644 --- a/SRC/pclacgv.f +++ b/SRC/pclacgv.f @@ -1,4 +1,5 @@ SUBROUTINE PCLACGV( N, X, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclacon.f b/SRC/pclacon.f index c3947d08..cfd4308d 100644 --- a/SRC/pclacon.f +++ b/SRC/pclacon.f @@ -1,5 +1,6 @@ SUBROUTINE PCLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, EST, $ KASE ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -150,8 +151,8 @@ SUBROUTINE PCLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, EST, $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 ) INTEGER ITMAX PARAMETER ( ITMAX = 5 ) - REAL ONE, TWO - PARAMETER ( ONE = 1.0E+0, TWO = 2.0E+0 ) + REAL ZERO, ONE, TWO + PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, TWO = 2.0E+0 ) COMPLEX CZERO, CONE PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ), $ CONE = ( 1.0E+0, 0.0E+0 ) ) diff --git a/SRC/pclaconsb.f b/SRC/pclaconsb.f index aaaf249a..a9cb77e1 100644 --- a/SRC/pclaconsb.f +++ b/SRC/pclaconsb.f @@ -1,5 +1,6 @@ SUBROUTINE PCLACONSB( A, DESCA, I, L, M, H44, H33, H43H34, BUF, $ LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclacp2.f b/SRC/pclacp2.f index 7265ea29..04774846 100644 --- a/SRC/pclacp2.f +++ b/SRC/pclacp2.f @@ -1,5 +1,6 @@ SUBROUTINE PCLACP2( UPLO, M, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pclacp3.f b/SRC/pclacp3.f index 831d4323..6dd4caf4 100644 --- a/SRC/pclacp3.f +++ b/SRC/pclacp3.f @@ -1,4 +1,5 @@ SUBROUTINE PCLACP3( M, I, A, DESCA, B, LDB, II, JJ, REV ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclacpy.f b/SRC/pclacpy.f index 4322c998..5cc95283 100644 --- a/SRC/pclacpy.f +++ b/SRC/pclacpy.f @@ -1,5 +1,6 @@ SUBROUTINE PCLACPY( UPLO, M, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclaevswp.f b/SRC/pclaevswp.f index 97a41c80..bb26b02f 100644 --- a/SRC/pclaevswp.f +++ b/SRC/pclaevswp.f @@ -2,6 +2,7 @@ * SUBROUTINE PCLAEVSWP( N, ZIN, LDZI, Z, IZ, JZ, DESCZ, NVS, KEY, $ RWORK, LRWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclahqr.f b/SRC/pclahqr.f index 732bbfa2..50630548 100644 --- a/SRC/pclahqr.f +++ b/SRC/pclahqr.f @@ -1,6 +1,7 @@ SUBROUTINE PCLAHQR( WANTT, WANTZ, N, ILO, IHI, A, DESCA, W, ILOZ, $ IHIZ, Z, DESCZ, WORK, LWORK, IWORK, ILWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7.3) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclahrd.f b/SRC/pclahrd.f index 5f158fe4..683aa639 100644 --- a/SRC/pclahrd.f +++ b/SRC/pclahrd.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAHRD( N, K, NB, A, IA, JA, DESCA, TAU, T, Y, IY, JY, $ DESCY, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclamr1d.f b/SRC/pclamr1d.f index 41f6d44e..14c2b874 100644 --- a/SRC/pclamr1d.f +++ b/SRC/pclamr1d.f @@ -1,4 +1,5 @@ SUBROUTINE PCLAMR1D( N, A, IA, JA, DESCA, B, IB, JB, DESCB ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclanhe.f b/SRC/pclanhe.f index 67a6c48b..e4cc2077 100644 --- a/SRC/pclanhe.f +++ b/SRC/pclanhe.f @@ -1,5 +1,6 @@ REAL FUNCTION PCLANHE( NORM, UPLO, N, A, IA, JA, $ DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclanhs.f b/SRC/pclanhs.f index 2426137f..7891c126 100644 --- a/SRC/pclanhs.f +++ b/SRC/pclanhs.f @@ -1,5 +1,6 @@ REAL FUNCTION PCLANHS( NORM, N, A, IA, JA, DESCA, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclapiv.f b/SRC/pclapiv.f index e5a679b8..43d2126f 100644 --- a/SRC/pclapiv.f +++ b/SRC/pclapiv.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAPIV( DIREC, ROWCOL, PIVROC, M, N, A, IA, JA, $ DESCA, IPIV, IP, JP, DESCIP, IWORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclapv2.f b/SRC/pclapv2.f index 65fb412f..9bfa84df 100644 --- a/SRC/pclapv2.f +++ b/SRC/pclapv2.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAPV2( DIREC, ROWCOL, M, N, A, IA, JA, DESCA, IPIV, $ IP, JP, DESCIP ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclaqge.f b/SRC/pclaqge.f index ff40b743..cd3e688a 100644 --- a/SRC/pclaqge.f +++ b/SRC/pclaqge.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAQGE( M, N, A, IA, JA, DESCA, R, C, ROWCND, COLCND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclaqsy.f b/SRC/pclaqsy.f index b03a6854..23332b09 100644 --- a/SRC/pclaqsy.f +++ b/SRC/pclaqsy.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAQSY( UPLO, N, A, IA, JA, DESCA, SR, SC, SCOND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclarf.f b/SRC/pclarf.f index 371f7107..7780a8ad 100644 --- a/SRC/pclarf.f +++ b/SRC/pclarf.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU, $ C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclarfb.f b/SRC/pclarfb.f index 4c11f359..054df7c9 100644 --- a/SRC/pclarfb.f +++ b/SRC/pclarfb.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, IV, $ JV, DESCV, T, C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pclarfc.f b/SRC/pclarfc.f index f84c4930..28a5adcd 100644 --- a/SRC/pclarfc.f +++ b/SRC/pclarfc.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU, $ C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclarfg.f b/SRC/pclarfg.f index 3c969e25..7582fcdd 100644 --- a/SRC/pclarfg.f +++ b/SRC/pclarfg.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARFG( N, ALPHA, IAX, JAX, X, IX, JX, DESCX, INCX, $ TAU ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclarft.f b/SRC/pclarft.f index e5bb0101..faf1a537 100644 --- a/SRC/pclarft.f +++ b/SRC/pclarft.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARFT( DIRECT, STOREV, N, K, V, IV, JV, DESCV, TAU, $ T, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclarz.f b/SRC/pclarz.f index 673860a0..d79bd29d 100644 --- a/SRC/pclarz.f +++ b/SRC/pclarz.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C, $ IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclarzb.f b/SRC/pclarzb.f index d67a9030..42e6b1a1 100644 --- a/SRC/pclarzb.f +++ b/SRC/pclarzb.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ IV, JV, DESCV, T, C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pclarzc.f b/SRC/pclarzc.f index b6d3b6d4..863b8e5b 100644 --- a/SRC/pclarzc.f +++ b/SRC/pclarzc.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C, $ IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclarzt.f b/SRC/pclarzt.f index acc8da58..4d9b05be 100644 --- a/SRC/pclarzt.f +++ b/SRC/pclarzt.f @@ -1,5 +1,6 @@ SUBROUTINE PCLARZT( DIRECT, STOREV, N, K, V, IV, JV, DESCV, TAU, $ T, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclascl.f b/SRC/pclascl.f index 9b167b87..3ee442be 100644 --- a/SRC/pclascl.f +++ b/SRC/pclascl.f @@ -1,5 +1,6 @@ SUBROUTINE PCLASCL( TYPE, CFROM, CTO, M, N, A, IA, JA, DESCA, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclase2.f b/SRC/pclase2.f index 1424b22c..72d5d928 100644 --- a/SRC/pclase2.f +++ b/SRC/pclase2.f @@ -1,4 +1,5 @@ SUBROUTINE PCLASE2( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclaset.f b/SRC/pclaset.f index a5504c0a..5fe90380 100644 --- a/SRC/pclaset.f +++ b/SRC/pclaset.f @@ -1,4 +1,5 @@ SUBROUTINE PCLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclasmsub.f b/SRC/pclasmsub.f index a21564fa..1e852316 100644 --- a/SRC/pclasmsub.f +++ b/SRC/pclasmsub.f @@ -1,4 +1,5 @@ SUBROUTINE PCLASMSUB( A, DESCA, I, L, K, SMLNUM, BUF, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclassq.f b/SRC/pclassq.f index c1245e25..a6097ae0 100644 --- a/SRC/pclassq.f +++ b/SRC/pclassq.f @@ -1,4 +1,5 @@ SUBROUTINE PCLASSQ( N, X, IX, JX, DESCX, INCX, SCALE, SUMSQ ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclaswp.f b/SRC/pclaswp.f index 3548b779..b433a409 100644 --- a/SRC/pclaswp.f +++ b/SRC/pclaswp.f @@ -1,5 +1,6 @@ SUBROUTINE PCLASWP( DIREC, ROWCOL, N, A, IA, JA, DESCA, K1, K2, $ IPIV ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclatra.f b/SRC/pclatra.f index a62a5cf4..76e9eb8d 100644 --- a/SRC/pclatra.f +++ b/SRC/pclatra.f @@ -1,4 +1,5 @@ COMPLEX FUNCTION PCLATRA( N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclatrd.f b/SRC/pclatrd.f index 3a86fa78..71f31051 100644 --- a/SRC/pclatrd.f +++ b/SRC/pclatrd.f @@ -1,5 +1,6 @@ SUBROUTINE PCLATRD( UPLO, N, NB, A, IA, JA, DESCA, D, E, TAU, W, $ IW, JW, DESCW, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclatrs.f b/SRC/pclatrs.f index 62d28a78..4957f3e8 100644 --- a/SRC/pclatrs.f +++ b/SRC/pclatrs.f @@ -1,6 +1,7 @@ SUBROUTINE PCLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, $ JA, DESCA, X, IX, JX, DESCX, SCALE, CNORM, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclatrz.f b/SRC/pclatrz.f index cadca18a..0f99b476 100644 --- a/SRC/pclatrz.f +++ b/SRC/pclatrz.f @@ -1,4 +1,5 @@ SUBROUTINE PCLATRZ( M, N, L, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclattrs.f b/SRC/pclattrs.f index 8551e077..9e68a335 100644 --- a/SRC/pclattrs.f +++ b/SRC/pclattrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA, $ DESCA, X, IX, JX, DESCX, SCALE, CNORM, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclauu2.f b/SRC/pclauu2.f index 59bdd4f1..a5df3059 100644 --- a/SRC/pclauu2.f +++ b/SRC/pclauu2.f @@ -1,4 +1,5 @@ SUBROUTINE PCLAUU2( UPLO, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -139,7 +140,8 @@ SUBROUTINE PCLAUU2( UPLO, N, A, IA, JA, DESCA ) * .. * .. External Functions .. LOGICAL LSAME - EXTERNAL LSAME + COMPLEX CDOTC + EXTERNAL LSAME, CDOTC * .. * .. Intrinsic Functions .. INTRINSIC CMPLX, REAL diff --git a/SRC/pclauum.f b/SRC/pclauum.f index 5250ebba..e7ed88ff 100644 --- a/SRC/pclauum.f +++ b/SRC/pclauum.f @@ -1,4 +1,5 @@ SUBROUTINE PCLAUUM( UPLO, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pclawil.f b/SRC/pclawil.f index b33b3b1a..27f9bd7c 100644 --- a/SRC/pclawil.f +++ b/SRC/pclawil.f @@ -1,4 +1,5 @@ SUBROUTINE PCLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcmax1.f b/SRC/pcmax1.f index 168bab7d..159a0bcb 100644 --- a/SRC/pcmax1.f +++ b/SRC/pcmax1.f @@ -1,4 +1,5 @@ SUBROUTINE PCMAX1( N, AMAX, INDX, X, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -358,6 +359,7 @@ SUBROUTINE PCMAX1( N, AMAX, INDX, X, IX, JX, DESCX, INCX ) END * SUBROUTINE CCOMBAMAX1 ( V1, V2 ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcpbsv.f b/SRC/pcpbsv.f index 38ab4175..caef0805 100644 --- a/SRC/pcpbsv.f +++ b/SRC/pcpbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCPBSV( UPLO, N, BW, NRHS, A, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcpbtrf.f b/SRC/pcpbtrf.f index 2c857818..4a8d9e41 100644 --- a/SRC/pcpbtrf.f +++ b/SRC/pcpbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PCPBTRF( UPLO, N, BW, A, JA, DESCA, AF, LAF, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pcpbtrs.f b/SRC/pcpbtrs.f index fc14b8dd..c56f01f4 100644 --- a/SRC/pcpbtrs.f +++ b/SRC/pcpbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCPBTRS( UPLO, N, BW, NRHS, A, JA, DESCA, B, IB, DESCB, $ AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcpbtrsv.f b/SRC/pcpbtrsv.f index 2ec2835a..ca027cf1 100644 --- a/SRC/pcpbtrsv.f +++ b/SRC/pcpbtrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCPBTRSV( UPLO, TRANS, N, BW, NRHS, A, JA, DESCA, B, $ IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pcpocon.f b/SRC/pcpocon.f index e8cc99cf..d64e4db4 100644 --- a/SRC/pcpocon.f +++ b/SRC/pcpocon.f @@ -1,5 +1,6 @@ SUBROUTINE PCPOCON( UPLO, N, A, IA, JA, DESCA, ANORM, RCOND, WORK, $ LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcpoequ.f b/SRC/pcpoequ.f index 744517c7..8d30f342 100644 --- a/SRC/pcpoequ.f +++ b/SRC/pcpoequ.f @@ -1,5 +1,6 @@ SUBROUTINE PCPOEQU( N, A, IA, JA, DESCA, SR, SC, SCOND, AMAX, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcporfs.f b/SRC/pcporfs.f index 233be2aa..363763c0 100644 --- a/SRC/pcporfs.f +++ b/SRC/pcporfs.f @@ -1,6 +1,7 @@ SUBROUTINE PCPORFS( UPLO, N, NRHS, A, IA, JA, DESCA, AF, IAF, JAF, $ DESCAF, B, IB, JB, DESCB, X, IX, JX, DESCX, $ FERR, BERR, WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcposv.f b/SRC/pcposv.f index 74cf0235..c41bef7c 100644 --- a/SRC/pcposv.f +++ b/SRC/pcposv.f @@ -1,5 +1,6 @@ SUBROUTINE PCPOSV( UPLO, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcposvx.f b/SRC/pcposvx.f index a6e0da0c..c865d5e2 100644 --- a/SRC/pcposvx.f +++ b/SRC/pcposvx.f @@ -2,6 +2,7 @@ SUBROUTINE PCPOSVX( FACT, UPLO, N, NRHS, A, IA, JA, DESCA, AF, $ IAF, JAF, DESCAF, EQUED, SR, SC, B, IB, JB, $ DESCB, X, IX, JX, DESCX, RCOND, FERR, BERR, $ WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcpotf2.f b/SRC/pcpotf2.f index 677701c7..d7a0d508 100644 --- a/SRC/pcpotf2.f +++ b/SRC/pcpotf2.f @@ -1,4 +1,5 @@ SUBROUTINE PCPOTF2( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcpotrf.f b/SRC/pcpotrf.f index f347641d..246d725d 100644 --- a/SRC/pcpotrf.f +++ b/SRC/pcpotrf.f @@ -1,4 +1,5 @@ SUBROUTINE PCPOTRF( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcpotri.f b/SRC/pcpotri.f index e2afc5ee..08184031 100644 --- a/SRC/pcpotri.f +++ b/SRC/pcpotri.f @@ -1,4 +1,5 @@ SUBROUTINE PCPOTRI( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcpotrs.f b/SRC/pcpotrs.f index 0dd8e032..d3923d81 100644 --- a/SRC/pcpotrs.f +++ b/SRC/pcpotrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCPOTRS( UPLO, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcptsv.f b/SRC/pcptsv.f index 85661055..9973bf10 100644 --- a/SRC/pcptsv.f +++ b/SRC/pcptsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCPTSV( UPLO, N, NRHS, D, E, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcpttrf.f b/SRC/pcpttrf.f index aa32f6b3..d1cec3e2 100644 --- a/SRC/pcpttrf.f +++ b/SRC/pcpttrf.f @@ -1,5 +1,6 @@ SUBROUTINE PCPTTRF( N, D, E, JA, DESCA, AF, LAF, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcpttrs.f b/SRC/pcpttrs.f index 565a022e..b1a5bc82 100644 --- a/SRC/pcpttrs.f +++ b/SRC/pcpttrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCPTTRS( UPLO, N, NRHS, D, E, JA, DESCA, B, IB, DESCB, $ AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcpttrsv.f b/SRC/pcpttrsv.f index 018b9944..418bd928 100644 --- a/SRC/pcpttrsv.f +++ b/SRC/pcpttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PCPTTRSV( UPLO, TRANS, N, NRHS, D, E, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pcsrscl.f b/SRC/pcsrscl.f index cc76b8d2..91688ae5 100644 --- a/SRC/pcsrscl.f +++ b/SRC/pcsrscl.f @@ -1,4 +1,5 @@ SUBROUTINE PCSRSCL( N, SA, SX, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcstein.f b/SRC/pcstein.f index d3b99682..d00c643d 100644 --- a/SRC/pcstein.f +++ b/SRC/pcstein.f @@ -1,6 +1,7 @@ SUBROUTINE PCSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, ORFAC, Z, IZ, $ JZ, DESCZ, WORK, LWORK, IWORK, LIWORK, IFAIL, $ ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pctrcon.f b/SRC/pctrcon.f index 082a3754..091e4302 100644 --- a/SRC/pctrcon.f +++ b/SRC/pctrcon.f @@ -1,5 +1,6 @@ SUBROUTINE PCTRCON( NORM, UPLO, DIAG, N, A, IA, JA, DESCA, RCOND, $ WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pctrevc.f b/SRC/pctrevc.f index bf6c52bf..e44a13f8 100644 --- a/SRC/pctrevc.f +++ b/SRC/pctrevc.f @@ -1,5 +1,6 @@ SUBROUTINE PCTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL, $ VR, DESCVR, MM, M, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pctrrfs.f b/SRC/pctrrfs.f index 15873adc..5d74c1ef 100644 --- a/SRC/pctrrfs.f +++ b/SRC/pctrrfs.f @@ -1,6 +1,7 @@ SUBROUTINE PCTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, IA, JA, DESCA, $ B, IB, JB, DESCB, X, IX, JX, DESCX, FERR, $ BERR, WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pctrti2.f b/SRC/pctrti2.f index babfbb38..f68fbd6a 100644 --- a/SRC/pctrti2.f +++ b/SRC/pctrti2.f @@ -1,4 +1,5 @@ SUBROUTINE PCTRTI2( UPLO, DIAG, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pctrtri.f b/SRC/pctrtri.f index dc601af2..41eca49b 100644 --- a/SRC/pctrtri.f +++ b/SRC/pctrtri.f @@ -1,4 +1,5 @@ SUBROUTINE PCTRTRI( UPLO, DIAG, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pctrtrs.f b/SRC/pctrtrs.f index 1db98da5..0c894427 100644 --- a/SRC/pctrtrs.f +++ b/SRC/pctrtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PCTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, IA, JA, DESCA, $ B, IB, JB, DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pctzrzf.f b/SRC/pctzrzf.f index eaff1aa0..4151ec1c 100644 --- a/SRC/pctzrzf.f +++ b/SRC/pctzrzf.f @@ -1,5 +1,6 @@ SUBROUTINE PCTZRZF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcung2l.f b/SRC/pcung2l.f index 9d3082ff..b6f95976 100644 --- a/SRC/pcung2l.f +++ b/SRC/pcung2l.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNG2L( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcung2r.f b/SRC/pcung2r.f index bcddd7a2..70b8d72c 100644 --- a/SRC/pcung2r.f +++ b/SRC/pcung2r.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNG2R( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcungl2.f b/SRC/pcungl2.f index c6d3a72f..0eb64494 100644 --- a/SRC/pcungl2.f +++ b/SRC/pcungl2.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNGL2( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunglq.f b/SRC/pcunglq.f index f985cdd4..5028dbc6 100644 --- a/SRC/pcunglq.f +++ b/SRC/pcunglq.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNGLQ( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcungql.f b/SRC/pcungql.f index 6a9ca9be..6b1f31cb 100644 --- a/SRC/pcungql.f +++ b/SRC/pcungql.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNGQL( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcungqr.f b/SRC/pcungqr.f index 2c95f252..e04f06b4 100644 --- a/SRC/pcungqr.f +++ b/SRC/pcungqr.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNGQR( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcungr2.f b/SRC/pcungr2.f index f39d940c..b1131bc4 100644 --- a/SRC/pcungr2.f +++ b/SRC/pcungr2.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNGR2( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcungrq.f b/SRC/pcungrq.f index ea18868a..db75fee6 100644 --- a/SRC/pcungrq.f +++ b/SRC/pcungrq.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNGRQ( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunm2l.f b/SRC/pcunm2l.f index 7daab3be..cbe86e29 100644 --- a/SRC/pcunm2l.f +++ b/SRC/pcunm2l.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNM2L( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunm2r.f b/SRC/pcunm2r.f index f52fdb65..bf2f2016 100644 --- a/SRC/pcunm2r.f +++ b/SRC/pcunm2r.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNM2R( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmbr.f b/SRC/pcunmbr.f index b8d153aa..444f090e 100644 --- a/SRC/pcunmbr.f +++ b/SRC/pcunmbr.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMBR( VECT, SIDE, TRANS, M, N, K, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmhr.f b/SRC/pcunmhr.f index 4cae589d..c04ae79e 100644 --- a/SRC/pcunmhr.f +++ b/SRC/pcunmhr.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunml2.f b/SRC/pcunml2.f index 607bd9e1..49bee373 100644 --- a/SRC/pcunml2.f +++ b/SRC/pcunml2.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNML2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmlq.f b/SRC/pcunmlq.f index 0671d5bc..4851cb1b 100644 --- a/SRC/pcunmlq.f +++ b/SRC/pcunmlq.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMLQ( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmql.f b/SRC/pcunmql.f index 88aad1f4..15828f8e 100644 --- a/SRC/pcunmql.f +++ b/SRC/pcunmql.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMQL( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmqr.f b/SRC/pcunmqr.f index 28098159..148fdadc 100644 --- a/SRC/pcunmqr.f +++ b/SRC/pcunmqr.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMQR( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmr2.f b/SRC/pcunmr2.f index 9ae20c95..21c45d90 100644 --- a/SRC/pcunmr2.f +++ b/SRC/pcunmr2.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMR2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmr3.f b/SRC/pcunmr3.f index 419346ed..3943f12f 100644 --- a/SRC/pcunmr3.f +++ b/SRC/pcunmr3.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMR3( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmrq.f b/SRC/pcunmrq.f index d25ecb93..65a1959c 100644 --- a/SRC/pcunmrq.f +++ b/SRC/pcunmrq.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMRQ( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmrz.f b/SRC/pcunmrz.f index ee54ee18..e5ccc3d2 100644 --- a/SRC/pcunmrz.f +++ b/SRC/pcunmrz.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMRZ( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pcunmtr.f b/SRC/pcunmtr.f index 7c2a4b64..87b4a21b 100644 --- a/SRC/pcunmtr.f +++ b/SRC/pcunmtr.f @@ -1,5 +1,6 @@ SUBROUTINE PCUNMTR( SIDE, UPLO, TRANS, M, N, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pddbsv.f b/SRC/pddbsv.f index 70f9bc5a..7dc96f91 100644 --- a/SRC/pddbsv.f +++ b/SRC/pddbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDDBSV( N, BWL, BWU, NRHS, A, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pddbtrf.f b/SRC/pddbtrf.f index 5743f329..88f730d6 100644 --- a/SRC/pddbtrf.f +++ b/SRC/pddbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PDDBTRF( N, BWL, BWU, A, JA, DESCA, AF, LAF, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pddbtrs.f b/SRC/pddbtrs.f index 3f6c339c..d55956ad 100644 --- a/SRC/pddbtrs.f +++ b/SRC/pddbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PDDBTRS( TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pddbtrsv.f b/SRC/pddbtrsv.f index 293d12c4..ef06fd19 100644 --- a/SRC/pddbtrsv.f +++ b/SRC/pddbtrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDDBTRSV( UPLO, TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pddtsv.f b/SRC/pddtsv.f index 241f4f9b..f658de0b 100644 --- a/SRC/pddtsv.f +++ b/SRC/pddtsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDDTSV( N, NRHS, DL, D, DU, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pddttrf.f b/SRC/pddttrf.f index 56cbaa19..f032adef 100644 --- a/SRC/pddttrf.f +++ b/SRC/pddttrf.f @@ -1,5 +1,6 @@ SUBROUTINE PDDTTRF( N, DL, D, DU, JA, DESCA, AF, LAF, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pddttrs.f b/SRC/pddttrs.f index bb7f8cd3..5184f52e 100644 --- a/SRC/pddttrs.f +++ b/SRC/pddttrs.f @@ -1,5 +1,6 @@ SUBROUTINE PDDTTRS( TRANS, N, NRHS, DL, D, DU, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pddttrsv.f b/SRC/pddttrsv.f index 7afdbaa9..5f96dd91 100644 --- a/SRC/pddttrsv.f +++ b/SRC/pddttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDDTTRSV( UPLO, TRANS, N, NRHS, DL, D, DU, JA, DESCA, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgbsv.f b/SRC/pdgbsv.f index 566133fe..b0c43a6d 100644 --- a/SRC/pdgbsv.f +++ b/SRC/pdgbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDGBSV( N, BWL, BWU, NRHS, A, JA, DESCA, IPIV, B, IB, $ DESCB, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pdgbtrf.f b/SRC/pdgbtrf.f index dfea1da9..f483c5db 100644 --- a/SRC/pdgbtrf.f +++ b/SRC/pdgbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PDGBTRF( N, BWL, BWU, A, JA, DESCA, IPIV, AF, LAF, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdgbtrs.f b/SRC/pdgbtrs.f index fa8f4a1a..80302496 100644 --- a/SRC/pdgbtrs.f +++ b/SRC/pdgbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PDGBTRS( TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, IPIV, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdgebd2.f b/SRC/pdgebd2.f index b35c5dbd..b8b936cf 100644 --- a/SRC/pdgebd2.f +++ b/SRC/pdgebd2.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEBD2( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgebrd.f b/SRC/pdgebrd.f index 1389a3c4..c3146f47 100644 --- a/SRC/pdgebrd.f +++ b/SRC/pdgebrd.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEBRD( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgecon.f b/SRC/pdgecon.f index b4d95ce1..42843c21 100644 --- a/SRC/pdgecon.f +++ b/SRC/pdgecon.f @@ -1,5 +1,6 @@ SUBROUTINE PDGECON( NORM, N, A, IA, JA, DESCA, ANORM, RCOND, WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgeequ.f b/SRC/pdgeequ.f index 76172f8c..bfca61cd 100644 --- a/SRC/pdgeequ.f +++ b/SRC/pdgeequ.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEEQU( M, N, A, IA, JA, DESCA, R, C, ROWCND, COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgehd2.f b/SRC/pdgehd2.f index 26f6ba10..8f874684 100644 --- a/SRC/pdgehd2.f +++ b/SRC/pdgehd2.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEHD2( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgehrd.f b/SRC/pdgehrd.f index 49ee0af6..fe18ed23 100644 --- a/SRC/pdgehrd.f +++ b/SRC/pdgehrd.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEHRD( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgelq2.f b/SRC/pdgelq2.f index 2e6962ec..e69409c7 100644 --- a/SRC/pdgelq2.f +++ b/SRC/pdgelq2.f @@ -1,5 +1,6 @@ SUBROUTINE PDGELQ2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgelqf.f b/SRC/pdgelqf.f index 1196e3ba..b7911cab 100644 --- a/SRC/pdgelqf.f +++ b/SRC/pdgelqf.f @@ -1,5 +1,6 @@ SUBROUTINE PDGELQF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgels.f b/SRC/pdgels.f index dae599fe..0efc6c13 100644 --- a/SRC/pdgels.f +++ b/SRC/pdgels.f @@ -1,5 +1,6 @@ SUBROUTINE PDGELS( TRANS, M, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgeql2.f b/SRC/pdgeql2.f index 62a37506..4405a05b 100644 --- a/SRC/pdgeql2.f +++ b/SRC/pdgeql2.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEQL2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgeqlf.f b/SRC/pdgeqlf.f index 072841f8..c5b2be9b 100644 --- a/SRC/pdgeqlf.f +++ b/SRC/pdgeqlf.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEQLF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgeqpf.f b/SRC/pdgeqpf.f index 4fb239aa..0a2c6836 100644 --- a/SRC/pdgeqpf.f +++ b/SRC/pdgeqpf.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEQPF( M, N, A, IA, JA, DESCA, IPIV, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.1) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgeqr2.f b/SRC/pdgeqr2.f index a1a9f423..0b04de2a 100644 --- a/SRC/pdgeqr2.f +++ b/SRC/pdgeqr2.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEQR2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgeqrf.f b/SRC/pdgeqrf.f index 48340165..a4482176 100644 --- a/SRC/pdgeqrf.f +++ b/SRC/pdgeqrf.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEQRF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgerfs.f b/SRC/pdgerfs.f index 557916f1..2d31f634 100644 --- a/SRC/pdgerfs.f +++ b/SRC/pdgerfs.f @@ -2,6 +2,7 @@ SUBROUTINE PDGERFS( TRANS, N, NRHS, A, IA, JA, DESCA, AF, IAF, $ JAF, DESCAF, IPIV, B, IB, JB, DESCB, X, IX, $ JX, DESCX, FERR, BERR, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgerq2.f b/SRC/pdgerq2.f index d3400afd..24be2bf5 100644 --- a/SRC/pdgerq2.f +++ b/SRC/pdgerq2.f @@ -1,5 +1,6 @@ SUBROUTINE PDGERQ2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgerqf.f b/SRC/pdgerqf.f index bc4f3661..9fb3dfce 100644 --- a/SRC/pdgerqf.f +++ b/SRC/pdgerqf.f @@ -1,5 +1,6 @@ SUBROUTINE PDGERQF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgesv.f b/SRC/pdgesv.f index 90441a26..fcbcf2d3 100644 --- a/SRC/pdgesv.f +++ b/SRC/pdgesv.f @@ -1,5 +1,6 @@ SUBROUTINE PDGESV( N, NRHS, A, IA, JA, DESCA, IPIV, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgesvd.f b/SRC/pdgesvd.f index 19ba4e5d..2d1a271f 100644 --- a/SRC/pdgesvd.f +++ b/SRC/pdgesvd.f @@ -1,6 +1,7 @@ SUBROUTINE PDGESVD(JOBU,JOBVT,M,N,A,IA,JA,DESCA,S,U,IU,JU,DESCU, + VT,IVT,JVT,DESCVT,WORK,LWORK,INFO) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Oak Ridge National Laboratory diff --git a/SRC/pdgesvx.f b/SRC/pdgesvx.f index 37b70945..dd265f48 100644 --- a/SRC/pdgesvx.f +++ b/SRC/pdgesvx.f @@ -2,6 +2,7 @@ SUBROUTINE PDGESVX( FACT, TRANS, N, NRHS, A, IA, JA, DESCA, AF, $ IAF, JAF, DESCAF, IPIV, EQUED, R, C, B, IB, $ JB, DESCB, X, IX, JX, DESCX, RCOND, FERR, $ BERR, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgetf2.f b/SRC/pdgetf2.f index 0d110397..de1203c7 100644 --- a/SRC/pdgetf2.f +++ b/SRC/pdgetf2.f @@ -1,4 +1,5 @@ SUBROUTINE PDGETF2( M, N, A, IA, JA, DESCA, IPIV, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgetrf.f b/SRC/pdgetrf.f index 8a990fac..386e4470 100644 --- a/SRC/pdgetrf.f +++ b/SRC/pdgetrf.f @@ -1,4 +1,5 @@ SUBROUTINE PDGETRF( M, N, A, IA, JA, DESCA, IPIV, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgetri.f b/SRC/pdgetri.f index 3ef147f5..e8a7a7ce 100644 --- a/SRC/pdgetri.f +++ b/SRC/pdgetri.f @@ -1,5 +1,6 @@ SUBROUTINE PDGETRI( N, A, IA, JA, DESCA, IPIV, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7.4) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdgetrs.f b/SRC/pdgetrs.f index 15ed7709..011af6ce 100644 --- a/SRC/pdgetrs.f +++ b/SRC/pdgetrs.f @@ -1,5 +1,6 @@ SUBROUTINE PDGETRS( TRANS, N, NRHS, A, IA, JA, DESCA, IPIV, B, $ IB, JB, DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdggqrf.f b/SRC/pdggqrf.f index 2f2487f3..5ed1d26d 100644 --- a/SRC/pdggqrf.f +++ b/SRC/pdggqrf.f @@ -1,5 +1,6 @@ SUBROUTINE PDGGQRF( N, M, P, A, IA, JA, DESCA, TAUA, B, IB, JB, $ DESCB, TAUB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdggrqf.f b/SRC/pdggrqf.f index 78fd5eac..38a47724 100644 --- a/SRC/pdggrqf.f +++ b/SRC/pdggrqf.f @@ -1,5 +1,6 @@ SUBROUTINE PDGGRQF( M, P, N, A, IA, JA, DESCA, TAUA, B, IB, JB, $ DESCB, TAUB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlabad.f b/SRC/pdlabad.f index 4fd00d82..379179d3 100644 --- a/SRC/pdlabad.f +++ b/SRC/pdlabad.f @@ -1,4 +1,5 @@ SUBROUTINE PDLABAD( ICTXT, SMALL, LARGE ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlabrd.f b/SRC/pdlabrd.f index c647f7c4..cbc02e92 100644 --- a/SRC/pdlabrd.f +++ b/SRC/pdlabrd.f @@ -1,5 +1,6 @@ SUBROUTINE PDLABRD( M, N, NB, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ X, IX, JX, DESCX, Y, IY, JY, DESCY, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlacon.f b/SRC/pdlacon.f index 7891c2cb..a4244fae 100644 --- a/SRC/pdlacon.f +++ b/SRC/pdlacon.f @@ -1,5 +1,6 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN, $ EST, KASE ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaconsb.f b/SRC/pdlaconsb.f index 1323a205..ac9e6dd5 100644 --- a/SRC/pdlaconsb.f +++ b/SRC/pdlaconsb.f @@ -1,5 +1,6 @@ SUBROUTINE PDLACONSB( A, DESCA, I, L, M, H44, H33, H43H34, BUF, $ LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlacp2.f b/SRC/pdlacp2.f index dc7b44c9..b8853cfc 100644 --- a/SRC/pdlacp2.f +++ b/SRC/pdlacp2.f @@ -1,5 +1,6 @@ SUBROUTINE PDLACP2( UPLO, M, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdlacpy.f b/SRC/pdlacpy.f index 741847b7..23058a09 100644 --- a/SRC/pdlacpy.f +++ b/SRC/pdlacpy.f @@ -1,5 +1,6 @@ SUBROUTINE PDLACPY( UPLO, M, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaed0.f b/SRC/pdlaed0.f index a6368e1c..d92ce63b 100644 --- a/SRC/pdlaed0.f +++ b/SRC/pdlaed0.f @@ -1,4 +1,5 @@ SUBROUTINE PDLAED0( N, D, E, Q, IQ, JQ, DESCQ, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaed1.f b/SRC/pdlaed1.f index 413d149b..aadab2f6 100644 --- a/SRC/pdlaed1.f +++ b/SRC/pdlaed1.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAED1( N, N1, D, ID, Q, IQ, JQ, DESCQ, RHO, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaed2.f b/SRC/pdlaed2.f index 72d43515..3eec7821 100644 --- a/SRC/pdlaed2.f +++ b/SRC/pdlaed2.f @@ -2,6 +2,7 @@ SUBROUTINE PDLAED2( ICTXT, K, N, N1, NB, D, DROW, DCOL, Q, LDQ, $ RHO, Z, W, DLAMDA, Q2, LDQ2, QBUF, CTOT, PSM, $ NPCOL, INDX, INDXC, INDXP, INDCOL, COLTYP, NN, $ NN1, NN2, IB1, IB2 ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaed3.f b/SRC/pdlaed3.f index 9f1f6305..3a5a82b4 100644 --- a/SRC/pdlaed3.f +++ b/SRC/pdlaed3.f @@ -1,6 +1,7 @@ SUBROUTINE PDLAED3( ICTXT, K, N, NB, D, DROW, DCOL, RHO, DLAMDA, $ W, Z, U, LDU, BUF, INDX, INDCOL, INDROW, $ INDXR, INDXC, CTOT, NPCOL, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaedz.f b/SRC/pdlaedz.f index df903c34..a1218e4a 100644 --- a/SRC/pdlaedz.f +++ b/SRC/pdlaedz.f @@ -1,4 +1,5 @@ SUBROUTINE PDLAEDZ( N, N1, ID, Q, IQ, JQ, LDQ, DESCQ, Z, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaevswp.f b/SRC/pdlaevswp.f index 7e6ed409..d4d188bb 100644 --- a/SRC/pdlaevswp.f +++ b/SRC/pdlaevswp.f @@ -2,6 +2,7 @@ * SUBROUTINE PDLAEVSWP( N, ZIN, LDZI, Z, IZ, JZ, DESCZ, NVS, KEY, $ WORK, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlahqr.f b/SRC/pdlahqr.f index 7d857dd1..6f12f5f9 100644 --- a/SRC/pdlahqr.f +++ b/SRC/pdlahqr.f @@ -1,6 +1,7 @@ SUBROUTINE PDLAHQR( WANTT, WANTZ, N, ILO, IHI, A, DESCA, WR, WI, $ ILOZ, IHIZ, Z, DESCZ, WORK, LWORK, IWORK, $ ILWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdlahrd.f b/SRC/pdlahrd.f index da6f7267..14ea3931 100644 --- a/SRC/pdlahrd.f +++ b/SRC/pdlahrd.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAHRD( N, K, NB, A, IA, JA, DESCA, TAU, T, Y, IY, JY, $ DESCY, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlamch.f b/SRC/pdlamch.f index 9a3ebb6c..1018ad42 100644 --- a/SRC/pdlamch.f +++ b/SRC/pdlamch.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION PDLAMCH( ICTXT, CMACH ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlamr1d.f b/SRC/pdlamr1d.f index 08db3c6f..d321f725 100644 --- a/SRC/pdlamr1d.f +++ b/SRC/pdlamr1d.f @@ -1,4 +1,5 @@ SUBROUTINE PDLAMR1D( N, A, IA, JA, DESCA, B, IB, JB, DESCB ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlanhs.f b/SRC/pdlanhs.f index 2efe6a6f..94dff98c 100644 --- a/SRC/pdlanhs.f +++ b/SRC/pdlanhs.f @@ -1,5 +1,6 @@ DOUBLE PRECISION FUNCTION PDLANHS( NORM, N, A, IA, JA, DESCA, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlapiv.f b/SRC/pdlapiv.f index 50613de0..5f66c5f5 100644 --- a/SRC/pdlapiv.f +++ b/SRC/pdlapiv.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAPIV( DIREC, ROWCOL, PIVROC, M, N, A, IA, JA, $ DESCA, IPIV, IP, JP, DESCIP, IWORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlapv2.f b/SRC/pdlapv2.f index a8e48204..824b0b48 100644 --- a/SRC/pdlapv2.f +++ b/SRC/pdlapv2.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAPV2( DIREC, ROWCOL, M, N, A, IA, JA, DESCA, IPIV, $ IP, JP, DESCIP ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaqge.f b/SRC/pdlaqge.f index 9203c371..b8d044e9 100644 --- a/SRC/pdlaqge.f +++ b/SRC/pdlaqge.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAQGE( M, N, A, IA, JA, DESCA, R, C, ROWCND, COLCND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaqsy.f b/SRC/pdlaqsy.f index c2763ee9..da57ad0c 100644 --- a/SRC/pdlaqsy.f +++ b/SRC/pdlaqsy.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAQSY( UPLO, N, A, IA, JA, DESCA, SR, SC, SCOND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlared1d.f b/SRC/pdlared1d.f index 41a5fa5f..d0e0c9df 100644 --- a/SRC/pdlared1d.f +++ b/SRC/pdlared1d.f @@ -1,4 +1,5 @@ SUBROUTINE PDLARED1D( N, IA, JA, DESC, BYCOL, BYALL, WORK, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlared2d.f b/SRC/pdlared2d.f index 43099014..2e918f50 100644 --- a/SRC/pdlared2d.f +++ b/SRC/pdlared2d.f @@ -1,4 +1,5 @@ SUBROUTINE PDLARED2D( N, IA, JA, DESC, BYROW, BYALL, WORK, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlarf.f b/SRC/pdlarf.f index 41368d6d..d00d2567 100644 --- a/SRC/pdlarf.f +++ b/SRC/pdlarf.f @@ -1,5 +1,6 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU, $ C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlarfb.f b/SRC/pdlarfb.f index 2c3b426f..57e3301f 100644 --- a/SRC/pdlarfb.f +++ b/SRC/pdlarfb.f @@ -1,5 +1,6 @@ SUBROUTINE PDLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, IV, $ JV, DESCV, T, C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdlarfg.f b/SRC/pdlarfg.f index 653dfa5d..563e0e24 100644 --- a/SRC/pdlarfg.f +++ b/SRC/pdlarfg.f @@ -1,5 +1,6 @@ SUBROUTINE PDLARFG( N, ALPHA, IAX, JAX, X, IX, JX, DESCX, INCX, $ TAU ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlarft.f b/SRC/pdlarft.f index 9a3ae474..3ee34b3f 100644 --- a/SRC/pdlarft.f +++ b/SRC/pdlarft.f @@ -1,5 +1,6 @@ SUBROUTINE PDLARFT( DIRECT, STOREV, N, K, V, IV, JV, DESCV, TAU, $ T, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlarz.f b/SRC/pdlarz.f index f45c1372..9dcf6864 100644 --- a/SRC/pdlarz.f +++ b/SRC/pdlarz.f @@ -1,5 +1,6 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C, $ IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlarzb.f b/SRC/pdlarzb.f index 096fba5e..15f877a8 100644 --- a/SRC/pdlarzb.f +++ b/SRC/pdlarzb.f @@ -1,5 +1,6 @@ SUBROUTINE PDLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ IV, JV, DESCV, T, C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdlarzt.f b/SRC/pdlarzt.f index 5baac6cd..90fa5065 100644 --- a/SRC/pdlarzt.f +++ b/SRC/pdlarzt.f @@ -1,5 +1,6 @@ SUBROUTINE PDLARZT( DIRECT, STOREV, N, K, V, IV, JV, DESCV, TAU, $ T, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlascl.f b/SRC/pdlascl.f index 3925ed45..2f997c3e 100644 --- a/SRC/pdlascl.f +++ b/SRC/pdlascl.f @@ -1,5 +1,6 @@ SUBROUTINE PDLASCL( TYPE, CFROM, CTO, M, N, A, IA, JA, DESCA, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlase2.f b/SRC/pdlase2.f index a23e640b..daea582c 100644 --- a/SRC/pdlase2.f +++ b/SRC/pdlase2.f @@ -1,4 +1,5 @@ SUBROUTINE PDLASE2( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaset.f b/SRC/pdlaset.f index f297b82e..d8b86e12 100644 --- a/SRC/pdlaset.f +++ b/SRC/pdlaset.f @@ -1,4 +1,5 @@ SUBROUTINE PDLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlasmsub.f b/SRC/pdlasmsub.f index 1feda040..91c4042c 100644 --- a/SRC/pdlasmsub.f +++ b/SRC/pdlasmsub.f @@ -1,4 +1,5 @@ SUBROUTINE PDLASMSUB( A, DESCA, I, L, K, SMLNUM, BUF, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlasrt.f b/SRC/pdlasrt.f index 79cf342d..a6751944 100644 --- a/SRC/pdlasrt.f +++ b/SRC/pdlasrt.f @@ -1,5 +1,6 @@ SUBROUTINE PDLASRT( ID, N, D, Q, IQ, JQ, DESCQ, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdlassq.f b/SRC/pdlassq.f index a6826a66..7cca37ff 100644 --- a/SRC/pdlassq.f +++ b/SRC/pdlassq.f @@ -1,4 +1,5 @@ SUBROUTINE PDLASSQ( N, X, IX, JX, DESCX, INCX, SCALE, SUMSQ ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlaswp.f b/SRC/pdlaswp.f index 7bb44a2a..d3a61799 100644 --- a/SRC/pdlaswp.f +++ b/SRC/pdlaswp.f @@ -1,5 +1,6 @@ SUBROUTINE PDLASWP( DIREC, ROWCOL, N, A, IA, JA, DESCA, K1, K2, $ IPIV ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlatra.f b/SRC/pdlatra.f index 577eaae2..38ffe72e 100644 --- a/SRC/pdlatra.f +++ b/SRC/pdlatra.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION PDLATRA( N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlatrd.f b/SRC/pdlatrd.f index 5903bc99..a4afc5a9 100644 --- a/SRC/pdlatrd.f +++ b/SRC/pdlatrd.f @@ -1,5 +1,6 @@ SUBROUTINE PDLATRD( UPLO, N, NB, A, IA, JA, DESCA, D, E, TAU, W, $ IW, JW, DESCW, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlatrs.f b/SRC/pdlatrs.f index e1f2755e..9bc33490 100644 --- a/SRC/pdlatrs.f +++ b/SRC/pdlatrs.f @@ -1,6 +1,7 @@ SUBROUTINE PDLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, $ JA, DESCA, X, IX, JX, DESCX, SCALE, CNORM, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlatrz.f b/SRC/pdlatrz.f index e4952f3c..93dced4a 100644 --- a/SRC/pdlatrz.f +++ b/SRC/pdlatrz.f @@ -1,4 +1,5 @@ SUBROUTINE PDLATRZ( M, N, L, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlauu2.f b/SRC/pdlauu2.f index 4eb40902..edac8be6 100644 --- a/SRC/pdlauu2.f +++ b/SRC/pdlauu2.f @@ -1,4 +1,5 @@ SUBROUTINE PDLAUU2( UPLO, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlauum.f b/SRC/pdlauum.f index d0d1db54..82e17e34 100644 --- a/SRC/pdlauum.f +++ b/SRC/pdlauum.f @@ -1,4 +1,5 @@ SUBROUTINE PDLAUUM( UPLO, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdlawil.f b/SRC/pdlawil.f index e8bc3a08..e0f767ac 100644 --- a/SRC/pdlawil.f +++ b/SRC/pdlawil.f @@ -1,4 +1,5 @@ SUBROUTINE PDLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorg2l.f b/SRC/pdorg2l.f index 889ff58a..8456cf63 100644 --- a/SRC/pdorg2l.f +++ b/SRC/pdorg2l.f @@ -1,5 +1,6 @@ SUBROUTINE PDORG2L( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorg2r.f b/SRC/pdorg2r.f index fbcb7b54..a48e1900 100644 --- a/SRC/pdorg2r.f +++ b/SRC/pdorg2r.f @@ -1,5 +1,6 @@ SUBROUTINE PDORG2R( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorgl2.f b/SRC/pdorgl2.f index ec30d99b..227fb332 100644 --- a/SRC/pdorgl2.f +++ b/SRC/pdorgl2.f @@ -1,5 +1,6 @@ SUBROUTINE PDORGL2( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorglq.f b/SRC/pdorglq.f index 8cb7ab73..bdfb3de7 100644 --- a/SRC/pdorglq.f +++ b/SRC/pdorglq.f @@ -1,5 +1,6 @@ SUBROUTINE PDORGLQ( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorgql.f b/SRC/pdorgql.f index 9b478bdf..986e0928 100644 --- a/SRC/pdorgql.f +++ b/SRC/pdorgql.f @@ -1,5 +1,6 @@ SUBROUTINE PDORGQL( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorgqr.f b/SRC/pdorgqr.f index 3b1e5b53..1a1b0d24 100644 --- a/SRC/pdorgqr.f +++ b/SRC/pdorgqr.f @@ -1,5 +1,6 @@ SUBROUTINE PDORGQR( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorgr2.f b/SRC/pdorgr2.f index d8dca581..130e3b76 100644 --- a/SRC/pdorgr2.f +++ b/SRC/pdorgr2.f @@ -1,5 +1,6 @@ SUBROUTINE PDORGR2( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorgrq.f b/SRC/pdorgrq.f index 1e493c54..41458592 100644 --- a/SRC/pdorgrq.f +++ b/SRC/pdorgrq.f @@ -1,5 +1,6 @@ SUBROUTINE PDORGRQ( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorm2l.f b/SRC/pdorm2l.f index ede69c4d..6f470c53 100644 --- a/SRC/pdorm2l.f +++ b/SRC/pdorm2l.f @@ -1,5 +1,6 @@ SUBROUTINE PDORM2L( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorm2r.f b/SRC/pdorm2r.f index 93a92968..632a20c7 100644 --- a/SRC/pdorm2r.f +++ b/SRC/pdorm2r.f @@ -1,5 +1,6 @@ SUBROUTINE PDORM2R( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormbr.f b/SRC/pdormbr.f index e58eb853..1b26ab8e 100644 --- a/SRC/pdormbr.f +++ b/SRC/pdormbr.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMBR( VECT, SIDE, TRANS, M, N, K, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormhr.f b/SRC/pdormhr.f index ca94dc44..1dc4ff3e 100644 --- a/SRC/pdormhr.f +++ b/SRC/pdormhr.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMHR( SIDE, TRANS, M, N, ILO, IHI, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdorml2.f b/SRC/pdorml2.f index aa5a8ee9..ee58b113 100644 --- a/SRC/pdorml2.f +++ b/SRC/pdorml2.f @@ -1,5 +1,6 @@ SUBROUTINE PDORML2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormlq.f b/SRC/pdormlq.f index 69f4fee1..3794eaac 100644 --- a/SRC/pdormlq.f +++ b/SRC/pdormlq.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMLQ( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormql.f b/SRC/pdormql.f index 24030893..b74e749d 100644 --- a/SRC/pdormql.f +++ b/SRC/pdormql.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMQL( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormqr.f b/SRC/pdormqr.f index 65e8cd05..91543c9b 100644 --- a/SRC/pdormqr.f +++ b/SRC/pdormqr.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMQR( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormr2.f b/SRC/pdormr2.f index b7fd1dcf..ec587d3d 100644 --- a/SRC/pdormr2.f +++ b/SRC/pdormr2.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMR2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormr3.f b/SRC/pdormr3.f index ac77077f..4f719065 100644 --- a/SRC/pdormr3.f +++ b/SRC/pdormr3.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMR3( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormrq.f b/SRC/pdormrq.f index 1ea36953..2d34b772 100644 --- a/SRC/pdormrq.f +++ b/SRC/pdormrq.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMRQ( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormrz.f b/SRC/pdormrz.f index 7bde2ab3..f2d48dc2 100644 --- a/SRC/pdormrz.f +++ b/SRC/pdormrz.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMRZ( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdormtr.f b/SRC/pdormtr.f index 6898b6c7..60f7bcb5 100644 --- a/SRC/pdormtr.f +++ b/SRC/pdormtr.f @@ -1,5 +1,6 @@ SUBROUTINE PDORMTR( SIDE, UPLO, TRANS, M, N, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpbsv.f b/SRC/pdpbsv.f index 68eacc84..3234d613 100644 --- a/SRC/pdpbsv.f +++ b/SRC/pdpbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDPBSV( UPLO, N, BW, NRHS, A, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pdpbtrf.f b/SRC/pdpbtrf.f index 6367cac6..8aab7dfb 100644 --- a/SRC/pdpbtrf.f +++ b/SRC/pdpbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PDPBTRF( UPLO, N, BW, A, JA, DESCA, AF, LAF, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdpbtrs.f b/SRC/pdpbtrs.f index a09a0b93..0d118baa 100644 --- a/SRC/pdpbtrs.f +++ b/SRC/pdpbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PDPBTRS( UPLO, N, BW, NRHS, A, JA, DESCA, B, IB, DESCB, $ AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpbtrsv.f b/SRC/pdpbtrsv.f index a4cdffc4..d6820fc7 100644 --- a/SRC/pdpbtrsv.f +++ b/SRC/pdpbtrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDPBTRSV( UPLO, TRANS, N, BW, NRHS, A, JA, DESCA, B, $ IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdpocon.f b/SRC/pdpocon.f index 9930469d..8b737aa5 100644 --- a/SRC/pdpocon.f +++ b/SRC/pdpocon.f @@ -1,5 +1,6 @@ SUBROUTINE PDPOCON( UPLO, N, A, IA, JA, DESCA, ANORM, RCOND, WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpoequ.f b/SRC/pdpoequ.f index 6254daea..4f836a6f 100644 --- a/SRC/pdpoequ.f +++ b/SRC/pdpoequ.f @@ -1,5 +1,6 @@ SUBROUTINE PDPOEQU( N, A, IA, JA, DESCA, SR, SC, SCOND, AMAX, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdporfs.f b/SRC/pdporfs.f index f827625d..ba48ad25 100644 --- a/SRC/pdporfs.f +++ b/SRC/pdporfs.f @@ -1,6 +1,7 @@ SUBROUTINE PDPORFS( UPLO, N, NRHS, A, IA, JA, DESCA, AF, IAF, JAF, $ DESCAF, B, IB, JB, DESCB, X, IX, JX, DESCX, $ FERR, BERR, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdposv.f b/SRC/pdposv.f index 304e0617..5f6440f9 100644 --- a/SRC/pdposv.f +++ b/SRC/pdposv.f @@ -1,5 +1,6 @@ SUBROUTINE PDPOSV( UPLO, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdposvx.f b/SRC/pdposvx.f index 0e75f09a..a81c1630 100644 --- a/SRC/pdposvx.f +++ b/SRC/pdposvx.f @@ -2,6 +2,7 @@ SUBROUTINE PDPOSVX( FACT, UPLO, N, NRHS, A, IA, JA, DESCA, AF, $ IAF, JAF, DESCAF, EQUED, SR, SC, B, IB, JB, $ DESCB, X, IX, JX, DESCX, RCOND, FERR, BERR, $ WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpotf2.f b/SRC/pdpotf2.f index fbd98551..f80c4e92 100644 --- a/SRC/pdpotf2.f +++ b/SRC/pdpotf2.f @@ -1,4 +1,5 @@ SUBROUTINE PDPOTF2( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpotrf.f b/SRC/pdpotrf.f index c76c9d7e..5b114423 100644 --- a/SRC/pdpotrf.f +++ b/SRC/pdpotrf.f @@ -1,4 +1,5 @@ SUBROUTINE PDPOTRF( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpotri.f b/SRC/pdpotri.f index e7e795fd..50b90608 100644 --- a/SRC/pdpotri.f +++ b/SRC/pdpotri.f @@ -1,4 +1,5 @@ SUBROUTINE PDPOTRI( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpotrs.f b/SRC/pdpotrs.f index 36c82e76..407d2182 100644 --- a/SRC/pdpotrs.f +++ b/SRC/pdpotrs.f @@ -1,5 +1,6 @@ SUBROUTINE PDPOTRS( UPLO, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdptsv.f b/SRC/pdptsv.f index 25682bdd..1e0397a1 100644 --- a/SRC/pdptsv.f +++ b/SRC/pdptsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDPTSV( N, NRHS, D, E, JA, DESCA, B, IB, DESCB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pdpttrf.f b/SRC/pdpttrf.f index 3266faeb..849197a5 100644 --- a/SRC/pdpttrf.f +++ b/SRC/pdpttrf.f @@ -1,5 +1,6 @@ SUBROUTINE PDPTTRF( N, D, E, JA, DESCA, AF, LAF, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpttrs.f b/SRC/pdpttrs.f index 2e542331..cd2062f8 100644 --- a/SRC/pdpttrs.f +++ b/SRC/pdpttrs.f @@ -1,5 +1,6 @@ SUBROUTINE PDPTTRS( N, NRHS, D, E, JA, DESCA, B, IB, DESCB, AF, $ LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdpttrsv.f b/SRC/pdpttrsv.f index 876e667c..87997916 100644 --- a/SRC/pdpttrsv.f +++ b/SRC/pdpttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PDPTTRSV( UPLO, N, NRHS, D, E, JA, DESCA, B, IB, DESCB, $ AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdrscl.f b/SRC/pdrscl.f index 4096d1e8..6bc7c1e3 100644 --- a/SRC/pdrscl.f +++ b/SRC/pdrscl.f @@ -1,4 +1,5 @@ SUBROUTINE PDRSCL( N, SA, SX, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdstebz.f b/SRC/pdstebz.f index bf4dacc5..b4dd2b0a 100644 --- a/SRC/pdstebz.f +++ b/SRC/pdstebz.f @@ -1,6 +1,7 @@ SUBROUTINE PDSTEBZ( ICTXT, RANGE, ORDER, N, VL, VU, IL, IU, $ ABSTOL, D, E, M, NSPLIT, W, IBLOCK, ISPLIT, $ WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -883,6 +884,7 @@ SUBROUTINE PDSTEBZ( ICTXT, RANGE, ORDER, N, VL, VU, IL, IU, SUBROUTINE PDLAEBZ( IJOB, N, MMAX, MINP, ABSTOL, RELTOL, PIVMIN, $ D, NVAL, INTVL, INTVLCT, MOUT, LSAVE, IEFLAG, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1214,6 +1216,7 @@ SUBROUTINE PDLAEBZ( IJOB, N, MMAX, MINP, ABSTOL, RELTOL, PIVMIN, * SUBROUTINE PDLAECV( IJOB, KF, KL, INTVL, INTVLCT, NVAL, ABSTOL, $ RELTOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1362,6 +1365,7 @@ SUBROUTINE PDLAECV( IJOB, KF, KL, INTVL, INTVLCT, NVAL, ABSTOL, END * SUBROUTINE PDLAPDCT( SIGMA, N, D, PIVMIN, COUNT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdstedc.f b/SRC/pdstedc.f index 1d0f49ec..c65da480 100644 --- a/SRC/pdstedc.f +++ b/SRC/pdstedc.f @@ -1,5 +1,6 @@ SUBROUTINE PDSTEDC( COMPZ, N, D, E, Q, IQ, JQ, DESCQ, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdstein.f b/SRC/pdstein.f index 91d6e743..63ac18a8 100644 --- a/SRC/pdstein.f +++ b/SRC/pdstein.f @@ -1,6 +1,7 @@ SUBROUTINE PDSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, ORFAC, Z, IZ, $ JZ, DESCZ, WORK, LWORK, IWORK, LIWORK, IFAIL, $ ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsyev.f b/SRC/pdsyev.f index 8ccf3ac0..867c546a 100644 --- a/SRC/pdsyev.f +++ b/SRC/pdsyev.f @@ -1,5 +1,6 @@ SUBROUTINE PDSYEV( JOBZ, UPLO, N, A, IA, JA, DESCA, W, $ Z, IZ, JZ, DESCZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsyevd.f b/SRC/pdsyevd.f index 5d4463eb..f0857172 100644 --- a/SRC/pdsyevd.f +++ b/SRC/pdsyevd.f @@ -1,5 +1,6 @@ SUBROUTINE PDSYEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, $ DESCZ, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsyevx.f b/SRC/pdsyevx.f index 708fa07c..3647b87f 100644 --- a/SRC/pdsyevx.f +++ b/SRC/pdsyevx.f @@ -2,6 +2,7 @@ SUBROUTINE PDSYEVX( JOBZ, RANGE, UPLO, N, A, IA, JA, DESCA, VL, $ VU, IL, IU, ABSTOL, M, NZ, W, ORFAC, Z, IZ, $ JZ, DESCZ, WORK, LWORK, IWORK, LIWORK, IFAIL, $ ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -351,7 +352,7 @@ SUBROUTINE PDSYEVX( JOBZ, RANGE, UPLO, N, A, IA, JA, DESCA, VL, * required for optimal performance for all work arrays. Each of * these values is returned in the first entry of the * corresponding work arrays, and no error message is issued by -* PXERBLA. +* PXERBLA. * * IWORK (local workspace) INTEGER array * On return, IWORK(1) contains the amount of integer workspace diff --git a/SRC/pdsygs2.f b/SRC/pdsygs2.f index 31cef2ec..65fd02a3 100644 --- a/SRC/pdsygs2.f +++ b/SRC/pdsygs2.f @@ -2,6 +2,7 @@ * SUBROUTINE PDSYGS2( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsygst.f b/SRC/pdsygst.f index 85bb5cc4..0d3314b7 100644 --- a/SRC/pdsygst.f +++ b/SRC/pdsygst.f @@ -2,6 +2,7 @@ * SUBROUTINE PDSYGST( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, SCALE, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsygvx.f b/SRC/pdsygvx.f index 5e898bb3..c0165c33 100644 --- a/SRC/pdsygvx.f +++ b/SRC/pdsygvx.f @@ -3,6 +3,7 @@ SUBROUTINE PDSYGVX( IBTYPE, JOBZ, RANGE, UPLO, N, A, IA, JA, $ ABSTOL, M, NZ, W, ORFAC, Z, IZ, JZ, DESCZ, $ WORK, LWORK, IWORK, LIWORK, IFAIL, ICLUSTR, $ GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsyngst.f b/SRC/pdsyngst.f index 65512785..8f7a83bd 100644 --- a/SRC/pdsyngst.f +++ b/SRC/pdsyngst.f @@ -1,5 +1,6 @@ SUBROUTINE PDSYNGST( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, SCALE, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsyntrd.f b/SRC/pdsyntrd.f index 3ba66029..82dc5106 100644 --- a/SRC/pdsyntrd.f +++ b/SRC/pdsyntrd.f @@ -1,5 +1,6 @@ SUBROUTINE PDSYNTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsytd2.f b/SRC/pdsytd2.f index b316c7fe..6ece6f7a 100644 --- a/SRC/pdsytd2.f +++ b/SRC/pdsytd2.f @@ -1,5 +1,6 @@ SUBROUTINE PDSYTD2( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsytrd.f b/SRC/pdsytrd.f index f1597cd3..39a742c3 100644 --- a/SRC/pdsytrd.f +++ b/SRC/pdsytrd.f @@ -1,5 +1,6 @@ SUBROUTINE PDSYTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdsyttrd.f b/SRC/pdsyttrd.f index ac98ed6e..9aa95005 100644 --- a/SRC/pdsyttrd.f +++ b/SRC/pdsyttrd.f @@ -1,5 +1,6 @@ SUBROUTINE PDSYTTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pdtrcon.f b/SRC/pdtrcon.f index 28f253c3..f1763dc5 100644 --- a/SRC/pdtrcon.f +++ b/SRC/pdtrcon.f @@ -1,5 +1,6 @@ SUBROUTINE PDTRCON( NORM, UPLO, DIAG, N, A, IA, JA, DESCA, RCOND, $ WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdtrrfs.f b/SRC/pdtrrfs.f index 98c13e7b..8ed56b13 100644 --- a/SRC/pdtrrfs.f +++ b/SRC/pdtrrfs.f @@ -1,6 +1,7 @@ SUBROUTINE PDTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, IA, JA, DESCA, $ B, IB, JB, DESCB, X, IX, JX, DESCX, FERR, $ BERR, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdtrti2.f b/SRC/pdtrti2.f index 6d8ba7e5..b997d94d 100644 --- a/SRC/pdtrti2.f +++ b/SRC/pdtrti2.f @@ -1,4 +1,5 @@ SUBROUTINE PDTRTI2( UPLO, DIAG, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdtrtri.f b/SRC/pdtrtri.f index 719a0ab0..dff5f284 100644 --- a/SRC/pdtrtri.f +++ b/SRC/pdtrtri.f @@ -1,4 +1,5 @@ SUBROUTINE PDTRTRI( UPLO, DIAG, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdtrtrs.f b/SRC/pdtrtrs.f index 132640af..251aa0ea 100644 --- a/SRC/pdtrtrs.f +++ b/SRC/pdtrtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PDTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, IA, JA, DESCA, $ B, IB, JB, DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdtzrzf.f b/SRC/pdtzrzf.f index f72342fb..789c638c 100644 --- a/SRC/pdtzrzf.f +++ b/SRC/pdtzrzf.f @@ -1,5 +1,6 @@ SUBROUTINE PDTZRZF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pdzsum1.f b/SRC/pdzsum1.f index 09e5f6f3..561bdb23 100644 --- a/SRC/pdzsum1.f +++ b/SRC/pdzsum1.f @@ -1,4 +1,5 @@ SUBROUTINE PDZSUM1( N, ASUM, X, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pilaver.f b/SRC/pilaver.f index c0c15f85..36f69f4e 100644 --- a/SRC/pilaver.f +++ b/SRC/pilaver.f @@ -1,4 +1,5 @@ SUBROUTINE PILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) + IMPLICIT NONE C C -- ScaLAPACK computational routine (version 2.0.1 ) -- C -- ScaLAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/pjlaenv.f b/SRC/pjlaenv.f index 0efc82b6..ff7df23d 100644 --- a/SRC/pjlaenv.f +++ b/SRC/pjlaenv.f @@ -1,5 +1,6 @@ INTEGER FUNCTION PJLAENV( ICTXT, ISPEC, NAME, OPTS, N1, $ N2, N3, N4 ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pscsum1.f b/SRC/pscsum1.f index 2b2e016f..e0a6d452 100644 --- a/SRC/pscsum1.f +++ b/SRC/pscsum1.f @@ -1,4 +1,5 @@ SUBROUTINE PSCSUM1( N, ASUM, X, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psdbsv.f b/SRC/psdbsv.f index 9dd591ee..af4f1b77 100644 --- a/SRC/psdbsv.f +++ b/SRC/psdbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSDBSV( N, BWL, BWU, NRHS, A, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/psdbtrf.f b/SRC/psdbtrf.f index be99d856..0241577c 100644 --- a/SRC/psdbtrf.f +++ b/SRC/psdbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PSDBTRF( N, BWL, BWU, A, JA, DESCA, AF, LAF, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/psdbtrs.f b/SRC/psdbtrs.f index f2c3fe14..b5e547db 100644 --- a/SRC/psdbtrs.f +++ b/SRC/psdbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PSDBTRS( TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psdbtrsv.f b/SRC/psdbtrsv.f index 370fda3c..ba9871d7 100644 --- a/SRC/psdbtrsv.f +++ b/SRC/psdbtrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSDBTRSV( UPLO, TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/psdtsv.f b/SRC/psdtsv.f index 44b1b115..19a58a73 100644 --- a/SRC/psdtsv.f +++ b/SRC/psdtsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSDTSV( N, NRHS, DL, D, DU, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/psdttrf.f b/SRC/psdttrf.f index 67f58079..56d3129c 100644 --- a/SRC/psdttrf.f +++ b/SRC/psdttrf.f @@ -1,5 +1,6 @@ SUBROUTINE PSDTTRF( N, DL, D, DU, JA, DESCA, AF, LAF, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psdttrs.f b/SRC/psdttrs.f index a8b21f24..1f17723e 100644 --- a/SRC/psdttrs.f +++ b/SRC/psdttrs.f @@ -1,5 +1,6 @@ SUBROUTINE PSDTTRS( TRANS, N, NRHS, DL, D, DU, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psdttrsv.f b/SRC/psdttrsv.f index ee7a46e9..87c45d58 100644 --- a/SRC/psdttrsv.f +++ b/SRC/psdttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSDTTRSV( UPLO, TRANS, N, NRHS, DL, D, DU, JA, DESCA, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgbsv.f b/SRC/psgbsv.f index febb6ba6..508c6aae 100644 --- a/SRC/psgbsv.f +++ b/SRC/psgbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSGBSV( N, BWL, BWU, NRHS, A, JA, DESCA, IPIV, B, IB, $ DESCB, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/psgbtrf.f b/SRC/psgbtrf.f index 338d79bc..3e7612e4 100644 --- a/SRC/psgbtrf.f +++ b/SRC/psgbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PSGBTRF( N, BWL, BWU, A, JA, DESCA, IPIV, AF, LAF, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/psgbtrs.f b/SRC/psgbtrs.f index e0edcf56..14ad94a8 100644 --- a/SRC/psgbtrs.f +++ b/SRC/psgbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PSGBTRS( TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, IPIV, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/psgebd2.f b/SRC/psgebd2.f index 89222ab6..c2e8b752 100644 --- a/SRC/psgebd2.f +++ b/SRC/psgebd2.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEBD2( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgebrd.f b/SRC/psgebrd.f index 2c6d9e05..9e025e80 100644 --- a/SRC/psgebrd.f +++ b/SRC/psgebrd.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEBRD( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgecon.f b/SRC/psgecon.f index 5a0ff152..28976596 100644 --- a/SRC/psgecon.f +++ b/SRC/psgecon.f @@ -1,5 +1,6 @@ SUBROUTINE PSGECON( NORM, N, A, IA, JA, DESCA, ANORM, RCOND, WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgeequ.f b/SRC/psgeequ.f index af6e4b5f..e56c4898 100644 --- a/SRC/psgeequ.f +++ b/SRC/psgeequ.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEEQU( M, N, A, IA, JA, DESCA, R, C, ROWCND, COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgehd2.f b/SRC/psgehd2.f index a6c95a1e..7c281293 100644 --- a/SRC/psgehd2.f +++ b/SRC/psgehd2.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEHD2( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgehrd.f b/SRC/psgehrd.f index 47ad2960..53f662bf 100644 --- a/SRC/psgehrd.f +++ b/SRC/psgehrd.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEHRD( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgelq2.f b/SRC/psgelq2.f index 156fee6c..a0499bf1 100644 --- a/SRC/psgelq2.f +++ b/SRC/psgelq2.f @@ -1,5 +1,6 @@ SUBROUTINE PSGELQ2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgelqf.f b/SRC/psgelqf.f index 645e2d26..d4f94e3b 100644 --- a/SRC/psgelqf.f +++ b/SRC/psgelqf.f @@ -1,5 +1,6 @@ SUBROUTINE PSGELQF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgels.f b/SRC/psgels.f index 75c7490b..84f32c0c 100644 --- a/SRC/psgels.f +++ b/SRC/psgels.f @@ -1,5 +1,6 @@ SUBROUTINE PSGELS( TRANS, M, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgeql2.f b/SRC/psgeql2.f index 91d50351..1f21c246 100644 --- a/SRC/psgeql2.f +++ b/SRC/psgeql2.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEQL2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgeqlf.f b/SRC/psgeqlf.f index ebc54b78..64896e6f 100644 --- a/SRC/psgeqlf.f +++ b/SRC/psgeqlf.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEQLF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgeqpf.f b/SRC/psgeqpf.f index dc9d2791..343c6c4f 100644 --- a/SRC/psgeqpf.f +++ b/SRC/psgeqpf.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEQPF( M, N, A, IA, JA, DESCA, IPIV, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.1) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgeqr2.f b/SRC/psgeqr2.f index 47594ba0..ddd94189 100644 --- a/SRC/psgeqr2.f +++ b/SRC/psgeqr2.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEQR2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgeqrf.f b/SRC/psgeqrf.f index 694909a6..5f6c6c3b 100644 --- a/SRC/psgeqrf.f +++ b/SRC/psgeqrf.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEQRF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgerfs.f b/SRC/psgerfs.f index 792d0782..9b66bcdb 100644 --- a/SRC/psgerfs.f +++ b/SRC/psgerfs.f @@ -2,6 +2,7 @@ SUBROUTINE PSGERFS( TRANS, N, NRHS, A, IA, JA, DESCA, AF, IAF, $ JAF, DESCAF, IPIV, B, IB, JB, DESCB, X, IX, $ JX, DESCX, FERR, BERR, WORK, LWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgerq2.f b/SRC/psgerq2.f index 0a52d545..d8b73e14 100644 --- a/SRC/psgerq2.f +++ b/SRC/psgerq2.f @@ -1,5 +1,6 @@ SUBROUTINE PSGERQ2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgerqf.f b/SRC/psgerqf.f index b1a6ffbf..74cfd9e4 100644 --- a/SRC/psgerqf.f +++ b/SRC/psgerqf.f @@ -1,5 +1,6 @@ SUBROUTINE PSGERQF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgesv.f b/SRC/psgesv.f index 14664451..d598ffa8 100644 --- a/SRC/psgesv.f +++ b/SRC/psgesv.f @@ -1,5 +1,6 @@ SUBROUTINE PSGESV( N, NRHS, A, IA, JA, DESCA, IPIV, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgesvd.f b/SRC/psgesvd.f index 43179fdf..4060caa4 100644 --- a/SRC/psgesvd.f +++ b/SRC/psgesvd.f @@ -1,6 +1,7 @@ SUBROUTINE PSGESVD(JOBU,JOBVT,M,N,A,IA,JA,DESCA,S,U,IU,JU,DESCU, + VT,IVT,JVT,DESCVT,WORK,LWORK,INFO) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Oak Ridge National Laboratory diff --git a/SRC/psgesvx.f b/SRC/psgesvx.f index a38d5ad8..6b4df32e 100644 --- a/SRC/psgesvx.f +++ b/SRC/psgesvx.f @@ -2,6 +2,7 @@ SUBROUTINE PSGESVX( FACT, TRANS, N, NRHS, A, IA, JA, DESCA, AF, $ IAF, JAF, DESCAF, IPIV, EQUED, R, C, B, IB, $ JB, DESCB, X, IX, JX, DESCX, RCOND, FERR, $ BERR, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgetf2.f b/SRC/psgetf2.f index 4b1847a0..350d151c 100644 --- a/SRC/psgetf2.f +++ b/SRC/psgetf2.f @@ -1,4 +1,5 @@ SUBROUTINE PSGETF2( M, N, A, IA, JA, DESCA, IPIV, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgetrf.f b/SRC/psgetrf.f index fd8c4677..f953d210 100644 --- a/SRC/psgetrf.f +++ b/SRC/psgetrf.f @@ -1,4 +1,5 @@ SUBROUTINE PSGETRF( M, N, A, IA, JA, DESCA, IPIV, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgetri.f b/SRC/psgetri.f index f42b0057..5b6a0b5e 100644 --- a/SRC/psgetri.f +++ b/SRC/psgetri.f @@ -1,5 +1,6 @@ SUBROUTINE PSGETRI( N, A, IA, JA, DESCA, IPIV, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7.4) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psgetrs.f b/SRC/psgetrs.f index 2b0cc68d..91e1953f 100644 --- a/SRC/psgetrs.f +++ b/SRC/psgetrs.f @@ -1,5 +1,6 @@ SUBROUTINE PSGETRS( TRANS, N, NRHS, A, IA, JA, DESCA, IPIV, B, $ IB, JB, DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psggqrf.f b/SRC/psggqrf.f index a7770a56..d9220c33 100644 --- a/SRC/psggqrf.f +++ b/SRC/psggqrf.f @@ -1,5 +1,6 @@ SUBROUTINE PSGGQRF( N, M, P, A, IA, JA, DESCA, TAUA, B, IB, JB, $ DESCB, TAUB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psggrqf.f b/SRC/psggrqf.f index 5728a2f0..f08076f6 100644 --- a/SRC/psggrqf.f +++ b/SRC/psggrqf.f @@ -1,5 +1,6 @@ SUBROUTINE PSGGRQF( M, P, N, A, IA, JA, DESCA, TAUA, B, IB, JB, $ DESCB, TAUB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslabad.f b/SRC/pslabad.f index 31e6d011..99670581 100644 --- a/SRC/pslabad.f +++ b/SRC/pslabad.f @@ -1,4 +1,5 @@ SUBROUTINE PSLABAD( ICTXT, SMALL, LARGE ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslabrd.f b/SRC/pslabrd.f index 7f01eac5..c7dc27f4 100644 --- a/SRC/pslabrd.f +++ b/SRC/pslabrd.f @@ -1,5 +1,6 @@ SUBROUTINE PSLABRD( M, N, NB, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ X, IX, JX, DESCX, Y, IY, JY, DESCY, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslacon.f b/SRC/pslacon.f index c40d030d..2f4ea200 100644 --- a/SRC/pslacon.f +++ b/SRC/pslacon.f @@ -1,5 +1,6 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN, $ EST, KASE ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaconsb.f b/SRC/pslaconsb.f index 9aa7fd24..32f5fdfd 100644 --- a/SRC/pslaconsb.f +++ b/SRC/pslaconsb.f @@ -1,5 +1,6 @@ SUBROUTINE PSLACONSB( A, DESCA, I, L, M, H44, H33, H43H34, BUF, $ LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslacp2.f b/SRC/pslacp2.f index f30317ae..78bd00be 100644 --- a/SRC/pslacp2.f +++ b/SRC/pslacp2.f @@ -1,5 +1,6 @@ SUBROUTINE PSLACP2( UPLO, M, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pslacpy.f b/SRC/pslacpy.f index 4c68c7e9..8891b81f 100644 --- a/SRC/pslacpy.f +++ b/SRC/pslacpy.f @@ -1,5 +1,6 @@ SUBROUTINE PSLACPY( UPLO, M, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaed0.f b/SRC/pslaed0.f index 534dc803..680941c5 100644 --- a/SRC/pslaed0.f +++ b/SRC/pslaed0.f @@ -1,4 +1,5 @@ SUBROUTINE PSLAED0( N, D, E, Q, IQ, JQ, DESCQ, WORK, IWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaed1.f b/SRC/pslaed1.f index 6b78603b..3ad50b13 100644 --- a/SRC/pslaed1.f +++ b/SRC/pslaed1.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAED1( N, N1, D, ID, Q, IQ, JQ, DESCQ, RHO, WORK, $ IWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaed2.f b/SRC/pslaed2.f index b764b9d0..c525e0a7 100644 --- a/SRC/pslaed2.f +++ b/SRC/pslaed2.f @@ -2,6 +2,7 @@ SUBROUTINE PSLAED2( ICTXT, K, N, N1, NB, D, DROW, DCOL, Q, LDQ, $ RHO, Z, W, DLAMDA, Q2, LDQ2, QBUF, CTOT, PSM, $ NPCOL, INDX, INDXC, INDXP, INDCOL, COLTYP, NN, $ NN1, NN2, IB1, IB2 ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaed3.f b/SRC/pslaed3.f index a4854760..48a1801c 100644 --- a/SRC/pslaed3.f +++ b/SRC/pslaed3.f @@ -1,6 +1,7 @@ SUBROUTINE PSLAED3( ICTXT, K, N, NB, D, DROW, DCOL, RHO, DLAMDA, $ W, Z, U, LDU, BUF, INDX, INDCOL, INDROW, $ INDXR, INDXC, CTOT, NPCOL, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaedz.f b/SRC/pslaedz.f index 68357d62..23293e2c 100644 --- a/SRC/pslaedz.f +++ b/SRC/pslaedz.f @@ -1,4 +1,5 @@ SUBROUTINE PSLAEDZ( N, N1, ID, Q, IQ, JQ, LDQ, DESCQ, Z, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaevswp.f b/SRC/pslaevswp.f index eacc83b8..fde24094 100644 --- a/SRC/pslaevswp.f +++ b/SRC/pslaevswp.f @@ -2,6 +2,7 @@ * SUBROUTINE PSLAEVSWP( N, ZIN, LDZI, Z, IZ, JZ, DESCZ, NVS, KEY, $ WORK, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslahqr.f b/SRC/pslahqr.f index 0753f513..22a40e62 100644 --- a/SRC/pslahqr.f +++ b/SRC/pslahqr.f @@ -1,6 +1,7 @@ SUBROUTINE PSLAHQR( WANTT, WANTZ, N, ILO, IHI, A, DESCA, WR, WI, $ ILOZ, IHIZ, Z, DESCZ, WORK, LWORK, IWORK, $ ILWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pslahrd.f b/SRC/pslahrd.f index e54237d1..5ea43156 100644 --- a/SRC/pslahrd.f +++ b/SRC/pslahrd.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAHRD( N, K, NB, A, IA, JA, DESCA, TAU, T, Y, IY, JY, $ DESCY, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslamch.f b/SRC/pslamch.f index cddd7654..a92f491a 100644 --- a/SRC/pslamch.f +++ b/SRC/pslamch.f @@ -1,4 +1,5 @@ REAL FUNCTION PSLAMCH( ICTXT, CMACH ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslamr1d.f b/SRC/pslamr1d.f index a1f5dddc..20faef17 100644 --- a/SRC/pslamr1d.f +++ b/SRC/pslamr1d.f @@ -1,4 +1,5 @@ SUBROUTINE PSLAMR1D( N, A, IA, JA, DESCA, B, IB, JB, DESCB ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslanhs.f b/SRC/pslanhs.f index 715dedaa..bb9869a0 100644 --- a/SRC/pslanhs.f +++ b/SRC/pslanhs.f @@ -1,5 +1,6 @@ REAL FUNCTION PSLANHS( NORM, N, A, IA, JA, DESCA, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslapiv.f b/SRC/pslapiv.f index df6f2abc..d1c63864 100644 --- a/SRC/pslapiv.f +++ b/SRC/pslapiv.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAPIV( DIREC, ROWCOL, PIVROC, M, N, A, IA, JA, $ DESCA, IPIV, IP, JP, DESCIP, IWORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslapv2.f b/SRC/pslapv2.f index a2ef95db..12688c84 100644 --- a/SRC/pslapv2.f +++ b/SRC/pslapv2.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAPV2( DIREC, ROWCOL, M, N, A, IA, JA, DESCA, IPIV, $ IP, JP, DESCIP ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaqge.f b/SRC/pslaqge.f index 2b74aba1..f6eba713 100644 --- a/SRC/pslaqge.f +++ b/SRC/pslaqge.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAQGE( M, N, A, IA, JA, DESCA, R, C, ROWCND, COLCND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaqsy.f b/SRC/pslaqsy.f index 1cd5c041..03e60071 100644 --- a/SRC/pslaqsy.f +++ b/SRC/pslaqsy.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAQSY( UPLO, N, A, IA, JA, DESCA, SR, SC, SCOND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslared1d.f b/SRC/pslared1d.f index 40ba037b..62470b4e 100644 --- a/SRC/pslared1d.f +++ b/SRC/pslared1d.f @@ -1,4 +1,5 @@ SUBROUTINE PSLARED1D( N, IA, JA, DESC, BYCOL, BYALL, WORK, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslared2d.f b/SRC/pslared2d.f index c1cc2457..59453f81 100644 --- a/SRC/pslared2d.f +++ b/SRC/pslared2d.f @@ -1,4 +1,5 @@ SUBROUTINE PSLARED2D( N, IA, JA, DESC, BYROW, BYALL, WORK, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslarf.f b/SRC/pslarf.f index 39de0ed5..33d6be85 100644 --- a/SRC/pslarf.f +++ b/SRC/pslarf.f @@ -1,5 +1,6 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU, $ C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslarfb.f b/SRC/pslarfb.f index 2bf4e08f..7c13f3d3 100644 --- a/SRC/pslarfb.f +++ b/SRC/pslarfb.f @@ -1,5 +1,6 @@ SUBROUTINE PSLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, IV, $ JV, DESCV, T, C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pslarfg.f b/SRC/pslarfg.f index 0ca8a72b..d2005ebc 100644 --- a/SRC/pslarfg.f +++ b/SRC/pslarfg.f @@ -1,5 +1,6 @@ SUBROUTINE PSLARFG( N, ALPHA, IAX, JAX, X, IX, JX, DESCX, INCX, $ TAU ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslarft.f b/SRC/pslarft.f index 238677ca..ceeef64d 100644 --- a/SRC/pslarft.f +++ b/SRC/pslarft.f @@ -1,5 +1,6 @@ SUBROUTINE PSLARFT( DIRECT, STOREV, N, K, V, IV, JV, DESCV, TAU, $ T, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslarz.f b/SRC/pslarz.f index 89015306..5617c803 100644 --- a/SRC/pslarz.f +++ b/SRC/pslarz.f @@ -1,5 +1,6 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C, $ IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslarzb.f b/SRC/pslarzb.f index 3a4544ae..477e9280 100644 --- a/SRC/pslarzb.f +++ b/SRC/pslarzb.f @@ -1,5 +1,6 @@ SUBROUTINE PSLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ IV, JV, DESCV, T, C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslarzt.f b/SRC/pslarzt.f index a6a368f6..6e146024 100644 --- a/SRC/pslarzt.f +++ b/SRC/pslarzt.f @@ -1,5 +1,6 @@ SUBROUTINE PSLARZT( DIRECT, STOREV, N, K, V, IV, JV, DESCV, TAU, $ T, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslascl.f b/SRC/pslascl.f index 08116663..d7601bb4 100644 --- a/SRC/pslascl.f +++ b/SRC/pslascl.f @@ -1,5 +1,6 @@ SUBROUTINE PSLASCL( TYPE, CFROM, CTO, M, N, A, IA, JA, DESCA, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslase2.f b/SRC/pslase2.f index d62dbb59..f6b53ea5 100644 --- a/SRC/pslase2.f +++ b/SRC/pslase2.f @@ -1,4 +1,5 @@ SUBROUTINE PSLASE2( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaset.f b/SRC/pslaset.f index b62cd6a4..ed2131b0 100644 --- a/SRC/pslaset.f +++ b/SRC/pslaset.f @@ -1,4 +1,5 @@ SUBROUTINE PSLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslasmsub.f b/SRC/pslasmsub.f index 9872651c..c5d96cd2 100644 --- a/SRC/pslasmsub.f +++ b/SRC/pslasmsub.f @@ -1,4 +1,5 @@ SUBROUTINE PSLASMSUB( A, DESCA, I, L, K, SMLNUM, BUF, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslasrt.f b/SRC/pslasrt.f index 7648f679..6f2778be 100644 --- a/SRC/pslasrt.f +++ b/SRC/pslasrt.f @@ -1,5 +1,6 @@ SUBROUTINE PSLASRT( ID, N, D, Q, IQ, JQ, DESCQ, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pslassq.f b/SRC/pslassq.f index 46fb1012..2af55903 100644 --- a/SRC/pslassq.f +++ b/SRC/pslassq.f @@ -1,4 +1,5 @@ SUBROUTINE PSLASSQ( N, X, IX, JX, DESCX, INCX, SCALE, SUMSQ ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslaswp.f b/SRC/pslaswp.f index 1b3a3f3c..174b3eec 100644 --- a/SRC/pslaswp.f +++ b/SRC/pslaswp.f @@ -1,5 +1,6 @@ SUBROUTINE PSLASWP( DIREC, ROWCOL, N, A, IA, JA, DESCA, K1, K2, $ IPIV ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslatra.f b/SRC/pslatra.f index 7237b26c..0a036573 100644 --- a/SRC/pslatra.f +++ b/SRC/pslatra.f @@ -1,4 +1,5 @@ REAL FUNCTION PSLATRA( N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslatrd.f b/SRC/pslatrd.f index e628aa66..daa96b75 100644 --- a/SRC/pslatrd.f +++ b/SRC/pslatrd.f @@ -1,5 +1,6 @@ SUBROUTINE PSLATRD( UPLO, N, NB, A, IA, JA, DESCA, D, E, TAU, W, $ IW, JW, DESCW, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslatrs.f b/SRC/pslatrs.f index adbeebed..55ba5cda 100644 --- a/SRC/pslatrs.f +++ b/SRC/pslatrs.f @@ -1,6 +1,7 @@ SUBROUTINE PSLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, $ JA, DESCA, X, IX, JX, DESCX, SCALE, CNORM, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslatrz.f b/SRC/pslatrz.f index 53ed8e0c..e3600e3c 100644 --- a/SRC/pslatrz.f +++ b/SRC/pslatrz.f @@ -1,4 +1,5 @@ SUBROUTINE PSLATRZ( M, N, L, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslauu2.f b/SRC/pslauu2.f index 99262f82..4bab9473 100644 --- a/SRC/pslauu2.f +++ b/SRC/pslauu2.f @@ -1,4 +1,5 @@ SUBROUTINE PSLAUU2( UPLO, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslauum.f b/SRC/pslauum.f index feca9758..afdd33d3 100644 --- a/SRC/pslauum.f +++ b/SRC/pslauum.f @@ -1,4 +1,5 @@ SUBROUTINE PSLAUUM( UPLO, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pslawil.f b/SRC/pslawil.f index 671e08ed..150ffc43 100644 --- a/SRC/pslawil.f +++ b/SRC/pslawil.f @@ -1,4 +1,5 @@ SUBROUTINE PSLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorg2l.f b/SRC/psorg2l.f index 5b7e1df5..d1c93b6e 100644 --- a/SRC/psorg2l.f +++ b/SRC/psorg2l.f @@ -1,5 +1,6 @@ SUBROUTINE PSORG2L( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorg2r.f b/SRC/psorg2r.f index 8820a1bc..2a4cfad6 100644 --- a/SRC/psorg2r.f +++ b/SRC/psorg2r.f @@ -1,5 +1,6 @@ SUBROUTINE PSORG2R( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorgl2.f b/SRC/psorgl2.f index 6d0c694b..f74fc4c2 100644 --- a/SRC/psorgl2.f +++ b/SRC/psorgl2.f @@ -1,5 +1,6 @@ SUBROUTINE PSORGL2( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorglq.f b/SRC/psorglq.f index 64c4617c..3bbbe0b9 100644 --- a/SRC/psorglq.f +++ b/SRC/psorglq.f @@ -1,5 +1,6 @@ SUBROUTINE PSORGLQ( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorgql.f b/SRC/psorgql.f index eecaf976..e80211c1 100644 --- a/SRC/psorgql.f +++ b/SRC/psorgql.f @@ -1,5 +1,6 @@ SUBROUTINE PSORGQL( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorgqr.f b/SRC/psorgqr.f index 0e7240b8..1773d4ab 100644 --- a/SRC/psorgqr.f +++ b/SRC/psorgqr.f @@ -1,5 +1,6 @@ SUBROUTINE PSORGQR( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorgr2.f b/SRC/psorgr2.f index 90a5371e..f809fe5c 100644 --- a/SRC/psorgr2.f +++ b/SRC/psorgr2.f @@ -1,5 +1,6 @@ SUBROUTINE PSORGR2( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorgrq.f b/SRC/psorgrq.f index a9925377..cb64e4b7 100644 --- a/SRC/psorgrq.f +++ b/SRC/psorgrq.f @@ -1,5 +1,6 @@ SUBROUTINE PSORGRQ( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorm2l.f b/SRC/psorm2l.f index e055c87d..b7598e42 100644 --- a/SRC/psorm2l.f +++ b/SRC/psorm2l.f @@ -1,5 +1,6 @@ SUBROUTINE PSORM2L( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorm2r.f b/SRC/psorm2r.f index dac173e7..078457ad 100644 --- a/SRC/psorm2r.f +++ b/SRC/psorm2r.f @@ -1,5 +1,6 @@ SUBROUTINE PSORM2R( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormbr.f b/SRC/psormbr.f index e6bc40c4..921b8f8c 100644 --- a/SRC/psormbr.f +++ b/SRC/psormbr.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMBR( VECT, SIDE, TRANS, M, N, K, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormhr.f b/SRC/psormhr.f index ca74cea9..f702f6b0 100644 --- a/SRC/psormhr.f +++ b/SRC/psormhr.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMHR( SIDE, TRANS, M, N, ILO, IHI, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psorml2.f b/SRC/psorml2.f index 5c2a83ef..3f7892e2 100644 --- a/SRC/psorml2.f +++ b/SRC/psorml2.f @@ -1,5 +1,6 @@ SUBROUTINE PSORML2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormlq.f b/SRC/psormlq.f index 60091851..184b8924 100644 --- a/SRC/psormlq.f +++ b/SRC/psormlq.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMLQ( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormql.f b/SRC/psormql.f index 160fb75f..9b6575e0 100644 --- a/SRC/psormql.f +++ b/SRC/psormql.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMQL( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormqr.f b/SRC/psormqr.f index 3bf29e9a..4db05d50 100644 --- a/SRC/psormqr.f +++ b/SRC/psormqr.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMQR( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormr2.f b/SRC/psormr2.f index be8eb0e5..172a2080 100644 --- a/SRC/psormr2.f +++ b/SRC/psormr2.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMR2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormr3.f b/SRC/psormr3.f index 0a11b3df..22663618 100644 --- a/SRC/psormr3.f +++ b/SRC/psormr3.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMR3( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormrq.f b/SRC/psormrq.f index d4b574f2..3200b876 100644 --- a/SRC/psormrq.f +++ b/SRC/psormrq.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMRQ( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormrz.f b/SRC/psormrz.f index 84622c39..0947b594 100644 --- a/SRC/psormrz.f +++ b/SRC/psormrz.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMRZ( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psormtr.f b/SRC/psormtr.f index 1d805f0c..1788b73d 100644 --- a/SRC/psormtr.f +++ b/SRC/psormtr.f @@ -1,5 +1,6 @@ SUBROUTINE PSORMTR( SIDE, UPLO, TRANS, M, N, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspbsv.f b/SRC/pspbsv.f index b5bd5330..890bfc9e 100644 --- a/SRC/pspbsv.f +++ b/SRC/pspbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSPBSV( UPLO, N, BW, NRHS, A, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pspbtrf.f b/SRC/pspbtrf.f index 5eea78ff..6fda8ea3 100644 --- a/SRC/pspbtrf.f +++ b/SRC/pspbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PSPBTRF( UPLO, N, BW, A, JA, DESCA, AF, LAF, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pspbtrs.f b/SRC/pspbtrs.f index 7e7ca909..de072225 100644 --- a/SRC/pspbtrs.f +++ b/SRC/pspbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PSPBTRS( UPLO, N, BW, NRHS, A, JA, DESCA, B, IB, DESCB, $ AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspbtrsv.f b/SRC/pspbtrsv.f index 0f4e4103..de63a4b0 100644 --- a/SRC/pspbtrsv.f +++ b/SRC/pspbtrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSPBTRSV( UPLO, TRANS, N, BW, NRHS, A, JA, DESCA, B, $ IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pspocon.f b/SRC/pspocon.f index 4ea767f8..1477394e 100644 --- a/SRC/pspocon.f +++ b/SRC/pspocon.f @@ -1,5 +1,6 @@ SUBROUTINE PSPOCON( UPLO, N, A, IA, JA, DESCA, ANORM, RCOND, WORK, $ LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspoequ.f b/SRC/pspoequ.f index e869e2b9..086b37fe 100644 --- a/SRC/pspoequ.f +++ b/SRC/pspoequ.f @@ -1,5 +1,6 @@ SUBROUTINE PSPOEQU( N, A, IA, JA, DESCA, SR, SC, SCOND, AMAX, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psporfs.f b/SRC/psporfs.f index 38401354..35021511 100644 --- a/SRC/psporfs.f +++ b/SRC/psporfs.f @@ -1,6 +1,7 @@ SUBROUTINE PSPORFS( UPLO, N, NRHS, A, IA, JA, DESCA, AF, IAF, JAF, $ DESCAF, B, IB, JB, DESCB, X, IX, JX, DESCX, $ FERR, BERR, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psposv.f b/SRC/psposv.f index 2a58a042..95e39aec 100644 --- a/SRC/psposv.f +++ b/SRC/psposv.f @@ -1,5 +1,6 @@ SUBROUTINE PSPOSV( UPLO, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psposvx.f b/SRC/psposvx.f index cdac89a3..d3f890c4 100644 --- a/SRC/psposvx.f +++ b/SRC/psposvx.f @@ -2,6 +2,7 @@ SUBROUTINE PSPOSVX( FACT, UPLO, N, NRHS, A, IA, JA, DESCA, AF, $ IAF, JAF, DESCAF, EQUED, SR, SC, B, IB, JB, $ DESCB, X, IX, JX, DESCX, RCOND, FERR, BERR, $ WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspotf2.f b/SRC/pspotf2.f index 238f4afd..0c73bc3d 100644 --- a/SRC/pspotf2.f +++ b/SRC/pspotf2.f @@ -1,4 +1,5 @@ SUBROUTINE PSPOTF2( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspotrf.f b/SRC/pspotrf.f index e86b3281..8134cd89 100644 --- a/SRC/pspotrf.f +++ b/SRC/pspotrf.f @@ -1,4 +1,5 @@ SUBROUTINE PSPOTRF( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspotri.f b/SRC/pspotri.f index 95fdd093..0e49b3b4 100644 --- a/SRC/pspotri.f +++ b/SRC/pspotri.f @@ -1,4 +1,5 @@ SUBROUTINE PSPOTRI( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspotrs.f b/SRC/pspotrs.f index 70f521b2..d0031f07 100644 --- a/SRC/pspotrs.f +++ b/SRC/pspotrs.f @@ -1,5 +1,6 @@ SUBROUTINE PSPOTRS( UPLO, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psptsv.f b/SRC/psptsv.f index 667c7dab..9336b9df 100644 --- a/SRC/psptsv.f +++ b/SRC/psptsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSPTSV( N, NRHS, D, E, JA, DESCA, B, IB, DESCB, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pspttrf.f b/SRC/pspttrf.f index 9ea43ae5..f94f8266 100644 --- a/SRC/pspttrf.f +++ b/SRC/pspttrf.f @@ -1,5 +1,6 @@ SUBROUTINE PSPTTRF( N, D, E, JA, DESCA, AF, LAF, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspttrs.f b/SRC/pspttrs.f index 197e5ce2..055e654a 100644 --- a/SRC/pspttrs.f +++ b/SRC/pspttrs.f @@ -1,5 +1,6 @@ SUBROUTINE PSPTTRS( N, NRHS, D, E, JA, DESCA, B, IB, DESCB, AF, $ LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pspttrsv.f b/SRC/pspttrsv.f index 6b3c6eb1..defba056 100644 --- a/SRC/pspttrsv.f +++ b/SRC/pspttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PSPTTRSV( UPLO, N, NRHS, D, E, JA, DESCA, B, IB, DESCB, $ AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psrscl.f b/SRC/psrscl.f index 2b3e8b25..3cb5a3e5 100644 --- a/SRC/psrscl.f +++ b/SRC/psrscl.f @@ -1,4 +1,5 @@ SUBROUTINE PSRSCL( N, SA, SX, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psstebz.f b/SRC/psstebz.f index 7e588a99..d0a6be8e 100644 --- a/SRC/psstebz.f +++ b/SRC/psstebz.f @@ -1,6 +1,7 @@ SUBROUTINE PSSTEBZ( ICTXT, RANGE, ORDER, N, VL, VU, IL, IU, $ ABSTOL, D, E, M, NSPLIT, W, IBLOCK, ISPLIT, $ WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -873,6 +874,7 @@ SUBROUTINE PSSTEBZ( ICTXT, RANGE, ORDER, N, VL, VU, IL, IU, SUBROUTINE PSLAEBZ( IJOB, N, MMAX, MINP, ABSTOL, RELTOL, PIVMIN, $ D, NVAL, INTVL, INTVLCT, MOUT, LSAVE, IEFLAG, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1198,6 +1200,7 @@ SUBROUTINE PSLAEBZ( IJOB, N, MMAX, MINP, ABSTOL, RELTOL, PIVMIN, * SUBROUTINE PSLAECV( IJOB, KF, KL, INTVL, INTVLCT, NVAL, ABSTOL, $ RELTOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -1346,6 +1349,7 @@ SUBROUTINE PSLAECV( IJOB, KF, KL, INTVL, INTVLCT, NVAL, ABSTOL, END * SUBROUTINE PSLAPDCT( SIGMA, N, D, PIVMIN, COUNT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psstedc.f b/SRC/psstedc.f index 54be9846..47a43dc8 100644 --- a/SRC/psstedc.f +++ b/SRC/psstedc.f @@ -1,5 +1,6 @@ SUBROUTINE PSSTEDC( COMPZ, N, D, E, Q, IQ, JQ, DESCQ, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/psstein.f b/SRC/psstein.f index e1261fde..b505e863 100644 --- a/SRC/psstein.f +++ b/SRC/psstein.f @@ -1,6 +1,7 @@ SUBROUTINE PSSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, ORFAC, Z, IZ, $ JZ, DESCZ, WORK, LWORK, IWORK, LIWORK, IFAIL, $ ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssyev.f b/SRC/pssyev.f index c709feb8..14db5d63 100644 --- a/SRC/pssyev.f +++ b/SRC/pssyev.f @@ -1,5 +1,6 @@ SUBROUTINE PSSYEV( JOBZ, UPLO, N, A, IA, JA, DESCA, W, $ Z, IZ, JZ, DESCZ, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssyevd.f b/SRC/pssyevd.f index f3a92fee..5990cc47 100644 --- a/SRC/pssyevd.f +++ b/SRC/pssyevd.f @@ -1,5 +1,6 @@ SUBROUTINE PSSYEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, $ DESCZ, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssyevx.f b/SRC/pssyevx.f index 4e99fae2..95829e60 100644 --- a/SRC/pssyevx.f +++ b/SRC/pssyevx.f @@ -2,11 +2,12 @@ SUBROUTINE PSSYEVX( JOBZ, RANGE, UPLO, N, A, IA, JA, DESCA, VL, $ VU, IL, IU, ABSTOL, M, NZ, W, ORFAC, Z, IZ, $ JZ, DESCZ, WORK, LWORK, IWORK, LIWORK, IFAIL, $ ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, * and University of California, Berkeley. -* May 25, 2001 +* May 25, 2001 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/pssygs2.f b/SRC/pssygs2.f index db040089..93160478 100644 --- a/SRC/pssygs2.f +++ b/SRC/pssygs2.f @@ -2,6 +2,7 @@ * SUBROUTINE PSSYGS2( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssygst.f b/SRC/pssygst.f index cdf0c90e..d021f1c0 100644 --- a/SRC/pssygst.f +++ b/SRC/pssygst.f @@ -2,6 +2,7 @@ * SUBROUTINE PSSYGST( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, SCALE, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssygvx.f b/SRC/pssygvx.f index 8603062c..0379fb18 100644 --- a/SRC/pssygvx.f +++ b/SRC/pssygvx.f @@ -3,6 +3,7 @@ SUBROUTINE PSSYGVX( IBTYPE, JOBZ, RANGE, UPLO, N, A, IA, JA, $ ABSTOL, M, NZ, W, ORFAC, Z, IZ, JZ, DESCZ, $ WORK, LWORK, IWORK, LIWORK, IFAIL, ICLUSTR, $ GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssyngst.f b/SRC/pssyngst.f index 001f7929..01922309 100644 --- a/SRC/pssyngst.f +++ b/SRC/pssyngst.f @@ -1,5 +1,6 @@ SUBROUTINE PSSYNGST( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, SCALE, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssyntrd.f b/SRC/pssyntrd.f index c82a981b..1f644eb9 100644 --- a/SRC/pssyntrd.f +++ b/SRC/pssyntrd.f @@ -1,5 +1,6 @@ SUBROUTINE PSSYNTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssytd2.f b/SRC/pssytd2.f index 177b2668..f9ed0d30 100644 --- a/SRC/pssytd2.f +++ b/SRC/pssytd2.f @@ -1,5 +1,6 @@ SUBROUTINE PSSYTD2( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssytrd.f b/SRC/pssytrd.f index 28a18a24..efc700cf 100644 --- a/SRC/pssytrd.f +++ b/SRC/pssytrd.f @@ -1,5 +1,6 @@ SUBROUTINE PSSYTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pssyttrd.f b/SRC/pssyttrd.f index bd214ca7..90b49481 100644 --- a/SRC/pssyttrd.f +++ b/SRC/pssyttrd.f @@ -1,5 +1,6 @@ SUBROUTINE PSSYTTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pstrcon.f b/SRC/pstrcon.f index 10bd7df0..94d1f7d4 100644 --- a/SRC/pstrcon.f +++ b/SRC/pstrcon.f @@ -1,5 +1,6 @@ SUBROUTINE PSTRCON( NORM, UPLO, DIAG, N, A, IA, JA, DESCA, RCOND, $ WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pstrrfs.f b/SRC/pstrrfs.f index 697cdeee..ed84ea93 100644 --- a/SRC/pstrrfs.f +++ b/SRC/pstrrfs.f @@ -1,6 +1,7 @@ SUBROUTINE PSTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, IA, JA, DESCA, $ B, IB, JB, DESCB, X, IX, JX, DESCX, FERR, $ BERR, WORK, LWORK, IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pstrti2.f b/SRC/pstrti2.f index f6cd2277..28cb38fc 100644 --- a/SRC/pstrti2.f +++ b/SRC/pstrti2.f @@ -1,4 +1,5 @@ SUBROUTINE PSTRTI2( UPLO, DIAG, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pstrtri.f b/SRC/pstrtri.f index 5bfc6e11..24cb6ca8 100644 --- a/SRC/pstrtri.f +++ b/SRC/pstrtri.f @@ -1,4 +1,5 @@ SUBROUTINE PSTRTRI( UPLO, DIAG, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pstrtrs.f b/SRC/pstrtrs.f index 89a21ebc..f7ac15bc 100644 --- a/SRC/pstrtrs.f +++ b/SRC/pstrtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PSTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, IA, JA, DESCA, $ B, IB, JB, DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pstzrzf.f b/SRC/pstzrzf.f index 34f822d7..2a9dfed9 100644 --- a/SRC/pstzrzf.f +++ b/SRC/pstzrzf.f @@ -1,5 +1,6 @@ SUBROUTINE PSTZRZF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzdbsv.f b/SRC/pzdbsv.f index b45163f8..271fee73 100644 --- a/SRC/pzdbsv.f +++ b/SRC/pzdbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZDBSV( N, BWL, BWU, NRHS, A, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzdbtrf.f b/SRC/pzdbtrf.f index 6c15e29d..e905fa07 100644 --- a/SRC/pzdbtrf.f +++ b/SRC/pzdbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PZDBTRF( N, BWL, BWU, A, JA, DESCA, AF, LAF, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzdbtrs.f b/SRC/pzdbtrs.f index b1e68c5e..f4af18b1 100644 --- a/SRC/pzdbtrs.f +++ b/SRC/pzdbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZDBTRS( TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzdbtrsv.f b/SRC/pzdbtrsv.f index e6d17358..b25d9c1f 100644 --- a/SRC/pzdbtrsv.f +++ b/SRC/pzdbtrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZDBTRSV( UPLO, TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzdrscl.f b/SRC/pzdrscl.f index 274b569f..7eadf694 100644 --- a/SRC/pzdrscl.f +++ b/SRC/pzdrscl.f @@ -1,4 +1,5 @@ SUBROUTINE PZDRSCL( N, SA, SX, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzdtsv.f b/SRC/pzdtsv.f index bd44ba25..b93d8cca 100644 --- a/SRC/pzdtsv.f +++ b/SRC/pzdtsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZDTSV( N, NRHS, DL, D, DU, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzdttrf.f b/SRC/pzdttrf.f index 47006a1e..25bdf549 100644 --- a/SRC/pzdttrf.f +++ b/SRC/pzdttrf.f @@ -1,5 +1,6 @@ SUBROUTINE PZDTTRF( N, DL, D, DU, JA, DESCA, AF, LAF, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzdttrs.f b/SRC/pzdttrs.f index 55bdbdb2..f962c129 100644 --- a/SRC/pzdttrs.f +++ b/SRC/pzdttrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZDTTRS( TRANS, N, NRHS, DL, D, DU, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzdttrsv.f b/SRC/pzdttrsv.f index 5ec17470..1679b8c8 100644 --- a/SRC/pzdttrsv.f +++ b/SRC/pzdttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZDTTRSV( UPLO, TRANS, N, NRHS, DL, D, DU, JA, DESCA, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzgbsv.f b/SRC/pzgbsv.f index cc4c86e0..215310c3 100644 --- a/SRC/pzgbsv.f +++ b/SRC/pzgbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZGBSV( N, BWL, BWU, NRHS, A, JA, DESCA, IPIV, B, IB, $ DESCB, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzgbtrf.f b/SRC/pzgbtrf.f index 5dededb3..0f7e6fa4 100644 --- a/SRC/pzgbtrf.f +++ b/SRC/pzgbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PZGBTRF( N, BWL, BWU, A, JA, DESCA, IPIV, AF, LAF, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzgbtrs.f b/SRC/pzgbtrs.f index c2d16aa6..cb7b1b40 100644 --- a/SRC/pzgbtrs.f +++ b/SRC/pzgbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZGBTRS( TRANS, N, BWL, BWU, NRHS, A, JA, DESCA, IPIV, $ B, IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzgebd2.f b/SRC/pzgebd2.f index d735c9b9..894baace 100644 --- a/SRC/pzgebd2.f +++ b/SRC/pzgebd2.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEBD2( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgebrd.f b/SRC/pzgebrd.f index 11a6a11f..7f08aff1 100644 --- a/SRC/pzgebrd.f +++ b/SRC/pzgebrd.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEBRD( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgecon.f b/SRC/pzgecon.f index 5522e715..231034d2 100644 --- a/SRC/pzgecon.f +++ b/SRC/pzgecon.f @@ -1,5 +1,6 @@ SUBROUTINE PZGECON( NORM, N, A, IA, JA, DESCA, ANORM, RCOND, WORK, $ LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgeequ.f b/SRC/pzgeequ.f index a51bdfd1..719922ae 100644 --- a/SRC/pzgeequ.f +++ b/SRC/pzgeequ.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEEQU( M, N, A, IA, JA, DESCA, R, C, ROWCND, COLCND, $ AMAX, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgehd2.f b/SRC/pzgehd2.f index 3a402a82..ede11155 100644 --- a/SRC/pzgehd2.f +++ b/SRC/pzgehd2.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEHD2( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgehrd.f b/SRC/pzgehrd.f index 57197e53..9382d9be 100644 --- a/SRC/pzgehrd.f +++ b/SRC/pzgehrd.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEHRD( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgelq2.f b/SRC/pzgelq2.f index c54125ad..b7e21fa1 100644 --- a/SRC/pzgelq2.f +++ b/SRC/pzgelq2.f @@ -1,5 +1,6 @@ SUBROUTINE PZGELQ2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgelqf.f b/SRC/pzgelqf.f index 60e77699..a76ca7f3 100644 --- a/SRC/pzgelqf.f +++ b/SRC/pzgelqf.f @@ -1,5 +1,6 @@ SUBROUTINE PZGELQF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgels.f b/SRC/pzgels.f index f39baf19..d8406ebe 100644 --- a/SRC/pzgels.f +++ b/SRC/pzgels.f @@ -1,5 +1,6 @@ SUBROUTINE PZGELS( TRANS, M, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgeql2.f b/SRC/pzgeql2.f index 97fcf828..0bc7fee1 100644 --- a/SRC/pzgeql2.f +++ b/SRC/pzgeql2.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEQL2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgeqlf.f b/SRC/pzgeqlf.f index af2fa316..9b88a848 100644 --- a/SRC/pzgeqlf.f +++ b/SRC/pzgeqlf.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEQLF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgeqpf.f b/SRC/pzgeqpf.f index d9018c4b..5529bf28 100644 --- a/SRC/pzgeqpf.f +++ b/SRC/pzgeqpf.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEQPF( M, N, A, IA, JA, DESCA, IPIV, TAU, WORK, $ LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.1) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgeqr2.f b/SRC/pzgeqr2.f index fd638b30..a146f5b1 100644 --- a/SRC/pzgeqr2.f +++ b/SRC/pzgeqr2.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEQR2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgeqrf.f b/SRC/pzgeqrf.f index 1a7a7ce1..15c871ac 100644 --- a/SRC/pzgeqrf.f +++ b/SRC/pzgeqrf.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEQRF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgerfs.f b/SRC/pzgerfs.f index 9bbf0459..731f15b9 100644 --- a/SRC/pzgerfs.f +++ b/SRC/pzgerfs.f @@ -2,6 +2,7 @@ SUBROUTINE PZGERFS( TRANS, N, NRHS, A, IA, JA, DESCA, AF, IAF, $ JAF, DESCAF, IPIV, B, IB, JB, DESCB, X, IX, $ JX, DESCX, FERR, BERR, WORK, LWORK, RWORK, $ LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgerq2.f b/SRC/pzgerq2.f index 103d1bb9..680b1061 100644 --- a/SRC/pzgerq2.f +++ b/SRC/pzgerq2.f @@ -1,5 +1,6 @@ SUBROUTINE PZGERQ2( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgerqf.f b/SRC/pzgerqf.f index b94fd8bd..249df49a 100644 --- a/SRC/pzgerqf.f +++ b/SRC/pzgerqf.f @@ -1,5 +1,6 @@ SUBROUTINE PZGERQF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgesv.f b/SRC/pzgesv.f index 2707c293..e1db2ae7 100644 --- a/SRC/pzgesv.f +++ b/SRC/pzgesv.f @@ -1,5 +1,6 @@ SUBROUTINE PZGESV( N, NRHS, A, IA, JA, DESCA, IPIV, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgesvd.f b/SRC/pzgesvd.f index befed5ca..f97828af 100644 --- a/SRC/pzgesvd.f +++ b/SRC/pzgesvd.f @@ -1,6 +1,7 @@ SUBROUTINE PZGESVD(JOBU,JOBVT,M,N,A,IA,JA,DESCA,S,U,IU,JU,DESCU, + VT,IVT,JVT,DESCVT,WORK,LWORK,RWORK,INFO) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Oak Ridge National Laboratory diff --git a/SRC/pzgesvx.f b/SRC/pzgesvx.f index 9781a328..dbbcc46a 100644 --- a/SRC/pzgesvx.f +++ b/SRC/pzgesvx.f @@ -2,6 +2,7 @@ SUBROUTINE PZGESVX( FACT, TRANS, N, NRHS, A, IA, JA, DESCA, AF, $ IAF, JAF, DESCAF, IPIV, EQUED, R, C, B, IB, $ JB, DESCB, X, IX, JX, DESCX, RCOND, FERR, $ BERR, WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgetf2.f b/SRC/pzgetf2.f index b0ac33cd..7ffd7fe5 100644 --- a/SRC/pzgetf2.f +++ b/SRC/pzgetf2.f @@ -1,4 +1,5 @@ SUBROUTINE PZGETF2( M, N, A, IA, JA, DESCA, IPIV, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgetrf.f b/SRC/pzgetrf.f index 1986bb24..351088be 100644 --- a/SRC/pzgetrf.f +++ b/SRC/pzgetrf.f @@ -1,4 +1,5 @@ SUBROUTINE PZGETRF( M, N, A, IA, JA, DESCA, IPIV, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgetri.f b/SRC/pzgetri.f index 9817ed2f..2effb95c 100644 --- a/SRC/pzgetri.f +++ b/SRC/pzgetri.f @@ -1,5 +1,6 @@ SUBROUTINE PZGETRI( N, A, IA, JA, DESCA, IPIV, WORK, LWORK, $ IWORK, LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7.4) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzgetrs.f b/SRC/pzgetrs.f index aad4321e..f64b78fa 100644 --- a/SRC/pzgetrs.f +++ b/SRC/pzgetrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZGETRS( TRANS, N, NRHS, A, IA, JA, DESCA, IPIV, B, $ IB, JB, DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzggqrf.f b/SRC/pzggqrf.f index 16891465..65b341e9 100644 --- a/SRC/pzggqrf.f +++ b/SRC/pzggqrf.f @@ -1,5 +1,6 @@ SUBROUTINE PZGGQRF( N, M, P, A, IA, JA, DESCA, TAUA, B, IB, JB, $ DESCB, TAUB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzggrqf.f b/SRC/pzggrqf.f index 68f546d1..62e4db25 100644 --- a/SRC/pzggrqf.f +++ b/SRC/pzggrqf.f @@ -1,5 +1,6 @@ SUBROUTINE PZGGRQF( M, P, N, A, IA, JA, DESCA, TAUA, B, IB, JB, $ DESCB, TAUB, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzheev.f b/SRC/pzheev.f index 6db851f7..6651fb4f 100644 --- a/SRC/pzheev.f +++ b/SRC/pzheev.f @@ -1,5 +1,6 @@ SUBROUTINE PZHEEV( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, $ DESCZ, WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzheevd.f b/SRC/pzheevd.f index 52d09559..598debb6 100644 --- a/SRC/pzheevd.f +++ b/SRC/pzheevd.f @@ -1,6 +1,7 @@ SUBROUTINE PZHEEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, $ DESCZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -10,12 +11,13 @@ SUBROUTINE PZHEEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, * .. Scalar Arguments .. CHARACTER JOBZ, UPLO INTEGER IA, INFO, IZ, JA, JZ, LIWORK, LRWORK, LWORK, N + INTEGER ICTXT * .. * .. Array Arguments .. INTEGER DESCA( * ), DESCZ( * ), IWORK( * ) DOUBLE PRECISION RWORK( * ), W( * ) COMPLEX*16 A( * ), WORK( * ), Z( * ) -* +* * * Purpose * ======= @@ -221,7 +223,7 @@ SUBROUTINE PZHEEVD( JOBZ, UPLO, N, A, IA, JA, DESCA, W, Z, IZ, JZ, * IF( NPROW.EQ.-1 ) THEN INFO = -( 700+CTXT_ ) - ELSE + ELSE CALL CHK1MAT( N, 3, N, 3, IA, JA, DESCA, 7, INFO ) CALL CHK1MAT( N, 3, N, 3, IZ, JZ, DESCZ, 12, INFO ) IF( INFO.EQ.0 ) THEN diff --git a/SRC/pzheevx.f b/SRC/pzheevx.f index e09d80b0..a92cb9fc 100644 --- a/SRC/pzheevx.f +++ b/SRC/pzheevx.f @@ -2,6 +2,7 @@ SUBROUTINE PZHEEVX( JOBZ, RANGE, UPLO, N, A, IA, JA, DESCA, VL, $ VU, IL, IU, ABSTOL, M, NZ, W, ORFAC, Z, IZ, $ JZ, DESCZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, IFAIL, ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzhegs2.f b/SRC/pzhegs2.f index 6f10d3eb..6f26b960 100644 --- a/SRC/pzhegs2.f +++ b/SRC/pzhegs2.f @@ -2,6 +2,7 @@ * SUBROUTINE PZHEGS2( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzhegst.f b/SRC/pzhegst.f index 979ca510..28150d60 100644 --- a/SRC/pzhegst.f +++ b/SRC/pzhegst.f @@ -2,6 +2,7 @@ * SUBROUTINE PZHEGST( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, SCALE, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzhegvx.f b/SRC/pzhegvx.f index d0926364..9679fbe5 100644 --- a/SRC/pzhegvx.f +++ b/SRC/pzhegvx.f @@ -3,6 +3,7 @@ SUBROUTINE PZHEGVX( IBTYPE, JOBZ, RANGE, UPLO, N, A, IA, JA, $ ABSTOL, M, NZ, W, ORFAC, Z, IZ, JZ, DESCZ, $ WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, $ IFAIL, ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzhengst.f b/SRC/pzhengst.f index a93e6faa..886ef286 100644 --- a/SRC/pzhengst.f +++ b/SRC/pzhengst.f @@ -1,5 +1,6 @@ SUBROUTINE PZHENGST( IBTYPE, UPLO, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB, SCALE, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzhentrd.f b/SRC/pzhentrd.f index 7b2b81d2..eab61259 100644 --- a/SRC/pzhentrd.f +++ b/SRC/pzhentrd.f @@ -1,5 +1,6 @@ SUBROUTINE PZHENTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzhetd2.f b/SRC/pzhetd2.f index 329fca86..93bc36ab 100644 --- a/SRC/pzhetd2.f +++ b/SRC/pzhetd2.f @@ -1,5 +1,6 @@ SUBROUTINE PZHETD2( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzhetrd.f b/SRC/pzhetrd.f index 97f8b4db..80c041c0 100644 --- a/SRC/pzhetrd.f +++ b/SRC/pzhetrd.f @@ -1,5 +1,6 @@ SUBROUTINE PZHETRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzhettrd.f b/SRC/pzhettrd.f index ad797f45..d022bd08 100644 --- a/SRC/pzhettrd.f +++ b/SRC/pzhettrd.f @@ -1,5 +1,6 @@ SUBROUTINE PZHETTRD( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzlabrd.f b/SRC/pzlabrd.f index 5ff8e7bc..bc0333b0 100644 --- a/SRC/pzlabrd.f +++ b/SRC/pzlabrd.f @@ -1,5 +1,6 @@ SUBROUTINE PZLABRD( M, N, NB, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ X, IX, JX, DESCX, Y, IY, JY, DESCY, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlacgv.f b/SRC/pzlacgv.f index fed667cc..305f004c 100644 --- a/SRC/pzlacgv.f +++ b/SRC/pzlacgv.f @@ -1,4 +1,5 @@ SUBROUTINE PZLACGV( N, X, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlacon.f b/SRC/pzlacon.f index ac121c4c..19663f46 100644 --- a/SRC/pzlacon.f +++ b/SRC/pzlacon.f @@ -1,5 +1,6 @@ SUBROUTINE PZLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, EST, $ KASE ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -150,8 +151,8 @@ SUBROUTINE PZLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, EST, $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 ) INTEGER ITMAX PARAMETER ( ITMAX = 5 ) - DOUBLE PRECISION ONE, TWO - PARAMETER ( ONE = 1.0D+0, TWO = 2.0D+0 ) + DOUBLE PRECISION ZERO, ONE, TWO + PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, TWO = 2.0D+0 ) COMPLEX*16 CZERO, CONE PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), $ CONE = ( 1.0D+0, 0.0D+0 ) ) diff --git a/SRC/pzlaconsb.f b/SRC/pzlaconsb.f index eca25084..bfd894b6 100644 --- a/SRC/pzlaconsb.f +++ b/SRC/pzlaconsb.f @@ -1,5 +1,6 @@ SUBROUTINE PZLACONSB( A, DESCA, I, L, M, H44, H33, H43H34, BUF, $ LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlacp2.f b/SRC/pzlacp2.f index 65cedf2c..6d4a5c4a 100644 --- a/SRC/pzlacp2.f +++ b/SRC/pzlacp2.f @@ -1,5 +1,6 @@ SUBROUTINE PZLACP2( UPLO, M, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzlacp3.f b/SRC/pzlacp3.f index aa9b9ccd..360fb255 100644 --- a/SRC/pzlacp3.f +++ b/SRC/pzlacp3.f @@ -1,4 +1,5 @@ SUBROUTINE PZLACP3( M, I, A, DESCA, B, LDB, II, JJ, REV ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlacpy.f b/SRC/pzlacpy.f index 8eade09a..8a07eafc 100644 --- a/SRC/pzlacpy.f +++ b/SRC/pzlacpy.f @@ -1,5 +1,6 @@ SUBROUTINE PZLACPY( UPLO, M, N, A, IA, JA, DESCA, B, IB, JB, $ DESCB ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlaevswp.f b/SRC/pzlaevswp.f index 53cb4175..d2bafa2e 100644 --- a/SRC/pzlaevswp.f +++ b/SRC/pzlaevswp.f @@ -2,6 +2,7 @@ * SUBROUTINE PZLAEVSWP( N, ZIN, LDZI, Z, IZ, JZ, DESCZ, NVS, KEY, $ RWORK, LRWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlahqr.f b/SRC/pzlahqr.f index b715455c..8f3d97b1 100644 --- a/SRC/pzlahqr.f +++ b/SRC/pzlahqr.f @@ -1,6 +1,7 @@ SUBROUTINE PZLAHQR( WANTT, WANTZ, N, ILO, IHI, A, DESCA, W, ILOZ, $ IHIZ, Z, DESCZ, WORK, LWORK, IWORK, ILWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7.3) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlahrd.f b/SRC/pzlahrd.f index 5cf94742..10d8ce00 100644 --- a/SRC/pzlahrd.f +++ b/SRC/pzlahrd.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAHRD( N, K, NB, A, IA, JA, DESCA, TAU, T, Y, IY, JY, $ DESCY, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlamr1d.f b/SRC/pzlamr1d.f index 16e02697..66b853eb 100644 --- a/SRC/pzlamr1d.f +++ b/SRC/pzlamr1d.f @@ -1,4 +1,5 @@ SUBROUTINE PZLAMR1D( N, A, IA, JA, DESCA, B, IB, JB, DESCB ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlanhe.f b/SRC/pzlanhe.f index d6cc5804..5af422fe 100644 --- a/SRC/pzlanhe.f +++ b/SRC/pzlanhe.f @@ -1,5 +1,6 @@ DOUBLE PRECISION FUNCTION PZLANHE( NORM, UPLO, N, A, IA, JA, $ DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlanhs.f b/SRC/pzlanhs.f index 5e26cff2..7b097da0 100644 --- a/SRC/pzlanhs.f +++ b/SRC/pzlanhs.f @@ -1,5 +1,6 @@ DOUBLE PRECISION FUNCTION PZLANHS( NORM, N, A, IA, JA, DESCA, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlapiv.f b/SRC/pzlapiv.f index 7e988743..c0e32410 100644 --- a/SRC/pzlapiv.f +++ b/SRC/pzlapiv.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAPIV( DIREC, ROWCOL, PIVROC, M, N, A, IA, JA, $ DESCA, IPIV, IP, JP, DESCIP, IWORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlapv2.f b/SRC/pzlapv2.f index c2e46cb5..c0fdeefc 100644 --- a/SRC/pzlapv2.f +++ b/SRC/pzlapv2.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAPV2( DIREC, ROWCOL, M, N, A, IA, JA, DESCA, IPIV, $ IP, JP, DESCIP ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlaqge.f b/SRC/pzlaqge.f index 79d9ff75..c51ec716 100644 --- a/SRC/pzlaqge.f +++ b/SRC/pzlaqge.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAQGE( M, N, A, IA, JA, DESCA, R, C, ROWCND, COLCND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlaqsy.f b/SRC/pzlaqsy.f index 272f3c9f..08eea7ab 100644 --- a/SRC/pzlaqsy.f +++ b/SRC/pzlaqsy.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAQSY( UPLO, N, A, IA, JA, DESCA, SR, SC, SCOND, $ AMAX, EQUED ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlarf.f b/SRC/pzlarf.f index 7bff2875..1caecd32 100644 --- a/SRC/pzlarf.f +++ b/SRC/pzlarf.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU, $ C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlarfb.f b/SRC/pzlarfb.f index 8a9e375c..d8e34e0e 100644 --- a/SRC/pzlarfb.f +++ b/SRC/pzlarfb.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, IV, $ JV, DESCV, T, C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzlarfc.f b/SRC/pzlarfc.f index ddd7ec6a..3aa15e3d 100644 --- a/SRC/pzlarfc.f +++ b/SRC/pzlarfc.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU, $ C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlarfg.f b/SRC/pzlarfg.f index 90a2bc63..7f4ba6dd 100644 --- a/SRC/pzlarfg.f +++ b/SRC/pzlarfg.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARFG( N, ALPHA, IAX, JAX, X, IX, JX, DESCX, INCX, $ TAU ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlarft.f b/SRC/pzlarft.f index 10b45c1b..43982f2c 100644 --- a/SRC/pzlarft.f +++ b/SRC/pzlarft.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARFT( DIRECT, STOREV, N, K, V, IV, JV, DESCV, TAU, $ T, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlarz.f b/SRC/pzlarz.f index abf62886..b77316d1 100644 --- a/SRC/pzlarz.f +++ b/SRC/pzlarz.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C, $ IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlarzb.f b/SRC/pzlarzb.f index 45cd672f..b2d0e238 100644 --- a/SRC/pzlarzb.f +++ b/SRC/pzlarzb.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ IV, JV, DESCV, T, C, IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzlarzc.f b/SRC/pzlarzc.f index 2c574ff5..57516dcb 100644 --- a/SRC/pzlarzc.f +++ b/SRC/pzlarzc.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C, $ IC, JC, DESCC, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlarzt.f b/SRC/pzlarzt.f index 59769283..8dbd0932 100644 --- a/SRC/pzlarzt.f +++ b/SRC/pzlarzt.f @@ -1,5 +1,6 @@ SUBROUTINE PZLARZT( DIRECT, STOREV, N, K, V, IV, JV, DESCV, TAU, $ T, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlascl.f b/SRC/pzlascl.f index 91f08987..cc94358b 100644 --- a/SRC/pzlascl.f +++ b/SRC/pzlascl.f @@ -1,5 +1,6 @@ SUBROUTINE PZLASCL( TYPE, CFROM, CTO, M, N, A, IA, JA, DESCA, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlase2.f b/SRC/pzlase2.f index fb89012c..3aff045c 100644 --- a/SRC/pzlase2.f +++ b/SRC/pzlase2.f @@ -1,4 +1,5 @@ SUBROUTINE PZLASE2( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlaset.f b/SRC/pzlaset.f index 2d50d72b..5e45355e 100644 --- a/SRC/pzlaset.f +++ b/SRC/pzlaset.f @@ -1,4 +1,5 @@ SUBROUTINE PZLASET( UPLO, M, N, ALPHA, BETA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlasmsub.f b/SRC/pzlasmsub.f index 969514e3..9518f3a4 100644 --- a/SRC/pzlasmsub.f +++ b/SRC/pzlasmsub.f @@ -1,4 +1,5 @@ SUBROUTINE PZLASMSUB( A, DESCA, I, L, K, SMLNUM, BUF, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlassq.f b/SRC/pzlassq.f index d4b5b522..fde46b28 100644 --- a/SRC/pzlassq.f +++ b/SRC/pzlassq.f @@ -1,4 +1,5 @@ SUBROUTINE PZLASSQ( N, X, IX, JX, DESCX, INCX, SCALE, SUMSQ ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlaswp.f b/SRC/pzlaswp.f index f90332f9..a8283896 100644 --- a/SRC/pzlaswp.f +++ b/SRC/pzlaswp.f @@ -1,5 +1,6 @@ SUBROUTINE PZLASWP( DIREC, ROWCOL, N, A, IA, JA, DESCA, K1, K2, $ IPIV ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlatra.f b/SRC/pzlatra.f index 69af3859..446cd07e 100644 --- a/SRC/pzlatra.f +++ b/SRC/pzlatra.f @@ -1,4 +1,5 @@ COMPLEX*16 FUNCTION PZLATRA( N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlatrd.f b/SRC/pzlatrd.f index 054fcd9a..b2cdebdd 100644 --- a/SRC/pzlatrd.f +++ b/SRC/pzlatrd.f @@ -1,5 +1,6 @@ SUBROUTINE PZLATRD( UPLO, N, NB, A, IA, JA, DESCA, D, E, TAU, W, $ IW, JW, DESCW, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlatrs.f b/SRC/pzlatrs.f index 8a6dde28..dfff830a 100644 --- a/SRC/pzlatrs.f +++ b/SRC/pzlatrs.f @@ -1,6 +1,7 @@ SUBROUTINE PZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, $ JA, DESCA, X, IX, JX, DESCX, SCALE, CNORM, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlatrz.f b/SRC/pzlatrz.f index b37da0da..de2870e8 100644 --- a/SRC/pzlatrz.f +++ b/SRC/pzlatrz.f @@ -1,4 +1,5 @@ SUBROUTINE PZLATRZ( M, N, L, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlattrs.f b/SRC/pzlattrs.f index e0cbc584..b4f9c3ee 100644 --- a/SRC/pzlattrs.f +++ b/SRC/pzlattrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA, $ DESCA, X, IX, JX, DESCX, SCALE, CNORM, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlauu2.f b/SRC/pzlauu2.f index 25ba8823..dc3341d3 100644 --- a/SRC/pzlauu2.f +++ b/SRC/pzlauu2.f @@ -1,4 +1,5 @@ SUBROUTINE PZLAUU2( UPLO, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -139,7 +140,8 @@ SUBROUTINE PZLAUU2( UPLO, N, A, IA, JA, DESCA ) * .. * .. External Functions .. LOGICAL LSAME - EXTERNAL LSAME + COMPLEX*16 ZDOTC + EXTERNAL LSAME, ZDOTC * .. * .. Intrinsic Functions .. INTRINSIC DCMPLX, DBLE diff --git a/SRC/pzlauum.f b/SRC/pzlauum.f index f80d8d0a..6579579c 100644 --- a/SRC/pzlauum.f +++ b/SRC/pzlauum.f @@ -1,4 +1,5 @@ SUBROUTINE PZLAUUM( UPLO, N, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzlawil.f b/SRC/pzlawil.f index 7e502ef9..907c1162 100644 --- a/SRC/pzlawil.f +++ b/SRC/pzlawil.f @@ -1,4 +1,5 @@ SUBROUTINE PZLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzmax1.f b/SRC/pzmax1.f index 8849f47d..7c5d9ed1 100644 --- a/SRC/pzmax1.f +++ b/SRC/pzmax1.f @@ -1,4 +1,5 @@ SUBROUTINE PZMAX1( N, AMAX, INDX, X, IX, JX, DESCX, INCX ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -357,6 +358,7 @@ SUBROUTINE PZMAX1( N, AMAX, INDX, X, IX, JX, DESCX, INCX ) END * SUBROUTINE ZCOMBAMAX1 ( V1, V2 ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzpbsv.f b/SRC/pzpbsv.f index b8768b50..8ffff7c6 100644 --- a/SRC/pzpbsv.f +++ b/SRC/pzpbsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZPBSV( UPLO, N, BW, NRHS, A, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzpbtrf.f b/SRC/pzpbtrf.f index aaf34e17..bcb53ffa 100644 --- a/SRC/pzpbtrf.f +++ b/SRC/pzpbtrf.f @@ -1,5 +1,6 @@ SUBROUTINE PZPBTRF( UPLO, N, BW, A, JA, DESCA, AF, LAF, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzpbtrs.f b/SRC/pzpbtrs.f index c5b9a7ad..6ed47ed1 100644 --- a/SRC/pzpbtrs.f +++ b/SRC/pzpbtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZPBTRS( UPLO, N, BW, NRHS, A, JA, DESCA, B, IB, DESCB, $ AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzpbtrsv.f b/SRC/pzpbtrsv.f index 33d87663..86b8ece4 100644 --- a/SRC/pzpbtrsv.f +++ b/SRC/pzpbtrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZPBTRSV( UPLO, TRANS, N, BW, NRHS, A, JA, DESCA, B, $ IB, DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzpocon.f b/SRC/pzpocon.f index 0225d904..85df7044 100644 --- a/SRC/pzpocon.f +++ b/SRC/pzpocon.f @@ -1,5 +1,6 @@ SUBROUTINE PZPOCON( UPLO, N, A, IA, JA, DESCA, ANORM, RCOND, WORK, $ LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzpoequ.f b/SRC/pzpoequ.f index a802989a..f2640228 100644 --- a/SRC/pzpoequ.f +++ b/SRC/pzpoequ.f @@ -1,5 +1,6 @@ SUBROUTINE PZPOEQU( N, A, IA, JA, DESCA, SR, SC, SCOND, AMAX, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzporfs.f b/SRC/pzporfs.f index 7d76c0d7..e6554532 100644 --- a/SRC/pzporfs.f +++ b/SRC/pzporfs.f @@ -1,6 +1,7 @@ SUBROUTINE PZPORFS( UPLO, N, NRHS, A, IA, JA, DESCA, AF, IAF, JAF, $ DESCAF, B, IB, JB, DESCB, X, IX, JX, DESCX, $ FERR, BERR, WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzposv.f b/SRC/pzposv.f index 9a423fd6..94c4c4f4 100644 --- a/SRC/pzposv.f +++ b/SRC/pzposv.f @@ -1,5 +1,6 @@ SUBROUTINE PZPOSV( UPLO, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzposvx.f b/SRC/pzposvx.f index 7616ffb7..d6aaf242 100644 --- a/SRC/pzposvx.f +++ b/SRC/pzposvx.f @@ -2,6 +2,7 @@ SUBROUTINE PZPOSVX( FACT, UPLO, N, NRHS, A, IA, JA, DESCA, AF, $ IAF, JAF, DESCAF, EQUED, SR, SC, B, IB, JB, $ DESCB, X, IX, JX, DESCX, RCOND, FERR, BERR, $ WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzpotf2.f b/SRC/pzpotf2.f index 8b2695ba..951c6985 100644 --- a/SRC/pzpotf2.f +++ b/SRC/pzpotf2.f @@ -1,4 +1,5 @@ SUBROUTINE PZPOTF2( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzpotrf.f b/SRC/pzpotrf.f index 23d0ddcf..e924ed97 100644 --- a/SRC/pzpotrf.f +++ b/SRC/pzpotrf.f @@ -1,4 +1,5 @@ SUBROUTINE PZPOTRF( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzpotri.f b/SRC/pzpotri.f index 4d0ea77c..0b67a64c 100644 --- a/SRC/pzpotri.f +++ b/SRC/pzpotri.f @@ -1,4 +1,5 @@ SUBROUTINE PZPOTRI( UPLO, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzpotrs.f b/SRC/pzpotrs.f index b5b134fe..b0ce005b 100644 --- a/SRC/pzpotrs.f +++ b/SRC/pzpotrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZPOTRS( UPLO, N, NRHS, A, IA, JA, DESCA, B, IB, JB, $ DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzptsv.f b/SRC/pzptsv.f index 2d02a658..f5cd6bd5 100644 --- a/SRC/pzptsv.f +++ b/SRC/pzptsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZPTSV( UPLO, N, NRHS, D, E, JA, DESCA, B, IB, DESCB, $ WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzpttrf.f b/SRC/pzpttrf.f index 5b679cdd..a0298e06 100644 --- a/SRC/pzpttrf.f +++ b/SRC/pzpttrf.f @@ -1,5 +1,6 @@ SUBROUTINE PZPTTRF( N, D, E, JA, DESCA, AF, LAF, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzpttrs.f b/SRC/pzpttrs.f index 7a4bb32c..7e9f1614 100644 --- a/SRC/pzpttrs.f +++ b/SRC/pzpttrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZPTTRS( UPLO, N, NRHS, D, E, JA, DESCA, B, IB, DESCB, $ AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/SRC/pzpttrsv.f b/SRC/pzpttrsv.f index 71033565..b3074a49 100644 --- a/SRC/pzpttrsv.f +++ b/SRC/pzpttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE PZPTTRSV( UPLO, TRANS, N, NRHS, D, E, JA, DESCA, B, IB, $ DESCB, AF, LAF, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/pzstein.f b/SRC/pzstein.f index 5d397314..32f70fff 100644 --- a/SRC/pzstein.f +++ b/SRC/pzstein.f @@ -1,6 +1,7 @@ SUBROUTINE PZSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, ORFAC, Z, IZ, $ JZ, DESCZ, WORK, LWORK, IWORK, LIWORK, IFAIL, $ ICLUSTR, GAP, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pztrcon.f b/SRC/pztrcon.f index 8f472e1c..92fdbdb8 100644 --- a/SRC/pztrcon.f +++ b/SRC/pztrcon.f @@ -1,5 +1,6 @@ SUBROUTINE PZTRCON( NORM, UPLO, DIAG, N, A, IA, JA, DESCA, RCOND, $ WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pztrevc.f b/SRC/pztrevc.f index 3b272868..57fd229f 100644 --- a/SRC/pztrevc.f +++ b/SRC/pztrevc.f @@ -1,5 +1,6 @@ SUBROUTINE PZTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL, $ VR, DESCVR, MM, M, WORK, RWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pztrrfs.f b/SRC/pztrrfs.f index bf2c1a73..9e14ed7f 100644 --- a/SRC/pztrrfs.f +++ b/SRC/pztrrfs.f @@ -1,6 +1,7 @@ SUBROUTINE PZTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, IA, JA, DESCA, $ B, IB, JB, DESCB, X, IX, JX, DESCX, FERR, $ BERR, WORK, LWORK, RWORK, LRWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pztrti2.f b/SRC/pztrti2.f index 69d83e8c..ae26ac1b 100644 --- a/SRC/pztrti2.f +++ b/SRC/pztrti2.f @@ -1,4 +1,5 @@ SUBROUTINE PZTRTI2( UPLO, DIAG, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pztrtri.f b/SRC/pztrtri.f index 248b4f98..4d52a3e4 100644 --- a/SRC/pztrtri.f +++ b/SRC/pztrtri.f @@ -1,4 +1,5 @@ SUBROUTINE PZTRTRI( UPLO, DIAG, N, A, IA, JA, DESCA, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pztrtrs.f b/SRC/pztrtrs.f index de1c9ef1..48f3b813 100644 --- a/SRC/pztrtrs.f +++ b/SRC/pztrtrs.f @@ -1,5 +1,6 @@ SUBROUTINE PZTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, IA, JA, DESCA, $ B, IB, JB, DESCB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pztzrzf.f b/SRC/pztzrzf.f index ae6f7de9..c3e8b649 100644 --- a/SRC/pztzrzf.f +++ b/SRC/pztzrzf.f @@ -1,5 +1,6 @@ SUBROUTINE PZTZRZF( M, N, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzung2l.f b/SRC/pzung2l.f index 8a5f35d9..b7d7e2de 100644 --- a/SRC/pzung2l.f +++ b/SRC/pzung2l.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNG2L( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzung2r.f b/SRC/pzung2r.f index 06109dbb..38ce410e 100644 --- a/SRC/pzung2r.f +++ b/SRC/pzung2r.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNG2R( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzungl2.f b/SRC/pzungl2.f index 96a96265..cb10b0f9 100644 --- a/SRC/pzungl2.f +++ b/SRC/pzungl2.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNGL2( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunglq.f b/SRC/pzunglq.f index a34f6777..7db97ad4 100644 --- a/SRC/pzunglq.f +++ b/SRC/pzunglq.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNGLQ( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzungql.f b/SRC/pzungql.f index 426ec4d6..52fae04a 100644 --- a/SRC/pzungql.f +++ b/SRC/pzungql.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNGQL( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzungqr.f b/SRC/pzungqr.f index e32722ab..dfc5a34d 100644 --- a/SRC/pzungqr.f +++ b/SRC/pzungqr.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNGQR( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzungr2.f b/SRC/pzungr2.f index a8666db4..1e896429 100644 --- a/SRC/pzungr2.f +++ b/SRC/pzungr2.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNGR2( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzungrq.f b/SRC/pzungrq.f index e95577d5..eddb3063 100644 --- a/SRC/pzungrq.f +++ b/SRC/pzungrq.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNGRQ( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunm2l.f b/SRC/pzunm2l.f index 30dd4424..7f5f82a0 100644 --- a/SRC/pzunm2l.f +++ b/SRC/pzunm2l.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNM2L( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunm2r.f b/SRC/pzunm2r.f index ccbee1c8..0990523d 100644 --- a/SRC/pzunm2r.f +++ b/SRC/pzunm2r.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNM2R( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmbr.f b/SRC/pzunmbr.f index 4a41d8f1..19d671e4 100644 --- a/SRC/pzunmbr.f +++ b/SRC/pzunmbr.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMBR( VECT, SIDE, TRANS, M, N, K, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmhr.f b/SRC/pzunmhr.f index 038916aa..ec738e6c 100644 --- a/SRC/pzunmhr.f +++ b/SRC/pzunmhr.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunml2.f b/SRC/pzunml2.f index e5d02d3d..7ef944f7 100644 --- a/SRC/pzunml2.f +++ b/SRC/pzunml2.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNML2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmlq.f b/SRC/pzunmlq.f index 21693224..ca7caae6 100644 --- a/SRC/pzunmlq.f +++ b/SRC/pzunmlq.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMLQ( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmql.f b/SRC/pzunmql.f index e8eeb7a3..c276fbbb 100644 --- a/SRC/pzunmql.f +++ b/SRC/pzunmql.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMQL( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmqr.f b/SRC/pzunmqr.f index f7b28ca4..78b84505 100644 --- a/SRC/pzunmqr.f +++ b/SRC/pzunmqr.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMQR( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmr2.f b/SRC/pzunmr2.f index b8c02509..9b67d430 100644 --- a/SRC/pzunmr2.f +++ b/SRC/pzunmr2.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMR2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmr3.f b/SRC/pzunmr3.f index 3b0d42ba..b6eaafb7 100644 --- a/SRC/pzunmr3.f +++ b/SRC/pzunmr3.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMR3( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmrq.f b/SRC/pzunmrq.f index fc25c4e1..ebfc2816 100644 --- a/SRC/pzunmrq.f +++ b/SRC/pzunmrq.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMRQ( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU, $ C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmrz.f b/SRC/pzunmrz.f index 8d952190..d5d95d5e 100644 --- a/SRC/pzunmrz.f +++ b/SRC/pzunmrz.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMRZ( SIDE, TRANS, M, N, K, L, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/pzunmtr.f b/SRC/pzunmtr.f index f2820a59..e4cda921 100644 --- a/SRC/pzunmtr.f +++ b/SRC/pzunmtr.f @@ -1,5 +1,6 @@ SUBROUTINE PZUNMTR( SIDE, UPLO, TRANS, M, N, A, IA, JA, DESCA, $ TAU, C, IC, JC, DESCC, WORK, LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/sdbtf2.f b/SRC/sdbtf2.f index b1d814ea..faa90053 100644 --- a/SRC/sdbtf2.f +++ b/SRC/sdbtf2.f @@ -1,4 +1,5 @@ SUBROUTINE SDBTF2( M, N, KL, KU, AB, LDAB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/sdbtrf.f b/SRC/sdbtrf.f index 8fbe469d..1ce3202a 100644 --- a/SRC/sdbtrf.f +++ b/SRC/sdbtrf.f @@ -1,4 +1,5 @@ SUBROUTINE SDBTRF( M, N, KL, KU, AB, LDAB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/sdttrf.f b/SRC/sdttrf.f index ccbd9687..d1b6ecbc 100644 --- a/SRC/sdttrf.f +++ b/SRC/sdttrf.f @@ -1,4 +1,5 @@ SUBROUTINE SDTTRF( N, DL, D, DU, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/sdttrsv.f b/SRC/sdttrsv.f index b1d517f6..73f12c3f 100644 --- a/SRC/sdttrsv.f +++ b/SRC/sdttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE SDTTRSV( UPLO, TRANS, N, NRHS, DL, D, DU, $ B, LDB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/slamsh.f b/SRC/slamsh.f index eb891a92..7c7bbbf6 100644 --- a/SRC/slamsh.f +++ b/SRC/slamsh.f @@ -1,4 +1,5 @@ SUBROUTINE SLAMSH ( S, LDS, NBULGE, JBLK, H, LDH, N, ULP ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/slapst.f b/SRC/slapst.f index ed84cf9f..a4240fe6 100644 --- a/SRC/slapst.f +++ b/SRC/slapst.f @@ -1,4 +1,5 @@ SUBROUTINE SLAPST( ID, N, D, INDX, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/slarrd2.f b/SRC/slarrd2.f index 6298a9c4..e2a86943 100644 --- a/SRC/slarrd2.f +++ b/SRC/slarrd2.f @@ -2,6 +2,7 @@ SUBROUTINE SLARRD2( RANGE, ORDER, N, VL, VU, IL, IU, GERS, $ RELTOL, D, E, E2, PIVMIN, NSPLIT, ISPLIT, $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, DOL, DOU, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/slarre2.f b/SRC/slarre2.f index 7dc37e17..6448ada3 100644 --- a/SRC/slarre2.f +++ b/SRC/slarre2.f @@ -3,6 +3,7 @@ SUBROUTINE SLARRE2( RANGE, N, VL, VU, IL, IU, D, E, E2, $ M, DOL, DOU, $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/slasorte.f b/SRC/slasorte.f index 44f13ff2..af60ec24 100644 --- a/SRC/slasorte.f +++ b/SRC/slasorte.f @@ -1,4 +1,5 @@ SUBROUTINE SLASORTE( S, LDS, J, OUT, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/slasrt2.f b/SRC/slasrt2.f index 7c4b9ce2..164b817e 100644 --- a/SRC/slasrt2.f +++ b/SRC/slasrt2.f @@ -1,6 +1,7 @@ * * SUBROUTINE SLASRT2( ID, N, D, KEY, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/spttrsv.f b/SRC/spttrsv.f index fea6ae45..455ade07 100644 --- a/SRC/spttrsv.f +++ b/SRC/spttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE SPTTRSV( TRANS, N, NRHS, D, E, B, LDB, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/sstegr2.f b/SRC/sstegr2.f index 3d8e1066..0dd09d10 100644 --- a/SRC/sstegr2.f +++ b/SRC/sstegr2.f @@ -1,6 +1,7 @@ SUBROUTINE SSTEGR2( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, DOL, DOU, ZOFFSET, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/sstein2.f b/SRC/sstein2.f index dcd4db6d..3cf7a3d2 100644 --- a/SRC/sstein2.f +++ b/SRC/sstein2.f @@ -2,6 +2,7 @@ * SUBROUTINE SSTEIN2( N, D, E, M, W, IBLOCK, ISPLIT, ORFAC, Z, LDZ, $ WORK, IWORK, IFAIL, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/ssteqr2.f b/SRC/ssteqr2.f index 29fcc3bf..e7db0ecd 100644 --- a/SRC/ssteqr2.f +++ b/SRC/ssteqr2.f @@ -1,4 +1,5 @@ SUBROUTINE SSTEQR2( COMPZ, N, D, E, Z, LDZ, NR, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/strmvt.f b/SRC/strmvt.f index 4410ee8c..25093255 100644 --- a/SRC/strmvt.f +++ b/SRC/strmvt.f @@ -1,5 +1,6 @@ SUBROUTINE STRMVT( UPLO, N, T, LDT, X, INCX, Y, INCY, W, INCW, Z, $ INCZ ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/SRC/zdbtf2.f b/SRC/zdbtf2.f index 9fa2a2bc..0d47ee3b 100644 --- a/SRC/zdbtf2.f +++ b/SRC/zdbtf2.f @@ -1,4 +1,5 @@ SUBROUTINE ZDBTF2( M, N, KL, KU, AB, LDAB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/zdbtrf.f b/SRC/zdbtrf.f index 21a80be1..5a4ef5ac 100644 --- a/SRC/zdbtrf.f +++ b/SRC/zdbtrf.f @@ -1,4 +1,5 @@ SUBROUTINE ZDBTRF( M, N, KL, KU, AB, LDAB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/zdttrf.f b/SRC/zdttrf.f index f3bcc7ae..c7f3f6a3 100644 --- a/SRC/zdttrf.f +++ b/SRC/zdttrf.f @@ -1,4 +1,5 @@ SUBROUTINE ZDTTRF( N, DL, D, DU, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/zdttrsv.f b/SRC/zdttrsv.f index d98e8dfb..c0c4f972 100644 --- a/SRC/zdttrsv.f +++ b/SRC/zdttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE ZDTTRSV( UPLO, TRANS, N, NRHS, DL, D, DU, $ B, LDB, INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/zlahqr2.f b/SRC/zlahqr2.f index 70f8cf8a..025bd62f 100644 --- a/SRC/zlahqr2.f +++ b/SRC/zlahqr2.f @@ -1,5 +1,6 @@ SUBROUTINE ZLAHQR2( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/zlamsh.f b/SRC/zlamsh.f index df59bd20..5f9b0664 100644 --- a/SRC/zlamsh.f +++ b/SRC/zlamsh.f @@ -1,4 +1,5 @@ SUBROUTINE ZLAMSH( S, LDS, NBULGE, JBLK, H, LDH, N, ULP ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/zlanv2.f b/SRC/zlanv2.f index 43d88a58..ad412265 100644 --- a/SRC/zlanv2.f +++ b/SRC/zlanv2.f @@ -1,4 +1,5 @@ SUBROUTINE ZLANV2( A, B, C, D, RT1, RT2, CS, SN ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/zlaref.f b/SRC/zlaref.f index 0e86a968..72bfd2ac 100644 --- a/SRC/zlaref.f +++ b/SRC/zlaref.f @@ -1,6 +1,7 @@ SUBROUTINE ZLAREF( TYPE, A, LDA, WANTZ, Z, LDZ, BLOCK, IROW1, $ ICOL1, ISTART, ISTOP, ITMP1, ITMP2, LILOZ, $ LIHIZ, VECS, V2, V3, T1, T2, T3 ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/zpttrsv.f b/SRC/zpttrsv.f index ce4520b8..122fb081 100644 --- a/SRC/zpttrsv.f +++ b/SRC/zpttrsv.f @@ -1,5 +1,6 @@ SUBROUTINE ZPTTRSV( UPLO, TRANS, N, NRHS, D, E, B, LDB, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 2.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/SRC/zsteqr2.f b/SRC/zsteqr2.f index f4bc6b72..de365c17 100644 --- a/SRC/zsteqr2.f +++ b/SRC/zsteqr2.f @@ -1,4 +1,5 @@ SUBROUTINE ZSTEQR2( COMPZ, N, D, E, Z, LDZ, NR, WORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/SRC/ztrmvt.f b/SRC/ztrmvt.f index 9c367a80..9bc8bd51 100644 --- a/SRC/ztrmvt.f +++ b/SRC/ztrmvt.f @@ -1,5 +1,6 @@ SUBROUTINE ZTRMVT( UPLO, N, T, LDT, X, INCX, Y, INCY, W, INCW, Z, $ INCZ ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcbrddriver.f b/TESTING/traditional/EIG/pcbrddriver.f index a1711d7b..32f0a0cf 100644 --- a/TESTING/traditional/EIG/pcbrddriver.f +++ b/TESTING/traditional/EIG/pcbrddriver.f @@ -1,4 +1,5 @@ PROGRAM PCBRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcbrdinfo.f b/TESTING/traditional/EIG/pcbrdinfo.f index 270ba29b..8237c8a1 100644 --- a/TESTING/traditional/EIG/pcbrdinfo.f +++ b/TESTING/traditional/EIG/pcbrdinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PCBRDINFO( SUMMRY, NOUT, NMAT, MVAL, LDMVAL, NVAL, $ LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcevcdriver.f b/TESTING/traditional/EIG/pcevcdriver.f index a9b28c77..dcdc7d30 100644 --- a/TESTING/traditional/EIG/pcevcdriver.f +++ b/TESTING/traditional/EIG/pcevcdriver.f @@ -1,4 +1,5 @@ PROGRAM PCEVCDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcevcinfo.f b/TESTING/traditional/EIG/pcevcinfo.f index e0d7b7df..afb8b98c 100644 --- a/TESTING/traditional/EIG/pcevcinfo.f +++ b/TESTING/traditional/EIG/pcevcinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PCEVCINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcgebdrv.f b/TESTING/traditional/EIG/pcgebdrv.f index 7c4d14bd..01c2ae43 100644 --- a/TESTING/traditional/EIG/pcgebdrv.f +++ b/TESTING/traditional/EIG/pcgebdrv.f @@ -1,5 +1,6 @@ SUBROUTINE PCGEBDRV( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcgehdrv.f b/TESTING/traditional/EIG/pcgehdrv.f index 3be12a28..4f349d1a 100644 --- a/TESTING/traditional/EIG/pcgehdrv.f +++ b/TESTING/traditional/EIG/pcgehdrv.f @@ -1,4 +1,5 @@ SUBROUTINE PCGEHDRV( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcget22.f b/TESTING/traditional/EIG/pcget22.f index 5a19b8b0..96ac4ad6 100644 --- a/TESTING/traditional/EIG/pcget22.f +++ b/TESTING/traditional/EIG/pcget22.f @@ -1,5 +1,6 @@ SUBROUTINE PCGET22( TRANSA, TRANSE, TRANSW, N, A, DESCA, E, DESCE, $ W, WORK, DESCW, RWORK, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcgsepchk.f b/TESTING/traditional/EIG/pcgsepchk.f index 7fc7b92c..be0f1284 100644 --- a/TESTING/traditional/EIG/pcgsepchk.f +++ b/TESTING/traditional/EIG/pcgsepchk.f @@ -3,6 +3,7 @@ SUBROUTINE PCGSEPCHK( IBTYPE, MS, NV, A, IA, JA, DESCA, B, IB, JB, $ DESCB, THRESH, Q, IQ, JQ, DESCQ, C, IC, JC, $ DESCC, W, WORK, LWORK, TSTNRM, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcgsepdriver.f b/TESTING/traditional/EIG/pcgsepdriver.f index 6f1e7108..1c893c62 100644 --- a/TESTING/traditional/EIG/pcgsepdriver.f +++ b/TESTING/traditional/EIG/pcgsepdriver.f @@ -1,6 +1,7 @@ * * PROGRAM PCGSEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcgsepreq.f b/TESTING/traditional/EIG/pcgsepreq.f index c1ef490c..6edec3b8 100644 --- a/TESTING/traditional/EIG/pcgsepreq.f +++ b/TESTING/traditional/EIG/pcgsepreq.f @@ -2,6 +2,7 @@ * SUBROUTINE PCGSEPREQ( NIN, MEM, MEMSIZE, NOUT, ISEED, NTESTS, $ NSKIPPED, NNOCHECK, NPASSED, INFO ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcgsepsubtst.f b/TESTING/traditional/EIG/pcgsepsubtst.f index 8c7282e1..5e4fed5f 100644 --- a/TESTING/traditional/EIG/pcgsepsubtst.f +++ b/TESTING/traditional/EIG/pcgsepsubtst.f @@ -7,6 +7,7 @@ SUBROUTINE PCGSEPSUBTST( WKNOWN, IBTYPE, JOBZ, RANGE, UPLO, N, VL, $ WORK, LWORK, RWORK, LRWORK, LWORK1, $ IWORK, LIWORK, RESULT, TSTNRM, QTQNRM, $ NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcgseptst.f b/TESTING/traditional/EIG/pcgseptst.f index e1ef9300..a53589cd 100644 --- a/TESTING/traditional/EIG/pcgseptst.f +++ b/TESTING/traditional/EIG/pcgseptst.f @@ -5,6 +5,7 @@ SUBROUTINE PCGSEPTST( DESCA, UPLO, N, MATTYPE, IBTYPE, SUBTESTS, $ COPYB, Z, LDA, WIN, WNEW, IFAIL, ICLUSTR, $ GAP, IPREPAD, IPOSTPAD, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, NOUT, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pchetdrv.f b/TESTING/traditional/EIG/pchetdrv.f index 8d8cf69b..fa212ab0 100644 --- a/TESTING/traditional/EIG/pchetdrv.f +++ b/TESTING/traditional/EIG/pchetdrv.f @@ -1,5 +1,6 @@ SUBROUTINE PCHETDRV( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pchrddriver.f b/TESTING/traditional/EIG/pchrddriver.f index 81faae60..45a5cc9d 100644 --- a/TESTING/traditional/EIG/pchrddriver.f +++ b/TESTING/traditional/EIG/pchrddriver.f @@ -1,4 +1,5 @@ PROGRAM PCHRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pchrdinfo.f b/TESTING/traditional/EIG/pchrdinfo.f index da3ee59f..2de6ebdf 100644 --- a/TESTING/traditional/EIG/pchrdinfo.f +++ b/TESTING/traditional/EIG/pchrdinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PCHRDINFO( SUMMRY, NOUT, NMAT, NVAL, NVLO, NVHI, $ LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pclafchk.f b/TESTING/traditional/EIG/pclafchk.f index 92e034a6..19b2b4db 100644 --- a/TESTING/traditional/EIG/pclafchk.f +++ b/TESTING/traditional/EIG/pclafchk.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAFCHK( AFORM, DIAG, M, N, A, IA, JA, DESCA, IASEED, $ ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pclagsy.f b/TESTING/traditional/EIG/pclagsy.f index e08b06ea..51c19ae2 100644 --- a/TESTING/traditional/EIG/pclagsy.f +++ b/TESTING/traditional/EIG/pclagsy.f @@ -2,6 +2,7 @@ * SUBROUTINE PCLAGHE( N, K, D, A, IA, JA, DESCA, ISEED, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pclasizegsep.f b/TESTING/traditional/EIG/pclasizegsep.f index 6600b30c..a1b2c921 100644 --- a/TESTING/traditional/EIG/pclasizegsep.f +++ b/TESTING/traditional/EIG/pclasizegsep.f @@ -4,6 +4,7 @@ SUBROUTINE PCLASIZEGSEP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ ISIZEHEEVX, SIZESUBTST, RSIZESUBTST, $ ISIZESUBTST, SIZETST, RSIZETST, $ ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pclasizeheevx.f b/TESTING/traditional/EIG/pclasizeheevx.f index 78441249..f166b737 100644 --- a/TESTING/traditional/EIG/pclasizeheevx.f +++ b/TESTING/traditional/EIG/pclasizeheevx.f @@ -2,6 +2,7 @@ * SUBROUTINE PCLASIZEHEEVX( WKNOWN, RANGE, N, DESCA, VL, VU, IL, IU, $ ISEED, WIN, MAXSIZE, VECSIZE, VALSIZE ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pclasizesep.f b/TESTING/traditional/EIG/pclasizesep.f index 7f5af442..a97fb3a5 100644 --- a/TESTING/traditional/EIG/pclasizesep.f +++ b/TESTING/traditional/EIG/pclasizesep.f @@ -4,6 +4,7 @@ SUBROUTINE PCLASIZESEP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ ISIZEHEEVX, SIZEHEEVD, RSIZEHEEVD, $ ISIZEHEEVD, SIZESUBTST, RSIZESUBTST, $ ISIZESUBTST, SIZETST, RSIZETST, ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pclatms.f b/TESTING/traditional/EIG/pclatms.f index 908d0b01..55b0a188 100644 --- a/TESTING/traditional/EIG/pclatms.f +++ b/TESTING/traditional/EIG/pclatms.f @@ -3,6 +3,7 @@ SUBROUTINE PCLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, IA, JA, DESCA, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pclatran.f b/TESTING/traditional/EIG/pclatran.f index fc1a099a..6d16b2d6 100644 --- a/TESTING/traditional/EIG/pclatran.f +++ b/TESTING/traditional/EIG/pclatran.f @@ -1,4 +1,5 @@ SUBROUTINE PCLATRAN( N, NB, A, IA, JA, DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcmatgen.f b/TESTING/traditional/EIG/pcmatgen.f index 47c0413d..6f9d9060 100644 --- a/TESTING/traditional/EIG/pcmatgen.f +++ b/TESTING/traditional/EIG/pcmatgen.f @@ -1,6 +1,7 @@ SUBROUTINE PCMATGEN( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcnepdriver.f b/TESTING/traditional/EIG/pcnepdriver.f index 71a6e6f0..310e1043 100644 --- a/TESTING/traditional/EIG/pcnepdriver.f +++ b/TESTING/traditional/EIG/pcnepdriver.f @@ -1,4 +1,5 @@ PROGRAM PCNEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcnepfchk.f b/TESTING/traditional/EIG/pcnepfchk.f index 568e9849..4f41448a 100644 --- a/TESTING/traditional/EIG/pcnepfchk.f +++ b/TESTING/traditional/EIG/pcnepfchk.f @@ -1,5 +1,6 @@ SUBROUTINE PCNEPFCHK( N, A, IA, JA, DESCA, IASEED, Z, IZ, JZ, $ DESCZ, ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcnepinfo.f b/TESTING/traditional/EIG/pcnepinfo.f index 69e5c10e..add33295 100644 --- a/TESTING/traditional/EIG/pcnepinfo.f +++ b/TESTING/traditional/EIG/pcnepinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PCNEPINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcrptseptst.f b/TESTING/traditional/EIG/pcrptseptst.f index 9c250ea1..37314573 100644 --- a/TESTING/traditional/EIG/pcrptseptst.f +++ b/TESTING/traditional/EIG/pcrptseptst.f @@ -1,4 +1,5 @@ PROGRAM PCRPTSEPTST + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcsdpsubtst.f b/TESTING/traditional/EIG/pcsdpsubtst.f index aa373ac3..7b6c151d 100644 --- a/TESTING/traditional/EIG/pcsdpsubtst.f +++ b/TESTING/traditional/EIG/pcsdpsubtst.f @@ -3,6 +3,7 @@ SUBROUTINE PCSDPSUBTST( WKNOWN, UPLO, N, THRESH, ABSTOL, A, COPYA, $ IPOSTPAD, WORK, LWORK, RWORK, LRWORK, $ LWORK1, IWORK, LIWORK, RESULT, TSTNRM, $ QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcsepchk.f b/TESTING/traditional/EIG/pcsepchk.f index 6c609e3d..87f03460 100644 --- a/TESTING/traditional/EIG/pcsepchk.f +++ b/TESTING/traditional/EIG/pcsepchk.f @@ -3,6 +3,7 @@ SUBROUTINE PCSEPCHK( MS, NV, A, IA, JA, DESCA, EPSNORMA, THRESH, $ Q, IQ, JQ, DESCQ, C, IC, JC, DESCC, W, WORK, $ LWORK, TSTNRM, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/TESTING/traditional/EIG/pcsepdriver.f b/TESTING/traditional/EIG/pcsepdriver.f index dfc93f5e..b223c893 100644 --- a/TESTING/traditional/EIG/pcsepdriver.f +++ b/TESTING/traditional/EIG/pcsepdriver.f @@ -1,6 +1,7 @@ * * PROGRAM PCSEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcsepqtq.f b/TESTING/traditional/EIG/pcsepqtq.f index ebe1ce6f..0252e844 100644 --- a/TESTING/traditional/EIG/pcsepqtq.f +++ b/TESTING/traditional/EIG/pcsepqtq.f @@ -3,6 +3,7 @@ SUBROUTINE PCSEPQTQ( MS, NV, THRESH, Q, IQ, JQ, DESCQ, C, IC, JC, $ DESCC, PROCDIST, ICLUSTR, GAP, WORK, LWORK, $ QTQNRM, INFO, RES ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcsepreq.f b/TESTING/traditional/EIG/pcsepreq.f index 1685cf0f..f680d4f8 100644 --- a/TESTING/traditional/EIG/pcsepreq.f +++ b/TESTING/traditional/EIG/pcsepreq.f @@ -2,6 +2,7 @@ * SUBROUTINE PCSEPREQ( NIN, MEM, MEMSIZE, NOUT, ISEED, NTESTS, $ NSKIPPED, NNOCHECK, NPASSED, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcsepsubtst.f b/TESTING/traditional/EIG/pcsepsubtst.f index acb5187d..35e3bfb5 100644 --- a/TESTING/traditional/EIG/pcsepsubtst.f +++ b/TESTING/traditional/EIG/pcsepsubtst.f @@ -6,6 +6,7 @@ SUBROUTINE PCSEPSUBTST( WKNOWN, JOBZ, RANGE, UPLO, N, VL, VU, IL, $ IPREPAD, IPOSTPAD, WORK, LWORK, RWORK, $ LRWORK, LWORK1, IWORK, LIWORK, RESULT, $ TSTNRM, QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcseptst.f b/TESTING/traditional/EIG/pcseptst.f index a2165b32..87ca6ec6 100644 --- a/TESTING/traditional/EIG/pcseptst.f +++ b/TESTING/traditional/EIG/pcseptst.f @@ -5,6 +5,7 @@ SUBROUTINE PCSEPTST( DESCA, UPLO, N, MATTYPE, SUBTESTS, THRESH, $ WNEW, IFAIL, ICLUSTR, GAP, IPREPAD, IPOSTPAD, $ WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, $ NOUT, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pctrddriver.f b/TESTING/traditional/EIG/pctrddriver.f index 06851ad2..cafd99c7 100644 --- a/TESTING/traditional/EIG/pctrddriver.f +++ b/TESTING/traditional/EIG/pctrddriver.f @@ -1,4 +1,5 @@ PROGRAM PCTRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pctrdinfo.f b/TESTING/traditional/EIG/pctrdinfo.f index b84cfedd..ebed8175 100644 --- a/TESTING/traditional/EIG/pctrdinfo.f +++ b/TESTING/traditional/EIG/pctrdinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PCTRDINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pcttrdtester.f b/TESTING/traditional/EIG/pcttrdtester.f index a51aea03..07c7f875 100644 --- a/TESTING/traditional/EIG/pcttrdtester.f +++ b/TESTING/traditional/EIG/pcttrdtester.f @@ -1,5 +1,6 @@ SUBROUTINE PCTTRDTESTER( IAM, NPROCS, CHECK, NOUT, THRESH, NVAL, $ NMAT, MEM, TOTMEM, KPASS, KFAIL, KSKIP ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdbrddriver.f b/TESTING/traditional/EIG/pdbrddriver.f index abacf5f4..439e9323 100644 --- a/TESTING/traditional/EIG/pdbrddriver.f +++ b/TESTING/traditional/EIG/pdbrddriver.f @@ -1,4 +1,5 @@ PROGRAM PDBRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdbrdinfo.f b/TESTING/traditional/EIG/pdbrdinfo.f index 1f426e50..7f0fc70f 100644 --- a/TESTING/traditional/EIG/pdbrdinfo.f +++ b/TESTING/traditional/EIG/pdbrdinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PDBRDINFO( SUMMRY, NOUT, NMAT, MVAL, LDMVAL, NVAL, $ LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdgebdrv.f b/TESTING/traditional/EIG/pdgebdrv.f index 9a54854e..f765ba06 100644 --- a/TESTING/traditional/EIG/pdgebdrv.f +++ b/TESTING/traditional/EIG/pdgebdrv.f @@ -1,5 +1,6 @@ SUBROUTINE PDGEBDRV( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdgehdrv.f b/TESTING/traditional/EIG/pdgehdrv.f index 42237868..cd10ce85 100644 --- a/TESTING/traditional/EIG/pdgehdrv.f +++ b/TESTING/traditional/EIG/pdgehdrv.f @@ -1,4 +1,5 @@ SUBROUTINE PDGEHDRV( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdgrptseptst.f b/TESTING/traditional/EIG/pdgrptseptst.f index 7bf2e7e4..7ae7ad72 100644 --- a/TESTING/traditional/EIG/pdgrptseptst.f +++ b/TESTING/traditional/EIG/pdgrptseptst.f @@ -1,6 +1,7 @@ * * PROGRAM PDRPTGSEPTST + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdgsepchk.f b/TESTING/traditional/EIG/pdgsepchk.f index f7aa5585..2a108686 100644 --- a/TESTING/traditional/EIG/pdgsepchk.f +++ b/TESTING/traditional/EIG/pdgsepchk.f @@ -3,6 +3,7 @@ SUBROUTINE PDGSEPCHK( IBTYPE, MS, NV, A, IA, JA, DESCA, B, IB, JB, $ DESCB, THRESH, Q, IQ, JQ, DESCQ, C, IC, JC, $ DESCC, W, WORK, LWORK, TSTNRM, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdgsepdriver.f b/TESTING/traditional/EIG/pdgsepdriver.f index 808dacf9..3baf6757 100644 --- a/TESTING/traditional/EIG/pdgsepdriver.f +++ b/TESTING/traditional/EIG/pdgsepdriver.f @@ -1,6 +1,7 @@ * * PROGRAM PDGSEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdgsepreq.f b/TESTING/traditional/EIG/pdgsepreq.f index ae037acd..c7f8dc4d 100644 --- a/TESTING/traditional/EIG/pdgsepreq.f +++ b/TESTING/traditional/EIG/pdgsepreq.f @@ -2,6 +2,7 @@ * SUBROUTINE PDGSEPREQ( NIN, MEM, MEMSIZE, NOUT, ISEED, NTESTS, $ NSKIPPED, NNOCHECK, NPASSED, INFO ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdgsepsubtst.f b/TESTING/traditional/EIG/pdgsepsubtst.f index e610b182..c8c1ea37 100644 --- a/TESTING/traditional/EIG/pdgsepsubtst.f +++ b/TESTING/traditional/EIG/pdgsepsubtst.f @@ -6,6 +6,7 @@ SUBROUTINE PDGSEPSUBTST( WKNOWN, IBTYPE, JOBZ, RANGE, UPLO, N, VL, $ IFAIL, ICLUSTR, GAP, IPREPAD, IPOSTPAD, $ WORK, LWORK, LWORK1, IWORK, LIWORK, $ RESULT, TSTNRM, QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdgseptst.f b/TESTING/traditional/EIG/pdgseptst.f index 9033beb8..483d9582 100644 --- a/TESTING/traditional/EIG/pdgseptst.f +++ b/TESTING/traditional/EIG/pdgseptst.f @@ -5,6 +5,7 @@ SUBROUTINE PDGSEPTST( DESCA, UPLO, N, MATTYPE, IBTYPE, SUBTESTS, $ COPYB, Z, LDA, WIN, WNEW, IFAIL, ICLUSTR, $ GAP, IPREPAD, IPOSTPAD, WORK, LWORK, IWORK, $ LIWORK, NOUT, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdhrddriver.f b/TESTING/traditional/EIG/pdhrddriver.f index 24b8e692..f4e403df 100644 --- a/TESTING/traditional/EIG/pdhrddriver.f +++ b/TESTING/traditional/EIG/pdhrddriver.f @@ -1,4 +1,5 @@ PROGRAM PDHRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdhrdinfo.f b/TESTING/traditional/EIG/pdhrdinfo.f index 84ff5e1e..8e5c166a 100644 --- a/TESTING/traditional/EIG/pdhrdinfo.f +++ b/TESTING/traditional/EIG/pdhrdinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PDHRDINFO( SUMMRY, NOUT, NMAT, NVAL, NVLO, NVHI, $ LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdlafchk.f b/TESTING/traditional/EIG/pdlafchk.f index 9afe4a6a..ef832504 100644 --- a/TESTING/traditional/EIG/pdlafchk.f +++ b/TESTING/traditional/EIG/pdlafchk.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAFCHK( AFORM, DIAG, M, N, A, IA, JA, DESCA, IASEED, $ ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdlagge.f b/TESTING/traditional/EIG/pdlagge.f index ccc2754d..2c53a202 100644 --- a/TESTING/traditional/EIG/pdlagge.f +++ b/TESTING/traditional/EIG/pdlagge.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAGGE( M, N, D, A, IA, JA, DESCA, ISEED, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdlagsy.f b/TESTING/traditional/EIG/pdlagsy.f index 1b8da7da..423677c4 100644 --- a/TESTING/traditional/EIG/pdlagsy.f +++ b/TESTING/traditional/EIG/pdlagsy.f @@ -2,6 +2,7 @@ * SUBROUTINE PDLAGSY( N, K, D, A, IA, JA, DESCA, ISEED, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pdlasizegsep.f b/TESTING/traditional/EIG/pdlasizegsep.f index 5e1cac0c..1ec521c6 100644 --- a/TESTING/traditional/EIG/pdlasizegsep.f +++ b/TESTING/traditional/EIG/pdlasizegsep.f @@ -5,6 +5,7 @@ SUBROUTINE PDLASIZEGSEP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ SIZECHK, SIZESYEVX, ISIZESYEVX, $ SIZESUBTST, ISIZESUBTST, SIZETST, $ ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdlasizesep.f b/TESTING/traditional/EIG/pdlasizesep.f index 7f4388a0..6aad3803 100644 --- a/TESTING/traditional/EIG/pdlasizesep.f +++ b/TESTING/traditional/EIG/pdlasizesep.f @@ -5,6 +5,7 @@ SUBROUTINE PDLASIZESEP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ SIZECHK, SIZESYEVX, ISIZESYEVX, $ SIZESUBTST, ISIZESUBTST, SIZETST, $ ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdlasizesqp.f b/TESTING/traditional/EIG/pdlasizesqp.f index af82402a..dd2a926b 100644 --- a/TESTING/traditional/EIG/pdlasizesqp.f +++ b/TESTING/traditional/EIG/pdlasizesqp.f @@ -4,6 +4,7 @@ SUBROUTINE PDLASIZESQP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ SIZESYEV, SIZESYEVD, ISIZESYEVD, $ SIZESUBTST, ISIZESUBTST, $ SIZETST, ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdlasizesyev.f b/TESTING/traditional/EIG/pdlasizesyev.f index e0d7acc5..d5e2991b 100644 --- a/TESTING/traditional/EIG/pdlasizesyev.f +++ b/TESTING/traditional/EIG/pdlasizesyev.f @@ -1,6 +1,7 @@ * * SUBROUTINE PDLASIZESYEV( JOBZ, N, DESCA, MINSIZE ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pdlasizesyevx.f b/TESTING/traditional/EIG/pdlasizesyevx.f index a2017067..4f086742 100644 --- a/TESTING/traditional/EIG/pdlasizesyevx.f +++ b/TESTING/traditional/EIG/pdlasizesyevx.f @@ -2,6 +2,7 @@ * SUBROUTINE PDLASIZESYEVX( WKNOWN, RANGE, N, DESCA, VL, VU, IL, IU, $ ISEED, WIN, MAXSIZE, VECSIZE, VALSIZE ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pdlatms.f b/TESTING/traditional/EIG/pdlatms.f index 7670a4ab..bce7d001 100644 --- a/TESTING/traditional/EIG/pdlatms.f +++ b/TESTING/traditional/EIG/pdlatms.f @@ -3,6 +3,7 @@ SUBROUTINE PDLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, IA, JA, DESCA, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdlatran.f b/TESTING/traditional/EIG/pdlatran.f index 8841563b..1a8775dd 100644 --- a/TESTING/traditional/EIG/pdlatran.f +++ b/TESTING/traditional/EIG/pdlatran.f @@ -1,4 +1,5 @@ SUBROUTINE PDLATRAN( N, NB, A, IA, JA, DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdmatgen.f b/TESTING/traditional/EIG/pdmatgen.f index fab962c1..41f666b3 100644 --- a/TESTING/traditional/EIG/pdmatgen.f +++ b/TESTING/traditional/EIG/pdmatgen.f @@ -1,6 +1,7 @@ SUBROUTINE PDMATGEN( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdmatgen2.f b/TESTING/traditional/EIG/pdmatgen2.f index 4fe4b167..e8797657 100644 --- a/TESTING/traditional/EIG/pdmatgen2.f +++ b/TESTING/traditional/EIG/pdmatgen2.f @@ -1,6 +1,7 @@ SUBROUTINE PDMATGEN2( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * * Modified version by K. L. Dackland (U added) diff --git a/TESTING/traditional/EIG/pdnepdriver.f b/TESTING/traditional/EIG/pdnepdriver.f index 6f269f46..ba401c65 100644 --- a/TESTING/traditional/EIG/pdnepdriver.f +++ b/TESTING/traditional/EIG/pdnepdriver.f @@ -1,4 +1,5 @@ PROGRAM PDNEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdnepfchk.f b/TESTING/traditional/EIG/pdnepfchk.f index 92d3bb1b..00e16116 100644 --- a/TESTING/traditional/EIG/pdnepfchk.f +++ b/TESTING/traditional/EIG/pdnepfchk.f @@ -1,5 +1,6 @@ SUBROUTINE PDNEPFCHK( N, A, IA, JA, DESCA, IASEED, Z, IZ, JZ, $ DESCZ, ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdnepinfo.f b/TESTING/traditional/EIG/pdnepinfo.f index 1ef5eef9..c1596826 100644 --- a/TESTING/traditional/EIG/pdnepinfo.f +++ b/TESTING/traditional/EIG/pdnepinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PDNEPINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdrptseptst.f b/TESTING/traditional/EIG/pdrptseptst.f index ad4d66b0..8bb6b5d7 100644 --- a/TESTING/traditional/EIG/pdrptseptst.f +++ b/TESTING/traditional/EIG/pdrptseptst.f @@ -1,6 +1,7 @@ * * PROGRAM PDRPTSEPTST + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsdpsubtst.f b/TESTING/traditional/EIG/pdsdpsubtst.f index 7167356e..f076764f 100644 --- a/TESTING/traditional/EIG/pdsdpsubtst.f +++ b/TESTING/traditional/EIG/pdsdpsubtst.f @@ -3,6 +3,7 @@ SUBROUTINE PDSDPSUBTST( WKNOWN, UPLO, N, THRESH, ABSTOL, A, $ IPREPAD, IPOSTPAD, WORK, LWORK, LWORK1, $ IWORK, LIWORK, $ RESULT, TSTNRM, QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsepchk.f b/TESTING/traditional/EIG/pdsepchk.f index 3427aa32..dd29ce97 100644 --- a/TESTING/traditional/EIG/pdsepchk.f +++ b/TESTING/traditional/EIG/pdsepchk.f @@ -3,6 +3,7 @@ SUBROUTINE PDSEPCHK( MS, NV, A, IA, JA, DESCA, EPSNORMA, THRESH, $ Q, IQ, JQ, DESCQ, C, IC, JC, DESCC, W, WORK, $ LWORK, TSTNRM, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/TESTING/traditional/EIG/pdsepdriver.f b/TESTING/traditional/EIG/pdsepdriver.f index e6652524..404a8420 100644 --- a/TESTING/traditional/EIG/pdsepdriver.f +++ b/TESTING/traditional/EIG/pdsepdriver.f @@ -1,6 +1,7 @@ * * PROGRAM PDSEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsepinfo.f b/TESTING/traditional/EIG/pdsepinfo.f index 1d21ecb6..804dd2de 100644 --- a/TESTING/traditional/EIG/pdsepinfo.f +++ b/TESTING/traditional/EIG/pdsepinfo.f @@ -5,6 +5,7 @@ SUBROUTINE PDSEPINFO( CONTEXT, IAM, NIN, NOUT, MAXSETSIZE, $ NPCONFIGS, NPROWS, NPCOLS, NBS, NMATTYPES, $ MATTYPES, MAXTYPE, SUBTESTS, THRESH, ORDER, $ ABSTOL, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsepqtq.f b/TESTING/traditional/EIG/pdsepqtq.f index 4eddab4c..2a24d000 100644 --- a/TESTING/traditional/EIG/pdsepqtq.f +++ b/TESTING/traditional/EIG/pdsepqtq.f @@ -3,6 +3,7 @@ SUBROUTINE PDSEPQTQ( MS, NV, THRESH, Q, IQ, JQ, DESCQ, C, IC, JC, $ DESCC, PROCDIST, ICLUSTR, GAP, WORK, LWORK, $ QTQNRM, INFO, RES ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsepreq.f b/TESTING/traditional/EIG/pdsepreq.f index 419e0877..a62588d5 100644 --- a/TESTING/traditional/EIG/pdsepreq.f +++ b/TESTING/traditional/EIG/pdsepreq.f @@ -2,6 +2,7 @@ * SUBROUTINE PDSEPREQ( HETERO, NIN, MEM, MEMSIZE, NOUT, ISEED, $ NTESTS, NSKIPPED, NNOCHECK, NPASSED, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsepsubtst.f b/TESTING/traditional/EIG/pdsepsubtst.f index 43bd6026..717d7756 100644 --- a/TESTING/traditional/EIG/pdsepsubtst.f +++ b/TESTING/traditional/EIG/pdsepsubtst.f @@ -4,6 +4,7 @@ SUBROUTINE PDSEPSUBTST( WKNOWN, JOBZ, RANGE, UPLO, N, VL, VU, IL, $ IPREPAD, IPOSTPAD, WORK, LWORK, LWORK1, $ IWORK, LIWORK, RESULT, TSTNRM, QTQNRM, $ NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdseptst.f b/TESTING/traditional/EIG/pdseptst.f index e140c7a0..b45f6707 100644 --- a/TESTING/traditional/EIG/pdseptst.f +++ b/TESTING/traditional/EIG/pdseptst.f @@ -3,6 +3,7 @@ SUBROUTINE PDSEPTST( DESCA, UPLO, N, MATTYPE, SUBTESTS, THRESH, $ WNEW, IFAIL, ICLUSTR, GAP, IPREPAD, IPOSTPAD, $ WORK, LWORK, IWORK, LIWORK, HETERO, NOUT, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsqpsubtst.f b/TESTING/traditional/EIG/pdsqpsubtst.f index b9d16d19..2c45cd38 100644 --- a/TESTING/traditional/EIG/pdsqpsubtst.f +++ b/TESTING/traditional/EIG/pdsqpsubtst.f @@ -4,6 +4,7 @@ SUBROUTINE PDSQPSUBTST( WKNOWN, JOBZ, UPLO, N, THRESH, ABSTOL, A, $ COPYA, Z, IA, JA, DESCA, WIN, WNEW, $ IPREPAD, IPOSTPAD, WORK, LWORK, LWORK1, $ RESULT, TSTNRM, QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsvdchk.f b/TESTING/traditional/EIG/pdsvdchk.f index 7b7ed3a8..d7431f23 100644 --- a/TESTING/traditional/EIG/pdsvdchk.f +++ b/TESTING/traditional/EIG/pdsvdchk.f @@ -1,6 +1,7 @@ SUBROUTINE PDSVDCHK( M, N, A, IA, JA, DESCA, U, IU, JU, DESCU, VT, $ IVT, JVT, DESCVT, S, THRESH, WORK, LWORK, $ RESULT, CHK, MTM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsvdcmp.f b/TESTING/traditional/EIG/pdsvdcmp.f index 9ba08eca..1c62db1d 100644 --- a/TESTING/traditional/EIG/pdsvdcmp.f +++ b/TESTING/traditional/EIG/pdsvdcmp.f @@ -1,6 +1,7 @@ SUBROUTINE PDSVDCMP( M, N, JOBTYPE, S, SC, U, UC, IU, JU, DESCU, $ VT, VTC, IVT, JVT, DESCVT, THRESH, RESULT, $ DELTA, WORK, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsvddriver.f b/TESTING/traditional/EIG/pdsvddriver.f index fe53278e..d87d4cf9 100644 --- a/TESTING/traditional/EIG/pdsvddriver.f +++ b/TESTING/traditional/EIG/pdsvddriver.f @@ -1,4 +1,5 @@ PROGRAM PDSVDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsvdtst.f b/TESTING/traditional/EIG/pdsvdtst.f index e1b83452..384c207d 100644 --- a/TESTING/traditional/EIG/pdsvdtst.f +++ b/TESTING/traditional/EIG/pdsvdtst.f @@ -1,5 +1,6 @@ SUBROUTINE PDSVDTST( M, N, NPROW, NPCOL, NB, ISEED, THRESH, WORK, $ RESULT, LWORK, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdsytdrv.f b/TESTING/traditional/EIG/pdsytdrv.f index f977765c..0547a443 100644 --- a/TESTING/traditional/EIG/pdsytdrv.f +++ b/TESTING/traditional/EIG/pdsytdrv.f @@ -1,5 +1,6 @@ SUBROUTINE PDSYTDRV( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdtrddriver.f b/TESTING/traditional/EIG/pdtrddriver.f index 623d9f00..1f5f742d 100644 --- a/TESTING/traditional/EIG/pdtrddriver.f +++ b/TESTING/traditional/EIG/pdtrddriver.f @@ -1,4 +1,5 @@ PROGRAM PDTRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdtrdinfo.f b/TESTING/traditional/EIG/pdtrdinfo.f index 17403a70..1dae26a3 100644 --- a/TESTING/traditional/EIG/pdtrdinfo.f +++ b/TESTING/traditional/EIG/pdtrdinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PDTRDINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pdttrdtester.f b/TESTING/traditional/EIG/pdttrdtester.f index e2b3631a..aad5215c 100644 --- a/TESTING/traditional/EIG/pdttrdtester.f +++ b/TESTING/traditional/EIG/pdttrdtester.f @@ -1,5 +1,6 @@ SUBROUTINE PDTTRDTESTER( IAM, NPROCS, CHECK, NOUT, THRESH, NVAL, $ NMAT, MEM, TOTMEM, KPASS, KFAIL, KSKIP ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pmatgeninc.f b/TESTING/traditional/EIG/pmatgeninc.f index 87985560..ed9281d1 100644 --- a/TESTING/traditional/EIG/pmatgeninc.f +++ b/TESTING/traditional/EIG/pmatgeninc.f @@ -3,6 +3,7 @@ * ===================================================================== * SUBROUTINE LADD( J, K, I ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -38,6 +39,7 @@ SUBROUTINE LADD( J, K, I ) * ===================================================================== * SUBROUTINE LMUL( K, J, I ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -82,6 +84,7 @@ SUBROUTINE LMUL( K, J, I ) * ===================================================================== * SUBROUTINE XJUMPM( JUMPM, MULT, IADD, IRANN, IRANM, IAM, ICM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -139,6 +142,7 @@ SUBROUTINE XJUMPM( JUMPM, MULT, IADD, IRANN, IRANM, IAM, ICM ) * ===================================================================== * SUBROUTINE SETRAN( IRAN, IA, IC ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -180,6 +184,7 @@ SUBROUTINE SETRAN( IRAN, IA, IC ) * ===================================================================== * SUBROUTINE JUMPIT( MULT, IADD, IRANN, IRANM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -221,6 +226,7 @@ SUBROUTINE JUMPIT( MULT, IADD, IRANN, IRANM ) * ===================================================================== * REAL FUNCTION PSRAND( IDUMM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -269,6 +275,7 @@ REAL FUNCTION PSRAND( IDUMM ) * ===================================================================== * DOUBLE PRECISION FUNCTION PDRAND( IDUMM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psbrddriver.f b/TESTING/traditional/EIG/psbrddriver.f index f5173b2c..ecd3ba4b 100644 --- a/TESTING/traditional/EIG/psbrddriver.f +++ b/TESTING/traditional/EIG/psbrddriver.f @@ -1,4 +1,5 @@ PROGRAM PSBRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psbrdinfo.f b/TESTING/traditional/EIG/psbrdinfo.f index 72c47b01..d094725b 100644 --- a/TESTING/traditional/EIG/psbrdinfo.f +++ b/TESTING/traditional/EIG/psbrdinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PSBRDINFO( SUMMRY, NOUT, NMAT, MVAL, LDMVAL, NVAL, $ LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psgebdrv.f b/TESTING/traditional/EIG/psgebdrv.f index 0a94542c..24356a81 100644 --- a/TESTING/traditional/EIG/psgebdrv.f +++ b/TESTING/traditional/EIG/psgebdrv.f @@ -1,5 +1,6 @@ SUBROUTINE PSGEBDRV( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psgehdrv.f b/TESTING/traditional/EIG/psgehdrv.f index 6172c11a..15185a0a 100644 --- a/TESTING/traditional/EIG/psgehdrv.f +++ b/TESTING/traditional/EIG/psgehdrv.f @@ -1,4 +1,5 @@ SUBROUTINE PSGEHDRV( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psgrptseptst.f b/TESTING/traditional/EIG/psgrptseptst.f index 76e05266..8cd8206f 100644 --- a/TESTING/traditional/EIG/psgrptseptst.f +++ b/TESTING/traditional/EIG/psgrptseptst.f @@ -1,4 +1,5 @@ PROGRAM PSRPTGSEPTST + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psgsepchk.f b/TESTING/traditional/EIG/psgsepchk.f index 87f5cddc..c06fe6f0 100644 --- a/TESTING/traditional/EIG/psgsepchk.f +++ b/TESTING/traditional/EIG/psgsepchk.f @@ -3,6 +3,7 @@ SUBROUTINE PSGSEPCHK( IBTYPE, MS, NV, A, IA, JA, DESCA, B, IB, JB, $ DESCB, THRESH, Q, IQ, JQ, DESCQ, C, IC, JC, $ DESCC, W, WORK, LWORK, TSTNRM, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psgsepdriver.f b/TESTING/traditional/EIG/psgsepdriver.f index d3d5863e..fb63ef85 100644 --- a/TESTING/traditional/EIG/psgsepdriver.f +++ b/TESTING/traditional/EIG/psgsepdriver.f @@ -1,6 +1,7 @@ * * PROGRAM PSGSEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psgsepreq.f b/TESTING/traditional/EIG/psgsepreq.f index ece55ac4..905ca5f4 100644 --- a/TESTING/traditional/EIG/psgsepreq.f +++ b/TESTING/traditional/EIG/psgsepreq.f @@ -2,6 +2,7 @@ * SUBROUTINE PSGSEPREQ( NIN, MEM, MEMSIZE, NOUT, ISEED, NTESTS, $ NSKIPPED, NNOCHECK, NPASSED, INFO ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psgsepsubtst.f b/TESTING/traditional/EIG/psgsepsubtst.f index 5566001b..0f7e8930 100644 --- a/TESTING/traditional/EIG/psgsepsubtst.f +++ b/TESTING/traditional/EIG/psgsepsubtst.f @@ -6,6 +6,7 @@ SUBROUTINE PSGSEPSUBTST( WKNOWN, IBTYPE, JOBZ, RANGE, UPLO, N, VL, $ IFAIL, ICLUSTR, GAP, IPREPAD, IPOSTPAD, $ WORK, LWORK, LWORK1, IWORK, LIWORK, $ RESULT, TSTNRM, QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psgseptst.f b/TESTING/traditional/EIG/psgseptst.f index 69e34dfb..0d9e9d5b 100644 --- a/TESTING/traditional/EIG/psgseptst.f +++ b/TESTING/traditional/EIG/psgseptst.f @@ -5,6 +5,7 @@ SUBROUTINE PSGSEPTST( DESCA, UPLO, N, MATTYPE, IBTYPE, SUBTESTS, $ COPYB, Z, LDA, WIN, WNEW, IFAIL, ICLUSTR, $ GAP, IPREPAD, IPOSTPAD, WORK, LWORK, IWORK, $ LIWORK, NOUT, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pshrddriver.f b/TESTING/traditional/EIG/pshrddriver.f index a1657415..b34fa8e7 100644 --- a/TESTING/traditional/EIG/pshrddriver.f +++ b/TESTING/traditional/EIG/pshrddriver.f @@ -1,4 +1,5 @@ PROGRAM PSHRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pshrdinfo.f b/TESTING/traditional/EIG/pshrdinfo.f index 1042c7d8..429e05db 100644 --- a/TESTING/traditional/EIG/pshrdinfo.f +++ b/TESTING/traditional/EIG/pshrdinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PSHRDINFO( SUMMRY, NOUT, NMAT, NVAL, NVLO, NVHI, $ LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pslafchk.f b/TESTING/traditional/EIG/pslafchk.f index 86a76de9..df7b0e9a 100644 --- a/TESTING/traditional/EIG/pslafchk.f +++ b/TESTING/traditional/EIG/pslafchk.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAFCHK( AFORM, DIAG, M, N, A, IA, JA, DESCA, IASEED, $ ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pslagge.f b/TESTING/traditional/EIG/pslagge.f index 90d7e09f..3bc35639 100644 --- a/TESTING/traditional/EIG/pslagge.f +++ b/TESTING/traditional/EIG/pslagge.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAGGE( M, N, D, A, IA, JA, DESCA, ISEED, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pslagsy.f b/TESTING/traditional/EIG/pslagsy.f index 9e7f2727..a396c2c9 100644 --- a/TESTING/traditional/EIG/pslagsy.f +++ b/TESTING/traditional/EIG/pslagsy.f @@ -2,6 +2,7 @@ * SUBROUTINE PSLAGSY( N, K, D, A, IA, JA, DESCA, ISEED, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pslasizegsep.f b/TESTING/traditional/EIG/pslasizegsep.f index 891f2be6..e9ff5fd3 100644 --- a/TESTING/traditional/EIG/pslasizegsep.f +++ b/TESTING/traditional/EIG/pslasizegsep.f @@ -5,6 +5,7 @@ SUBROUTINE PSLASIZEGSEP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ SIZECHK, SIZESYEVX, ISIZESYEVX, $ SIZESUBTST, ISIZESUBTST, SIZETST, $ ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pslasizesep.f b/TESTING/traditional/EIG/pslasizesep.f index e06d6c8c..fa8e7361 100644 --- a/TESTING/traditional/EIG/pslasizesep.f +++ b/TESTING/traditional/EIG/pslasizesep.f @@ -5,6 +5,7 @@ SUBROUTINE PSLASIZESEP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ SIZECHK, SIZESYEVX, ISIZESYEVX, $ SIZESUBTST, ISIZESUBTST, SIZETST, $ ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pslasizesqp.f b/TESTING/traditional/EIG/pslasizesqp.f index 3f6fb5b8..0d75aac8 100644 --- a/TESTING/traditional/EIG/pslasizesqp.f +++ b/TESTING/traditional/EIG/pslasizesqp.f @@ -4,6 +4,7 @@ SUBROUTINE PSLASIZESQP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ SIZESYEV, SIZESYEVD, ISIZESYEVD, $ SIZESUBTST, ISIZESUBTST, $ SIZETST, ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pslasizesyev.f b/TESTING/traditional/EIG/pslasizesyev.f index dbb9cdbc..2383be38 100644 --- a/TESTING/traditional/EIG/pslasizesyev.f +++ b/TESTING/traditional/EIG/pslasizesyev.f @@ -1,6 +1,7 @@ * * SUBROUTINE PSLASIZESYEV( JOBZ, N, DESCA, MINSIZE ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pslasizesyevx.f b/TESTING/traditional/EIG/pslasizesyevx.f index a79ddf3e..d4dd027c 100644 --- a/TESTING/traditional/EIG/pslasizesyevx.f +++ b/TESTING/traditional/EIG/pslasizesyevx.f @@ -2,6 +2,7 @@ * SUBROUTINE PSLASIZESYEVX( WKNOWN, RANGE, N, DESCA, VL, VU, IL, IU, $ ISEED, WIN, MAXSIZE, VECSIZE, VALSIZE ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pslatms.f b/TESTING/traditional/EIG/pslatms.f index 2d89ee4a..df40d8dd 100644 --- a/TESTING/traditional/EIG/pslatms.f +++ b/TESTING/traditional/EIG/pslatms.f @@ -3,6 +3,7 @@ SUBROUTINE PSLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, IA, JA, DESCA, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pslatran.f b/TESTING/traditional/EIG/pslatran.f index ed47805a..874ad98b 100644 --- a/TESTING/traditional/EIG/pslatran.f +++ b/TESTING/traditional/EIG/pslatran.f @@ -1,4 +1,5 @@ SUBROUTINE PSLATRAN( N, NB, A, IA, JA, DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psmatgen.f b/TESTING/traditional/EIG/psmatgen.f index df8faede..09ae81c5 100644 --- a/TESTING/traditional/EIG/psmatgen.f +++ b/TESTING/traditional/EIG/psmatgen.f @@ -1,6 +1,7 @@ SUBROUTINE PSMATGEN( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psmatgen2.f b/TESTING/traditional/EIG/psmatgen2.f index dfdd564a..211430bc 100644 --- a/TESTING/traditional/EIG/psmatgen2.f +++ b/TESTING/traditional/EIG/psmatgen2.f @@ -1,6 +1,7 @@ SUBROUTINE PSMATGEN2( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * * Modified version by K. L. Dackland (U added) diff --git a/TESTING/traditional/EIG/psnepdriver.f b/TESTING/traditional/EIG/psnepdriver.f index 2b017051..b14c09df 100644 --- a/TESTING/traditional/EIG/psnepdriver.f +++ b/TESTING/traditional/EIG/psnepdriver.f @@ -1,4 +1,5 @@ PROGRAM PSNEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psnepfchk.f b/TESTING/traditional/EIG/psnepfchk.f index 42b1e605..bdf86c75 100644 --- a/TESTING/traditional/EIG/psnepfchk.f +++ b/TESTING/traditional/EIG/psnepfchk.f @@ -1,5 +1,6 @@ SUBROUTINE PSNEPFCHK( N, A, IA, JA, DESCA, IASEED, Z, IZ, JZ, $ DESCZ, ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psnepinfo.f b/TESTING/traditional/EIG/psnepinfo.f index df9de965..c46bb2e9 100644 --- a/TESTING/traditional/EIG/psnepinfo.f +++ b/TESTING/traditional/EIG/psnepinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PSNEPINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psrptseptst.f b/TESTING/traditional/EIG/psrptseptst.f index e6b88f52..0ba1db1e 100644 --- a/TESTING/traditional/EIG/psrptseptst.f +++ b/TESTING/traditional/EIG/psrptseptst.f @@ -1,6 +1,7 @@ * * PROGRAM PSRPTSEPTST + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssdpsubtst.f b/TESTING/traditional/EIG/pssdpsubtst.f index 5b1f8b53..b036cba0 100644 --- a/TESTING/traditional/EIG/pssdpsubtst.f +++ b/TESTING/traditional/EIG/pssdpsubtst.f @@ -3,6 +3,7 @@ SUBROUTINE PSSDPSUBTST( WKNOWN, UPLO, N, THRESH, ABSTOL, A, $ IPREPAD, IPOSTPAD, WORK, LWORK, LWORK1, $ IWORK, LIWORK, $ RESULT, TSTNRM, QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssepchk.f b/TESTING/traditional/EIG/pssepchk.f index 3ed5b0d5..f40f4e1f 100644 --- a/TESTING/traditional/EIG/pssepchk.f +++ b/TESTING/traditional/EIG/pssepchk.f @@ -3,6 +3,7 @@ SUBROUTINE PSSEPCHK( MS, NV, A, IA, JA, DESCA, EPSNORMA, THRESH, $ Q, IQ, JQ, DESCQ, C, IC, JC, DESCC, W, WORK, $ LWORK, TSTNRM, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/TESTING/traditional/EIG/pssepdriver.f b/TESTING/traditional/EIG/pssepdriver.f index 1130e520..b7ada868 100644 --- a/TESTING/traditional/EIG/pssepdriver.f +++ b/TESTING/traditional/EIG/pssepdriver.f @@ -1,6 +1,7 @@ * * PROGRAM PSSEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssepinfo.f b/TESTING/traditional/EIG/pssepinfo.f index db02358a..930855c0 100644 --- a/TESTING/traditional/EIG/pssepinfo.f +++ b/TESTING/traditional/EIG/pssepinfo.f @@ -5,6 +5,7 @@ SUBROUTINE PSSEPINFO( CONTEXT, IAM, NIN, NOUT, MAXSETSIZE, $ NPCONFIGS, NPROWS, NPCOLS, NBS, NMATTYPES, $ MATTYPES, MAXTYPE, SUBTESTS, THRESH, ORDER, $ ABSTOL, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssepqtq.f b/TESTING/traditional/EIG/pssepqtq.f index caee8e33..a55aa8a6 100644 --- a/TESTING/traditional/EIG/pssepqtq.f +++ b/TESTING/traditional/EIG/pssepqtq.f @@ -3,6 +3,7 @@ SUBROUTINE PSSEPQTQ( MS, NV, THRESH, Q, IQ, JQ, DESCQ, C, IC, JC, $ DESCC, PROCDIST, ICLUSTR, GAP, WORK, LWORK, $ QTQNRM, INFO, RES ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssepreq.f b/TESTING/traditional/EIG/pssepreq.f index 5f28764c..935b31dd 100644 --- a/TESTING/traditional/EIG/pssepreq.f +++ b/TESTING/traditional/EIG/pssepreq.f @@ -2,6 +2,7 @@ * SUBROUTINE PSSEPREQ( HETERO, NIN, MEM, MEMSIZE, NOUT, ISEED, $ NTESTS, NSKIPPED, NNOCHECK, NPASSED, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssepsubtst.f b/TESTING/traditional/EIG/pssepsubtst.f index 8f15438c..f96a8564 100644 --- a/TESTING/traditional/EIG/pssepsubtst.f +++ b/TESTING/traditional/EIG/pssepsubtst.f @@ -4,6 +4,7 @@ SUBROUTINE PSSEPSUBTST( WKNOWN, JOBZ, RANGE, UPLO, N, VL, VU, IL, $ IPREPAD, IPOSTPAD, WORK, LWORK, LWORK1, $ IWORK, LIWORK, RESULT, TSTNRM, QTQNRM, $ NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psseptst.f b/TESTING/traditional/EIG/psseptst.f index 0703c2ba..4c482c4a 100644 --- a/TESTING/traditional/EIG/psseptst.f +++ b/TESTING/traditional/EIG/psseptst.f @@ -3,6 +3,7 @@ SUBROUTINE PSSEPTST( DESCA, UPLO, N, MATTYPE, SUBTESTS, THRESH, $ WNEW, IFAIL, ICLUSTR, GAP, IPREPAD, IPOSTPAD, $ WORK, LWORK, IWORK, LIWORK, HETERO, NOUT, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssqpsubtst.f b/TESTING/traditional/EIG/pssqpsubtst.f index c4ee25b5..0004277a 100644 --- a/TESTING/traditional/EIG/pssqpsubtst.f +++ b/TESTING/traditional/EIG/pssqpsubtst.f @@ -4,6 +4,7 @@ SUBROUTINE PSSQPSUBTST( WKNOWN, JOBZ, UPLO, N, THRESH, ABSTOL, A, $ COPYA, Z, IA, JA, DESCA, WIN, WNEW, $ IPREPAD, IPOSTPAD, WORK, LWORK, LWORK1, $ RESULT, TSTNRM, QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssvdchk.f b/TESTING/traditional/EIG/pssvdchk.f index 58bdcb36..d9b58f24 100644 --- a/TESTING/traditional/EIG/pssvdchk.f +++ b/TESTING/traditional/EIG/pssvdchk.f @@ -1,6 +1,7 @@ SUBROUTINE PSSVDCHK( M, N, A, IA, JA, DESCA, U, IU, JU, DESCU, VT, $ IVT, JVT, DESCVT, S, THRESH, WORK, LWORK, $ RESULT, CHK, MTM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssvdcmp.f b/TESTING/traditional/EIG/pssvdcmp.f index 999558ff..61f19290 100644 --- a/TESTING/traditional/EIG/pssvdcmp.f +++ b/TESTING/traditional/EIG/pssvdcmp.f @@ -1,6 +1,7 @@ SUBROUTINE PSSVDCMP( M, N, JOBTYPE, S, SC, U, UC, IU, JU, DESCU, $ VT, VTC, IVT, JVT, DESCVT, THRESH, RESULT, $ DELTA, WORK, LWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssvddriver.f b/TESTING/traditional/EIG/pssvddriver.f index 2334853d..edd37125 100644 --- a/TESTING/traditional/EIG/pssvddriver.f +++ b/TESTING/traditional/EIG/pssvddriver.f @@ -1,4 +1,5 @@ PROGRAM PSSVDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssvdtst.f b/TESTING/traditional/EIG/pssvdtst.f index b7137ac1..84b424b2 100644 --- a/TESTING/traditional/EIG/pssvdtst.f +++ b/TESTING/traditional/EIG/pssvdtst.f @@ -1,5 +1,6 @@ SUBROUTINE PSSVDTST( M, N, NPROW, NPCOL, NB, ISEED, THRESH, WORK, $ RESULT, LWORK, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pssytdrv.f b/TESTING/traditional/EIG/pssytdrv.f index 89c96e4d..34b082ea 100644 --- a/TESTING/traditional/EIG/pssytdrv.f +++ b/TESTING/traditional/EIG/pssytdrv.f @@ -1,5 +1,6 @@ SUBROUTINE PSSYTDRV( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pstrddriver.f b/TESTING/traditional/EIG/pstrddriver.f index 257f9f33..2a8a8e28 100644 --- a/TESTING/traditional/EIG/pstrddriver.f +++ b/TESTING/traditional/EIG/pstrddriver.f @@ -1,4 +1,5 @@ PROGRAM PSTRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pstrdinfo.f b/TESTING/traditional/EIG/pstrdinfo.f index 1a6cba62..13fedfab 100644 --- a/TESTING/traditional/EIG/pstrdinfo.f +++ b/TESTING/traditional/EIG/pstrdinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PSTRDINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/psttrdtester.f b/TESTING/traditional/EIG/psttrdtester.f index e0e74a2a..6b2ba6e3 100644 --- a/TESTING/traditional/EIG/psttrdtester.f +++ b/TESTING/traditional/EIG/psttrdtester.f @@ -1,5 +1,6 @@ SUBROUTINE PSTTRDTESTER( IAM, NPROCS, CHECK, NOUT, THRESH, NVAL, $ NMAT, MEM, TOTMEM, KPASS, KFAIL, KSKIP ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzbrddriver.f b/TESTING/traditional/EIG/pzbrddriver.f index 3d28d88d..403c8c13 100644 --- a/TESTING/traditional/EIG/pzbrddriver.f +++ b/TESTING/traditional/EIG/pzbrddriver.f @@ -1,4 +1,5 @@ PROGRAM PZBRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzbrdinfo.f b/TESTING/traditional/EIG/pzbrdinfo.f index 7eae66fa..9535cd1a 100644 --- a/TESTING/traditional/EIG/pzbrdinfo.f +++ b/TESTING/traditional/EIG/pzbrdinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PZBRDINFO( SUMMRY, NOUT, NMAT, MVAL, LDMVAL, NVAL, $ LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzevcdriver.f b/TESTING/traditional/EIG/pzevcdriver.f index 0310b810..62073b72 100644 --- a/TESTING/traditional/EIG/pzevcdriver.f +++ b/TESTING/traditional/EIG/pzevcdriver.f @@ -1,4 +1,5 @@ PROGRAM PZEVCDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzevcinfo.f b/TESTING/traditional/EIG/pzevcinfo.f index 5192d7f9..a0babc3a 100644 --- a/TESTING/traditional/EIG/pzevcinfo.f +++ b/TESTING/traditional/EIG/pzevcinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PZEVCINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzgebdrv.f b/TESTING/traditional/EIG/pzgebdrv.f index b54fb37b..580071bd 100644 --- a/TESTING/traditional/EIG/pzgebdrv.f +++ b/TESTING/traditional/EIG/pzgebdrv.f @@ -1,5 +1,6 @@ SUBROUTINE PZGEBDRV( M, N, A, IA, JA, DESCA, D, E, TAUQ, TAUP, $ WORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzgehdrv.f b/TESTING/traditional/EIG/pzgehdrv.f index 9cc6652f..5d146243 100644 --- a/TESTING/traditional/EIG/pzgehdrv.f +++ b/TESTING/traditional/EIG/pzgehdrv.f @@ -1,4 +1,5 @@ SUBROUTINE PZGEHDRV( N, ILO, IHI, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzget22.f b/TESTING/traditional/EIG/pzget22.f index 853d0082..701071c8 100644 --- a/TESTING/traditional/EIG/pzget22.f +++ b/TESTING/traditional/EIG/pzget22.f @@ -1,5 +1,6 @@ SUBROUTINE PZGET22( TRANSA, TRANSE, TRANSW, N, A, DESCA, E, DESCE, $ W, WORK, DESCW, RWORK, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzgsepchk.f b/TESTING/traditional/EIG/pzgsepchk.f index 6e88d998..2945dd31 100644 --- a/TESTING/traditional/EIG/pzgsepchk.f +++ b/TESTING/traditional/EIG/pzgsepchk.f @@ -3,6 +3,7 @@ SUBROUTINE PZGSEPCHK( IBTYPE, MS, NV, A, IA, JA, DESCA, B, IB, JB, $ DESCB, THRESH, Q, IQ, JQ, DESCQ, C, IC, JC, $ DESCC, W, WORK, LWORK, TSTNRM, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzgsepdriver.f b/TESTING/traditional/EIG/pzgsepdriver.f index 3eedb64f..7971e29c 100644 --- a/TESTING/traditional/EIG/pzgsepdriver.f +++ b/TESTING/traditional/EIG/pzgsepdriver.f @@ -1,6 +1,7 @@ * * PROGRAM PZGSEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzgsepreq.f b/TESTING/traditional/EIG/pzgsepreq.f index 3b114cd9..a0ffa0f0 100644 --- a/TESTING/traditional/EIG/pzgsepreq.f +++ b/TESTING/traditional/EIG/pzgsepreq.f @@ -2,6 +2,7 @@ * SUBROUTINE PZGSEPREQ( NIN, MEM, MEMSIZE, NOUT, ISEED, NTESTS, $ NSKIPPED, NNOCHECK, NPASSED, INFO ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzgsepsubtst.f b/TESTING/traditional/EIG/pzgsepsubtst.f index 5e42216e..517f4f7b 100644 --- a/TESTING/traditional/EIG/pzgsepsubtst.f +++ b/TESTING/traditional/EIG/pzgsepsubtst.f @@ -7,6 +7,7 @@ SUBROUTINE PZGSEPSUBTST( WKNOWN, IBTYPE, JOBZ, RANGE, UPLO, N, VL, $ WORK, LWORK, RWORK, LRWORK, LWORK1, $ IWORK, LIWORK, RESULT, TSTNRM, QTQNRM, $ NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzgseptst.f b/TESTING/traditional/EIG/pzgseptst.f index efc953e8..955cc81d 100644 --- a/TESTING/traditional/EIG/pzgseptst.f +++ b/TESTING/traditional/EIG/pzgseptst.f @@ -5,6 +5,7 @@ SUBROUTINE PZGSEPTST( DESCA, UPLO, N, MATTYPE, IBTYPE, SUBTESTS, $ COPYB, Z, LDA, WIN, WNEW, IFAIL, ICLUSTR, $ GAP, IPREPAD, IPOSTPAD, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, NOUT, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzhetdrv.f b/TESTING/traditional/EIG/pzhetdrv.f index f3ead7e7..d54c47db 100644 --- a/TESTING/traditional/EIG/pzhetdrv.f +++ b/TESTING/traditional/EIG/pzhetdrv.f @@ -1,5 +1,6 @@ SUBROUTINE PZHETDRV( UPLO, N, A, IA, JA, DESCA, D, E, TAU, WORK, $ INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzhrddriver.f b/TESTING/traditional/EIG/pzhrddriver.f index 086ea31a..f24e568a 100644 --- a/TESTING/traditional/EIG/pzhrddriver.f +++ b/TESTING/traditional/EIG/pzhrddriver.f @@ -1,4 +1,5 @@ PROGRAM PZHRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzhrdinfo.f b/TESTING/traditional/EIG/pzhrdinfo.f index d7cbde6f..d05e7b1a 100644 --- a/TESTING/traditional/EIG/pzhrdinfo.f +++ b/TESTING/traditional/EIG/pzhrdinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PZHRDINFO( SUMMRY, NOUT, NMAT, NVAL, NVLO, NVHI, $ LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzlafchk.f b/TESTING/traditional/EIG/pzlafchk.f index 732985b6..1e60e657 100644 --- a/TESTING/traditional/EIG/pzlafchk.f +++ b/TESTING/traditional/EIG/pzlafchk.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAFCHK( AFORM, DIAG, M, N, A, IA, JA, DESCA, IASEED, $ ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzlagsy.f b/TESTING/traditional/EIG/pzlagsy.f index 91cad358..6b166449 100644 --- a/TESTING/traditional/EIG/pzlagsy.f +++ b/TESTING/traditional/EIG/pzlagsy.f @@ -2,6 +2,7 @@ * SUBROUTINE PZLAGHE( N, K, D, A, IA, JA, DESCA, ISEED, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pzlasizegsep.f b/TESTING/traditional/EIG/pzlasizegsep.f index 0cdb7126..d3373c4e 100644 --- a/TESTING/traditional/EIG/pzlasizegsep.f +++ b/TESTING/traditional/EIG/pzlasizegsep.f @@ -4,6 +4,7 @@ SUBROUTINE PZLASIZEGSEP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ ISIZEHEEVX, SIZESUBTST, RSIZESUBTST, $ ISIZESUBTST, SIZETST, RSIZETST, $ ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzlasizeheevx.f b/TESTING/traditional/EIG/pzlasizeheevx.f index 98973446..b22e3b81 100644 --- a/TESTING/traditional/EIG/pzlasizeheevx.f +++ b/TESTING/traditional/EIG/pzlasizeheevx.f @@ -2,6 +2,7 @@ * SUBROUTINE PZLASIZEHEEVX( WKNOWN, RANGE, N, DESCA, VL, VU, IL, IU, $ ISEED, WIN, MAXSIZE, VECSIZE, VALSIZE ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/EIG/pzlasizesep.f b/TESTING/traditional/EIG/pzlasizesep.f index 9361b583..bd7bd39d 100644 --- a/TESTING/traditional/EIG/pzlasizesep.f +++ b/TESTING/traditional/EIG/pzlasizesep.f @@ -4,6 +4,7 @@ SUBROUTINE PZLASIZESEP( DESCA, IPREPAD, IPOSTPAD, SIZEMQRLEFT, $ ISIZEHEEVX, SIZEHEEVD, RSIZEHEEVD, $ ISIZEHEEVD, SIZESUBTST, RSIZESUBTST, $ ISIZESUBTST, SIZETST, RSIZETST, ISIZETST ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzlatms.f b/TESTING/traditional/EIG/pzlatms.f index a47c1a30..4d74fcfe 100644 --- a/TESTING/traditional/EIG/pzlatms.f +++ b/TESTING/traditional/EIG/pzlatms.f @@ -3,6 +3,7 @@ SUBROUTINE PZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, IA, JA, DESCA, ORDER, WORK, $ LWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzlatran.f b/TESTING/traditional/EIG/pzlatran.f index 1eb917f6..32248e82 100644 --- a/TESTING/traditional/EIG/pzlatran.f +++ b/TESTING/traditional/EIG/pzlatran.f @@ -1,4 +1,5 @@ SUBROUTINE PZLATRAN( N, NB, A, IA, JA, DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzmatgen.f b/TESTING/traditional/EIG/pzmatgen.f index f4ee5ab0..bcf01162 100644 --- a/TESTING/traditional/EIG/pzmatgen.f +++ b/TESTING/traditional/EIG/pzmatgen.f @@ -1,6 +1,7 @@ SUBROUTINE PZMATGEN( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pznepdriver.f b/TESTING/traditional/EIG/pznepdriver.f index c0a28913..80d031e4 100644 --- a/TESTING/traditional/EIG/pznepdriver.f +++ b/TESTING/traditional/EIG/pznepdriver.f @@ -1,4 +1,5 @@ PROGRAM PZNEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pznepfchk.f b/TESTING/traditional/EIG/pznepfchk.f index a7602538..abe00594 100644 --- a/TESTING/traditional/EIG/pznepfchk.f +++ b/TESTING/traditional/EIG/pznepfchk.f @@ -1,5 +1,6 @@ SUBROUTINE PZNEPFCHK( N, A, IA, JA, DESCA, IASEED, Z, IZ, JZ, $ DESCZ, ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pznepinfo.f b/TESTING/traditional/EIG/pznepinfo.f index 24ce154c..0f1f792b 100644 --- a/TESTING/traditional/EIG/pznepinfo.f +++ b/TESTING/traditional/EIG/pznepinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PZNEPINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzrptseptst.f b/TESTING/traditional/EIG/pzrptseptst.f index 566248f1..78cd6ffe 100644 --- a/TESTING/traditional/EIG/pzrptseptst.f +++ b/TESTING/traditional/EIG/pzrptseptst.f @@ -1,6 +1,7 @@ * * PROGRAM PZRPTSEPTST + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzsdpsubtst.f b/TESTING/traditional/EIG/pzsdpsubtst.f index 3405114f..0e1cc0fc 100644 --- a/TESTING/traditional/EIG/pzsdpsubtst.f +++ b/TESTING/traditional/EIG/pzsdpsubtst.f @@ -3,6 +3,7 @@ SUBROUTINE PZSDPSUBTST( WKNOWN, UPLO, N, THRESH, ABSTOL, A, COPYA, $ IPOSTPAD, WORK, LWORK, RWORK, LRWORK, $ LWORK1, IWORK, LIWORK, RESULT, TSTNRM, $ QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK testing routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzsepchk.f b/TESTING/traditional/EIG/pzsepchk.f index ad7bd1a4..83830a27 100644 --- a/TESTING/traditional/EIG/pzsepchk.f +++ b/TESTING/traditional/EIG/pzsepchk.f @@ -3,6 +3,7 @@ SUBROUTINE PZSEPCHK( MS, NV, A, IA, JA, DESCA, EPSNORMA, THRESH, $ Q, IQ, JQ, DESCQ, C, IC, JC, DESCC, W, WORK, $ LWORK, TSTNRM, RESULT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 2.0.2) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver diff --git a/TESTING/traditional/EIG/pzsepdriver.f b/TESTING/traditional/EIG/pzsepdriver.f index 9f2a4832..13cc20e7 100644 --- a/TESTING/traditional/EIG/pzsepdriver.f +++ b/TESTING/traditional/EIG/pzsepdriver.f @@ -1,6 +1,7 @@ * * PROGRAM PZSEPDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzsepqtq.f b/TESTING/traditional/EIG/pzsepqtq.f index 1b1486be..33ce5a26 100644 --- a/TESTING/traditional/EIG/pzsepqtq.f +++ b/TESTING/traditional/EIG/pzsepqtq.f @@ -3,6 +3,7 @@ SUBROUTINE PZSEPQTQ( MS, NV, THRESH, Q, IQ, JQ, DESCQ, C, IC, JC, $ DESCC, PROCDIST, ICLUSTR, GAP, WORK, LWORK, $ QTQNRM, INFO, RES ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzsepreq.f b/TESTING/traditional/EIG/pzsepreq.f index a8bb5531..89099f20 100644 --- a/TESTING/traditional/EIG/pzsepreq.f +++ b/TESTING/traditional/EIG/pzsepreq.f @@ -2,6 +2,7 @@ * SUBROUTINE PZSEPREQ( NIN, MEM, MEMSIZE, NOUT, ISEED, NTESTS, $ NSKIPPED, NNOCHECK, NPASSED, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzsepsubtst.f b/TESTING/traditional/EIG/pzsepsubtst.f index b62ad121..b715f196 100644 --- a/TESTING/traditional/EIG/pzsepsubtst.f +++ b/TESTING/traditional/EIG/pzsepsubtst.f @@ -6,6 +6,7 @@ SUBROUTINE PZSEPSUBTST( WKNOWN, JOBZ, RANGE, UPLO, N, VL, VU, IL, $ IPREPAD, IPOSTPAD, WORK, LWORK, RWORK, $ LRWORK, LWORK1, IWORK, LIWORK, RESULT, $ TSTNRM, QTQNRM, NOUT ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzseptst.f b/TESTING/traditional/EIG/pzseptst.f index 06c5970e..738c1f93 100644 --- a/TESTING/traditional/EIG/pzseptst.f +++ b/TESTING/traditional/EIG/pzseptst.f @@ -5,6 +5,7 @@ SUBROUTINE PZSEPTST( DESCA, UPLO, N, MATTYPE, SUBTESTS, THRESH, $ WNEW, IFAIL, ICLUSTR, GAP, IPREPAD, IPOSTPAD, $ WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, $ NOUT, INFO ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pztrddriver.f b/TESTING/traditional/EIG/pztrddriver.f index 317b7ccf..e912f7af 100644 --- a/TESTING/traditional/EIG/pztrddriver.f +++ b/TESTING/traditional/EIG/pztrddriver.f @@ -1,4 +1,5 @@ PROGRAM PZTRDDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pztrdinfo.f b/TESTING/traditional/EIG/pztrdinfo.f index a84be625..aad67f7c 100644 --- a/TESTING/traditional/EIG/pztrdinfo.f +++ b/TESTING/traditional/EIG/pztrdinfo.f @@ -1,6 +1,7 @@ SUBROUTINE PZTRDINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/pzttrdtester.f b/TESTING/traditional/EIG/pzttrdtester.f index 03b43057..04915da2 100644 --- a/TESTING/traditional/EIG/pzttrdtester.f +++ b/TESTING/traditional/EIG/pzttrdtester.f @@ -1,5 +1,6 @@ SUBROUTINE PZTTRDTESTER( IAM, NPROCS, CHECK, NOUT, THRESH, NVAL, $ NMAT, MEM, TOTMEM, KPASS, KFAIL, KSKIP ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/EIG/xpjlaenv.f b/TESTING/traditional/EIG/xpjlaenv.f index de8df1a2..918baad3 100644 --- a/TESTING/traditional/EIG/xpjlaenv.f +++ b/TESTING/traditional/EIG/xpjlaenv.f @@ -1,5 +1,6 @@ INTEGER FUNCTION PJLAENV( ICTXT, ISPEC, NAME, OPTS, N1, $ N2, N3, N4 ) + IMPLICIT NONE * * -- ScaLAPACK test routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcbmatgen.f b/TESTING/traditional/LIN/pcbmatgen.f index 5ee6181f..24a994ba 100644 --- a/TESTING/traditional/LIN/pcbmatgen.f +++ b/TESTING/traditional/LIN/pcbmatgen.f @@ -2,6 +2,7 @@ SUBROUTINE PCBMATGEN( ICTXT, AFORM, AFORM2, BWL, BWU, N, $ MB, NB, A, $ LDA, IAROW, IACOL, ISEED, $ MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcdbdriver.f b/TESTING/traditional/LIN/pcdbdriver.f index c874387f..3e2864cb 100644 --- a/TESTING/traditional/LIN/pcdbdriver.f +++ b/TESTING/traditional/LIN/pcdbdriver.f @@ -1,4 +1,5 @@ PROGRAM PCDBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcdbinfo.f b/TESTING/traditional/LIN/pcdbinfo.f index d924ca44..fedda037 100644 --- a/TESTING/traditional/LIN/pcdbinfo.f +++ b/TESTING/traditional/LIN/pcdbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PCDBINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcdblaschk.f b/TESTING/traditional/LIN/pcdblaschk.f index 1cb1e07b..b192e016 100644 --- a/TESTING/traditional/LIN/pcdblaschk.f +++ b/TESTING/traditional/LIN/pcdblaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PCDBLASCHK( SYMM, UPLO, TRANS, N, BWL, BWU, NRHS, X, $ IX, JX, DESCX, IASEED, A, IA, JA, DESCA, $ IBSEED, ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcdbmv1.f b/TESTING/traditional/LIN/pcdbmv1.f index 0cc192e4..c6f3263d 100644 --- a/TESTING/traditional/LIN/pcdbmv1.f +++ b/TESTING/traditional/LIN/pcdbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PCGBDCMV( LDBW, BWL, BWU, TRANS, N, A, JA, DESCA, NRHS, $ B, IB, DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcdtdriver.f b/TESTING/traditional/LIN/pcdtdriver.f index 56f5d978..ec6d06f9 100644 --- a/TESTING/traditional/LIN/pcdtdriver.f +++ b/TESTING/traditional/LIN/pcdtdriver.f @@ -1,4 +1,5 @@ PROGRAM PCDTDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcdtinfo.f b/TESTING/traditional/LIN/pcdtinfo.f index db173ee9..b0400e15 100644 --- a/TESTING/traditional/LIN/pcdtinfo.f +++ b/TESTING/traditional/LIN/pcdtinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PCDTINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcdtlaschk.f b/TESTING/traditional/LIN/pcdtlaschk.f index f5802e1d..b5821d5c 100644 --- a/TESTING/traditional/LIN/pcdtlaschk.f +++ b/TESTING/traditional/LIN/pcdtlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PCDTLASCHK( SYMM, UPLO, TRANS, N, BWL, BWU, NRHS, X, $ IX, JX, DESCX, IASEED, A, IA, JA, DESCA, $ IBSEED, ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcgbdriver.f b/TESTING/traditional/LIN/pcgbdriver.f index 31c3c2c1..41b0ca5e 100644 --- a/TESTING/traditional/LIN/pcgbdriver.f +++ b/TESTING/traditional/LIN/pcgbdriver.f @@ -1,4 +1,5 @@ PROGRAM PCGBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcgbinfo.f b/TESTING/traditional/LIN/pcgbinfo.f index 49d7b728..f0463bb8 100644 --- a/TESTING/traditional/LIN/pcgbinfo.f +++ b/TESTING/traditional/LIN/pcgbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PCGBINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcgbmv1.f b/TESTING/traditional/LIN/pcgbmv1.f index 0cc192e4..c6f3263d 100644 --- a/TESTING/traditional/LIN/pcgbmv1.f +++ b/TESTING/traditional/LIN/pcgbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PCGBDCMV( LDBW, BWL, BWU, TRANS, N, A, JA, DESCA, NRHS, $ B, IB, DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcgelqrv.f b/TESTING/traditional/LIN/pcgelqrv.f index 8868119b..4103fe03 100644 --- a/TESTING/traditional/LIN/pcgelqrv.f +++ b/TESTING/traditional/LIN/pcgelqrv.f @@ -1,4 +1,5 @@ SUBROUTINE PCGELQRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcgeqlrv.f b/TESTING/traditional/LIN/pcgeqlrv.f index 141bb9c5..b2d317dd 100644 --- a/TESTING/traditional/LIN/pcgeqlrv.f +++ b/TESTING/traditional/LIN/pcgeqlrv.f @@ -1,4 +1,5 @@ SUBROUTINE PCGEQLRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcgeqrrv.f b/TESTING/traditional/LIN/pcgeqrrv.f index 6a4b2445..93429d3e 100644 --- a/TESTING/traditional/LIN/pcgeqrrv.f +++ b/TESTING/traditional/LIN/pcgeqrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PCGEQRRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcgerqrv.f b/TESTING/traditional/LIN/pcgerqrv.f index 104288df..57546f63 100644 --- a/TESTING/traditional/LIN/pcgerqrv.f +++ b/TESTING/traditional/LIN/pcgerqrv.f @@ -1,4 +1,5 @@ SUBROUTINE PCGERQRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcgetrrv.f b/TESTING/traditional/LIN/pcgetrrv.f index c5fb1052..6fddb3ec 100644 --- a/TESTING/traditional/LIN/pcgetrrv.f +++ b/TESTING/traditional/LIN/pcgetrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PCGETRRV( M, N, A, IA, JA, DESCA, IPIV, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcinvchk.f b/TESTING/traditional/LIN/pcinvchk.f index df62b90f..8a7abc39 100644 --- a/TESTING/traditional/LIN/pcinvchk.f +++ b/TESTING/traditional/LIN/pcinvchk.f @@ -1,5 +1,6 @@ SUBROUTINE PCINVCHK( MATTYP, N, A, IA, JA, DESCA, IASEED, ANORM, $ FRESID, RCOND, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcinvdriver.f b/TESTING/traditional/LIN/pcinvdriver.f index e877c1f0..34d93cb0 100644 --- a/TESTING/traditional/LIN/pcinvdriver.f +++ b/TESTING/traditional/LIN/pcinvdriver.f @@ -1,4 +1,5 @@ PROGRAM PCINVDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcinvinfo.f b/TESTING/traditional/LIN/pcinvinfo.f index c45de392..9268511c 100644 --- a/TESTING/traditional/LIN/pcinvinfo.f +++ b/TESTING/traditional/LIN/pcinvinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PCINVINFO( SUMMRY, NOUT, NMTYP, MATTYP, LDMTYP, NMAT, $ NVAL, LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, $ PVAL, LDPVAL, QVAL, LDQVAL, THRESH, WORK, $ IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pclafchk.f b/TESTING/traditional/LIN/pclafchk.f index 92e034a6..19b2b4db 100644 --- a/TESTING/traditional/LIN/pclafchk.f +++ b/TESTING/traditional/LIN/pclafchk.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAFCHK( AFORM, DIAG, M, N, A, IA, JA, DESCA, IASEED, $ ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pclaschk.f b/TESTING/traditional/LIN/pclaschk.f index 13804d1d..5f504e66 100644 --- a/TESTING/traditional/LIN/pclaschk.f +++ b/TESTING/traditional/LIN/pclaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PCLASCHK( SYMM, DIAG, N, NRHS, X, IX, JX, DESCX, $ IASEED, IA, JA, DESCA, IBSEED, ANORM, RESID, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pclltdriver.f b/TESTING/traditional/LIN/pclltdriver.f index 8d5acdd7..9ccbc4a3 100644 --- a/TESTING/traditional/LIN/pclltdriver.f +++ b/TESTING/traditional/LIN/pclltdriver.f @@ -1,4 +1,5 @@ PROGRAM PCLLTDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pclltinfo.f b/TESTING/traditional/LIN/pclltinfo.f index dc4b62c0..c56c0419 100644 --- a/TESTING/traditional/LIN/pclltinfo.f +++ b/TESTING/traditional/LIN/pclltinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PCLLTINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NNB, $ NBRVAL, LDNBRVAL, NGRIDS, PVAL, LDPVAL, $ QVAL, LDQVAL, THRESH, EST, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pclsdriver.f b/TESTING/traditional/LIN/pclsdriver.f index 6d813d50..da8a7752 100644 --- a/TESTING/traditional/LIN/pclsdriver.f +++ b/TESTING/traditional/LIN/pclsdriver.f @@ -1,4 +1,5 @@ PROGRAM PCLSDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pclsinfo.f b/TESTING/traditional/LIN/pclsinfo.f index c0c60127..beb9e509 100644 --- a/TESTING/traditional/LIN/pclsinfo.f +++ b/TESTING/traditional/LIN/pclsinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PCLSINFO( SUMMRY, NOUT, NMAT, MVAL, LDMVAL, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcludriver.f b/TESTING/traditional/LIN/pcludriver.f index eda1ea46..ffbd8a5f 100644 --- a/TESTING/traditional/LIN/pcludriver.f +++ b/TESTING/traditional/LIN/pcludriver.f @@ -1,4 +1,5 @@ PROGRAM PCLUDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcluinfo.f b/TESTING/traditional/LIN/pcluinfo.f index e1c07af0..66cd8d18 100644 --- a/TESTING/traditional/LIN/pcluinfo.f +++ b/TESTING/traditional/LIN/pcluinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PCLUINFO( SUMMRY, NOUT, NMAT, MVAL, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NNR, NRVAL, LDNRVAL, NNBR, $ NBRVAL, LDNBRVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, EST, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcmatgen.f b/TESTING/traditional/LIN/pcmatgen.f index 47c0413d..6f9d9060 100644 --- a/TESTING/traditional/LIN/pcmatgen.f +++ b/TESTING/traditional/LIN/pcmatgen.f @@ -1,6 +1,7 @@ SUBROUTINE PCMATGEN( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcpbdriver.f b/TESTING/traditional/LIN/pcpbdriver.f index d2ae5fed..89caeb2f 100644 --- a/TESTING/traditional/LIN/pcpbdriver.f +++ b/TESTING/traditional/LIN/pcpbdriver.f @@ -1,4 +1,5 @@ PROGRAM PCPBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcpbinfo.f b/TESTING/traditional/LIN/pcpbinfo.f index 4de066b4..f606929e 100644 --- a/TESTING/traditional/LIN/pcpbinfo.f +++ b/TESTING/traditional/LIN/pcpbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PCPBINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NBW, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcpblaschk.f b/TESTING/traditional/LIN/pcpblaschk.f index d6be537a..50ea6654 100644 --- a/TESTING/traditional/LIN/pcpblaschk.f +++ b/TESTING/traditional/LIN/pcpblaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PCPBLASCHK( SYMM, UPLO, N, BWL, BWU, NRHS, X, IX, JX, $ DESCX, IASEED, A, IA, JA, DESCA, IBSEED, $ ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcpbmv1.f b/TESTING/traditional/LIN/pcpbmv1.f index 3a5fa35c..001532dd 100644 --- a/TESTING/traditional/LIN/pcpbmv1.f +++ b/TESTING/traditional/LIN/pcpbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PCPBDCMV( LDBW, BW, UPLO, N, A, JA, DESCA, NRHS, B, IB, $ DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcpotrrv.f b/TESTING/traditional/LIN/pcpotrrv.f index e138e844..016a188f 100644 --- a/TESTING/traditional/LIN/pcpotrrv.f +++ b/TESTING/traditional/LIN/pcpotrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PCPOTRRV( UPLO, N, A, IA, JA, DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcptdriver.f b/TESTING/traditional/LIN/pcptdriver.f index d8f7899d..4643a062 100644 --- a/TESTING/traditional/LIN/pcptdriver.f +++ b/TESTING/traditional/LIN/pcptdriver.f @@ -1,4 +1,5 @@ PROGRAM PCPTDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcptinfo.f b/TESTING/traditional/LIN/pcptinfo.f index f07136c0..379a5443 100644 --- a/TESTING/traditional/LIN/pcptinfo.f +++ b/TESTING/traditional/LIN/pcptinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PCPTINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NBW, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pcptlaschk.f b/TESTING/traditional/LIN/pcptlaschk.f index 216436ed..894a7072 100644 --- a/TESTING/traditional/LIN/pcptlaschk.f +++ b/TESTING/traditional/LIN/pcptlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PCPTLASCHK( SYMM, UPLO, N, BWL, BWU, NRHS, X, IX, JX, $ DESCX, IASEED, A, IA, JA, DESCA, IBSEED, $ ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pcqrdriver.f b/TESTING/traditional/LIN/pcqrdriver.f index 4eeebe57..b6eb110c 100644 --- a/TESTING/traditional/LIN/pcqrdriver.f +++ b/TESTING/traditional/LIN/pcqrdriver.f @@ -1,4 +1,5 @@ PROGRAM PCQRDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -886,6 +887,7 @@ PROGRAM PCQRDRIVER END * SUBROUTINE PCQPPIV( M, N, A, IA, JA, DESCA, IPIV ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcqrinfo.f b/TESTING/traditional/LIN/pcqrinfo.f index c5f55e56..0389946c 100644 --- a/TESTING/traditional/LIN/pcqrinfo.f +++ b/TESTING/traditional/LIN/pcqrinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PCQRINFO( SUMMRY, NOUT, NFACT, FACTOR, LDFACT, NMAT, $ LDMBVAL, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcqrt13.f b/TESTING/traditional/LIN/pcqrt13.f index 80a7860c..e427b931 100644 --- a/TESTING/traditional/LIN/pcqrt13.f +++ b/TESTING/traditional/LIN/pcqrt13.f @@ -1,5 +1,6 @@ SUBROUTINE PCQRT13( SCALE, M, N, A, IA, JA, DESCA, NORMA, ISEED, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcqrt14.f b/TESTING/traditional/LIN/pcqrt14.f index c13a9792..88262a17 100644 --- a/TESTING/traditional/LIN/pcqrt14.f +++ b/TESTING/traditional/LIN/pcqrt14.f @@ -1,5 +1,6 @@ REAL FUNCTION PCQRT14( TRANS, M, N, NRHS, A, IA, JA, $ DESCA, X, IX, JX, DESCX, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcqrt16.f b/TESTING/traditional/LIN/pcqrt16.f index b7d120c2..accdbe33 100644 --- a/TESTING/traditional/LIN/pcqrt16.f +++ b/TESTING/traditional/LIN/pcqrt16.f @@ -1,5 +1,6 @@ SUBROUTINE PCQRT16( TRANS, M, N, NRHS, A, IA, JA, DESCA, X, IX, $ JX, DESCX, B, IB, JB, DESCB, RWORK, RESID ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pcqrt17.f b/TESTING/traditional/LIN/pcqrt17.f index e098293e..872725e8 100644 --- a/TESTING/traditional/LIN/pcqrt17.f +++ b/TESTING/traditional/LIN/pcqrt17.f @@ -2,6 +2,7 @@ REAL FUNCTION PCQRT17( TRANS, IRESID, M, N, NRHS, A, $ IA, JA, DESCA, X, IX, JX, $ DESCX, B, IB, JB, DESCB, WORK, $ RWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pctzrzrv.f b/TESTING/traditional/LIN/pctzrzrv.f index 5ab8b031..7c1c9ebe 100644 --- a/TESTING/traditional/LIN/pctzrzrv.f +++ b/TESTING/traditional/LIN/pctzrzrv.f @@ -1,4 +1,5 @@ SUBROUTINE PCTZRZRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdbmatgen.f b/TESTING/traditional/LIN/pdbmatgen.f index ad347542..1fb8c7e4 100644 --- a/TESTING/traditional/LIN/pdbmatgen.f +++ b/TESTING/traditional/LIN/pdbmatgen.f @@ -2,6 +2,7 @@ SUBROUTINE PDBMATGEN( ICTXT, AFORM, AFORM2, BWL, BWU, N, $ MB, NB, A, $ LDA, IAROW, IACOL, ISEED, $ MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pddbdriver.f b/TESTING/traditional/LIN/pddbdriver.f index cc8f3a04..7539c6f6 100644 --- a/TESTING/traditional/LIN/pddbdriver.f +++ b/TESTING/traditional/LIN/pddbdriver.f @@ -1,4 +1,5 @@ PROGRAM PDDBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pddbinfo.f b/TESTING/traditional/LIN/pddbinfo.f index 6693ab2f..807890c4 100644 --- a/TESTING/traditional/LIN/pddbinfo.f +++ b/TESTING/traditional/LIN/pddbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PDDBINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pddblaschk.f b/TESTING/traditional/LIN/pddblaschk.f index 1b6940c2..63c169be 100644 --- a/TESTING/traditional/LIN/pddblaschk.f +++ b/TESTING/traditional/LIN/pddblaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PDDBLASCHK( SYMM, UPLO, TRANS, N, BWL, BWU, NRHS, X, $ IX, JX, DESCX, IASEED, A, IA, JA, DESCA, $ IBSEED, ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pddbmv1.f b/TESTING/traditional/LIN/pddbmv1.f index ad7377c1..29699fce 100644 --- a/TESTING/traditional/LIN/pddbmv1.f +++ b/TESTING/traditional/LIN/pddbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PDGBDCMV( LDBW, BWL, BWU, TRANS, N, A, JA, DESCA, NRHS, $ B, IB, DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pddtdriver.f b/TESTING/traditional/LIN/pddtdriver.f index 6233a1da..f2be6cc9 100644 --- a/TESTING/traditional/LIN/pddtdriver.f +++ b/TESTING/traditional/LIN/pddtdriver.f @@ -1,4 +1,5 @@ PROGRAM PDDTDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pddtinfo.f b/TESTING/traditional/LIN/pddtinfo.f index 5ff6df5a..0a8e38c9 100644 --- a/TESTING/traditional/LIN/pddtinfo.f +++ b/TESTING/traditional/LIN/pddtinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PDDTINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pddtlaschk.f b/TESTING/traditional/LIN/pddtlaschk.f index 45e3a609..1c2e1524 100644 --- a/TESTING/traditional/LIN/pddtlaschk.f +++ b/TESTING/traditional/LIN/pddtlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PDDTLASCHK( SYMM, UPLO, TRANS, N, BWL, BWU, NRHS, X, $ IX, JX, DESCX, IASEED, A, IA, JA, DESCA, $ IBSEED, ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pdgbdriver.f b/TESTING/traditional/LIN/pdgbdriver.f index ea38d1be..192f38b2 100644 --- a/TESTING/traditional/LIN/pdgbdriver.f +++ b/TESTING/traditional/LIN/pdgbdriver.f @@ -1,4 +1,5 @@ PROGRAM PDGBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pdgbinfo.f b/TESTING/traditional/LIN/pdgbinfo.f index 2ceb1b21..dcf0eabd 100644 --- a/TESTING/traditional/LIN/pdgbinfo.f +++ b/TESTING/traditional/LIN/pdgbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PDGBINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pdgbmv1.f b/TESTING/traditional/LIN/pdgbmv1.f index ad7377c1..29699fce 100644 --- a/TESTING/traditional/LIN/pdgbmv1.f +++ b/TESTING/traditional/LIN/pdgbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PDGBDCMV( LDBW, BWL, BWU, TRANS, N, A, JA, DESCA, NRHS, $ B, IB, DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pdgelqrv.f b/TESTING/traditional/LIN/pdgelqrv.f index 4ecb38b3..65ebf9da 100644 --- a/TESTING/traditional/LIN/pdgelqrv.f +++ b/TESTING/traditional/LIN/pdgelqrv.f @@ -1,4 +1,5 @@ SUBROUTINE PDGELQRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdgeqlrv.f b/TESTING/traditional/LIN/pdgeqlrv.f index 071ff9bd..22292f57 100644 --- a/TESTING/traditional/LIN/pdgeqlrv.f +++ b/TESTING/traditional/LIN/pdgeqlrv.f @@ -1,4 +1,5 @@ SUBROUTINE PDGEQLRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdgeqrrv.f b/TESTING/traditional/LIN/pdgeqrrv.f index 245d949f..adde14ac 100644 --- a/TESTING/traditional/LIN/pdgeqrrv.f +++ b/TESTING/traditional/LIN/pdgeqrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PDGEQRRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdgerqrv.f b/TESTING/traditional/LIN/pdgerqrv.f index c84cd785..f80fb5ba 100644 --- a/TESTING/traditional/LIN/pdgerqrv.f +++ b/TESTING/traditional/LIN/pdgerqrv.f @@ -1,4 +1,5 @@ SUBROUTINE PDGERQRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdgetrrv.f b/TESTING/traditional/LIN/pdgetrrv.f index 326c7be0..17f3353a 100644 --- a/TESTING/traditional/LIN/pdgetrrv.f +++ b/TESTING/traditional/LIN/pdgetrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PDGETRRV( M, N, A, IA, JA, DESCA, IPIV, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdinvchk.f b/TESTING/traditional/LIN/pdinvchk.f index ea0adab2..1ea8e10b 100644 --- a/TESTING/traditional/LIN/pdinvchk.f +++ b/TESTING/traditional/LIN/pdinvchk.f @@ -1,5 +1,6 @@ SUBROUTINE PDINVCHK( MATTYP, N, A, IA, JA, DESCA, IASEED, ANORM, $ FRESID, RCOND, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdinvdriver.f b/TESTING/traditional/LIN/pdinvdriver.f index ec59183f..613946a3 100644 --- a/TESTING/traditional/LIN/pdinvdriver.f +++ b/TESTING/traditional/LIN/pdinvdriver.f @@ -1,4 +1,5 @@ PROGRAM PDINVDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdinvinfo.f b/TESTING/traditional/LIN/pdinvinfo.f index 77d397f5..a26e87e3 100644 --- a/TESTING/traditional/LIN/pdinvinfo.f +++ b/TESTING/traditional/LIN/pdinvinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PDINVINFO( SUMMRY, NOUT, NMTYP, MATTYP, LDMTYP, NMAT, $ NVAL, LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, $ PVAL, LDPVAL, QVAL, LDQVAL, THRESH, WORK, $ IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdlafchk.f b/TESTING/traditional/LIN/pdlafchk.f index 9afe4a6a..ef832504 100644 --- a/TESTING/traditional/LIN/pdlafchk.f +++ b/TESTING/traditional/LIN/pdlafchk.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAFCHK( AFORM, DIAG, M, N, A, IA, JA, DESCA, IASEED, $ ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdlaschk.f b/TESTING/traditional/LIN/pdlaschk.f index 596cfc58..0cf14528 100644 --- a/TESTING/traditional/LIN/pdlaschk.f +++ b/TESTING/traditional/LIN/pdlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PDLASCHK( SYMM, DIAG, N, NRHS, X, IX, JX, DESCX, $ IASEED, IA, JA, DESCA, IBSEED, ANORM, RESID, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdlltdriver.f b/TESTING/traditional/LIN/pdlltdriver.f index 3d5795f5..00c6e657 100644 --- a/TESTING/traditional/LIN/pdlltdriver.f +++ b/TESTING/traditional/LIN/pdlltdriver.f @@ -1,4 +1,5 @@ PROGRAM PDLLTDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdlltinfo.f b/TESTING/traditional/LIN/pdlltinfo.f index 6d2ed956..8aa72152 100644 --- a/TESTING/traditional/LIN/pdlltinfo.f +++ b/TESTING/traditional/LIN/pdlltinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PDLLTINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NNB, $ NBRVAL, LDNBRVAL, NGRIDS, PVAL, LDPVAL, $ QVAL, LDQVAL, THRESH, EST, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdlsdriver.f b/TESTING/traditional/LIN/pdlsdriver.f index f2a31ca0..ea395f96 100644 --- a/TESTING/traditional/LIN/pdlsdriver.f +++ b/TESTING/traditional/LIN/pdlsdriver.f @@ -1,4 +1,5 @@ PROGRAM PDLSDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdlsinfo.f b/TESTING/traditional/LIN/pdlsinfo.f index b8a4d64f..e556f8db 100644 --- a/TESTING/traditional/LIN/pdlsinfo.f +++ b/TESTING/traditional/LIN/pdlsinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PDLSINFO( SUMMRY, NOUT, NMAT, MVAL, LDMVAL, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdludriver.f b/TESTING/traditional/LIN/pdludriver.f index 5d016ef3..08f4074a 100644 --- a/TESTING/traditional/LIN/pdludriver.f +++ b/TESTING/traditional/LIN/pdludriver.f @@ -1,4 +1,5 @@ PROGRAM PDLUDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdluinfo.f b/TESTING/traditional/LIN/pdluinfo.f index 75fbf83e..ad3507e8 100644 --- a/TESTING/traditional/LIN/pdluinfo.f +++ b/TESTING/traditional/LIN/pdluinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PDLUINFO( SUMMRY, NOUT, NMAT, MVAL, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NNR, NRVAL, LDNRVAL, NNBR, $ NBRVAL, LDNBRVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, EST, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdmatgen.f b/TESTING/traditional/LIN/pdmatgen.f index fab962c1..41f666b3 100644 --- a/TESTING/traditional/LIN/pdmatgen.f +++ b/TESTING/traditional/LIN/pdmatgen.f @@ -1,6 +1,7 @@ SUBROUTINE PDMATGEN( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdpbdriver.f b/TESTING/traditional/LIN/pdpbdriver.f index 14679392..be969898 100644 --- a/TESTING/traditional/LIN/pdpbdriver.f +++ b/TESTING/traditional/LIN/pdpbdriver.f @@ -1,4 +1,5 @@ PROGRAM PDPBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pdpbinfo.f b/TESTING/traditional/LIN/pdpbinfo.f index e9e16d91..443d361d 100644 --- a/TESTING/traditional/LIN/pdpbinfo.f +++ b/TESTING/traditional/LIN/pdpbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PDPBINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NBW, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pdpblaschk.f b/TESTING/traditional/LIN/pdpblaschk.f index c329cde4..0610586e 100644 --- a/TESTING/traditional/LIN/pdpblaschk.f +++ b/TESTING/traditional/LIN/pdpblaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PDPBLASCHK( SYMM, UPLO, N, BWL, BWU, NRHS, X, IX, JX, $ DESCX, IASEED, A, IA, JA, DESCA, IBSEED, $ ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pdpbmv1.f b/TESTING/traditional/LIN/pdpbmv1.f index 9824dd6a..6be0dc45 100644 --- a/TESTING/traditional/LIN/pdpbmv1.f +++ b/TESTING/traditional/LIN/pdpbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PDPBDCMV( LDBW, BW, UPLO, N, A, JA, DESCA, NRHS, B, IB, $ DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pdpotrrv.f b/TESTING/traditional/LIN/pdpotrrv.f index fdf7b4ba..a8aeb86d 100644 --- a/TESTING/traditional/LIN/pdpotrrv.f +++ b/TESTING/traditional/LIN/pdpotrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PDPOTRRV( UPLO, N, A, IA, JA, DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdptdriver.f b/TESTING/traditional/LIN/pdptdriver.f index 7aea1faf..bbd6aa2f 100644 --- a/TESTING/traditional/LIN/pdptdriver.f +++ b/TESTING/traditional/LIN/pdptdriver.f @@ -1,4 +1,5 @@ PROGRAM PDPTDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pdptinfo.f b/TESTING/traditional/LIN/pdptinfo.f index 90e1eb99..3e6725f1 100644 --- a/TESTING/traditional/LIN/pdptinfo.f +++ b/TESTING/traditional/LIN/pdptinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PDPTINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NBW, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pdptlaschk.f b/TESTING/traditional/LIN/pdptlaschk.f index af5a6056..153596a5 100644 --- a/TESTING/traditional/LIN/pdptlaschk.f +++ b/TESTING/traditional/LIN/pdptlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PDPTLASCHK( SYMM, UPLO, N, BWL, BWU, NRHS, X, IX, JX, $ DESCX, IASEED, A, IA, JA, DESCA, IBSEED, $ ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pdqrdriver.f b/TESTING/traditional/LIN/pdqrdriver.f index 1eacbf22..44e7e75f 100644 --- a/TESTING/traditional/LIN/pdqrdriver.f +++ b/TESTING/traditional/LIN/pdqrdriver.f @@ -1,4 +1,5 @@ PROGRAM PDQRDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -865,6 +866,7 @@ PROGRAM PDQRDRIVER END * SUBROUTINE PDQPPIV( M, N, A, IA, JA, DESCA, IPIV ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdqrinfo.f b/TESTING/traditional/LIN/pdqrinfo.f index 81f4027a..35836ce7 100644 --- a/TESTING/traditional/LIN/pdqrinfo.f +++ b/TESTING/traditional/LIN/pdqrinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PDQRINFO( SUMMRY, NOUT, NFACT, FACTOR, LDFACT, NMAT, $ LDMBVAL, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdqrt13.f b/TESTING/traditional/LIN/pdqrt13.f index fbe5dcac..1838a48f 100644 --- a/TESTING/traditional/LIN/pdqrt13.f +++ b/TESTING/traditional/LIN/pdqrt13.f @@ -1,5 +1,6 @@ SUBROUTINE PDQRT13( SCALE, M, N, A, IA, JA, DESCA, NORMA, ISEED, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdqrt14.f b/TESTING/traditional/LIN/pdqrt14.f index 1c18d828..d808c7f9 100644 --- a/TESTING/traditional/LIN/pdqrt14.f +++ b/TESTING/traditional/LIN/pdqrt14.f @@ -1,5 +1,6 @@ DOUBLE PRECISION FUNCTION PDQRT14( TRANS, M, N, NRHS, A, IA, JA, $ DESCA, X, IX, JX, DESCX, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdqrt16.f b/TESTING/traditional/LIN/pdqrt16.f index fd688d01..678228c7 100644 --- a/TESTING/traditional/LIN/pdqrt16.f +++ b/TESTING/traditional/LIN/pdqrt16.f @@ -1,5 +1,6 @@ SUBROUTINE PDQRT16( TRANS, M, N, NRHS, A, IA, JA, DESCA, X, IX, $ JX, DESCX, B, IB, JB, DESCB, RWORK, RESID ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdqrt17.f b/TESTING/traditional/LIN/pdqrt17.f index 961a4cd4..ffea0cc9 100644 --- a/TESTING/traditional/LIN/pdqrt17.f +++ b/TESTING/traditional/LIN/pdqrt17.f @@ -2,6 +2,7 @@ DOUBLE PRECISION FUNCTION PDQRT17( TRANS, IRESID, M, N, NRHS, A, $ IA, JA, DESCA, X, IX, JX, $ DESCX, B, IB, JB, DESCB, WORK, $ RWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pdtzrzrv.f b/TESTING/traditional/LIN/pdtzrzrv.f index 0632b068..9a88186d 100644 --- a/TESTING/traditional/LIN/pdtzrzrv.f +++ b/TESTING/traditional/LIN/pdtzrzrv.f @@ -1,4 +1,5 @@ SUBROUTINE PDTZRZRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pmatgeninc.f b/TESTING/traditional/LIN/pmatgeninc.f index 87985560..ed9281d1 100644 --- a/TESTING/traditional/LIN/pmatgeninc.f +++ b/TESTING/traditional/LIN/pmatgeninc.f @@ -3,6 +3,7 @@ * ===================================================================== * SUBROUTINE LADD( J, K, I ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -38,6 +39,7 @@ SUBROUTINE LADD( J, K, I ) * ===================================================================== * SUBROUTINE LMUL( K, J, I ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -82,6 +84,7 @@ SUBROUTINE LMUL( K, J, I ) * ===================================================================== * SUBROUTINE XJUMPM( JUMPM, MULT, IADD, IRANN, IRANM, IAM, ICM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -139,6 +142,7 @@ SUBROUTINE XJUMPM( JUMPM, MULT, IADD, IRANN, IRANM, IAM, ICM ) * ===================================================================== * SUBROUTINE SETRAN( IRAN, IA, IC ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -180,6 +184,7 @@ SUBROUTINE SETRAN( IRAN, IA, IC ) * ===================================================================== * SUBROUTINE JUMPIT( MULT, IADD, IRANN, IRANM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -221,6 +226,7 @@ SUBROUTINE JUMPIT( MULT, IADD, IRANN, IRANM ) * ===================================================================== * REAL FUNCTION PSRAND( IDUMM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -269,6 +275,7 @@ REAL FUNCTION PSRAND( IDUMM ) * ===================================================================== * DOUBLE PRECISION FUNCTION PDRAND( IDUMM ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psbmatgen.f b/TESTING/traditional/LIN/psbmatgen.f index ce2cdd18..526ec8b3 100644 --- a/TESTING/traditional/LIN/psbmatgen.f +++ b/TESTING/traditional/LIN/psbmatgen.f @@ -2,6 +2,7 @@ SUBROUTINE PSBMATGEN( ICTXT, AFORM, AFORM2, BWL, BWU, N, $ MB, NB, A, $ LDA, IAROW, IACOL, ISEED, $ MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/psdbdriver.f b/TESTING/traditional/LIN/psdbdriver.f index e8dfa7f7..76dede9f 100644 --- a/TESTING/traditional/LIN/psdbdriver.f +++ b/TESTING/traditional/LIN/psdbdriver.f @@ -1,4 +1,5 @@ PROGRAM PSDBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/psdbinfo.f b/TESTING/traditional/LIN/psdbinfo.f index d7d31bc3..809a2ff8 100644 --- a/TESTING/traditional/LIN/psdbinfo.f +++ b/TESTING/traditional/LIN/psdbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PSDBINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/psdblaschk.f b/TESTING/traditional/LIN/psdblaschk.f index 8c9f49e2..0b3329e8 100644 --- a/TESTING/traditional/LIN/psdblaschk.f +++ b/TESTING/traditional/LIN/psdblaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PSDBLASCHK( SYMM, UPLO, TRANS, N, BWL, BWU, NRHS, X, $ IX, JX, DESCX, IASEED, A, IA, JA, DESCA, $ IBSEED, ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/psdbmv1.f b/TESTING/traditional/LIN/psdbmv1.f index b8d35eb3..f84efce2 100644 --- a/TESTING/traditional/LIN/psdbmv1.f +++ b/TESTING/traditional/LIN/psdbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PSGBDCMV( LDBW, BWL, BWU, TRANS, N, A, JA, DESCA, NRHS, $ B, IB, DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/psdtdriver.f b/TESTING/traditional/LIN/psdtdriver.f index 126ee0ca..09fa43cc 100644 --- a/TESTING/traditional/LIN/psdtdriver.f +++ b/TESTING/traditional/LIN/psdtdriver.f @@ -1,4 +1,5 @@ PROGRAM PSDTDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/psdtinfo.f b/TESTING/traditional/LIN/psdtinfo.f index 2cfc1b4a..005284ff 100644 --- a/TESTING/traditional/LIN/psdtinfo.f +++ b/TESTING/traditional/LIN/psdtinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PSDTINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/psdtlaschk.f b/TESTING/traditional/LIN/psdtlaschk.f index 999f7a4f..42256b07 100644 --- a/TESTING/traditional/LIN/psdtlaschk.f +++ b/TESTING/traditional/LIN/psdtlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PSDTLASCHK( SYMM, UPLO, TRANS, N, BWL, BWU, NRHS, X, $ IX, JX, DESCX, IASEED, A, IA, JA, DESCA, $ IBSEED, ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/psgbdriver.f b/TESTING/traditional/LIN/psgbdriver.f index b9c61583..a8d044e3 100644 --- a/TESTING/traditional/LIN/psgbdriver.f +++ b/TESTING/traditional/LIN/psgbdriver.f @@ -1,4 +1,5 @@ PROGRAM PSGBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/psgbinfo.f b/TESTING/traditional/LIN/psgbinfo.f index d1fbab3c..971ba1cf 100644 --- a/TESTING/traditional/LIN/psgbinfo.f +++ b/TESTING/traditional/LIN/psgbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PSGBINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/psgbmv1.f b/TESTING/traditional/LIN/psgbmv1.f index b8d35eb3..f84efce2 100644 --- a/TESTING/traditional/LIN/psgbmv1.f +++ b/TESTING/traditional/LIN/psgbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PSGBDCMV( LDBW, BWL, BWU, TRANS, N, A, JA, DESCA, NRHS, $ B, IB, DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/psgelqrv.f b/TESTING/traditional/LIN/psgelqrv.f index 871a280e..0eb4db4f 100644 --- a/TESTING/traditional/LIN/psgelqrv.f +++ b/TESTING/traditional/LIN/psgelqrv.f @@ -1,4 +1,5 @@ SUBROUTINE PSGELQRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psgeqlrv.f b/TESTING/traditional/LIN/psgeqlrv.f index b1f506b4..c94c891f 100644 --- a/TESTING/traditional/LIN/psgeqlrv.f +++ b/TESTING/traditional/LIN/psgeqlrv.f @@ -1,4 +1,5 @@ SUBROUTINE PSGEQLRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psgeqrrv.f b/TESTING/traditional/LIN/psgeqrrv.f index 97521b56..62d8bff9 100644 --- a/TESTING/traditional/LIN/psgeqrrv.f +++ b/TESTING/traditional/LIN/psgeqrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PSGEQRRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psgerqrv.f b/TESTING/traditional/LIN/psgerqrv.f index ad3d3b28..c11d2820 100644 --- a/TESTING/traditional/LIN/psgerqrv.f +++ b/TESTING/traditional/LIN/psgerqrv.f @@ -1,4 +1,5 @@ SUBROUTINE PSGERQRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psgetrrv.f b/TESTING/traditional/LIN/psgetrrv.f index a0bf0c6b..f6085747 100644 --- a/TESTING/traditional/LIN/psgetrrv.f +++ b/TESTING/traditional/LIN/psgetrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PSGETRRV( M, N, A, IA, JA, DESCA, IPIV, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psinvchk.f b/TESTING/traditional/LIN/psinvchk.f index 7bf1f9fa..f2a2278d 100644 --- a/TESTING/traditional/LIN/psinvchk.f +++ b/TESTING/traditional/LIN/psinvchk.f @@ -1,5 +1,6 @@ SUBROUTINE PSINVCHK( MATTYP, N, A, IA, JA, DESCA, IASEED, ANORM, $ FRESID, RCOND, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psinvdriver.f b/TESTING/traditional/LIN/psinvdriver.f index c290744c..b66a7506 100644 --- a/TESTING/traditional/LIN/psinvdriver.f +++ b/TESTING/traditional/LIN/psinvdriver.f @@ -1,4 +1,5 @@ PROGRAM PSINVDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psinvinfo.f b/TESTING/traditional/LIN/psinvinfo.f index 7bcb09dc..70eb128a 100644 --- a/TESTING/traditional/LIN/psinvinfo.f +++ b/TESTING/traditional/LIN/psinvinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PSINVINFO( SUMMRY, NOUT, NMTYP, MATTYP, LDMTYP, NMAT, $ NVAL, LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, $ PVAL, LDPVAL, QVAL, LDQVAL, THRESH, WORK, $ IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pslafchk.f b/TESTING/traditional/LIN/pslafchk.f index 86a76de9..df7b0e9a 100644 --- a/TESTING/traditional/LIN/pslafchk.f +++ b/TESTING/traditional/LIN/pslafchk.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAFCHK( AFORM, DIAG, M, N, A, IA, JA, DESCA, IASEED, $ ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pslaschk.f b/TESTING/traditional/LIN/pslaschk.f index 5543b738..b5af4d52 100644 --- a/TESTING/traditional/LIN/pslaschk.f +++ b/TESTING/traditional/LIN/pslaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PSLASCHK( SYMM, DIAG, N, NRHS, X, IX, JX, DESCX, $ IASEED, IA, JA, DESCA, IBSEED, ANORM, RESID, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pslltdriver.f b/TESTING/traditional/LIN/pslltdriver.f index 5b0e1a95..1376fac3 100644 --- a/TESTING/traditional/LIN/pslltdriver.f +++ b/TESTING/traditional/LIN/pslltdriver.f @@ -1,4 +1,5 @@ PROGRAM PSLLTDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pslltinfo.f b/TESTING/traditional/LIN/pslltinfo.f index a7f38759..07933a0e 100644 --- a/TESTING/traditional/LIN/pslltinfo.f +++ b/TESTING/traditional/LIN/pslltinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PSLLTINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NNB, $ NBRVAL, LDNBRVAL, NGRIDS, PVAL, LDPVAL, $ QVAL, LDQVAL, THRESH, EST, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pslsdriver.f b/TESTING/traditional/LIN/pslsdriver.f index 5aab5813..9b899d18 100644 --- a/TESTING/traditional/LIN/pslsdriver.f +++ b/TESTING/traditional/LIN/pslsdriver.f @@ -1,4 +1,5 @@ PROGRAM PSLSDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pslsinfo.f b/TESTING/traditional/LIN/pslsinfo.f index a12e848d..5a0d46e8 100644 --- a/TESTING/traditional/LIN/pslsinfo.f +++ b/TESTING/traditional/LIN/pslsinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PSLSINFO( SUMMRY, NOUT, NMAT, MVAL, LDMVAL, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psludriver.f b/TESTING/traditional/LIN/psludriver.f index 0c57f29a..95014aae 100644 --- a/TESTING/traditional/LIN/psludriver.f +++ b/TESTING/traditional/LIN/psludriver.f @@ -1,4 +1,5 @@ PROGRAM PSLUDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psluinfo.f b/TESTING/traditional/LIN/psluinfo.f index f981c45c..839e80b7 100644 --- a/TESTING/traditional/LIN/psluinfo.f +++ b/TESTING/traditional/LIN/psluinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PSLUINFO( SUMMRY, NOUT, NMAT, MVAL, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NNR, NRVAL, LDNRVAL, NNBR, $ NBRVAL, LDNBRVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, EST, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psmatgen.f b/TESTING/traditional/LIN/psmatgen.f index df8faede..09ae81c5 100644 --- a/TESTING/traditional/LIN/psmatgen.f +++ b/TESTING/traditional/LIN/psmatgen.f @@ -1,6 +1,7 @@ SUBROUTINE PSMATGEN( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pspbdriver.f b/TESTING/traditional/LIN/pspbdriver.f index 88a41d4d..c7a4a8c0 100644 --- a/TESTING/traditional/LIN/pspbdriver.f +++ b/TESTING/traditional/LIN/pspbdriver.f @@ -1,4 +1,5 @@ PROGRAM PSPBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pspbinfo.f b/TESTING/traditional/LIN/pspbinfo.f index ff95df7d..65860d8d 100644 --- a/TESTING/traditional/LIN/pspbinfo.f +++ b/TESTING/traditional/LIN/pspbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PSPBINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NBW, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pspblaschk.f b/TESTING/traditional/LIN/pspblaschk.f index 7fcd9824..6c16121f 100644 --- a/TESTING/traditional/LIN/pspblaschk.f +++ b/TESTING/traditional/LIN/pspblaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PSPBLASCHK( SYMM, UPLO, N, BWL, BWU, NRHS, X, IX, JX, $ DESCX, IASEED, A, IA, JA, DESCA, IBSEED, $ ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pspbmv1.f b/TESTING/traditional/LIN/pspbmv1.f index 44a5c2a0..13736324 100644 --- a/TESTING/traditional/LIN/pspbmv1.f +++ b/TESTING/traditional/LIN/pspbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PSPBDCMV( LDBW, BW, UPLO, N, A, JA, DESCA, NRHS, B, IB, $ DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pspotrrv.f b/TESTING/traditional/LIN/pspotrrv.f index 0bb940da..098ba2de 100644 --- a/TESTING/traditional/LIN/pspotrrv.f +++ b/TESTING/traditional/LIN/pspotrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PSPOTRRV( UPLO, N, A, IA, JA, DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psptdriver.f b/TESTING/traditional/LIN/psptdriver.f index 6f922bb9..36fc04f0 100644 --- a/TESTING/traditional/LIN/psptdriver.f +++ b/TESTING/traditional/LIN/psptdriver.f @@ -1,4 +1,5 @@ PROGRAM PSPTDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/psptinfo.f b/TESTING/traditional/LIN/psptinfo.f index bbb91763..8a165a3b 100644 --- a/TESTING/traditional/LIN/psptinfo.f +++ b/TESTING/traditional/LIN/psptinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PSPTINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NBW, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/psptlaschk.f b/TESTING/traditional/LIN/psptlaschk.f index ee32df52..9fcc4a70 100644 --- a/TESTING/traditional/LIN/psptlaschk.f +++ b/TESTING/traditional/LIN/psptlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PSPTLASCHK( SYMM, UPLO, N, BWL, BWU, NRHS, X, IX, JX, $ DESCX, IASEED, A, IA, JA, DESCA, IBSEED, $ ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/psqrdriver.f b/TESTING/traditional/LIN/psqrdriver.f index 7882085a..a109306a 100644 --- a/TESTING/traditional/LIN/psqrdriver.f +++ b/TESTING/traditional/LIN/psqrdriver.f @@ -1,4 +1,5 @@ PROGRAM PSQRDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -866,6 +867,7 @@ PROGRAM PSQRDRIVER END * SUBROUTINE PSQPPIV( M, N, A, IA, JA, DESCA, IPIV ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psqrinfo.f b/TESTING/traditional/LIN/psqrinfo.f index 77e7b58c..31c918b4 100644 --- a/TESTING/traditional/LIN/psqrinfo.f +++ b/TESTING/traditional/LIN/psqrinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PSQRINFO( SUMMRY, NOUT, NFACT, FACTOR, LDFACT, NMAT, $ LDMBVAL, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psqrt13.f b/TESTING/traditional/LIN/psqrt13.f index a2c7868e..432ff372 100644 --- a/TESTING/traditional/LIN/psqrt13.f +++ b/TESTING/traditional/LIN/psqrt13.f @@ -1,5 +1,6 @@ SUBROUTINE PSQRT13( SCALE, M, N, A, IA, JA, DESCA, NORMA, ISEED, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psqrt14.f b/TESTING/traditional/LIN/psqrt14.f index 4fe34a1c..22c4eeaa 100644 --- a/TESTING/traditional/LIN/psqrt14.f +++ b/TESTING/traditional/LIN/psqrt14.f @@ -1,5 +1,6 @@ REAL FUNCTION PSQRT14( TRANS, M, N, NRHS, A, IA, JA, $ DESCA, X, IX, JX, DESCX, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psqrt16.f b/TESTING/traditional/LIN/psqrt16.f index 9b2dac57..cab16b99 100644 --- a/TESTING/traditional/LIN/psqrt16.f +++ b/TESTING/traditional/LIN/psqrt16.f @@ -1,5 +1,6 @@ SUBROUTINE PSQRT16( TRANS, M, N, NRHS, A, IA, JA, DESCA, X, IX, $ JX, DESCX, B, IB, JB, DESCB, RWORK, RESID ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/psqrt17.f b/TESTING/traditional/LIN/psqrt17.f index fd89c897..9910376d 100644 --- a/TESTING/traditional/LIN/psqrt17.f +++ b/TESTING/traditional/LIN/psqrt17.f @@ -2,6 +2,7 @@ REAL FUNCTION PSQRT17( TRANS, IRESID, M, N, NRHS, A, $ IA, JA, DESCA, X, IX, JX, $ DESCX, B, IB, JB, DESCB, WORK, $ RWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pstzrzrv.f b/TESTING/traditional/LIN/pstzrzrv.f index e43f2d97..7d5127b1 100644 --- a/TESTING/traditional/LIN/pstzrzrv.f +++ b/TESTING/traditional/LIN/pstzrzrv.f @@ -1,4 +1,5 @@ SUBROUTINE PSTZRZRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzbmatgen.f b/TESTING/traditional/LIN/pzbmatgen.f index 3a3d242e..d02a3896 100644 --- a/TESTING/traditional/LIN/pzbmatgen.f +++ b/TESTING/traditional/LIN/pzbmatgen.f @@ -2,6 +2,7 @@ SUBROUTINE PZBMATGEN( ICTXT, AFORM, AFORM2, BWL, BWU, N, $ MB, NB, A, $ LDA, IAROW, IACOL, ISEED, $ MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzdbdriver.f b/TESTING/traditional/LIN/pzdbdriver.f index 1e559abf..c9f9e386 100644 --- a/TESTING/traditional/LIN/pzdbdriver.f +++ b/TESTING/traditional/LIN/pzdbdriver.f @@ -1,4 +1,5 @@ PROGRAM PZDBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzdbinfo.f b/TESTING/traditional/LIN/pzdbinfo.f index 6045d8dd..95037e41 100644 --- a/TESTING/traditional/LIN/pzdbinfo.f +++ b/TESTING/traditional/LIN/pzdbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PZDBINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzdblaschk.f b/TESTING/traditional/LIN/pzdblaschk.f index 1554c3ca..3840e822 100644 --- a/TESTING/traditional/LIN/pzdblaschk.f +++ b/TESTING/traditional/LIN/pzdblaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PZDBLASCHK( SYMM, UPLO, TRANS, N, BWL, BWU, NRHS, X, $ IX, JX, DESCX, IASEED, A, IA, JA, DESCA, $ IBSEED, ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzdbmv1.f b/TESTING/traditional/LIN/pzdbmv1.f index d05b70d9..61136e94 100644 --- a/TESTING/traditional/LIN/pzdbmv1.f +++ b/TESTING/traditional/LIN/pzdbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PZGBDCMV( LDBW, BWL, BWU, TRANS, N, A, JA, DESCA, NRHS, $ B, IB, DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzdtdriver.f b/TESTING/traditional/LIN/pzdtdriver.f index d6b5ab69..5c91c409 100644 --- a/TESTING/traditional/LIN/pzdtdriver.f +++ b/TESTING/traditional/LIN/pzdtdriver.f @@ -1,4 +1,5 @@ PROGRAM PZDTDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzdtinfo.f b/TESTING/traditional/LIN/pzdtinfo.f index 09108e66..0629e5c8 100644 --- a/TESTING/traditional/LIN/pzdtinfo.f +++ b/TESTING/traditional/LIN/pzdtinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PZDTINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzdtlaschk.f b/TESTING/traditional/LIN/pzdtlaschk.f index c28f25d2..1b290712 100644 --- a/TESTING/traditional/LIN/pzdtlaschk.f +++ b/TESTING/traditional/LIN/pzdtlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PZDTLASCHK( SYMM, UPLO, TRANS, N, BWL, BWU, NRHS, X, $ IX, JX, DESCX, IASEED, A, IA, JA, DESCA, $ IBSEED, ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzgbdriver.f b/TESTING/traditional/LIN/pzgbdriver.f index d864f40d..a1322c5c 100644 --- a/TESTING/traditional/LIN/pzgbdriver.f +++ b/TESTING/traditional/LIN/pzgbdriver.f @@ -1,4 +1,5 @@ PROGRAM PZGBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzgbinfo.f b/TESTING/traditional/LIN/pzgbinfo.f index 7c0dd63e..3e564c5b 100644 --- a/TESTING/traditional/LIN/pzgbinfo.f +++ b/TESTING/traditional/LIN/pzgbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PZGBINFO( SUMMRY, NOUT, TRANS, NMAT, NVAL, LDNVAL, NBW, $ NNR, NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzgbmv1.f b/TESTING/traditional/LIN/pzgbmv1.f index d05b70d9..61136e94 100644 --- a/TESTING/traditional/LIN/pzgbmv1.f +++ b/TESTING/traditional/LIN/pzgbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PZGBDCMV( LDBW, BWL, BWU, TRANS, N, A, JA, DESCA, NRHS, $ B, IB, DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzgelqrv.f b/TESTING/traditional/LIN/pzgelqrv.f index e1e6411c..c389de6c 100644 --- a/TESTING/traditional/LIN/pzgelqrv.f +++ b/TESTING/traditional/LIN/pzgelqrv.f @@ -1,4 +1,5 @@ SUBROUTINE PZGELQRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzgeqlrv.f b/TESTING/traditional/LIN/pzgeqlrv.f index 7e777682..e04db2bf 100644 --- a/TESTING/traditional/LIN/pzgeqlrv.f +++ b/TESTING/traditional/LIN/pzgeqlrv.f @@ -1,4 +1,5 @@ SUBROUTINE PZGEQLRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzgeqrrv.f b/TESTING/traditional/LIN/pzgeqrrv.f index 40da89bc..4f6779b3 100644 --- a/TESTING/traditional/LIN/pzgeqrrv.f +++ b/TESTING/traditional/LIN/pzgeqrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PZGEQRRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzgerqrv.f b/TESTING/traditional/LIN/pzgerqrv.f index d680ddba..3c55976d 100644 --- a/TESTING/traditional/LIN/pzgerqrv.f +++ b/TESTING/traditional/LIN/pzgerqrv.f @@ -1,4 +1,5 @@ SUBROUTINE PZGERQRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzgetrrv.f b/TESTING/traditional/LIN/pzgetrrv.f index 8fff10e5..6d6b4278 100644 --- a/TESTING/traditional/LIN/pzgetrrv.f +++ b/TESTING/traditional/LIN/pzgetrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PZGETRRV( M, N, A, IA, JA, DESCA, IPIV, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzinvchk.f b/TESTING/traditional/LIN/pzinvchk.f index 7989becb..7247ecb4 100644 --- a/TESTING/traditional/LIN/pzinvchk.f +++ b/TESTING/traditional/LIN/pzinvchk.f @@ -1,5 +1,6 @@ SUBROUTINE PZINVCHK( MATTYP, N, A, IA, JA, DESCA, IASEED, ANORM, $ FRESID, RCOND, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzinvdriver.f b/TESTING/traditional/LIN/pzinvdriver.f index 42726a9b..41e2cb8a 100644 --- a/TESTING/traditional/LIN/pzinvdriver.f +++ b/TESTING/traditional/LIN/pzinvdriver.f @@ -1,4 +1,5 @@ PROGRAM PZINVDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzinvinfo.f b/TESTING/traditional/LIN/pzinvinfo.f index 08a5148f..6ba2177b 100644 --- a/TESTING/traditional/LIN/pzinvinfo.f +++ b/TESTING/traditional/LIN/pzinvinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PZINVINFO( SUMMRY, NOUT, NMTYP, MATTYP, LDMTYP, NMAT, $ NVAL, LDNVAL, NNB, NBVAL, LDNBVAL, NGRIDS, $ PVAL, LDPVAL, QVAL, LDQVAL, THRESH, WORK, $ IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzlafchk.f b/TESTING/traditional/LIN/pzlafchk.f index 732985b6..1e60e657 100644 --- a/TESTING/traditional/LIN/pzlafchk.f +++ b/TESTING/traditional/LIN/pzlafchk.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAFCHK( AFORM, DIAG, M, N, A, IA, JA, DESCA, IASEED, $ ANORM, FRESID, WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzlaschk.f b/TESTING/traditional/LIN/pzlaschk.f index 3d6210d2..c8350ce6 100644 --- a/TESTING/traditional/LIN/pzlaschk.f +++ b/TESTING/traditional/LIN/pzlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PZLASCHK( SYMM, DIAG, N, NRHS, X, IX, JX, DESCX, $ IASEED, IA, JA, DESCA, IBSEED, ANORM, RESID, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK auxiliary routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzlltdriver.f b/TESTING/traditional/LIN/pzlltdriver.f index 2d0292f4..04919a57 100644 --- a/TESTING/traditional/LIN/pzlltdriver.f +++ b/TESTING/traditional/LIN/pzlltdriver.f @@ -1,4 +1,5 @@ PROGRAM PZLLTDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzlltinfo.f b/TESTING/traditional/LIN/pzlltinfo.f index 53d08c36..49c2b391 100644 --- a/TESTING/traditional/LIN/pzlltinfo.f +++ b/TESTING/traditional/LIN/pzlltinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PZLLTINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NNB, $ NBRVAL, LDNBRVAL, NGRIDS, PVAL, LDPVAL, $ QVAL, LDQVAL, THRESH, EST, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzlsdriver.f b/TESTING/traditional/LIN/pzlsdriver.f index e969e433..c02938f9 100644 --- a/TESTING/traditional/LIN/pzlsdriver.f +++ b/TESTING/traditional/LIN/pzlsdriver.f @@ -1,4 +1,5 @@ PROGRAM PZLSDRIVER + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzlsinfo.f b/TESTING/traditional/LIN/pzlsinfo.f index 33512d22..20e4f9bb 100644 --- a/TESTING/traditional/LIN/pzlsinfo.f +++ b/TESTING/traditional/LIN/pzlsinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PZLSINFO( SUMMRY, NOUT, NMAT, MVAL, LDMVAL, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzludriver.f b/TESTING/traditional/LIN/pzludriver.f index 2df8fe2d..36248d2c 100644 --- a/TESTING/traditional/LIN/pzludriver.f +++ b/TESTING/traditional/LIN/pzludriver.f @@ -1,4 +1,5 @@ PROGRAM PZLUDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzluinfo.f b/TESTING/traditional/LIN/pzluinfo.f index c1515617..fce6c137 100644 --- a/TESTING/traditional/LIN/pzluinfo.f +++ b/TESTING/traditional/LIN/pzluinfo.f @@ -2,6 +2,7 @@ SUBROUTINE PZLUINFO( SUMMRY, NOUT, NMAT, MVAL, NVAL, LDNVAL, NNB, $ NBVAL, LDNBVAL, NNR, NRVAL, LDNRVAL, NNBR, $ NBRVAL, LDNBRVAL, NGRIDS, PVAL, LDPVAL, QVAL, $ LDQVAL, THRESH, EST, WORK, IAM, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzmatgen.f b/TESTING/traditional/LIN/pzmatgen.f index f4ee5ab0..bcf01162 100644 --- a/TESTING/traditional/LIN/pzmatgen.f +++ b/TESTING/traditional/LIN/pzmatgen.f @@ -1,6 +1,7 @@ SUBROUTINE PZMATGEN( ICTXT, AFORM, DIAG, M, N, MB, NB, A, LDA, $ IAROW, IACOL, ISEED, IROFF, IRNUM, ICOFF, $ ICNUM, MYROW, MYCOL, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzpbdriver.f b/TESTING/traditional/LIN/pzpbdriver.f index 043d593b..69380671 100644 --- a/TESTING/traditional/LIN/pzpbdriver.f +++ b/TESTING/traditional/LIN/pzpbdriver.f @@ -1,4 +1,5 @@ PROGRAM PZPBDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzpbinfo.f b/TESTING/traditional/LIN/pzpbinfo.f index ee94072f..05a2de5f 100644 --- a/TESTING/traditional/LIN/pzpbinfo.f +++ b/TESTING/traditional/LIN/pzpbinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PZPBINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NBW, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzpblaschk.f b/TESTING/traditional/LIN/pzpblaschk.f index 7c2afc10..2c8eb893 100644 --- a/TESTING/traditional/LIN/pzpblaschk.f +++ b/TESTING/traditional/LIN/pzpblaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PZPBLASCHK( SYMM, UPLO, N, BWL, BWU, NRHS, X, IX, JX, $ DESCX, IASEED, A, IA, JA, DESCA, IBSEED, $ ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzpbmv1.f b/TESTING/traditional/LIN/pzpbmv1.f index 39be4afa..2efbd15d 100644 --- a/TESTING/traditional/LIN/pzpbmv1.f +++ b/TESTING/traditional/LIN/pzpbmv1.f @@ -1,5 +1,6 @@ SUBROUTINE PZPBDCMV( LDBW, BW, UPLO, N, A, JA, DESCA, NRHS, B, IB, $ DESCB, X, WORK, LWORK, INFO ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzpotrrv.f b/TESTING/traditional/LIN/pzpotrrv.f index 0d6b4524..4f61cbef 100644 --- a/TESTING/traditional/LIN/pzpotrrv.f +++ b/TESTING/traditional/LIN/pzpotrrv.f @@ -1,4 +1,5 @@ SUBROUTINE PZPOTRRV( UPLO, N, A, IA, JA, DESCA, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzptdriver.f b/TESTING/traditional/LIN/pzptdriver.f index 4b46fafc..38cabb31 100644 --- a/TESTING/traditional/LIN/pzptdriver.f +++ b/TESTING/traditional/LIN/pzptdriver.f @@ -1,4 +1,5 @@ PROGRAM PZPTDRIVER + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzptinfo.f b/TESTING/traditional/LIN/pzptinfo.f index b4acf71c..f7f63c41 100644 --- a/TESTING/traditional/LIN/pzptinfo.f +++ b/TESTING/traditional/LIN/pzptinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PZPTINFO( SUMMRY, NOUT, UPLO, NMAT, NVAL, LDNVAL, NBW, $ NRVAL, LDNRVAL, NNBR, NBRVAL, LDNBRVAL, $ NGRIDS, PVAL, LDPVAL, QVAL, LDQVAL, THRESH, $ WORK, IAM, NPROCS ) + IMPLICIT NONE * * * diff --git a/TESTING/traditional/LIN/pzptlaschk.f b/TESTING/traditional/LIN/pzptlaschk.f index 77ea6c64..313cdcf7 100644 --- a/TESTING/traditional/LIN/pzptlaschk.f +++ b/TESTING/traditional/LIN/pzptlaschk.f @@ -1,6 +1,7 @@ SUBROUTINE PZPTLASCHK( SYMM, UPLO, N, BWL, BWU, NRHS, X, IX, JX, $ DESCX, IASEED, A, IA, JA, DESCA, IBSEED, $ ANORM, RESID, WORK, WORKSIZ ) + IMPLICIT NONE * * * -- ScaLAPACK routine (version 1.7) -- diff --git a/TESTING/traditional/LIN/pzqrdriver.f b/TESTING/traditional/LIN/pzqrdriver.f index b76a7f64..9fbd0ee7 100644 --- a/TESTING/traditional/LIN/pzqrdriver.f +++ b/TESTING/traditional/LIN/pzqrdriver.f @@ -1,4 +1,5 @@ PROGRAM PZQRDRIVER + IMPLICIT NONE * * -- ScaLAPACK testing driver (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -886,6 +887,7 @@ PROGRAM PZQRDRIVER END * SUBROUTINE PZQPPIV( M, N, A, IA, JA, DESCA, IPIV ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzqrinfo.f b/TESTING/traditional/LIN/pzqrinfo.f index 5e101c85..734af00d 100644 --- a/TESTING/traditional/LIN/pzqrinfo.f +++ b/TESTING/traditional/LIN/pzqrinfo.f @@ -3,6 +3,7 @@ SUBROUTINE PZQRINFO( SUMMRY, NOUT, NFACT, FACTOR, LDFACT, NMAT, $ LDMBVAL, NBVAL, LDNBVAL, NGRIDS, PVAL, $ LDPVAL, QVAL, LDQVAL, THRESH, WORK, IAM, $ NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzqrt13.f b/TESTING/traditional/LIN/pzqrt13.f index 9c7ef62a..b884aae4 100644 --- a/TESTING/traditional/LIN/pzqrt13.f +++ b/TESTING/traditional/LIN/pzqrt13.f @@ -1,5 +1,6 @@ SUBROUTINE PZQRT13( SCALE, M, N, A, IA, JA, DESCA, NORMA, ISEED, $ WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzqrt14.f b/TESTING/traditional/LIN/pzqrt14.f index bf836d86..53f02b1c 100644 --- a/TESTING/traditional/LIN/pzqrt14.f +++ b/TESTING/traditional/LIN/pzqrt14.f @@ -1,5 +1,6 @@ DOUBLE PRECISION FUNCTION PZQRT14( TRANS, M, N, NRHS, A, IA, JA, $ DESCA, X, IX, JX, DESCX, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzqrt16.f b/TESTING/traditional/LIN/pzqrt16.f index 88fad1e2..29275655 100644 --- a/TESTING/traditional/LIN/pzqrt16.f +++ b/TESTING/traditional/LIN/pzqrt16.f @@ -1,5 +1,6 @@ SUBROUTINE PZQRT16( TRANS, M, N, NRHS, A, IA, JA, DESCA, X, IX, $ JX, DESCX, B, IB, JB, DESCB, RWORK, RESID ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pzqrt17.f b/TESTING/traditional/LIN/pzqrt17.f index 4930aac1..cc186538 100644 --- a/TESTING/traditional/LIN/pzqrt17.f +++ b/TESTING/traditional/LIN/pzqrt17.f @@ -2,6 +2,7 @@ DOUBLE PRECISION FUNCTION PZQRT17( TRANS, IRESID, M, N, NRHS, A, $ IA, JA, DESCA, X, IX, JX, $ DESCX, B, IB, JB, DESCB, WORK, $ RWORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TESTING/traditional/LIN/pztzrzrv.f b/TESTING/traditional/LIN/pztzrzrv.f index f86d070f..8417fcd1 100644 --- a/TESTING/traditional/LIN/pztzrzrv.f +++ b/TESTING/traditional/LIN/pztzrzrv.f @@ -1,4 +1,5 @@ SUBROUTINE PZTZRZRV( M, N, A, IA, JA, DESCA, TAU, WORK ) + IMPLICIT NONE * * -- ScaLAPACK routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/LAPACK/clagge.f b/TOOLS/LAPACK/clagge.f index 7ba73df8..5cfd896b 100644 --- a/TOOLS/LAPACK/clagge.f +++ b/TOOLS/LAPACK/clagge.f @@ -1,4 +1,5 @@ SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/claghe.f b/TOOLS/LAPACK/claghe.f index b2fcebd8..9a5d2571 100644 --- a/TOOLS/LAPACK/claghe.f +++ b/TOOLS/LAPACK/claghe.f @@ -1,4 +1,5 @@ SUBROUTINE CLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/clagsy.f b/TOOLS/LAPACK/clagsy.f index cfda5a88..55f7f713 100644 --- a/TOOLS/LAPACK/clagsy.f +++ b/TOOLS/LAPACK/clagsy.f @@ -1,4 +1,5 @@ SUBROUTINE CLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/clarnd.f b/TOOLS/LAPACK/clarnd.f index ecc969a9..8dbd450a 100644 --- a/TOOLS/LAPACK/clarnd.f +++ b/TOOLS/LAPACK/clarnd.f @@ -1,4 +1,5 @@ COMPLEX FUNCTION CLARND( IDIST, ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/clarnv.f b/TOOLS/LAPACK/clarnv.f index 4ea0a86a..6a42bac9 100644 --- a/TOOLS/LAPACK/clarnv.f +++ b/TOOLS/LAPACK/clarnv.f @@ -1,4 +1,5 @@ SUBROUTINE CLARNV( IDIST, ISEED, N, X ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/TOOLS/LAPACK/clarot.f b/TOOLS/LAPACK/clarot.f index bdf0a009..44617f78 100644 --- a/TOOLS/LAPACK/clarot.f +++ b/TOOLS/LAPACK/clarot.f @@ -1,5 +1,6 @@ SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/clatm1.f b/TOOLS/LAPACK/clatm1.f index a4ad3e67..5d0e83a4 100644 --- a/TOOLS/LAPACK/clatm1.f +++ b/TOOLS/LAPACK/clatm1.f @@ -1,4 +1,5 @@ SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/clatms.f b/TOOLS/LAPACK/clatms.f index 9402c110..9279125c 100644 --- a/TOOLS/LAPACK/clatms.f +++ b/TOOLS/LAPACK/clatms.f @@ -1,5 +1,6 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/dlagge.f b/TOOLS/LAPACK/dlagge.f index f0ae2168..0b4bcf87 100644 --- a/TOOLS/LAPACK/dlagge.f +++ b/TOOLS/LAPACK/dlagge.f @@ -1,4 +1,5 @@ SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/dlagsy.f b/TOOLS/LAPACK/dlagsy.f index d9e81fbf..0bc85075 100644 --- a/TOOLS/LAPACK/dlagsy.f +++ b/TOOLS/LAPACK/dlagsy.f @@ -1,4 +1,5 @@ SUBROUTINE DLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/dlaran.f b/TOOLS/LAPACK/dlaran.f index cb4481b4..48d8275c 100644 --- a/TOOLS/LAPACK/dlaran.f +++ b/TOOLS/LAPACK/dlaran.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION DLARAN( ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/dlarnd.f b/TOOLS/LAPACK/dlarnd.f index 18c22292..e8e38ef3 100644 --- a/TOOLS/LAPACK/dlarnd.f +++ b/TOOLS/LAPACK/dlarnd.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/dlarot.f b/TOOLS/LAPACK/dlarot.f index 9774fd14..b191936a 100644 --- a/TOOLS/LAPACK/dlarot.f +++ b/TOOLS/LAPACK/dlarot.f @@ -1,5 +1,6 @@ SUBROUTINE DLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/dlatm1.f b/TOOLS/LAPACK/dlatm1.f index 3c4be6d2..ac5f459c 100644 --- a/TOOLS/LAPACK/dlatm1.f +++ b/TOOLS/LAPACK/dlatm1.f @@ -1,4 +1,5 @@ SUBROUTINE DLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/dlatms.f b/TOOLS/LAPACK/dlatms.f index 8f6aa43b..fb1d0621 100644 --- a/TOOLS/LAPACK/dlatms.f +++ b/TOOLS/LAPACK/dlatms.f @@ -1,5 +1,6 @@ SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/icopy.f b/TOOLS/LAPACK/icopy.f index 5cf8c7fb..a5d43175 100644 --- a/TOOLS/LAPACK/icopy.f +++ b/TOOLS/LAPACK/icopy.f @@ -1,4 +1,5 @@ SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/TOOLS/LAPACK/slagge.f b/TOOLS/LAPACK/slagge.f index f2f7d7aa..1172384a 100644 --- a/TOOLS/LAPACK/slagge.f +++ b/TOOLS/LAPACK/slagge.f @@ -1,4 +1,5 @@ SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/slagsy.f b/TOOLS/LAPACK/slagsy.f index 00ff328e..8eaaaf44 100644 --- a/TOOLS/LAPACK/slagsy.f +++ b/TOOLS/LAPACK/slagsy.f @@ -1,4 +1,5 @@ SUBROUTINE SLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/slaran.f b/TOOLS/LAPACK/slaran.f index 97ae5be9..30d86714 100644 --- a/TOOLS/LAPACK/slaran.f +++ b/TOOLS/LAPACK/slaran.f @@ -1,4 +1,5 @@ REAL FUNCTION SLARAN( ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/slarnd.f b/TOOLS/LAPACK/slarnd.f index 483b7093..67c7ecff 100644 --- a/TOOLS/LAPACK/slarnd.f +++ b/TOOLS/LAPACK/slarnd.f @@ -1,4 +1,5 @@ REAL FUNCTION SLARND( IDIST, ISEED ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/slarot.f b/TOOLS/LAPACK/slarot.f index ee6a732e..c7735db3 100644 --- a/TOOLS/LAPACK/slarot.f +++ b/TOOLS/LAPACK/slarot.f @@ -1,5 +1,6 @@ SUBROUTINE SLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/slatm1.f b/TOOLS/LAPACK/slatm1.f index c4033f97..27aca4e6 100644 --- a/TOOLS/LAPACK/slatm1.f +++ b/TOOLS/LAPACK/slatm1.f @@ -1,4 +1,5 @@ SUBROUTINE SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/slatms.f b/TOOLS/LAPACK/slatms.f index a3f30af3..84d02a13 100644 --- a/TOOLS/LAPACK/slatms.f +++ b/TOOLS/LAPACK/slatms.f @@ -1,5 +1,6 @@ SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/zlagge.f b/TOOLS/LAPACK/zlagge.f index ce5b7358..5efd3151 100644 --- a/TOOLS/LAPACK/zlagge.f +++ b/TOOLS/LAPACK/zlagge.f @@ -1,4 +1,5 @@ SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/zlaghe.f b/TOOLS/LAPACK/zlaghe.f index 5df4f511..4a740cec 100644 --- a/TOOLS/LAPACK/zlaghe.f +++ b/TOOLS/LAPACK/zlaghe.f @@ -1,4 +1,5 @@ SUBROUTINE ZLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/zlagsy.f b/TOOLS/LAPACK/zlagsy.f index 19532702..15bd264d 100644 --- a/TOOLS/LAPACK/zlagsy.f +++ b/TOOLS/LAPACK/zlagsy.f @@ -1,4 +1,5 @@ SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/zlarnv.f b/TOOLS/LAPACK/zlarnv.f index 3cad52f0..26be3d53 100644 --- a/TOOLS/LAPACK/zlarnv.f +++ b/TOOLS/LAPACK/zlarnv.f @@ -1,4 +1,5 @@ SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) + IMPLICIT NONE * * -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., diff --git a/TOOLS/LAPACK/zlarot.f b/TOOLS/LAPACK/zlarot.f index a5fec614..340cad28 100644 --- a/TOOLS/LAPACK/zlarot.f +++ b/TOOLS/LAPACK/zlarot.f @@ -1,5 +1,6 @@ SUBROUTINE ZLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/zlatm1.f b/TOOLS/LAPACK/zlatm1.f index 0991e177..49aa53e6 100644 --- a/TOOLS/LAPACK/zlatm1.f +++ b/TOOLS/LAPACK/zlatm1.f @@ -1,4 +1,5 @@ SUBROUTINE ZLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) + IMPLICIT NONE * * -- LAPACK auxiliary test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/LAPACK/zlatms.f b/TOOLS/LAPACK/zlatms.f index e244bdbb..e8143295 100644 --- a/TOOLS/LAPACK/zlatms.f +++ b/TOOLS/LAPACK/zlatms.f @@ -1,5 +1,6 @@ SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) + IMPLICIT NONE * * -- LAPACK test routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TOOLS/SL_init.f b/TOOLS/SL_init.f index 41288977..cdcb63ae 100644 --- a/TOOLS/SL_init.f +++ b/TOOLS/SL_init.f @@ -1,4 +1,5 @@ SUBROUTINE SL_INIT( ICTXT, NPROW, NPCOL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/ccdotc.f b/TOOLS/ccdotc.f index 6d4d883c..38351bca 100644 --- a/TOOLS/ccdotc.f +++ b/TOOLS/ccdotc.f @@ -1,4 +1,5 @@ SUBROUTINE CCDOTC( N, DOTC, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/ccdotu.f b/TOOLS/ccdotu.f index 561d5db8..fddd4847 100644 --- a/TOOLS/ccdotu.f +++ b/TOOLS/ccdotu.f @@ -1,4 +1,5 @@ SUBROUTINE CCDOTU( N, DOTU, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/chk1mat.f b/TOOLS/chk1mat.f index cc9f74ce..f3364aef 100644 --- a/TOOLS/chk1mat.f +++ b/TOOLS/chk1mat.f @@ -1,5 +1,6 @@ SUBROUTINE CHK1MAT( MA, MAPOS0, NA, NAPOS0, IA, JA, DESCA, $ DESCAPOS0, INFO ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/clatcpy.f b/TOOLS/clatcpy.f index 5fa1183a..a235fc30 100644 --- a/TOOLS/clatcpy.f +++ b/TOOLS/clatcpy.f @@ -1,4 +1,5 @@ SUBROUTINE CLATCPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * * .. Scalar Arguments .. diff --git a/TOOLS/cmatadd.f b/TOOLS/cmatadd.f index 0ed3248a..9f29bae4 100644 --- a/TOOLS/cmatadd.f +++ b/TOOLS/cmatadd.f @@ -1,4 +1,5 @@ SUBROUTINE CMATADD( M, N, ALPHA, A, LDA, BETA, C, LDC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/dddot.f b/TOOLS/dddot.f index d1e6d935..a7b53eaa 100644 --- a/TOOLS/dddot.f +++ b/TOOLS/dddot.f @@ -1,4 +1,5 @@ SUBROUTINE DDDOT( N, DOT, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/desc_convert.f b/TOOLS/desc_convert.f index 404975bd..8919170c 100644 --- a/TOOLS/desc_convert.f +++ b/TOOLS/desc_convert.f @@ -1,4 +1,5 @@ SUBROUTINE DESC_CONVERT( DESC_IN, DESC_OUT, INFO ) + IMPLICIT NONE * * * .. Array Arguments .. diff --git a/TOOLS/descinit.f b/TOOLS/descinit.f index d9a78dbb..b3877478 100644 --- a/TOOLS/descinit.f +++ b/TOOLS/descinit.f @@ -1,5 +1,6 @@ SUBROUTINE DESCINIT( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, $ LLD, INFO ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/descset.f b/TOOLS/descset.f index ec75e8e3..00dd91d9 100644 --- a/TOOLS/descset.f +++ b/TOOLS/descset.f @@ -1,5 +1,6 @@ SUBROUTINE DESCSET( DESC, M, N, MB, NB, IRSRC, ICSRC, ICTXT, $ LLD ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/dlatcpy.f b/TOOLS/dlatcpy.f index 7de0447e..98923133 100644 --- a/TOOLS/dlatcpy.f +++ b/TOOLS/dlatcpy.f @@ -1,4 +1,5 @@ SUBROUTINE DLATCPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * * .. Scalar Arguments .. diff --git a/TOOLS/dmatadd.f b/TOOLS/dmatadd.f index 06433597..cbd641ca 100644 --- a/TOOLS/dmatadd.f +++ b/TOOLS/dmatadd.f @@ -1,4 +1,5 @@ SUBROUTINE DMATADD( M, N, ALPHA, A, LDA, BETA, C, LDC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/dsasum.f b/TOOLS/dsasum.f index f4b120bc..4276ae0b 100644 --- a/TOOLS/dsasum.f +++ b/TOOLS/dsasum.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION DSASUM( N, X, INCX ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/dscasum.f b/TOOLS/dscasum.f index f4ffaaf5..226c676e 100644 --- a/TOOLS/dscasum.f +++ b/TOOLS/dscasum.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION DSCASUM( N, X, INCX ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/dscnrm2.f b/TOOLS/dscnrm2.f index 95a2cfa9..d5d19ca4 100644 --- a/TOOLS/dscnrm2.f +++ b/TOOLS/dscnrm2.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION DSCNRM2( N, X, INCX ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/dsnrm2.f b/TOOLS/dsnrm2.f index 4cc48366..30b65161 100644 --- a/TOOLS/dsnrm2.f +++ b/TOOLS/dsnrm2.f @@ -1,4 +1,5 @@ DOUBLE PRECISION FUNCTION DSNRM2( N, X, INCX ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/iceil.f b/TOOLS/iceil.f index 3a1c55a9..a4f1f1c9 100644 --- a/TOOLS/iceil.f +++ b/TOOLS/iceil.f @@ -1,4 +1,5 @@ INTEGER FUNCTION ICEIL( INUM, IDENOM ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/ilacpy.f b/TOOLS/ilacpy.f index 764281c3..f32d0f33 100644 --- a/TOOLS/ilacpy.f +++ b/TOOLS/ilacpy.f @@ -1,4 +1,5 @@ SUBROUTINE ILACPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/ilcm.f b/TOOLS/ilcm.f index 3c6df333..b67a8129 100644 --- a/TOOLS/ilcm.f +++ b/TOOLS/ilcm.f @@ -1,4 +1,5 @@ INTEGER FUNCTION ILCM( M, N ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/indxg2l.f b/TOOLS/indxg2l.f index aadc3964..ddcfcaa6 100644 --- a/TOOLS/indxg2l.f +++ b/TOOLS/indxg2l.f @@ -1,4 +1,5 @@ INTEGER FUNCTION INDXG2L( INDXGLOB, NB, IPROC, ISRCPROC, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/indxg2p.f b/TOOLS/indxg2p.f index 4ca7fc1a..f349548b 100644 --- a/TOOLS/indxg2p.f +++ b/TOOLS/indxg2p.f @@ -1,4 +1,5 @@ INTEGER FUNCTION INDXG2P( INDXGLOB, NB, IPROC, ISRCPROC, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/indxl2g.f b/TOOLS/indxl2g.f index 954c4cdc..6f9fe372 100644 --- a/TOOLS/indxl2g.f +++ b/TOOLS/indxl2g.f @@ -1,4 +1,5 @@ INTEGER FUNCTION INDXL2G( INDXLOC, NB, IPROC, ISRCPROC, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/infog1l.f b/TOOLS/infog1l.f index e8cee8e1..403e5ab9 100644 --- a/TOOLS/infog1l.f +++ b/TOOLS/infog1l.f @@ -1,5 +1,6 @@ SUBROUTINE INFOG1L( GINDX, NB, NPROCS, MYROC, ISRCPROC, LINDX, $ ROCSRC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/infog2l.f b/TOOLS/infog2l.f index 1b271108..ec8f8e1d 100644 --- a/TOOLS/infog2l.f +++ b/TOOLS/infog2l.f @@ -1,5 +1,6 @@ SUBROUTINE INFOG2L( GRINDX, GCINDX, DESC, NPROW, NPCOL, MYROW, $ MYCOL, LRINDX, LCINDX, RSRC, CSRC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/npreroc.f b/TOOLS/npreroc.f index d67d1206..819f977c 100644 --- a/TOOLS/npreroc.f +++ b/TOOLS/npreroc.f @@ -1,4 +1,5 @@ INTEGER FUNCTION NPREROC( N, NB, IPROC, ISRCPROC, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/numroc.f b/TOOLS/numroc.f index 29d88884..ccadf057 100644 --- a/TOOLS/numroc.f +++ b/TOOLS/numroc.f @@ -1,4 +1,5 @@ INTEGER FUNCTION NUMROC( N, NB, IPROC, ISRCPROC, NPROCS ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pcchekpad.f b/TOOLS/pcchekpad.f index e2ffeecf..ed9dbd92 100644 --- a/TOOLS/pcchekpad.f +++ b/TOOLS/pcchekpad.f @@ -1,5 +1,6 @@ SUBROUTINE PCCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pccol2row.f b/TOOLS/pccol2row.f index 214a9cab..81c2898e 100644 --- a/TOOLS/pccol2row.f +++ b/TOOLS/pccol2row.f @@ -1,5 +1,6 @@ SUBROUTINE PCCOL2ROW( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, RSRC, $ CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pcelget.f b/TOOLS/pcelget.f index 4bac884f..c68d214d 100644 --- a/TOOLS/pcelget.f +++ b/TOOLS/pcelget.f @@ -1,4 +1,5 @@ SUBROUTINE PCELGET( SCOPE, TOP, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pcelset.f b/TOOLS/pcelset.f index 6d510813..b55e583f 100644 --- a/TOOLS/pcelset.f +++ b/TOOLS/pcelset.f @@ -1,4 +1,5 @@ SUBROUTINE PCELSET( A, IA, JA, DESCA, ALPHA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pcelset2.f b/TOOLS/pcelset2.f index de13e2cd..dc10b187 100644 --- a/TOOLS/pcelset2.f +++ b/TOOLS/pcelset2.f @@ -1,4 +1,5 @@ SUBROUTINE PCELSET2( ALPHA, A, IA, JA, DESCA, BETA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pcfillpad.f b/TOOLS/pcfillpad.f index 104ca847..1b451e5b 100644 --- a/TOOLS/pcfillpad.f +++ b/TOOLS/pcfillpad.f @@ -1,4 +1,5 @@ SUBROUTINE PCFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pchkxmat.f b/TOOLS/pchkxmat.f index 42fb633f..40ee2e8a 100644 --- a/TOOLS/pchkxmat.f +++ b/TOOLS/pchkxmat.f @@ -1,5 +1,6 @@ SUBROUTINE PCHK1MAT( MA, MAPOS0, NA, NAPOS0, IA, JA, DESCA, $ DESCAPOS0, NEXTRA, EX, EXPOS, INFO ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -172,6 +173,7 @@ SUBROUTINE PCHK1MAT( MA, MAPOS0, NA, NAPOS0, IA, JA, DESCA, SUBROUTINE PCHK2MAT( MA, MAPOS0, NA, NAPOS0, IA, JA, DESCA, $ DESCAPOS0, MB, MBPOS0, NB, NBPOS0, IB, JB, $ DESCB, DESCBPOS0, NEXTRA, EX, EXPOS, INFO ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -400,6 +402,7 @@ SUBROUTINE PCHK2MAT( MA, MAPOS0, NA, NAPOS0, IA, JA, DESCA, END * SUBROUTINE GLOBCHK( ICTXT, N, X, LDX, IWORK, INFO ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pclaprnt.f b/TOOLS/pclaprnt.f index 22453eb2..8b67665e 100644 --- a/TOOLS/pclaprnt.f +++ b/TOOLS/pclaprnt.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pclaread.f b/TOOLS/pclaread.f index c18b6bee..e8cc7b71 100644 --- a/TOOLS/pclaread.f +++ b/TOOLS/pclaread.f @@ -1,4 +1,5 @@ SUBROUTINE PCLAREAD( FILNAM, A, DESCA, IRREAD, ICREAD, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.8) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pclawrite.f b/TOOLS/pclawrite.f index 7b3b5e74..972bea0c 100644 --- a/TOOLS/pclawrite.f +++ b/TOOLS/pclawrite.f @@ -1,5 +1,6 @@ SUBROUTINE PCLAWRITE( FILNAM, M, N, A, IA, JA, DESCA, IRWRIT, $ ICWRIT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.8) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pcmatadd.f b/TOOLS/pcmatadd.f index e8bde424..e11eae6a 100644 --- a/TOOLS/pcmatadd.f +++ b/TOOLS/pcmatadd.f @@ -1,5 +1,6 @@ SUBROUTINE PCMATADD( M, N, ALPHA, A, IA, JA, DESCA, BETA, C, IC, $ JC, DESCC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pcrow2col.f b/TOOLS/pcrow2col.f index 99142b6c..9e56b8ff 100644 --- a/TOOLS/pcrow2col.f +++ b/TOOLS/pcrow2col.f @@ -1,5 +1,6 @@ SUBROUTINE PCROW2COL( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, $ RSRC, CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pctreecomb.f b/TOOLS/pctreecomb.f index d2a8a7bd..3e640779 100644 --- a/TOOLS/pctreecomb.f +++ b/TOOLS/pctreecomb.f @@ -1,5 +1,6 @@ SUBROUTINE PCTREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, $ SUBPTR ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -210,6 +211,7 @@ SUBROUTINE PCTREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, END * SUBROUTINE CCOMBAMAX( V1, V2 ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdchekpad.f b/TOOLS/pdchekpad.f index b26ddcd1..c2767e23 100644 --- a/TOOLS/pdchekpad.f +++ b/TOOLS/pdchekpad.f @@ -1,5 +1,6 @@ SUBROUTINE PDCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdcol2row.f b/TOOLS/pdcol2row.f index 05cf717f..47e1b021 100644 --- a/TOOLS/pdcol2row.f +++ b/TOOLS/pdcol2row.f @@ -1,5 +1,6 @@ SUBROUTINE PDCOL2ROW( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, RSRC, $ CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdelget.f b/TOOLS/pdelget.f index e0e152c8..caeaf746 100644 --- a/TOOLS/pdelget.f +++ b/TOOLS/pdelget.f @@ -1,4 +1,5 @@ SUBROUTINE PDELGET( SCOPE, TOP, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdelset.f b/TOOLS/pdelset.f index 0f56b29e..7a95cc50 100644 --- a/TOOLS/pdelset.f +++ b/TOOLS/pdelset.f @@ -1,4 +1,5 @@ SUBROUTINE PDELSET( A, IA, JA, DESCA, ALPHA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdelset2.f b/TOOLS/pdelset2.f index 4e14c6d0..dd9fd1d2 100644 --- a/TOOLS/pdelset2.f +++ b/TOOLS/pdelset2.f @@ -1,4 +1,5 @@ SUBROUTINE PDELSET2( ALPHA, A, IA, JA, DESCA, BETA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdfillpad.f b/TOOLS/pdfillpad.f index 3d4a2518..1274ee19 100644 --- a/TOOLS/pdfillpad.f +++ b/TOOLS/pdfillpad.f @@ -1,4 +1,5 @@ SUBROUTINE PDFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdlaprnt.f b/TOOLS/pdlaprnt.f index c613422a..a0bc6c23 100644 --- a/TOOLS/pdlaprnt.f +++ b/TOOLS/pdlaprnt.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdlaread.f b/TOOLS/pdlaread.f index 8ec8a5ac..b11806ed 100644 --- a/TOOLS/pdlaread.f +++ b/TOOLS/pdlaread.f @@ -1,4 +1,5 @@ SUBROUTINE PDLAREAD( FILNAM, A, DESCA, IRREAD, ICREAD, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.8) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdlawrite.f b/TOOLS/pdlawrite.f index 631b0bf7..a051f28c 100644 --- a/TOOLS/pdlawrite.f +++ b/TOOLS/pdlawrite.f @@ -1,5 +1,6 @@ SUBROUTINE PDLAWRITE( FILNAM, M, N, A, IA, JA, DESCA, IRWRIT, $ ICWRIT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.8) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdmatadd.f b/TOOLS/pdmatadd.f index 24c7e85b..0c1f90c6 100644 --- a/TOOLS/pdmatadd.f +++ b/TOOLS/pdmatadd.f @@ -1,5 +1,6 @@ SUBROUTINE PDMATADD( M, N, ALPHA, A, IA, JA, DESCA, BETA, C, IC, $ JC, DESCC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdrow2col.f b/TOOLS/pdrow2col.f index 1e065648..ce2fe521 100644 --- a/TOOLS/pdrow2col.f +++ b/TOOLS/pdrow2col.f @@ -1,5 +1,6 @@ SUBROUTINE PDROW2COL( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, $ RSRC, CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pdtreecomb.f b/TOOLS/pdtreecomb.f index 6dbb364a..8c5ee29b 100644 --- a/TOOLS/pdtreecomb.f +++ b/TOOLS/pdtreecomb.f @@ -1,5 +1,6 @@ SUBROUTINE PDTREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, $ SUBPTR ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -210,6 +211,7 @@ SUBROUTINE PDTREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, END * SUBROUTINE DCOMBAMAX( V1, V2 ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -256,6 +258,7 @@ SUBROUTINE DCOMBAMAX( V1, V2 ) END * SUBROUTINE DCOMBSSQ( V1, V2 ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -304,6 +307,7 @@ SUBROUTINE DCOMBSSQ( V1, V2 ) END * SUBROUTINE DCOMBNRM2( X, Y ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pichekpad.f b/TOOLS/pichekpad.f index 2f366e1e..98a5ff10 100644 --- a/TOOLS/pichekpad.f +++ b/TOOLS/pichekpad.f @@ -1,5 +1,6 @@ SUBROUTINE PICHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/picol2row.f b/TOOLS/picol2row.f index e0d4a94b..1c7d3d6e 100644 --- a/TOOLS/picol2row.f +++ b/TOOLS/picol2row.f @@ -1,5 +1,6 @@ SUBROUTINE PICOL2ROW( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, RSRC, $ CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pielget.f b/TOOLS/pielget.f index 23daebbc..48478a15 100644 --- a/TOOLS/pielget.f +++ b/TOOLS/pielget.f @@ -1,4 +1,5 @@ SUBROUTINE PIELGET( SCOPE, TOP, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pielset.f b/TOOLS/pielset.f index d45445f9..4f097fc7 100644 --- a/TOOLS/pielset.f +++ b/TOOLS/pielset.f @@ -1,4 +1,5 @@ SUBROUTINE PIELSET( A, IA, JA, DESCA, ALPHA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pielset2.f b/TOOLS/pielset2.f index 130e3347..467d2721 100644 --- a/TOOLS/pielset2.f +++ b/TOOLS/pielset2.f @@ -1,4 +1,5 @@ SUBROUTINE PIELSET2( ALPHA, A, IA, JA, DESCA, BETA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pifillpad.f b/TOOLS/pifillpad.f index d378516c..29ed340a 100644 --- a/TOOLS/pifillpad.f +++ b/TOOLS/pifillpad.f @@ -1,4 +1,5 @@ SUBROUTINE PIFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pilaprnt.f b/TOOLS/pilaprnt.f index 41a5170f..9e3ab1c6 100644 --- a/TOOLS/pilaprnt.f +++ b/TOOLS/pilaprnt.f @@ -1,5 +1,6 @@ SUBROUTINE PILAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pirow2col.f b/TOOLS/pirow2col.f index ea0c5bc9..5ecaafc1 100644 --- a/TOOLS/pirow2col.f +++ b/TOOLS/pirow2col.f @@ -1,5 +1,6 @@ SUBROUTINE PIROW2COL( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, $ RSRC, CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pitreecomb.f b/TOOLS/pitreecomb.f index fe031d0c..d3514cd3 100644 --- a/TOOLS/pitreecomb.f +++ b/TOOLS/pitreecomb.f @@ -1,5 +1,6 @@ SUBROUTINE PITREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, $ SUBPTR ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pschekpad.f b/TOOLS/pschekpad.f index 6cc19d3e..4ba6bdc6 100644 --- a/TOOLS/pschekpad.f +++ b/TOOLS/pschekpad.f @@ -1,5 +1,6 @@ SUBROUTINE PSCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pscol2row.f b/TOOLS/pscol2row.f index 9533153b..ae2f025d 100644 --- a/TOOLS/pscol2row.f +++ b/TOOLS/pscol2row.f @@ -1,5 +1,6 @@ SUBROUTINE PSCOL2ROW( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, RSRC, $ CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pselget.f b/TOOLS/pselget.f index 43cdc9e1..f41f0073 100644 --- a/TOOLS/pselget.f +++ b/TOOLS/pselget.f @@ -1,4 +1,5 @@ SUBROUTINE PSELGET( SCOPE, TOP, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pselset.f b/TOOLS/pselset.f index bdf50fe0..30fea056 100644 --- a/TOOLS/pselset.f +++ b/TOOLS/pselset.f @@ -1,4 +1,5 @@ SUBROUTINE PSELSET( A, IA, JA, DESCA, ALPHA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pselset2.f b/TOOLS/pselset2.f index 735294a7..7ff8c1ac 100644 --- a/TOOLS/pselset2.f +++ b/TOOLS/pselset2.f @@ -1,4 +1,5 @@ SUBROUTINE PSELSET2( ALPHA, A, IA, JA, DESCA, BETA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/psfillpad.f b/TOOLS/psfillpad.f index fa1d7f1e..c81152e0 100644 --- a/TOOLS/psfillpad.f +++ b/TOOLS/psfillpad.f @@ -1,4 +1,5 @@ SUBROUTINE PSFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pslaprnt.f b/TOOLS/pslaprnt.f index bd48f32c..343aa11e 100644 --- a/TOOLS/pslaprnt.f +++ b/TOOLS/pslaprnt.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pslaread.f b/TOOLS/pslaread.f index 68946b13..2fa52894 100644 --- a/TOOLS/pslaread.f +++ b/TOOLS/pslaread.f @@ -1,4 +1,5 @@ SUBROUTINE PSLAREAD( FILNAM, A, DESCA, IRREAD, ICREAD, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.8) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pslawrite.f b/TOOLS/pslawrite.f index 2daafb9f..ddb598b8 100644 --- a/TOOLS/pslawrite.f +++ b/TOOLS/pslawrite.f @@ -1,5 +1,6 @@ SUBROUTINE PSLAWRITE( FILNAM, M, N, A, IA, JA, DESCA, IRWRIT, $ ICWRIT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.8) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/psmatadd.f b/TOOLS/psmatadd.f index 99659048..510fa493 100644 --- a/TOOLS/psmatadd.f +++ b/TOOLS/psmatadd.f @@ -1,5 +1,6 @@ SUBROUTINE PSMATADD( M, N, ALPHA, A, IA, JA, DESCA, BETA, C, IC, $ JC, DESCC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/psrow2col.f b/TOOLS/psrow2col.f index 125cfd5a..e219a5ca 100644 --- a/TOOLS/psrow2col.f +++ b/TOOLS/psrow2col.f @@ -1,5 +1,6 @@ SUBROUTINE PSROW2COL( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, $ RSRC, CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pstreecomb.f b/TOOLS/pstreecomb.f index c1be7a44..b0455487 100644 --- a/TOOLS/pstreecomb.f +++ b/TOOLS/pstreecomb.f @@ -1,5 +1,6 @@ SUBROUTINE PSTREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, $ SUBPTR ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -209,6 +210,7 @@ SUBROUTINE PSTREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, END * SUBROUTINE SCOMBAMAX( V1, V2 ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -255,6 +257,7 @@ SUBROUTINE SCOMBAMAX( V1, V2 ) END * SUBROUTINE SCOMBSSQ( V1, V2 ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -303,6 +306,7 @@ SUBROUTINE SCOMBSSQ( V1, V2 ) END * SUBROUTINE SCOMBNRM2( X, Y ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzchekpad.f b/TOOLS/pzchekpad.f index 9dead302..4fd75650 100644 --- a/TOOLS/pzchekpad.f +++ b/TOOLS/pzchekpad.f @@ -1,5 +1,6 @@ SUBROUTINE PZCHEKPAD( ICTXT, MESS, M, N, A, LDA, IPRE, IPOST, $ CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzcol2row.f b/TOOLS/pzcol2row.f index 8ef0c2b3..dfcb63b1 100644 --- a/TOOLS/pzcol2row.f +++ b/TOOLS/pzcol2row.f @@ -1,5 +1,6 @@ SUBROUTINE PZCOL2ROW( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, RSRC, $ CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzelget.f b/TOOLS/pzelget.f index cdc1fc66..8885cf79 100644 --- a/TOOLS/pzelget.f +++ b/TOOLS/pzelget.f @@ -1,4 +1,5 @@ SUBROUTINE PZELGET( SCOPE, TOP, ALPHA, A, IA, JA, DESCA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzelset.f b/TOOLS/pzelset.f index b11c5bf6..8e35ca72 100644 --- a/TOOLS/pzelset.f +++ b/TOOLS/pzelset.f @@ -1,4 +1,5 @@ SUBROUTINE PZELSET( A, IA, JA, DESCA, ALPHA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzelset2.f b/TOOLS/pzelset2.f index 90671db2..4a1786b3 100644 --- a/TOOLS/pzelset2.f +++ b/TOOLS/pzelset2.f @@ -1,4 +1,5 @@ SUBROUTINE PZELSET2( ALPHA, A, IA, JA, DESCA, BETA ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzfillpad.f b/TOOLS/pzfillpad.f index 34a6df29..a112d886 100644 --- a/TOOLS/pzfillpad.f +++ b/TOOLS/pzfillpad.f @@ -1,4 +1,5 @@ SUBROUTINE PZFILLPAD( ICTXT, M, N, A, LDA, IPRE, IPOST, CHKVAL ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzlaprnt.f b/TOOLS/pzlaprnt.f index 71d42868..851ea8b8 100644 --- a/TOOLS/pzlaprnt.f +++ b/TOOLS/pzlaprnt.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAPRNT( M, N, A, IA, JA, DESCA, IRPRNT, ICPRNT, $ CMATNM, NOUT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzlaread.f b/TOOLS/pzlaread.f index 0a8134f7..aaafe74a 100644 --- a/TOOLS/pzlaread.f +++ b/TOOLS/pzlaread.f @@ -1,4 +1,5 @@ SUBROUTINE PZLAREAD( FILNAM, A, DESCA, IRREAD, ICREAD, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.8) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzlawrite.f b/TOOLS/pzlawrite.f index 2b3dc516..72e84c76 100644 --- a/TOOLS/pzlawrite.f +++ b/TOOLS/pzlawrite.f @@ -1,5 +1,6 @@ SUBROUTINE PZLAWRITE( FILNAM, M, N, A, IA, JA, DESCA, IRWRIT, $ ICWRIT, WORK ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.8) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzmatadd.f b/TOOLS/pzmatadd.f index e5d07f1c..ce2f02a1 100644 --- a/TOOLS/pzmatadd.f +++ b/TOOLS/pzmatadd.f @@ -1,5 +1,6 @@ SUBROUTINE PZMATADD( M, N, ALPHA, A, IA, JA, DESCA, BETA, C, IC, $ JC, DESCC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pzrow2col.f b/TOOLS/pzrow2col.f index 4c06a6d8..3ab6e356 100644 --- a/TOOLS/pzrow2col.f +++ b/TOOLS/pzrow2col.f @@ -1,5 +1,6 @@ SUBROUTINE PZROW2COL( ICTXT, M, N, NB, VS, LDVS, VD, LDVD, $ RSRC, CSRC, RDEST, CDEST, WORK) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/pztreecomb.f b/TOOLS/pztreecomb.f index d8315d04..19dc4393 100644 --- a/TOOLS/pztreecomb.f +++ b/TOOLS/pztreecomb.f @@ -1,5 +1,6 @@ SUBROUTINE PZTREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, $ SUBPTR ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -210,6 +211,7 @@ SUBROUTINE PZTREECOMB( ICTXT, SCOPE, N, MINE, RDEST0, CDEST0, END * SUBROUTINE ZCOMBAMAX( V1, V2 ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/slatcpy.f b/TOOLS/slatcpy.f index 33f56a7b..d3beb9f8 100644 --- a/TOOLS/slatcpy.f +++ b/TOOLS/slatcpy.f @@ -1,4 +1,5 @@ SUBROUTINE SLATCPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * * .. Scalar Arguments .. diff --git a/TOOLS/sltimer.f b/TOOLS/sltimer.f index 1a80d7cd..86499414 100644 --- a/TOOLS/sltimer.f +++ b/TOOLS/sltimer.f @@ -1,4 +1,5 @@ SUBROUTINE SLBOOT() + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -44,6 +45,7 @@ SUBROUTINE SLBOOT() END * SUBROUTINE SLTIMER( I ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -120,6 +122,7 @@ SUBROUTINE SLTIMER( I ) END * SUBROUTINE SLENABLE() + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -152,6 +155,7 @@ SUBROUTINE SLENABLE() END * SUBROUTINE SLDISABLE() + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -186,6 +190,7 @@ SUBROUTINE SLDISABLE() END * DOUBLE PRECISION FUNCTION SLINQUIRE( TIMETYPE, I ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, @@ -264,6 +269,7 @@ DOUBLE PRECISION FUNCTION SLINQUIRE( TIMETYPE, I ) * SUBROUTINE SLCOMBINE( ICTXT, SCOPE, OP, TIMETYPE, N, IBEG, $ TIMES ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/smatadd.f b/TOOLS/smatadd.f index daf34ce8..b8a31e67 100644 --- a/TOOLS/smatadd.f +++ b/TOOLS/smatadd.f @@ -1,4 +1,5 @@ SUBROUTINE SMATADD( M, N, ALPHA, A, LDA, BETA, C, LDC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/ssdot.f b/TOOLS/ssdot.f index ce081f5b..f6c5255d 100644 --- a/TOOLS/ssdot.f +++ b/TOOLS/ssdot.f @@ -1,4 +1,5 @@ SUBROUTINE SSDOT( N, DOT, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/zlatcpy.f b/TOOLS/zlatcpy.f index a2dd6e93..14788d84 100644 --- a/TOOLS/zlatcpy.f +++ b/TOOLS/zlatcpy.f @@ -1,4 +1,5 @@ SUBROUTINE ZLATCPY( UPLO, M, N, A, LDA, B, LDB ) + IMPLICIT NONE * * * .. Scalar Arguments .. diff --git a/TOOLS/zmatadd.f b/TOOLS/zmatadd.f index 1493dcdd..3d3ce93f 100644 --- a/TOOLS/zmatadd.f +++ b/TOOLS/zmatadd.f @@ -1,4 +1,5 @@ SUBROUTINE ZMATADD( M, N, ALPHA, A, LDA, BETA, C, LDC ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/zzdotc.f b/TOOLS/zzdotc.f index 3c65e1ca..cd59a0b4 100644 --- a/TOOLS/zzdotc.f +++ b/TOOLS/zzdotc.f @@ -1,4 +1,5 @@ SUBROUTINE ZZDOTC( N, DOTC, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory, diff --git a/TOOLS/zzdotu.f b/TOOLS/zzdotu.f index d4cb3760..b133ea29 100644 --- a/TOOLS/zzdotu.f +++ b/TOOLS/zzdotu.f @@ -1,4 +1,5 @@ SUBROUTINE ZZDOTU( N, DOTU, X, INCX, Y, INCY ) + IMPLICIT NONE * * -- ScaLAPACK tools routine (version 1.7) -- * University of Tennessee, Knoxville, Oak Ridge National Laboratory,