Skip to content

Commit 50781b7

Browse files
committed
Remove unused NCOLA variable
1 parent a0b2211 commit 50781b7

4 files changed

Lines changed: 10 additions & 20 deletions

File tree

BLAS/SRC/cgemm.f

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -215,7 +215,7 @@ SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
215215
* ..
216216
* .. Local Scalars ..
217217
COMPLEX TEMP
218-
INTEGER I,INFO,J,L,NCOLA,NROWA,NROWB
218+
INTEGER I,INFO,J,L,NROWA,NROWB
219219
LOGICAL CONJA,CONJB,NOTA,NOTB
220220
* ..
221221
* .. Parameters ..
@@ -228,19 +228,16 @@ SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
228228
* Set NOTA and NOTB as true if A and B respectively are not
229229
* conjugated or transposed, set CONJA and CONJB as true if A and
230230
* B respectively are to be transposed but not conjugated and set
231-
* NROWA, NCOLA and NROWB as the number of rows and columns of A
232-
* and the number of rows of B respectively.
231+
* NROWA and NROWB as the number of rows of A and B respectively.
233232
*
234233
NOTA = LSAME(TRANSA,'N')
235234
NOTB = LSAME(TRANSB,'N')
236235
CONJA = LSAME(TRANSA,'C')
237236
CONJB = LSAME(TRANSB,'C')
238237
IF (NOTA) THEN
239238
NROWA = M
240-
NCOLA = K
241239
ELSE
242240
NROWA = K
243-
NCOLA = M
244241
END IF
245242
IF (NOTB) THEN
246243
NROWB = K

BLAS/SRC/dgemm.f

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -215,7 +215,7 @@ SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
215215
* ..
216216
* .. Local Scalars ..
217217
DOUBLE PRECISION TEMP
218-
INTEGER I,INFO,J,L,NCOLA,NROWA,NROWB
218+
INTEGER I,INFO,J,L,NROWA,NROWB
219219
LOGICAL NOTA,NOTB
220220
* ..
221221
* .. Parameters ..
@@ -224,17 +224,15 @@ SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
224224
* ..
225225
*
226226
* Set NOTA and NOTB as true if A and B respectively are not
227-
* transposed and set NROWA, NCOLA and NROWB as the number of rows
228-
* and columns of A and the number of rows of B respectively.
227+
* transposed and set NROWA and NROWB as the number of rows of A
228+
* and B respectively.
229229
*
230230
NOTA = LSAME(TRANSA,'N')
231231
NOTB = LSAME(TRANSB,'N')
232232
IF (NOTA) THEN
233233
NROWA = M
234-
NCOLA = K
235234
ELSE
236235
NROWA = K
237-
NCOLA = M
238236
END IF
239237
IF (NOTB) THEN
240238
NROWB = K

BLAS/SRC/sgemm.f

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -215,7 +215,7 @@ SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
215215
* ..
216216
* .. Local Scalars ..
217217
REAL TEMP
218-
INTEGER I,INFO,J,L,NCOLA,NROWA,NROWB
218+
INTEGER I,INFO,J,L,NROWA,NROWB
219219
LOGICAL NOTA,NOTB
220220
* ..
221221
* .. Parameters ..
@@ -224,17 +224,15 @@ SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
224224
* ..
225225
*
226226
* Set NOTA and NOTB as true if A and B respectively are not
227-
* transposed and set NROWA, NCOLA and NROWB as the number of rows
228-
* and columns of A and the number of rows of B respectively.
227+
* transposed and set NROWA and NROWB as the number of rows of A
228+
* and B respectively.
229229
*
230230
NOTA = LSAME(TRANSA,'N')
231231
NOTB = LSAME(TRANSB,'N')
232232
IF (NOTA) THEN
233233
NROWA = M
234-
NCOLA = K
235234
ELSE
236235
NROWA = K
237-
NCOLA = M
238236
END IF
239237
IF (NOTB) THEN
240238
NROWB = K

BLAS/SRC/zgemm.f

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -215,7 +215,7 @@ SUBROUTINE ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
215215
* ..
216216
* .. Local Scalars ..
217217
COMPLEX*16 TEMP
218-
INTEGER I,INFO,J,L,NCOLA,NROWA,NROWB
218+
INTEGER I,INFO,J,L,NROWA,NROWB
219219
LOGICAL CONJA,CONJB,NOTA,NOTB
220220
* ..
221221
* .. Parameters ..
@@ -228,19 +228,16 @@ SUBROUTINE ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
228228
* Set NOTA and NOTB as true if A and B respectively are not
229229
* conjugated or transposed, set CONJA and CONJB as true if A and
230230
* B respectively are to be transposed but not conjugated and set
231-
* NROWA, NCOLA and NROWB as the number of rows and columns of A
232-
* and the number of rows of B respectively.
231+
* NROWA and NROWB as the number of rows of A and B respectively.
233232
*
234233
NOTA = LSAME(TRANSA,'N')
235234
NOTB = LSAME(TRANSB,'N')
236235
CONJA = LSAME(TRANSA,'C')
237236
CONJB = LSAME(TRANSB,'C')
238237
IF (NOTA) THEN
239238
NROWA = M
240-
NCOLA = K
241239
ELSE
242240
NROWA = K
243-
NCOLA = M
244241
END IF
245242
IF (NOTB) THEN
246243
NROWB = K

0 commit comments

Comments
 (0)