diff options
author | langou <langou@users.noreply.github.com> | 2015-10-06 02:11:30 +0000 |
---|---|---|
committer | langou <langou@users.noreply.github.com> | 2015-10-06 02:11:30 +0000 |
commit | 292c6d6dc87df038746bb9d705ccc3d9fa9987ec (patch) | |
tree | 82ba9482a0c63763789042e66236a4aa1a48e47d /LAPACKE/src | |
parent | c2959d1a5abd7cc60553f7b787410944cdb5f566 (diff) | |
download | lapack-292c6d6dc87df038746bb9d705ccc3d9fa9987ec.tar.gz lapack-292c6d6dc87df038746bb9d705ccc3d9fa9987ec.tar.bz2 lapack-292c6d6dc87df038746bb9d705ccc3d9fa9987ec.zip |
Quick and dirty bug fix.
Bug report and bug fix from Dan Kortschak.
See:
http://icl.cs.utk.edu/lapack-forum/viewtopic.php?t=4810
https://github.com/xianyi/OpenBLAS/issues/642
This is a quick bug fix, this only checks the triangular part of the trapezoid,
the rectangular part is not checked. Another commit should follow up soon.
Diffstat (limited to 'LAPACKE/src')
-rw-r--r-- | LAPACKE/src/lapacke_clantr.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_dlantr.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_slantr.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zlantr.c | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/LAPACKE/src/lapacke_clantr.c b/LAPACKE/src/lapacke_clantr.c index 7ca4c098..36ae5972 100644 --- a/LAPACKE/src/lapacke_clantr.c +++ b/LAPACKE/src/lapacke_clantr.c @@ -46,7 +46,7 @@ float LAPACKE_clantr( int matrix_layout, char norm, char uplo, char diag, } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ctr_nancheck( matrix_layout, uplo, diag, MIN(m,n), a, lda ) ) { return -7; } #endif diff --git a/LAPACKE/src/lapacke_dlantr.c b/LAPACKE/src/lapacke_dlantr.c index 2ca59053..7ac947f0 100644 --- a/LAPACKE/src/lapacke_dlantr.c +++ b/LAPACKE/src/lapacke_dlantr.c @@ -46,7 +46,7 @@ double LAPACKE_dlantr( int matrix_layout, char norm, char uplo, char diag, } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { + if( LAPACKE_dtr_nancheck( matrix_layout, uplo, diag, MIN(m,n), a, lda ) ) { return -7; } #endif diff --git a/LAPACKE/src/lapacke_slantr.c b/LAPACKE/src/lapacke_slantr.c index 644ed86d..6952bd93 100644 --- a/LAPACKE/src/lapacke_slantr.c +++ b/LAPACKE/src/lapacke_slantr.c @@ -46,7 +46,7 @@ float LAPACKE_slantr( int matrix_layout, char norm, char uplo, char diag, } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_str_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { + if( LAPACKE_str_nancheck( matrix_layout, uplo, diag, MIN(m,n), a, lda ) ) { return -7; } #endif diff --git a/LAPACKE/src/lapacke_zlantr.c b/LAPACKE/src/lapacke_zlantr.c index 186a1aa6..37b40540 100644 --- a/LAPACKE/src/lapacke_zlantr.c +++ b/LAPACKE/src/lapacke_zlantr.c @@ -46,7 +46,7 @@ double LAPACKE_zlantr( int matrix_layout, char norm, char uplo, char diag, } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ztr_nancheck( matrix_layout, uplo, diag, MIN(m,n), a, lda ) ) { return -7; } #endif |