From 7b1bc7d3435cf4a877a035b19d22093b4f721c31 Mon Sep 17 00:00:00 2001 From: mfaverge Date: Thu, 3 Dec 2015 18:00:07 +0000 Subject: [PATCH] Q doesn't need to be set when vect == v, so no need to check for nan --- LAPACKE/src/lapacke_chbtrd.c | 2 +- LAPACKE/src/lapacke_dsbtrd.c | 2 +- LAPACKE/src/lapacke_ssbtrd.c | 2 +- LAPACKE/src/lapacke_zhbtrd.c | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/LAPACKE/src/lapacke_chbtrd.c b/LAPACKE/src/lapacke_chbtrd.c index 83aa5df..69b234e 100644 --- a/LAPACKE/src/lapacke_chbtrd.c +++ b/LAPACKE/src/lapacke_chbtrd.c @@ -49,7 +49,7 @@ lapack_int LAPACKE_chbtrd( int matrix_layout, char vect, char uplo, lapack_int n if( LAPACKE_chb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { + if( LAPACKE_lsame( vect, 'u' ) ) { if( LAPACKE_cge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -10; } diff --git a/LAPACKE/src/lapacke_dsbtrd.c b/LAPACKE/src/lapacke_dsbtrd.c index d9fa474..26781dd 100644 --- a/LAPACKE/src/lapacke_dsbtrd.c +++ b/LAPACKE/src/lapacke_dsbtrd.c @@ -48,7 +48,7 @@ lapack_int LAPACKE_dsbtrd( int matrix_layout, char vect, char uplo, lapack_int n if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { + if( LAPACKE_lsame( vect, 'u' ) ) { if( LAPACKE_dge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -10; } diff --git a/LAPACKE/src/lapacke_ssbtrd.c b/LAPACKE/src/lapacke_ssbtrd.c index b70a982..3b31250 100644 --- a/LAPACKE/src/lapacke_ssbtrd.c +++ b/LAPACKE/src/lapacke_ssbtrd.c @@ -48,7 +48,7 @@ lapack_int LAPACKE_ssbtrd( int matrix_layout, char vect, char uplo, lapack_int n if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { + if( LAPACKE_lsame( vect, 'u' ) ) { if( LAPACKE_sge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -10; } diff --git a/LAPACKE/src/lapacke_zhbtrd.c b/LAPACKE/src/lapacke_zhbtrd.c index 309123c..b475b8f 100644 --- a/LAPACKE/src/lapacke_zhbtrd.c +++ b/LAPACKE/src/lapacke_zhbtrd.c @@ -49,7 +49,7 @@ lapack_int LAPACKE_zhbtrd( int matrix_layout, char vect, char uplo, lapack_int n if( LAPACKE_zhb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { + if( LAPACKE_lsame( vect, 'u' ) ) { if( LAPACKE_zge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -10; } -- 2.7.4