Remove unnecessary transposition of t_t on input

weslleyspereira · weslleyspereira · commit b354d10d6f84 · 2023-05-23T19:03:16.000-06:00
diff --git a/LAPACKE/src/lapacke_cgeqrt_work.c b/LAPACKE/src/lapacke_cgeqrt_work.c
@@ -76,7 +76,6 @@ lapack_int LAPACKE_cgeqrt_work( int matrix_layout, lapack_int m, lapack_int n,
         }
         /* Transpose input matrices */
         LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
-        LAPACKE_cge_trans( matrix_layout, nb, MIN(m,n), t, ldt, t_t, ldt_t );
         /* Call LAPACK function and adjust info */
         LAPACK_cgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info );
         if( info < 0 ) {
diff --git a/LAPACKE/src/lapacke_dgeqrt_work.c b/LAPACKE/src/lapacke_dgeqrt_work.c
@@ -73,7 +73,6 @@ lapack_int LAPACKE_dgeqrt_work( int matrix_layout, lapack_int m, lapack_int n,
         }
         /* Transpose input matrices */
         LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
-        LAPACKE_dge_trans( matrix_layout, nb, MIN(m,n), t, ldt, t_t, ldt_t );
         /* Call LAPACK function and adjust info */
         LAPACK_dgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info );
         if( info < 0 ) {
diff --git a/LAPACKE/src/lapacke_sgeqrt_work.c b/LAPACKE/src/lapacke_sgeqrt_work.c
@@ -72,7 +72,6 @@ lapack_int LAPACKE_sgeqrt_work( int matrix_layout, lapack_int m, lapack_int n,
         }
         /* Transpose input matrices */
         LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
-        LAPACKE_sge_trans( matrix_layout, nb, MIN(m,n), t, ldt, t_t, ldt_t );
         /* Call LAPACK function and adjust info */
         LAPACK_sgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info );
         if( info < 0 ) {
diff --git a/LAPACKE/src/lapacke_zgeqrt_work.c b/LAPACKE/src/lapacke_zgeqrt_work.c
@@ -76,7 +76,6 @@ lapack_int LAPACKE_zgeqrt_work( int matrix_layout, lapack_int m, lapack_int n,
         }
         /* Transpose input matrices */
         LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
-        LAPACKE_zge_trans( matrix_layout, nb, MIN(m,n), t, ldt, t_t, ldt_t );
         /* Call LAPACK function and adjust info */
         LAPACK_zgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info );
         if( info < 0 ) {

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,6 @@ lapack_int LAPACKE_cgeqrt_work( int matrix_layout, lapack_int m, lapack_int n,`
`76`	`76`	`}`
`77`	`77`	`/* Transpose input matrices */`
`78`	`78`	`LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );`
`79`		`- LAPACKE_cge_trans( matrix_layout, nb, MIN(m,n), t, ldt, t_t, ldt_t );`
`80`	`79`	`/* Call LAPACK function and adjust info */`
`81`	`80`	`LAPACK_cgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info );`
`82`	`81`	`if( info < 0 ) {`
Original file line number	Diff line number	Diff line change
`@@ -73,7 +73,6 @@ lapack_int LAPACKE_dgeqrt_work( int matrix_layout, lapack_int m, lapack_int n,`
`73`	`73`	`}`
`74`	`74`	`/* Transpose input matrices */`
`75`	`75`	`LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );`
`76`		`- LAPACKE_dge_trans( matrix_layout, nb, MIN(m,n), t, ldt, t_t, ldt_t );`
`77`	`76`	`/* Call LAPACK function and adjust info */`
`78`	`77`	`LAPACK_dgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info );`
`79`	`78`	`if( info < 0 ) {`
Original file line number	Diff line number	Diff line change
`@@ -72,7 +72,6 @@ lapack_int LAPACKE_sgeqrt_work( int matrix_layout, lapack_int m, lapack_int n,`
`72`	`72`	`}`
`73`	`73`	`/* Transpose input matrices */`
`74`	`74`	`LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );`
`75`		`- LAPACKE_sge_trans( matrix_layout, nb, MIN(m,n), t, ldt, t_t, ldt_t );`
`76`	`75`	`/* Call LAPACK function and adjust info */`
`77`	`76`	`LAPACK_sgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info );`
`78`	`77`	`if( info < 0 ) {`
Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,6 @@ lapack_int LAPACKE_zgeqrt_work( int matrix_layout, lapack_int m, lapack_int n,`
`76`	`76`	`}`
`77`	`77`	`/* Transpose input matrices */`
`78`	`78`	`LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );`
`79`		`- LAPACKE_zge_trans( matrix_layout, nb, MIN(m,n), t, ldt, t_t, ldt_t );`
`80`	`79`	`/* Call LAPACK function and adjust info */`
`81`	`80`	`LAPACK_zgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info );`
`82`	`81`	`if( info < 0 ) {`