Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Sign up
Appearance settings

Commit 97b0bed

Browse files
committed
implicit none in BLAS
1 parent 5ce7a26 commit 97b0bed

Some content is hidden

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

163 files changed

+293
-4
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)

AltStyle によって変換されたページ (->オリジナル) /