From 84cd1df39beb5f3c1af02764e0b5ca7e5b0165bc Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 10 Jul 2023 22:44:51 +0200 Subject: [PATCH] fix type of work array --- lapack-netlib/LAPACKE/src/lapacke_cgedmdq.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgedmdq.c b/lapack-netlib/LAPACKE/src/lapacke_cgedmdq.c index fc698e4ec..283bec31d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgedmdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgedmdq.c @@ -49,10 +49,10 @@ lapack_int LAPACKE_cgedmdq( int matrix_layout, char jobs, char jobz, char jobr, lapack_int liwork = -1; lapack_int lzwork = -1; lapack_complex_float* zwork = NULL; - lapack_complex_float* work = NULL; + float* work = NULL; lapack_int* iwork = NULL; lapack_complex_float zwork_query; - lapack_complex_float work_query; + float work_query; lapack_int iwork_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgedmdq", -1 );