diff --git a/ctest/c_c3chke.c b/ctest/c_c3chke.c index fca56b478..f5919ef45 100644 --- a/ctest/c_c3chke.c +++ b/ctest/c_c3chke.c @@ -245,16 +245,16 @@ void F77_c3chke(char * rout) { ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); diff --git a/ctest/c_d3chke.c b/ctest/c_d3chke.c index c6c049a3e..4fea6ddbe 100644 --- a/ctest/c_d3chke.c +++ b/ctest/c_d3chke.c @@ -243,16 +243,16 @@ void F77_d3chke(char *rout) { ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_dgemmtr( CblasColMajor, 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 5bd432c3e..3cf92b80d 100644 --- a/ctest/c_s3chke.c +++ b/ctest/c_s3chke.c @@ -168,6 +168,7 @@ void F77_s3chke(char *rout) { cblas_sgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); + cblas_info = 11; RowMajorStrg = FALSE; cblas_sgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); @@ -242,20 +243,18 @@ void F77_s3chke(char *rout) { cblas_sgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - - cblas_info = 11; RowMajorStrg = TRUE; - cblas_sgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_sgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; - cblas_sgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_sgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 11; RowMajorStrg = TRUE; - cblas_sgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + cblas_info = 11; RowMajorStrg = FALSE; + cblas_sgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); - cblas_info = 14; RowMajorStrg = TRUE; cblas_sgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 );