diff options
Diffstat (limited to 'LAPACKE')
| -rw-r--r-- | LAPACKE/src/lapacke_chetri2x.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_zhetri2x.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/LAPACKE/src/lapacke_chetri2x.c b/LAPACKE/src/lapacke_chetri2x.c index 1d97571b..550a210f 100644 --- a/LAPACKE/src/lapacke_chetri2x.c +++ b/LAPACKE/src/lapacke_chetri2x.c @@ -45,7 +45,7 @@ lapack_int LAPACKE_chetri2x( int matrix_layout, char uplo, lapack_int n, } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, lda, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } #endif diff --git a/LAPACKE/src/lapacke_zhetri2x.c b/LAPACKE/src/lapacke_zhetri2x.c index a2835dc3..55b005e3 100644 --- a/LAPACKE/src/lapacke_zhetri2x.c +++ b/LAPACKE/src/lapacke_zhetri2x.c @@ -45,7 +45,7 @@ lapack_int LAPACKE_zhetri2x( int matrix_layout, char uplo, lapack_int n, } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, lda, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } #endif |