diff options
| author | julie <julielangou@users.noreply.github.com> | 2016-02-23 05:35:56 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2016-02-23 05:35:56 +0000 |
| commit | d36086d325dfa43bad5274f1be8222fd9325eba3 (patch) | |
| tree | be5388f5b0c4f085f73375adbabadcf6585929f9 /LAPACKE/src/lapacke_zgejsv.c | |
| parent | e4cc7b3a85222defeb6612856e7bcf946399dd19 (diff) | |
APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry.g.baksheev@intel.com)
[PATCH 24/42] Fix lapacke_?gejsv - remove NaN check of U,V
- U,V are [out] and should not be checked for NaNs
Diffstat (limited to 'LAPACKE/src/lapacke_zgejsv.c')
| -rw-r--r-- | LAPACKE/src/lapacke_zgejsv.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/LAPACKE/src/lapacke_zgejsv.c b/LAPACKE/src/lapacke_zgejsv.c index 7a938866..046704c8 100644 --- a/LAPACKE/src/lapacke_zgejsv.c +++ b/LAPACKE/src/lapacke_zgejsv.c @@ -136,18 +136,6 @@ lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv, if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -10; } - if( LAPACKE_lsame( jobu, 'f' ) || LAPACKE_lsame( jobu, 'u' ) || - LAPACKE_lsame( jobu, 'w' ) ) { - if( LAPACKE_zge_nancheck( matrix_layout, nu, n, u, ldu ) ) { - return -13; - } - } - if( LAPACKE_lsame( jobv, 'j' ) || LAPACKE_lsame( jobv, 'v' ) || - LAPACKE_lsame( jobv, 'w' ) ) { - if( LAPACKE_zge_nancheck( matrix_layout, nv, n, v, ldv ) ) { - return -15; - } - } #endif /* Allocate memory for working array(s) */ iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * MAX(1,m+3*n) ); |