fix dimension used in transposition (Reference-LAPACK PR 1135)

martin-frbg · web-flow · commit 2a6beac88f7e · 2025-06-15T19:14:53.000+02:00
diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c
@@ -90,7 +90,7 @@ lapack_int LAPACKE_zunmlq_work( int matrix_layout, char side, char trans,
             goto exit_level_1;
         }
         /* Transpose input matrices */
-        LAPACKE_zge_trans( matrix_layout, k, m, a, lda, a_t, lda_t );
+        LAPACKE_zge_trans( matrix_layout, k, r, a, lda, a_t, lda_t );
         LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t );
         /* Call LAPACK function and adjust info */
         LAPACK_zunmlq( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t,

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ lapack_int LAPACKE_zunmlq_work( int matrix_layout, char side, char trans,`
`90`	`90`	`goto exit_level_1;`
`91`	`91`	`}`
`92`	`92`	`/* Transpose input matrices */`
`93`		`- LAPACKE_zge_trans( matrix_layout, k, m, a, lda, a_t, lda_t );`
	`93`	`+ LAPACKE_zge_trans( matrix_layout, k, r, a, lda, a_t, lda_t );`
`94`	`94`	`LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t );`
`95`	`95`	`/* Call LAPACK function and adjust info */`
`96`	`96`	`LAPACK_zunmlq( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t,`