Skip to content

Commit 3c1abe4

Browse files
langoulangou
authored
Merge pull request #1152 from mgates3/implicit-none
2 parents 5ce7a26 + d0b1591 commit 3c1abe4

File tree

3,198 files changed

+3868
-68
lines changed

Some content is hidden

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

3,198 files changed

+3868
-68
lines changed

‎BLAS/SRC/caxpy.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -85,6 +85,7 @@
8585
*>
8686
* =====================================================================
8787
SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY)
88+
IMPLICIT NONE
8889
*
8990
* -- Reference BLAS level1 routine --
9091
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/ccopy.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -78,6 +78,7 @@
7878
*>
7979
* =====================================================================
8080
SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
81+
IMPLICIT NONE
8182
*
8283
* -- Reference BLAS level1 routine --
8384
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/cdotc.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -80,6 +80,7 @@
8080
*>
8181
* =====================================================================
8282
COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
83+
IMPLICIT NONE
8384
*
8485
* -- Reference BLAS level1 routine --
8586
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/cdotu.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -80,6 +80,7 @@
8080
*>
8181
* =====================================================================
8282
COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
83+
IMPLICIT NONE
8384
*
8485
* -- Reference BLAS level1 routine --
8586
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/cgbmv.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -187,6 +187,7 @@
187187
* =====================================================================
188188
SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,
189189
+ BETA,Y,INCY)
190+
IMPLICIT NONE
190191
*
191192
* -- Reference BLAS level2 routine --
192193
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/cgemm.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -206,6 +206,7 @@
206206
* =====================================================================
207207
SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,
208208
+ BETA,C,LDC)
209+
IMPLICIT NONE
209210
*
210211
* -- Reference BLAS level3 routine --
211212
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/cgemv.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -157,6 +157,7 @@
157157
*>
158158
* =====================================================================
159159
SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
160+
IMPLICIT NONE
160161
*
161162
* -- Reference BLAS level2 routine --
162163
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/cgerc.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -127,6 +127,7 @@
127127
*>
128128
* =====================================================================
129129
SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
130+
IMPLICIT NONE
130131
*
131132
* -- Reference BLAS level2 routine --
132133
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/cgeru.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -127,6 +127,7 @@
127127
*>
128128
* =====================================================================
129129
SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
130+
IMPLICIT NONE
130131
*
131132
* -- Reference BLAS level2 routine --
132133
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

‎BLAS/SRC/chbmv.f‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -184,6 +184,7 @@
184184
*>
185185
* =====================================================================
186186
SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
187+
IMPLICIT NONE
187188
*
188189
* -- Reference BLAS level2 routine --
189190
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --

0 commit comments

Comments
 (0)