floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update lapacke_zgedmdq.c

This commit is contained in:
Martin Kroeker 2023-07-10 23:17:11 +02:00 committed by GitHub
parent 7a87709064
commit 8a3d21be02
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lapack-netlib/LAPACKE/src/lapacke_zgedmdq.c
View File

@ -49,10 +49,10 @@ lapack_int LAPACKE_zgedmdq( int matrix_layout, char jobs, char jobz, char jobr,
lapack_int liwork = -1; lapack_int liwork = -1;
lapack_int lzwork = -1; lapack_int lzwork = -1;
lapack_complex_double* zwork = NULL; lapack_complex_double* zwork = NULL;
lapack_complex_double* work = NULL; double* work = NULL;
lapack_int* iwork = NULL; lapack_int* iwork = NULL;
lapack_complex_double work_query; lapack_complex_double work_query;
lapack_complex_double zwork_query; double zwork_query;
lapack_int iwork_query; lapack_int iwork_query;
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
LAPACKE_xerbla( "LAPACKE_cgedmdq", -1 ); 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; info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_0; 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 ) { if( work == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR; info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_1; goto exit_level_1;