diff options
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 ); } |