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_dsyswapr.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_dsyswapr.c')
-rw-r--r-- | LAPACKE/src/lapacke_dsyswapr.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/LAPACKE/src/lapacke_dsyswapr.c b/LAPACKE/src/lapacke_dsyswapr.c index 728ef090..f8eada25 100644 --- a/LAPACKE/src/lapacke_dsyswapr.c +++ b/LAPACKE/src/lapacke_dsyswapr.c @@ -34,7 +34,7 @@ #include "lapacke_utils.h" lapack_int LAPACKE_dsyswapr( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int i1, lapack_int i2 ) + 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_dsyswapr", -1 ); @@ -42,9 +42,9 @@ lapack_int LAPACKE_dsyswapr( int matrix_layout, char uplo, lapack_int n, } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, n ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_dsyswapr_work( matrix_layout, uplo, n, a, i1, i2 ); + return LAPACKE_dsyswapr_work( matrix_layout, uplo, n, a, lda, i1, i2 ); } |