diff options
Diffstat (limited to 'lapacke/src/lapacke_ssygvx.c')
| -rw-r--r-- | lapacke/src/lapacke_ssygvx.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lapacke/src/lapacke_ssygvx.c b/lapacke/src/lapacke_ssygvx.c index 8c9df2a7..1ad39fc7 100644 --- a/lapacke/src/lapacke_ssygvx.c +++ b/lapacke/src/lapacke_ssygvx.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,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float vl, float vu, lapack_int il, lapack_int iu, float abstol, @@ -45,19 +45,19 @@ lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork = NULL; float* work = NULL; float work_query; - 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_ssygvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &abstol, 1 ) ) { return -15; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } if( LAPACKE_lsame( range, 'v' ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_ssygvx_work( matrix_order, itype, jobz, range, uplo, n, a, + info = LAPACKE_ssygvx_work( matrix_layout, itype, jobz, range, uplo, n, a, lda, b, ldb, vl, vu, il, iu, abstol, m, w, z, ldz, &work_query, lwork, iwork, ifail ); if( info != 0 ) { @@ -92,7 +92,7 @@ lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssygvx_work( matrix_order, itype, jobz, range, uplo, n, a, + info = LAPACKE_ssygvx_work( matrix_layout, itype, jobz, range, uplo, n, a, lda, b, ldb, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, iwork, ifail ); /* Release memory and exit */ |