diff options
Diffstat (limited to 'lapacke/src/lapacke_zhpgv_work.c')
| -rw-r--r-- | lapacke/src/lapacke_zhpgv_work.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lapacke/src/lapacke_zhpgv_work.c b/lapacke/src/lapacke_zhpgv_work.c index 46c0d97d..bb2fa534 100644 --- a/lapacke/src/lapacke_zhpgv_work.c +++ b/lapacke/src/lapacke_zhpgv_work.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_zhpgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zhpgv_work( int matrix_order, lapack_int itype, char jobz, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpgv( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; lapack_complex_double* ap_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_zhpgv_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpgv( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, rwork, &info ); |