Merge pull request #1759 from martin-frbg/lapack283

martin-frbg · web-flow · commit fd081a91e492 · 2018-09-11T13:52:09.000+02:00
Remove an unused variable from several LAPACKE 2stage_work functions
diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c
@@ -50,7 +50,6 @@ lapack_int LAPACKE_dsytrf_aa_2stage_work( int matrix_layout, char uplo, lapack_i
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
         lapack_int lda_t = MAX(1,n);
-        lapack_int ldb_t = MAX(1,n);
         double* a_t = NULL;
         double* tb_t = NULL;
         /* Check leading dimension(s) */
diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c
@@ -50,7 +50,6 @@ lapack_int LAPACKE_zhetrf_aa_2stage_work( int matrix_layout, char uplo, lapack_i
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
         lapack_int lda_t = MAX(1,n);
-        lapack_int ldb_t = MAX(1,n);
         lapack_complex_double* a_t = NULL;
         lapack_complex_double* tb_t = NULL;
         /* Check leading dimension(s) */
diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c
@@ -50,7 +50,6 @@ lapack_int LAPACKE_zsytrf_aa_2stage_work( int matrix_layout, char uplo, lapack_i
         }
     } else if( matrix_layout == LAPACK_ROW_MAJOR ) {
         lapack_int lda_t = MAX(1,n);
-        lapack_int ldb_t = MAX(1,n);
         lapack_complex_double* a_t = NULL;
         lapack_complex_double* tb_t = NULL;
         /* Check leading dimension(s) */

Original file line number	Diff line number	Diff line change
`@@ -50,7 +50,6 @@ lapack_int LAPACKE_dsytrf_aa_2stage_work( int matrix_layout, char uplo, lapack_i`
`50`	`50`	`}`
`51`	`51`	`} else if( matrix_layout == LAPACK_ROW_MAJOR ) {`
`52`	`52`	`lapack_int lda_t = MAX(1,n);`
`53`		`- lapack_int ldb_t = MAX(1,n);`
`54`	`53`	`double* a_t = NULL;`
`55`	`54`	`double* tb_t = NULL;`
`56`	`55`	`/* Check leading dimension(s) */`
Original file line number	Diff line number	Diff line change
`@@ -50,7 +50,6 @@ lapack_int LAPACKE_zhetrf_aa_2stage_work( int matrix_layout, char uplo, lapack_i`
`50`	`50`	`}`
`51`	`51`	`} else if( matrix_layout == LAPACK_ROW_MAJOR ) {`
`52`	`52`	`lapack_int lda_t = MAX(1,n);`
`53`		`- lapack_int ldb_t = MAX(1,n);`
`54`	`53`	`lapack_complex_double* a_t = NULL;`
`55`	`54`	`lapack_complex_double* tb_t = NULL;`
`56`	`55`	`/* Check leading dimension(s) */`
Original file line number	Diff line number	Diff line change
`@@ -50,7 +50,6 @@ lapack_int LAPACKE_zsytrf_aa_2stage_work( int matrix_layout, char uplo, lapack_i`
`50`	`50`	`}`
`51`	`51`	`} else if( matrix_layout == LAPACK_ROW_MAJOR ) {`
`52`	`52`	`lapack_int lda_t = MAX(1,n);`
`53`		`- lapack_int ldb_t = MAX(1,n);`
`54`	`53`	`lapack_complex_double* a_t = NULL;`
`55`	`54`	`lapack_complex_double* tb_t = NULL;`
`56`	`55`	`/* Check leading dimension(s) */`