|
|
|
@@ -80,7 +80,7 @@ lapack_int LAPACKE_dgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, |
|
|
|
} |
|
|
|
/* Transpose output matrices */ |
|
|
|
LAPACKE_dge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda ); |
|
|
|
LAPACKE_dge_trans( LAPACK_COL_MAJOR, ldt, MIN(m,n), t_t, ldt_t, t, |
|
|
|
LAPACKE_dge_trans( LAPACK_COL_MAJOR, nb, MIN(m,n), t_t, ldt_t, t, |
|
|
|
ldt ); |
|
|
|
/* Release memory and exit */ |
|
|
|
LAPACKE_free( t_t ); |
|
|
|
|