diff --git a/ctest/c_c3chke.c b/ctest/c_c3chke.c index e202be4a9..fca56b478 100644 --- a/ctest/c_c3chke.c +++ b/ctest/c_c3chke.c @@ -246,15 +246,15 @@ void F77_c3chke(char * rout) { chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); diff --git a/ctest/c_c3chke_3m.c b/ctest/c_c3chke_3m.c index 4d5de5150..d9b83b255 100644 --- a/ctest/c_c3chke_3m.c +++ b/ctest/c_c3chke_3m.c @@ -47,7 +47,7 @@ void F77_c3chke(char * rout) { if (strncmp( sf,"cblas_cgemm3m" ,13)==0) { - cblas_rout = "cblas_cgemm3" ; + cblas_rout = "cblas_cgemm3m" ; cblas_info = 1; cblas_cgemm3m( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, diff --git a/ctest/c_d3chke.c b/ctest/c_d3chke.c index 43d0de75d..c6c049a3e 100644 --- a/ctest/c_d3chke.c +++ b/ctest/c_d3chke.c @@ -244,15 +244,15 @@ void F77_d3chke(char *rout) { chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); diff --git a/ctest/c_s3chke.c b/ctest/c_s3chke.c index ae7bee631..5bd432c3e 100644 --- a/ctest/c_s3chke.c +++ b/ctest/c_s3chke.c @@ -244,15 +244,15 @@ void F77_s3chke(char *rout) { chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_sgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + cblas_sgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_sgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + cblas_sgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_sgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + cblas_sgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); diff --git a/ctest/c_z3chke.c b/ctest/c_z3chke.c index 809f6a3de..169be87d0 100644 --- a/ctest/c_z3chke.c +++ b/ctest/c_z3chke.c @@ -245,15 +245,15 @@ void F77_z3chke(char * rout) { ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; + cblas_info = 11; RowMajorStrg = FALSE; cblas_zgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; + cblas_info = 11; RowMajorStrg = FALSE; cblas_zgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; + cblas_info = 11; RowMajorStrg = FALSE; cblas_zgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); diff --git a/ctest/c_z3chke_3m.c b/ctest/c_z3chke_3m.c index 4be4457b4..22030b1ee 100644 --- a/ctest/c_z3chke_3m.c +++ b/ctest/c_z3chke_3m.c @@ -50,7 +50,7 @@ void F77_z3chke(char * rout) { if (strncmp( sf,"cblas_zgemm3m" ,13)==0) { - cblas_rout = "cblas_zgemm3" ; + cblas_rout = "cblas_zgemm3m" ; cblas_info = 1; cblas_zgemm3m( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0,