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