fix type of work array

This commit is contained in:
Martin Kroeker 2023-07-10 22:44:51 +02:00 committed by GitHub
parent 10e5135866
commit 84cd1df39b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions

View File

@ -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 );