fix type of zwork_query

This commit is contained in:
Martin Kroeker 2023-07-10 21:05:48 +02:00 committed by GitHub
parent c1f2ba9151
commit d19f8f9299
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

@ -53,7 +53,7 @@ lapack_int LAPACKE_zgedmd( int matrix_layout, char jobs, char jobz, char jobr,
lapack_int* iwork = NULL;
lapack_complex_double work_query;
lapack_int iwork_query;
lapack_int zwork_query;
lapack_complex_double zwork_query;
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
LAPACKE_xerbla( "LAPACKE_zgedmd", -1 );
return -1;