diff options
| author | Julie <julie@cs.utk.edu> | 2016-12-23 13:12:05 -0800 |
|---|---|---|
| committer | Julie <julie@cs.utk.edu> | 2016-12-23 13:12:30 -0800 |
| commit | d6326d788a2548d63eec62a4382841a504d35876 (patch) | |
| tree | 478c863c9abe387a61a3c813c494d202e14d4bc1 /LAPACKE/src/lapacke_chegv_2stage.c | |
| parent | 4229de15d062b2e28fa935af186119ff50afda78 (diff) | |
Fixing 2stage lapacke
Thank you @haidarazzam
Diffstat (limited to 'LAPACKE/src/lapacke_chegv_2stage.c')
| -rw-r--r-- | LAPACKE/src/lapacke_chegv_2stage.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/LAPACKE/src/lapacke_chegv_2stage.c b/LAPACKE/src/lapacke_chegv_2stage.c index 6c8fd2c1..ad835cf5 100644 --- a/LAPACKE/src/lapacke_chegv_2stage.c +++ b/LAPACKE/src/lapacke_chegv_2stage.c @@ -26,14 +26,14 @@ ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ***************************************************************************** -* Contents: Native high-level C interface to LAPACK function chegv +* Contents: Native high-level C interface to LAPACK function chegv_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_chegv( int matrix_layout, lapack_int itype, char jobz, +lapack_int LAPACKE_chegv_2stage( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* w ) @@ -44,7 +44,7 @@ lapack_int LAPACKE_chegv( int matrix_layout, lapack_int itype, char jobz, lapack_complex_float* work = NULL; lapack_complex_float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_chegv", -1 ); + LAPACKE_xerbla( "LAPACKE_chegv_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -63,7 +63,7 @@ lapack_int LAPACKE_chegv( int matrix_layout, lapack_int itype, char jobz, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_chegv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_chegv_2stage_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -77,7 +77,7 @@ lapack_int LAPACKE_chegv( int matrix_layout, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chegv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_chegv_2stage_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); @@ -85,7 +85,7 @@ exit_level_1: LAPACKE_free( rwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_chegv", info ); + LAPACKE_xerbla( "LAPACKE_chegv_2stage", info ); } return info; } |