fix type of work array
This commit is contained in:
parent
10e5135866
commit
84cd1df39b
|
@ -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 );
|
||||
|
|
Loading…
Reference in New Issue