From cbdd9878f5b72e0396c4314af231bd22bc6cb4c7 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 12 Jul 2023 08:20:46 +0200 Subject: [PATCH] fix types of work/work_query --- lapack-netlib/LAPACKE/src/lapacke_zgedmdq.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgedmdq.c b/lapack-netlib/LAPACKE/src/lapacke_zgedmdq.c index 71c8c090b..368d48e20 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgedmdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgedmdq.c @@ -51,11 +51,11 @@ lapack_int LAPACKE_zgedmdq( int matrix_layout, char jobs, char jobz, char jobr, lapack_complex_double* zwork = NULL; double* work = NULL; lapack_int* iwork = NULL; - lapack_complex_double work_query; - double zwork_query; + double work_query; + lapack_complex_double zwork_query; lapack_int iwork_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_cgedmdq", -1 ); + LAPACKE_xerbla( "LAPACKE_zgedmdq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK