| @@ -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; | ||||
| @@ -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; | ||||
| @@ -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; | ||||
| @@ -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; | ||||