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

Fix data type of rwork array

This commit is contained in:
Martin Kroeker 2020-09-02 23:41:51 +02:00 committed by GitHub
parent 9d1ea75aa0
commit 0ce2aa3163
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_cgesvdq.c
View File

@ -47,8 +47,8 @@ lapack_int LAPACKE_cgesvdq( int matrix_layout, char joba, char jobp,
lapack_complex_float* cwork = NULL; lapack_complex_float* cwork = NULL;
lapack_complex_float cwork_query; lapack_complex_float cwork_query;
lapack_int lrwork = -1; lapack_int lrwork = -1;
double* rwork = NULL; float* rwork = NULL;
double rwork_query; float rwork_query;
lapack_int i; lapack_int i;
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_cgesvdq", -1 ); LAPACKE_xerbla( "LAPACKE_cgesvdq", -1 );
@ -84,7 +84,7 @@ lapack_int LAPACKE_cgesvdq( int matrix_layout, char joba, char jobp,
info = LAPACK_WORK_MEMORY_ERROR; info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_0; goto exit_level_0;
} }
rwork = (double*)LAPACKE_malloc( sizeof(double) * lrwork ); rwork = (float*)LAPACKE_malloc( sizeof(float) * lrwork );
if( rwork == NULL ) { if( rwork == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR; info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_0; goto exit_level_0;