Skip to content

Commit 327869d

Browse files
grisuthedragongrisuthedragon
committed
Rename GEMMT to GEMMTR in BLAS/
After the discussion on #887 the name changed from xGEMMT to xGEMMTR.
1 parent 6173b6e commit 327869d

File tree

14 files changed

+219
-219
lines changed

14 files changed

+219
-219
lines changed

‎BLAS/SRC/CMakeLists.txt‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -82,15 +82,15 @@ set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f
8282
#---------------------------------------------------------
8383
# Level 3 BLAS
8484
#---------------------------------------------------------
85-
set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f sgemmt.f)
85+
set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f sgemmtr.f)
8686

8787
set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f
88-
chemm.f cherk.f cher2k.f cgemmt.f)
88+
chemm.f cherk.f cher2k.f cgemmtr.f)
8989

90-
set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f dgemmt.f)
90+
set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f dgemmtr.f)
9191

9292
set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f
93-
zhemm.f zherk.f zher2k.f zgemmt.f)
93+
zhemm.f zherk.f zher2k.f zgemmtr.f)
9494

9595

9696
set(SOURCES)

‎BLAS/SRC/Makefile‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -127,18 +127,18 @@ $(ZBLAS2): $(FRC)
127127
# Comment out the next 4 definitions if you already have
128128
# the Level 3 BLAS.
129129
#---------------------------------------------------------
130-
SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o sgemmt.o
130+
SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o sgemmtr.o
131131
$(SBLAS3): $(FRC)
132132

133133
CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \
134-
chemm.o cherk.o cher2k.o cgemmt.o
134+
chemm.o cherk.o cher2k.o cgemmtr.o
135135
$(CBLAS3): $(FRC)
136136

137-
DBLAS3 = dgemm.o dsymm.o dsyrk.o dsyr2k.o dtrmm.o dtrsm.o dgemmt.o
137+
DBLAS3 = dgemm.o dsymm.o dsyrk.o dsyr2k.o dtrmm.o dtrsm.o dgemmtr.o
138138
$(DBLAS3): $(FRC)
139139

140140
ZBLAS3 = zgemm.o zsymm.o zsyrk.o zsyr2k.o ztrmm.o ztrsm.o \
141-
zhemm.o zherk.o zher2k.o zgemmt.o
141+
zhemm.o zherk.o zher2k.o zgemmtr.o
142142
$(ZBLAS3): $(FRC)
143143

144144
ALLOBJ = $(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \

‎BLAS/SRC/cgemmt.f‎ renamed to ‎BLAS/SRC/cgemmtr.f‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b CGEMMT
1+
*> \brief \b CGEMMTR
22
*
33
* =========== DOCUMENTATION ===========
44
*
@@ -8,7 +8,7 @@
88
* Definition:
99
* ===========
1010
*
11-
* SUBROUTINE CGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
11+
* SUBROUTINE CGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
1212
* C,LDC)
1313
*
1414
* .. Scalar Arguments ..
@@ -26,7 +26,7 @@
2626
*>
2727
*> \verbatim
2828
*>
29-
*> CGEMMT performs one of the matrix-matrix operations
29+
*> CGEMMTR performs one of the matrix-matrix operations
3030
*>
3131
*> C := alpha*op( A )*op( B ) + beta*C,
3232
*>
@@ -186,7 +186,7 @@
186186
*> \endverbatim
187187
*>
188188
* =====================================================================
189-
SUBROUTINE CGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
189+
SUBROUTINE CGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
190190
+ BETA,C,LDC)
191191
IMPLICIT NONE
192192
*
@@ -272,7 +272,7 @@ SUBROUTINE CGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
272272
INFO = 13
273273
END IF
274274
IF (INFO.NE.0) THEN
275-
CALL XERBLA('CGEMMT',INFO)
275+
CALL XERBLA('CGEMMTR',INFO)
276276
RETURN
277277
END IF
278278
*
@@ -565,6 +565,6 @@ SUBROUTINE CGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
565565
*
566566
RETURN
567567
*
568-
* End of CGEMMT
568+
* End of CGEMMTR
569569
*
570570
END

