Rename GEMMT to GEMMTR in BLAS/

After the discussion on

    #887

the name changed from xGEMMT to xGEMMTR.

Author: grisuthedragon

BLAS/SRC/CMakeLists.txt

@@ -82,15 +82,15 @@ set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f
 #---------------------------------------------------------
 #  Level 3 BLAS
 #---------------------------------------------------------
-set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f sgemmt.f)
+set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f sgemmtr.f)
 
 set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f
-	chemm.f cherk.f cher2k.f cgemmt.f)
+	chemm.f cherk.f cher2k.f cgemmtr.f)
 
-set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f dgemmt.f)
+set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f dgemmtr.f)
 
 set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f
-	zhemm.f zherk.f zher2k.f zgemmt.f)
+	zhemm.f zherk.f zher2k.f zgemmtr.f)
 
 
 set(SOURCES)

BLAS/SRC/Makefile

@@ -127,18 +127,18 @@ $(ZBLAS2): $(FRC)
 #  Comment out the next 4 definitions if you already have
 #  the Level 3 BLAS.
 #---------------------------------------------------------
-SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o sgemmt.o
+SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o sgemmtr.o
 $(SBLAS3): $(FRC)
 
 CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \
-	chemm.o cherk.o cher2k.o cgemmt.o
+	chemm.o cherk.o cher2k.o cgemmtr.o
 $(CBLAS3): $(FRC)
 
-DBLAS3 = dgemm.o dsymm.o dsyrk.o dsyr2k.o dtrmm.o dtrsm.o dgemmt.o
+DBLAS3 = dgemm.o dsymm.o dsyrk.o dsyr2k.o dtrmm.o dtrsm.o dgemmtr.o
 $(DBLAS3): $(FRC)
 
 ZBLAS3 = zgemm.o zsymm.o zsyrk.o zsyr2k.o ztrmm.o ztrsm.o \
-	zhemm.o zherk.o zher2k.o zgemmt.o
+	zhemm.o zherk.o zher2k.o zgemmtr.o
 $(ZBLAS3): $(FRC)
 
 ALLOBJ = $(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \

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

@@ -1,4 +1,4 @@
-*> \brief \b CGEMMT
+*> \brief \b CGEMMTR
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE CGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
+*       SUBROUTINE CGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
 *                         C,LDC)
 *
 *       .. Scalar Arguments ..
@@ -26,7 +26,7 @@
 *>
 *> \verbatim
 *>
-*> CGEMMT  performs one of the matrix-matrix operations
+*> CGEMMTR  performs one of the matrix-matrix operations
 *>
 *>    C := alpha*op( A )*op( B ) + beta*C,
 *>
@@ -186,7 +186,7 @@
 *> \endverbatim
 *>
 *  =====================================================================
-      SUBROUTINE CGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
+      SUBROUTINE CGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
      +         BETA,C,LDC)
       IMPLICIT NONE
 *
@@ -272,7 +272,7 @@ SUBROUTINE CGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
           INFO = 13
       END IF
       IF (INFO.NE.0) THEN
-          CALL XERBLA('CGEMMT',INFO)
+          CALL XERBLA('CGEMMTR',INFO)
           RETURN
       END IF
 *
@@ -565,6 +565,6 @@ SUBROUTINE CGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
 *
       RETURN
 *
-*     End of CGEMMT
+*     End of CGEMMTR
 *
       END

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

@@ -1,4 +1,4 @@
-*> \brief \b DGEMMT
+*> \brief \b DGEMMTR
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE DGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
+*       SUBROUTINE DGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
 *                         C,LDC)
 *
 *       .. Scalar Arguments ..
@@ -26,7 +26,7 @@
 *>
 *> \verbatim
 *>
-*> DGEMMT  performs one of the matrix-matrix operations
+*> DGEMMTR  performs one of the matrix-matrix operations
 *>
 *>    C := alpha*op( A )*op( B ) + beta*C,
 *>
@@ -186,7 +186,7 @@
 *> \endverbatim
 *>
 *  =====================================================================
-      SUBROUTINE DGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
+      SUBROUTINE DGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
      +         BETA,C,LDC)
       IMPLICIT NONE
 *
@@ -266,7 +266,7 @@ SUBROUTINE DGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
           INFO = 13
       END IF
       IF (INFO.NE.0) THEN
-          CALL XERBLA('DGEMMT',INFO)
+          CALL XERBLA('DGEMMTR',INFO)
           RETURN
       END IF
 *

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

@@ -1,4 +1,4 @@
-*> \brief \b SGEMMT
+*> \brief \b SGEMMTR
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE SGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
+*       SUBROUTINE SGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
 *                         C,LDC)
 *
 *       .. Scalar Arguments ..
@@ -26,7 +26,7 @@
 *>
 *> \verbatim
 *>
-*> SGEMMT  performs one of the matrix-matrix operations
+*> SGEMMTR  performs one of the matrix-matrix operations
 *>
 *>    C := alpha*op( A )*op( B ) + beta*C,
 *>
@@ -186,7 +186,7 @@
 *> \endverbatim
 *>
 *  =====================================================================
-      SUBROUTINE SGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
+      SUBROUTINE SGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
      +         BETA,C,LDC)
       IMPLICIT NONE
 *
@@ -266,7 +266,7 @@ SUBROUTINE SGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
           INFO = 13
       END IF
       IF (INFO.NE.0) THEN
-          CALL XERBLA('SGEMMT',INFO)
+          CALL XERBLA('SGEMMTR',INFO)
           RETURN
       END IF
 *
@@ -427,6 +427,6 @@ SUBROUTINE SGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
 *
       RETURN
 *
-*     End of SGEMMT
+*     End of SGEMMTR
 *
       END

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

@@ -1,4 +1,4 @@
-*> \brief \b ZGEMMT
+*> \brief \b ZGEMMTR
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -8,7 +8,7 @@
 *  Definition:
 *  ===========
 *
-*       SUBROUTINE ZGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
+*       SUBROUTINE ZGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,BETA,
 *                         C,LDC)
 *
 *       .. Scalar Arguments ..
@@ -26,7 +26,7 @@
 *>
 *> \verbatim
 *>
-*> ZGEMMT  performs one of the matrix-matrix operations
+*> ZGEMMTR  performs one of the matrix-matrix operations
 *>
 *>    C := alpha*op( A )*op( B ) + beta*C,
 *>
@@ -186,7 +186,7 @@
 *> \endverbatim
 *>
 *  =====================================================================
-      SUBROUTINE ZGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
+      SUBROUTINE ZGEMMTR(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
      +         BETA,C,LDC)
       IMPLICIT NONE
 *
@@ -272,7 +272,7 @@ SUBROUTINE ZGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
           INFO = 13
       END IF
       IF (INFO.NE.0) THEN
-          CALL XERBLA('ZGEMMT',INFO)
+          CALL XERBLA('ZGEMMTR',INFO)
           RETURN
       END IF
 *
@@ -565,6 +565,6 @@ SUBROUTINE ZGEMMT(UPLO,TRANSA,TRANSB,N,K,ALPHA,A,LDA,B,LDB,
 *
       RETURN
 *
-*     End of ZGEMMT
+*     End of ZGEMMTR
 *
       END