From 8a3d21be0214d1070ec0c3851aeb36855ff3896e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 10 Jul 2023 23:17:11 +0200 Subject: [PATCH] Update lapacke_zgedmdq.c --- 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 c0f789dc8..71c8c090b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgedmdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgedmdq.c @@ -49,10 +49,10 @@ lapack_int LAPACKE_zgedmdq( int matrix_layout, char jobs, char jobz, char jobr, lapack_int liwork = -1; lapack_int lzwork = -1; lapack_complex_double* zwork = NULL; - lapack_complex_double* work = NULL; + double* work = NULL; lapack_int* iwork = NULL; lapack_complex_double work_query; - lapack_complex_double zwork_query; + double zwork_query; lapack_int iwork_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgedmdq", -1 ); @@ -103,7 +103,7 @@ lapack_int LAPACKE_zgedmdq( int matrix_layout, char jobs, char jobz, char jobr, info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; } - work = (lapack_complex_double*)LAPACKE_malloc( sizeof(lapack_complex_double) * lwork ); + work = (double*)LAPACKE_malloc( sizeof(lapack_complex_double) * lwork ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_1;