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

Fix implicit conversions and unused variables (Reference-LAPACK PR 703)

This commit is contained in:
Martin Kroeker 2022-11-13 20:29:08 +01:00 committed by GitHub
parent ee6643bc6b
commit 0c2aa0bed7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c
View File

@ -48,7 +48,6 @@ lapack_int LAPACKE_cgesvdq( int matrix_layout, char joba, char jobp,
lapack_int lrwork = -1; lapack_int lrwork = -1;
float* rwork = NULL; float* rwork = NULL;
float rwork_query; float rwork_query;
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 );
return -1; return -1;

1
lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c
View File

@ -48,7 +48,6 @@ lapack_int LAPACKE_dgesvdq( int matrix_layout, char joba, char jobp,
lapack_int lrwork = -1; lapack_int lrwork = -1;
double* rwork = NULL; double* rwork = NULL;
double rwork_query; double rwork_query;
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_dgesvdq", -1 ); LAPACKE_xerbla( "LAPACKE_dgesvdq", -1 );
return -1; return -1;

1
lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c
View File

@ -48,7 +48,6 @@ lapack_int LAPACKE_sgesvdq( int matrix_layout, char joba, char jobp,
lapack_int lrwork = -1; lapack_int lrwork = -1;
float* rwork = NULL; float* rwork = NULL;
float rwork_query; float rwork_query;
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_sgesvdq", -1 ); LAPACKE_xerbla( "LAPACKE_sgesvdq", -1 );
return -1; return -1;

1
lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c
View File

@ -48,7 +48,6 @@ lapack_int LAPACKE_zgesvdq( int matrix_layout, char joba, char jobp,
lapack_int lrwork = -1; lapack_int lrwork = -1;
double* rwork = NULL; double* rwork = NULL;
double rwork_query; double rwork_query;
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_zgesvdq", -1 ); LAPACKE_xerbla( "LAPACKE_zgesvdq", -1 );
return -1; return -1;