properly cast from zwork_query result to lzwork

This commit is contained in:
Martin Kroeker 2023-07-12 15:31:08 +02:00 committed by GitHub
parent cbdd9878f5
commit 0f015d63f2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions

View File

@ -92,7 +92,7 @@ lapack_int LAPACKE_zgedmd( int matrix_layout, char jobs, char jobz, char jobr,
}
lwork = LAPACK_Z2INT( work_query );
liwork = iwork_query;
lzwork = zwork_query;
lzwork = LAPACK_Z2INT( zwork_query );
/* Allocate memory for work arrays */
zwork = (lapack_complex_double*)LAPACKE_malloc( sizeof(lapack_complex_double) * lzwork );
if( zwork == NULL ) {