Skip to content

Commit 77c9952

Browse files
langoulangou
authored
Merge pull request #147 from mgates3/implicit-none
2 parents a0f6ffe + b67b001 commit 77c9952

File tree

1,241 files changed

+1778
-10
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

1,241 files changed

+1778
-10
lines changed

‎BLACS/TESTING/blacstest.f‎

Lines changed: 109 additions & 0 deletions
Large diffs are not rendered by default.

‎BLACS/TESTING/btprim.f‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
SUBROUTINE BTSETUP( MEM, MEMLEN, CMEM, CMEMLEN, OUTNUM,
22
$ TESTSDRV, TESTBSBR, TESTCOMB, TESTAUX,
33
$ IAM, NNODES )
4+
IMPLICIT NONE
45
*
56
* -- BLACS tester (version 1.0) --
67
* University of Tennessee
@@ -44,6 +45,7 @@ SUBROUTINE BTSETUP( MEM, MEMLEN, CMEM, CMEMLEN, OUTNUM,
4445
RETURN
4546
END
4647
INTEGER FUNCTION IBTMYPROC()
48+
IMPLICIT NONE
4749
*
4850
* -- BLACS tester (version 1.0) --
4951
* University of Tennessee
@@ -78,6 +80,7 @@ INTEGER FUNCTION IBTMYPROC()
7880
END
7981
*
8082
INTEGER FUNCTION IBTNPROCS()
83+
IMPLICIT NONE
8184
*
8285
* -- BLACS tester (version 1.0) --
8386
* University of Tennessee
@@ -112,6 +115,7 @@ INTEGER FUNCTION IBTNPROCS()
112115
END
113116
*
114117
SUBROUTINE BTSEND(DTYPE, N, BUFF, DEST, MSGID)
118+
IMPLICIT NONE
115119
*
116120
* -- BLACS tester (version 1.0) --
117121
* University of Tennessee
@@ -204,6 +208,7 @@ SUBROUTINE BTSEND(DTYPE, N, BUFF, DEST, MSGID)
204208
END
205209
*
206210
SUBROUTINE BTRECV(DTYPE, N, BUFF, SRC, MSGID)
211+
IMPLICIT NONE
207212
*
208213
* -- BLACS tester (version 1.0) --
209214
* University of Tennessee
@@ -283,6 +288,7 @@ SUBROUTINE BTRECV(DTYPE, N, BUFF, SRC, MSGID)
283288
END
284289
*
285290
INTEGER FUNCTION IBTSIZEOF(TYPE)
291+
IMPLICIT NONE
286292
*
287293
* -- BLACS tester (version 1.0) --
288294
* University of Tennessee
@@ -359,6 +365,7 @@ INTEGER FUNCTION IBTSIZEOF(TYPE)
359365
RETURN
360366
END
361367
SUBROUTINE BTMPIERR(ROUT, IERR0)
368+
IMPLICIT NONE
362369
CHARACTER*(*) ROUT
363370
INTEGER IERR0
364371
* ..

‎BLACS/TESTING/tools.f‎

Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,7 @@
77
* ================================================================
88

99
DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
10+
IMPLICIT NONE
1011
*
1112
* -- LAPACK auxiliary routine (version 2.0) --
1213
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -137,6 +138,7 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
137138
************************************************************************
138139
*
139140
SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 )
141+
IMPLICIT NONE
140142
*
141143
* -- LAPACK auxiliary routine (version 2.0) --
142144
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -324,6 +326,7 @@ SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 )
324326
************************************************************************
325327
*
326328
SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
329+
IMPLICIT NONE
327330
*
328331
* -- LAPACK auxiliary routine (version 2.0) --
329332
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -583,6 +586,7 @@ SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
583586
************************************************************************
584587
*
585588
DOUBLE PRECISION FUNCTION DLAMC3( A, B )
589+
IMPLICIT NONE
586590
*
587591
* -- LAPACK auxiliary routine (version 2.0) --
588592
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -621,6 +625,7 @@ DOUBLE PRECISION FUNCTION DLAMC3( A, B )
621625
************************************************************************
622626
*
623627
SUBROUTINE DLAMC4( EMIN, START, BASE )
628+
IMPLICIT NONE
624629
*
625630
* -- LAPACK auxiliary routine (version 2.0) --
626631
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -705,6 +710,7 @@ SUBROUTINE DLAMC4( EMIN, START, BASE )
705710
************************************************************************
706711
*
707712
SUBROUTINE DLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
713+
IMPLICIT NONE
708714
*
709715
* -- LAPACK auxiliary routine (version 2.0) --
710716
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -864,6 +870,7 @@ SUBROUTINE DLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
864870
*
865871
END
866872
REAL FUNCTION SLAMCH( CMACH )
873+
IMPLICIT NONE
867874
*
868875
* -- LAPACK auxiliary routine (version 2.0) --
869876
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -994,6 +1001,7 @@ REAL FUNCTION SLAMCH( CMACH )
9941001
************************************************************************
9951002
*
9961003
SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 )
1004+
IMPLICIT NONE
9971005
*
9981006
* -- LAPACK auxiliary routine (version 2.0) --
9991007
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1181,6 +1189,7 @@ SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 )
11811189
************************************************************************
11821190
*
11831191
SUBROUTINE SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
1192+
IMPLICIT NONE
11841193
*
11851194
* -- LAPACK auxiliary routine (version 2.0) --
11861195
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1440,6 +1449,7 @@ SUBROUTINE SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX )
14401449
************************************************************************
14411450
*
14421451
REAL FUNCTION SLAMC3( A, B )
1452+
IMPLICIT NONE
14431453
*
14441454
* -- LAPACK auxiliary routine (version 2.0) --
14451455
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1478,6 +1488,7 @@ REAL FUNCTION SLAMC3( A, B )
14781488
************************************************************************
14791489
*
14801490
SUBROUTINE SLAMC4( EMIN, START, BASE )
1491+
IMPLICIT NONE
14811492
*
14821493
* -- LAPACK auxiliary routine (version 2.0) --
14831494
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1562,6 +1573,7 @@ SUBROUTINE SLAMC4( EMIN, START, BASE )
15621573
************************************************************************
15631574
*
15641575
SUBROUTINE SLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
1576+
IMPLICIT NONE
15651577
*
15661578
* -- LAPACK auxiliary routine (version 2.0) --
15671579
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1721,6 +1733,7 @@ SUBROUTINE SLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX )
17211733
*
17221734
END
17231735
LOGICAL FUNCTION LSAME( CA, CB )
1736+
IMPLICIT NONE
17241737
*
17251738
* -- LAPACK auxiliary routine (version 2.0) --
17261739
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1808,6 +1821,7 @@ LOGICAL FUNCTION LSAME( CA, CB )
18081821
*
18091822
END
18101823
DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED )
1824+
IMPLICIT NONE
18111825
*
18121826
* -- LAPACK auxiliary routine (version 2.0) --
18131827
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -1997,6 +2011,7 @@ DOUBLE COMPLEX FUNCTION ZLARND( IDIST, ISEED )
19972011
*
19982012
END
19992013
DOUBLE PRECISION FUNCTION DLARAN( ISEED )
2014+
IMPLICIT NONE
20002015
*
20012016
* -- LAPACK auxiliary routine (version 2.0) --
20022017
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,

