Fixed rows and cols order in ?larfb

Author: STCE2023

LAPACKE/src/lapacke_clarfb.c

@@ -42,7 +42,7 @@ lapack_int LAPACKE_clarfb( int matrix_layout, char side, char trans, char direct
     lapack_int info = 0;
     lapack_int ldwork;
     lapack_complex_float* work = NULL;
-    lapack_int ncols_v, nrows_v;
+    lapack_int nrows_v, ncols_v;
     lapack_logical left, col, forward;
     char uplo;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
@@ -56,16 +56,16 @@ lapack_int LAPACKE_clarfb( int matrix_layout, char side, char trans, char direct
         col = LAPACKE_lsame( storev, 'c' );
         forward = LAPACKE_lsame( direct, 'f' );
 
-        ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
         nrows_v = ( col && left ) ? m : ( ( col && !left ) ? n : ( !col ? k : 1) );
+        ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
         uplo = ( ( left && col ) || !( left || col ) ) ? 'l' : 'u';
 
         if( !forward && ( col && k > nrows_v ) || ( !col && k > ncols_v )) {
             LAPACKE_xerbla( "LAPACKE_clarfb", -8 );
             return -8;
         }
         if( LAPACKE_ctz_nancheck( matrix_layout, direct, uplo, 'u',
-                                  ncols_v, nrows_v, v, ldv ) ) {
+                                  nrows_v, ncols_v, v, ldv ) ) {
             return -9;
         }
         if( LAPACKE_cge_nancheck( matrix_layout, k, k, t, ldt ) ) {

LAPACKE/src/lapacke_dlarfb.c

@@ -41,7 +41,7 @@ lapack_int LAPACKE_dlarfb( int matrix_layout, char side, char trans, char direct
     lapack_int info = 0;
     lapack_int ldwork;
     double* work = NULL;
-    lapack_int ncols_v, nrows_v;
+    lapack_int nrows_v, ncols_v;
     lapack_logical left, col, forward;
     char uplo;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
@@ -55,16 +55,16 @@ lapack_int LAPACKE_dlarfb( int matrix_layout, char side, char trans, char direct
         col = LAPACKE_lsame( storev, 'c' );
         forward = LAPACKE_lsame( direct, 'f' );
 
-        ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
         nrows_v = ( col && left ) ? m : ( ( col && !left ) ? n : ( !col ? k : 1) );
+        ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
         uplo = ( ( left && col ) || !( left || col ) ) ? 'l' : 'u';
 
         if( !forward && ( col && k > nrows_v ) || ( !col && k > ncols_v )) {
             LAPACKE_xerbla( "LAPACKE_dlarfb", -8 );
             return -8;
         }
         if( LAPACKE_dtz_nancheck( matrix_layout, direct, uplo, 'u',
-                                  ncols_v, nrows_v, v, ldv ) ) {
+                                  nrows_v, ncols_v, v, ldv ) ) {
             return -9;
         }
         if( LAPACKE_dge_nancheck( matrix_layout, k, k, t, ldt ) ) {

LAPACKE/src/lapacke_slarfb.c

@@ -41,7 +41,7 @@ lapack_int LAPACKE_slarfb( int matrix_layout, char side, char trans, char direct
     lapack_int info = 0;
     lapack_int ldwork;
     float* work = NULL;
-    lapack_int ncols_v, nrows_v;
+    lapack_int nrows_v, ncols_v;
     lapack_logical left, col, forward;
     char uplo;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
@@ -55,16 +55,16 @@ lapack_int LAPACKE_slarfb( int matrix_layout, char side, char trans, char direct
         col = LAPACKE_lsame( storev, 'c' );
         forward = LAPACKE_lsame( direct, 'f' );
 
-        ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
         nrows_v = ( col && left ) ? m : ( ( col && !left ) ? n : ( !col ? k : 1) );
+        ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
         uplo = ( ( left && col ) || !( left || col ) ) ? 'l' : 'u';
 
         if( !forward && ( col && k > nrows_v ) || ( !col && k > ncols_v )) {
             LAPACKE_xerbla( "LAPACKE_slarfb", -8 );
             return -8;
         }
         if( LAPACKE_stz_nancheck( matrix_layout, direct, uplo, 'u',
-                                  ncols_v, nrows_v, v, ldv ) ) {
+                                  nrows_v, ncols_v, v, ldv ) ) {
             return -9;
         }
         if( LAPACKE_sge_nancheck( matrix_layout, k, k, t, ldt ) ) {

LAPACKE/src/lapacke_zlarfb.c

@@ -42,7 +42,7 @@ lapack_int LAPACKE_zlarfb( int matrix_layout, char side, char trans, char direct
     lapack_int info = 0;
     lapack_int ldwork;
     lapack_complex_double* work = NULL;
-    lapack_int ncols_v, nrows_v;
+    lapack_int nrows_v, ncols_v;
     lapack_logical left, col, forward;
     char uplo;
     if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
@@ -56,16 +56,16 @@ lapack_int LAPACKE_zlarfb( int matrix_layout, char side, char trans, char direct
         col = LAPACKE_lsame( storev, 'c' );
         forward = LAPACKE_lsame( direct, 'f' );
 
-        ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
         nrows_v = ( col && left ) ? m : ( ( col && !left ) ? n : ( !col ? k : 1) );
+        ncols_v = ( !col && left ) ? m : ( ( !col && !left ) ? n : ( col ? k : 1 ) );
         uplo = ( ( left && col ) || !( left || col ) ) ? 'l' : 'u';
 
         if( !forward && ( col && k > nrows_v ) || ( !col && k > ncols_v )) {
             LAPACKE_xerbla( "LAPACKE_zlarfb", -8 );
             return -8;
         }
         if( LAPACKE_ztz_nancheck( matrix_layout, direct, uplo, 'u',
-                                  ncols_v, nrows_v, v, ldv ) ) {
+                                  nrows_v, ncols_v, v, ldv ) ) {
             return -9;
         }
         if( LAPACKE_zge_nancheck( matrix_layout, k, k, t, ldt ) ) {