‎BLAS/SRC/dgemmt.f‎ renamed to ‎BLAS/SRC/dgemmtr.f‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b DGEMMT
1+
*> \brief \b DGEMMTR
22
*
33
* =========== DOCUMENTATION ===========
44
*
@@ -8,7 +8,7 @@
88
* Definition:
99
* ===========
1010
*
11-
* SUBROUTINE DGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
11+
* SUBROUTINE DGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
1212
* C,LDC)
1313
*
1414
* .. Scalar Arguments ..
@@ -26,7 +26,7 @@
2626
*>
2727
*> \verbatim
2828
*>
29-
*> DGEMMT performs one of the matrix-matrix operations
29+
*> DGEMMTR performs one of the matrix-matrix operations
3030
*>
3131
*> C := alpha*op( A )*op( B ) + beta*C,
3232
*>
@@ -186,7 +186,7 @@
186186
*> \endverbatim
187187
*>
188188
* =====================================================================
189-
SUBROUTINE DGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
189+
SUBROUTINE DGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
190190
+ BETA,C,LDC)
191191
IMPLICIT NONE
192192
*
@@ -266,7 +266,7 @@ SUBROUTINE DGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
266266
INFO = 13
267267
END IF
268268
IF (INFO.NE.0) THEN
269-
CALL XERBLA('DGEMMT',INFO)
269+
CALL XERBLA('DGEMMTR',INFO)
270270
RETURN
271271
END IF
272272
*

‎BLAS/SRC/sgemmt.f‎ renamed to ‎BLAS/SRC/sgemmtr.f‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b SGEMMT
1+
*> \brief \b SGEMMTR
22
*
33
* =========== DOCUMENTATION ===========
44
*
@@ -8,7 +8,7 @@
88
* Definition:
99
* ===========
1010
*
11-
* SUBROUTINE SGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
11+
* SUBROUTINE SGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
1212
* C,LDC)
1313
*
1414
* .. Scalar Arguments ..
@@ -26,7 +26,7 @@
2626
*>
2727
*> \verbatim
2828
*>
29-
*> SGEMMT performs one of the matrix-matrix operations
29+
*> SGEMMTR performs one of the matrix-matrix operations
3030
*>
3131
*> C := alpha*op( A )*op( B ) + beta*C,
3232
*>
@@ -186,7 +186,7 @@
186186
*> \endverbatim
187187
*>
188188
* =====================================================================
189-
SUBROUTINE SGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
189+
SUBROUTINE SGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
190190
+ BETA,C,LDC)
191191
IMPLICIT NONE
192192
*
@@ -266,7 +266,7 @@ SUBROUTINE SGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
266266
INFO = 13
267267
END IF
268268
IF (INFO.NE.0) THEN
269-
CALL XERBLA('SGEMMT',INFO)
269+
CALL XERBLA('SGEMMTR',INFO)
270270
RETURN
271271
END IF
272272
*
@@ -427,6 +427,6 @@ SUBROUTINE SGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
427427
*
428428
RETURN
429429
*
430-
* End of SGEMMT
430+
* End of SGEMMTR
431431
*
432432
END

‎BLAS/SRC/zgemmt.f‎ renamed to ‎BLAS/SRC/zgemmtr.f‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b ZGEMMT
1+
*> \brief \b ZGEMMTR
22
*
33
* =========== DOCUMENTATION ===========
44
*
@@ -8,7 +8,7 @@
88
* Definition:
99
* ===========
1010
*
11-
* SUBROUTINE ZGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
11+
* SUBROUTINE ZGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
1212
* C,LDC)
1313
*
1414
* .. Scalar Arguments ..
@@ -26,7 +26,7 @@
2626
*>
2727
*> \verbatim
2828
*>
29-
*> ZGEMMT performs one of the matrix-matrix operations
29+
*> ZGEMMTR performs one of the matrix-matrix operations
3030
*>
3131
*> C := alpha*op( A )*op( B ) + beta*C,
3232
*>
@@ -186,7 +186,7 @@
186186
*> \endverbatim
187187
*>
188188
* =====================================================================
189-
SUBROUTINE ZGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
189+
SUBROUTINE ZGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
190190
+ BETA,C,LDC)
191191
IMPLICIT NONE
192192
*
@@ -272,7 +272,7 @@ SUBROUTINE ZGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
272272
INFO = 13
273273
END IF
274274
IF (INFO.NE.0) THEN
275-
CALL XERBLA('ZGEMMT',INFO)
275+
CALL XERBLA('ZGEMMTR',INFO)
276276
RETURN
277277
END IF
278278
*
@@ -565,6 +565,6 @@ SUBROUTINE ZGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
565565
*
566566
RETURN
567567
*
568-
* End of ZGEMMT
568+
* End of ZGEMMTR
569569
*
570570
END

0 commit comments

Comments
 (0)