fix options rewriting

Author: martin-frbg

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();
 

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,

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();
 

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();
 

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();

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,