diff options
Diffstat (limited to 'lapacke/src/lapacke_zlansy.c')
| -rw-r--r-- | lapacke/src/lapacke_zlansy.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lapacke/src/lapacke_zlansy.c b/lapacke/src/lapacke_zlansy.c index 89143784..6935933f 100644 --- a/lapacke/src/lapacke_zlansy.c +++ b/lapacke/src/lapacke_zlansy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -double LAPACKE_zlansy( int matrix_order, char norm, char uplo, lapack_int n, +double LAPACKE_zlansy( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; double res = 0.; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlansy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } #endif @@ -59,7 +59,7 @@ double LAPACKE_zlansy( int matrix_order, char norm, char uplo, lapack_int n, } } /* Call middle-level interface */ - res = LAPACKE_zlansy_work( matrix_order, norm, uplo, n, a, lda, work ); + res = LAPACKE_zlansy_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || LAPACKE_lsame( norm, '0' ) ) { |