diff options
author | julie <julielangou@users.noreply.github.com> | 2016-02-23 06:09:01 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2016-02-23 06:09:01 +0000 |
commit | 9a19b59b1e44e8b93ddc998ca450ce75fe80de33 (patch) | |
tree | 765bc12c3af3e402a8ea4b06b31a67f48906623a /LAPACKE/src/lapacke_zheswapr.c | |
parent | d3b48e2af1c55d54c4452893b9a9dbc633b19c38 (diff) |
APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry.g.baksheev@intel.com)
[PATCH 38/42] Fix lapacke_???swapr* - missing parameter lda, and more
- lda should not be missed
- a has leading dimension lda, not n
- a_t has leading dimension lda_t, not n
Diffstat (limited to 'LAPACKE/src/lapacke_zheswapr.c')
-rw-r--r-- | LAPACKE/src/lapacke_zheswapr.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/LAPACKE/src/lapacke_zheswapr.c b/LAPACKE/src/lapacke_zheswapr.c index 93350fbd..28edca6a 100644 --- a/LAPACKE/src/lapacke_zheswapr.c +++ b/LAPACKE/src/lapacke_zheswapr.c @@ -34,8 +34,8 @@ #include "lapacke_utils.h" lapack_int LAPACKE_zheswapr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int i1, - lapack_int i2 ) + lapack_complex_double* a, lapack_int lda, + lapack_int i1, lapack_int i2 ) { if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zheswapr", -1 ); @@ -43,9 +43,9 @@ lapack_int LAPACKE_zheswapr( int matrix_layout, char uplo, lapack_int n, } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, n ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zheswapr_work( matrix_layout, uplo, n, a, i1, i2 ); + return LAPACKE_zheswapr_work( matrix_layout, uplo, n, a, lda, i1, i2 ); } |