‎EXAMPLE/pcscaex.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,5 @@
11
PROGRAM PCSCAEX
2+
IMPLICIT NONE
23
*
34
* -- ScaLAPACK example code --
45
* University of Tennessee, Knoxville, Oak Ridge National Laboratory,

‎EXAMPLE/pdscaex.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,5 @@
11
PROGRAM PDSCAEX
2+
IMPLICIT NONE
23
*
34
* -- ScaLAPACK example code --
45
* University of Tennessee, Knoxville, Oak Ridge National Laboratory,

‎EXAMPLE/pdscaexinfo.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
SUBROUTINE PDSCAEXINFO( SUMMRY, NOUT, N, NRHS, NB, NPROW, NPCOL,
22
$ WORK, IAM, NPROCS )
3+
IMPLICIT NONE
34
*
45
* -- ScaLAPACK example code --
56
* University of Tennessee, Knoxville, Oak Ridge National Laboratory,

‎EXAMPLE/psscaex.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,5 @@
11
PROGRAM PSSCAEX
2+
IMPLICIT NONE
23
*
34
* -- ScaLAPACK example code --
45
* University of Tennessee, Knoxville, Oak Ridge National Laboratory,

‎EXAMPLE/pzscaex.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,5 @@
11
PROGRAM PZSCAEX
2+
IMPLICIT NONE
23
*
34
* -- ScaLAPACK example code --
45
* University of Tennessee, Knoxville, Oak Ridge National Laboratory,

‎PBLAS/SRC/PBBLAS/pbcmatadd.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
SUBROUTINE PBCMATADD( ICONTXT, MODE, M, N, ALPHA, A, LDA, BETA, B,
22
$ LDB )
3+
IMPLICIT NONE
34
*
45
* -- PB-BLAS routine (version 2.1) --
56
* University of Tennessee, Knoxville, Oak Ridge National Laboratory.

‎PBLAS/SRC/PBBLAS/pbctran.f‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
SUBROUTINE PBCTRAN( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, BETA,
22
$ C, LDC, IAROW, IACOL, ICROW, ICCOL, WORK )
3+
IMPLICIT NONE
34
*
45
* -- PB-BLAS routine (version 2.1) --
56
* University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -612,6 +613,7 @@ SUBROUTINE PBCTRAN( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA, BETA,
612613
*
613614
SUBROUTINE PBCTR2AT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
614615
$ BETA, B, LDB, LCMP, LCMQ )
616+
IMPLICIT NONE
615617
*
616618
* -- PB-BLAS routine (version 2.1) --
617619
* University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -703,6 +705,7 @@ SUBROUTINE PBCTR2AT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
703705
*
704706
SUBROUTINE PBCTR2BT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
705707
$ BETA, B, LDB, INTV )
708+
IMPLICIT NONE
706709
*
707710
* -- PB-BLAS routine (version 2.1) --
708711
* University of Tennessee, Knoxville, Oak Ridge National Laboratory.
@@ -790,6 +793,7 @@ SUBROUTINE PBCTR2BT( ICONTXT, ADIST, TRANS, M, N, NB, A, LDA,
790793
*
791794
SUBROUTINE PBCTR2AF( ICONTXT, ADIST, M, N, NB, A, LDA, BETA, B,
792795
$ LDB, LCMP, LCMQ, NINT )
796+
IMPLICIT NONE
793797
*
794798
* -- PB-BLAS routine (version 2.1) --
795799
* University of Tennessee, Knoxville, Oak Ridge National Laboratory.

0 commit comments

Comments
 (0)