fix allocation type of work array
This commit is contained in:
parent
8a3d21be02
commit
a2b4f824f6
|
@ -51,7 +51,7 @@ lapack_int LAPACKE_cgedmd( int matrix_layout, char jobs, char jobz, char jobr,
|
||||||
float* work = NULL;
|
float* work = NULL;
|
||||||
lapack_int* iwork = NULL;
|
lapack_int* iwork = NULL;
|
||||||
lapack_complex_float zwork_query;
|
lapack_complex_float zwork_query;
|
||||||
lapack_complex_float work_query;
|
float work_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_cgedmd", -1 );
|
LAPACKE_xerbla( "LAPACKE_cgedmd", -1 );
|
||||||
|
|
Loading…
Reference in New Issue