diff options
23 files changed, 162 insertions, 162 deletions
diff --git a/LAPACKE/src/CMakeLists.txt b/LAPACKE/src/CMakeLists.txt index 2e356d20..1144e977 100644 --- a/LAPACKE/src/CMakeLists.txt +++ b/LAPACKE/src/CMakeLists.txt @@ -194,7 +194,7 @@ lapacke_cheevd_2stage_work.c lapacke_cheevr_2stage.c lapacke_cheevr_2stage_work.c lapacke_cheevx_2stage.c -lapacke_cheevx_work.c +lapacke_cheevx_2stage_work.c lapacke_chegst.c lapacke_chegst_work.c lapacke_chegv.c diff --git a/LAPACKE/src/lapacke_cheevd_2stage.c b/LAPACKE/src/lapacke_cheevd_2stage.c index dea004b9..d26d5d90 100644 --- a/LAPACKE/src/lapacke_cheevd_2stage.c +++ b/LAPACKE/src/lapacke_cheevd_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 cheevd +* Contents: Native high-level C interface to LAPACK function cheevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_cheevd( int matrix_layout, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_cheevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float* w ) { lapack_int info = 0; @@ -47,7 +47,7 @@ lapack_int LAPACKE_cheevd( int matrix_layout, char jobz, char uplo, lapack_int n float rwork_query; lapack_complex_float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_cheevd", -1 ); + LAPACKE_xerbla( "LAPACKE_cheevd_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -57,7 +57,7 @@ lapack_int LAPACKE_cheevd( int matrix_layout, char jobz, char uplo, lapack_int n } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cheevd_work( matrix_layout, jobz, uplo, n, a, lda, w, + info = LAPACKE_cheevd_2stage_work( matrix_layout, jobz, uplo, n, a, lda, w, &work_query, lwork, &rwork_query, lrwork, &iwork_query, liwork ); if( info != 0 ) { @@ -84,7 +84,7 @@ lapack_int LAPACKE_cheevd( int matrix_layout, char jobz, char uplo, lapack_int n goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cheevd_work( matrix_layout, jobz, uplo, n, a, lda, w, work, + info = LAPACKE_cheevd_2stage_work( matrix_layout, jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); @@ -94,7 +94,7 @@ exit_level_1: LAPACKE_free( iwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_cheevd", info ); + LAPACKE_xerbla( "LAPACKE_cheevd_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_cheevd_2stage_work.c b/LAPACKE/src/lapacke_cheevd_2stage_work.c index 81869c56..22334c9d 100644 --- a/LAPACKE/src/lapacke_cheevd_2stage_work.c +++ b/LAPACKE/src/lapacke_cheevd_2stage_work.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 middle-level C interface to LAPACK function cheevd +* Contents: Native middle-level C interface to LAPACK function cheevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo, +lapack_int LAPACKE_cheevd_2stage_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float* w, lapack_complex_float* work, lapack_int lwork, @@ -43,7 +43,7 @@ lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_cheevd( &jobz, &uplo, &n, a, &lda, w, work, &lwork, rwork, + LAPACK_cheevd_2stage( &jobz, &uplo, &n, a, &lda, w, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; @@ -54,12 +54,12 @@ lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo, /* Check leading dimension(s) */ if( lda < n ) { info = -6; - LAPACKE_xerbla( "LAPACKE_cheevd_work", info ); + LAPACKE_xerbla( "LAPACKE_cheevd_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( liwork == -1 || lrwork == -1 || lwork == -1 ) { - LAPACK_cheevd( &jobz, &uplo, &n, a, &lda_t, w, work, &lwork, rwork, + LAPACK_cheevd_2stage( &jobz, &uplo, &n, a, &lda_t, w, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); return (info < 0) ? (info - 1) : info; } @@ -73,7 +73,7 @@ lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo, /* Transpose input matrices */ LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ - LAPACK_cheevd( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, rwork, + LAPACK_cheevd_2stage( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; @@ -84,11 +84,11 @@ lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo, LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_cheevd_work", info ); + LAPACKE_xerbla( "LAPACKE_cheevd_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_cheevd_work", info ); + LAPACKE_xerbla( "LAPACKE_cheevd_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_cheevx_2stage.c b/LAPACKE/src/lapacke_cheevx_2stage.c index 5dbe5292..2d29af02 100644 --- a/LAPACKE/src/lapacke_cheevx_2stage.c +++ b/LAPACKE/src/lapacke_cheevx_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 cheevx +* Contents: Native high-level C interface to LAPACK function cheevx_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_cheevx( int matrix_layout, char jobz, char range, char uplo, +lapack_int LAPACKE_cheevx_2stage( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, @@ -47,7 +47,7 @@ lapack_int LAPACKE_cheevx( int matrix_layout, char jobz, char range, char uplo, lapack_complex_float* work = NULL; lapack_complex_float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_cheevx", -1 ); + LAPACKE_xerbla( "LAPACKE_cheevx_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -81,7 +81,7 @@ lapack_int LAPACKE_cheevx( int matrix_layout, char jobz, char range, char uplo, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_cheevx_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_cheevx_2stage_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, &work_query, lwork, rwork, iwork, ifail ); if( info != 0 ) { @@ -96,7 +96,7 @@ lapack_int LAPACKE_cheevx( int matrix_layout, char jobz, char range, char uplo, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cheevx_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_cheevx_2stage_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, iwork, ifail ); /* Release memory and exit */ @@ -107,7 +107,7 @@ exit_level_1: LAPACKE_free( iwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_cheevx", info ); + LAPACKE_xerbla( "LAPACKE_cheevx_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_cheevx_2stage_work.c b/LAPACKE/src/lapacke_cheevx_2stage_work.c index 87fa0207..b10a0b1b 100644 --- a/LAPACKE/src/lapacke_cheevx_2stage_work.c +++ b/LAPACKE/src/lapacke_cheevx_2stage_work.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 middle-level C interface to LAPACK function cheevx +* Contents: Native middle-level C interface to LAPACK function cheevx_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_cheevx_work( int matrix_layout, char jobz, char range, +lapack_int LAPACKE_cheevx_2stage_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float vl, float vu, lapack_int il, @@ -46,7 +46,7 @@ lapack_int LAPACKE_cheevx_work( int matrix_layout, char jobz, char range, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_cheevx( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, + LAPACK_cheevx_2stage( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, &lwork, rwork, iwork, ifail, &info ); if( info < 0 ) { @@ -63,17 +63,17 @@ lapack_int LAPACKE_cheevx_work( int matrix_layout, char jobz, char range, /* Check leading dimension(s) */ if( lda < n ) { info = -7; - LAPACKE_xerbla( "LAPACKE_cheevx_work", info ); + LAPACKE_xerbla( "LAPACKE_cheevx_2stage_work", info ); return info; } if( ldz < ncols_z ) { info = -16; - LAPACKE_xerbla( "LAPACKE_cheevx_work", info ); + LAPACKE_xerbla( "LAPACKE_cheevx_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_cheevx( &jobz, &range, &uplo, &n, a, &lda_t, &vl, &vu, &il, + LAPACK_cheevx_2stage( &jobz, &range, &uplo, &n, a, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz_t, work, &lwork, rwork, iwork, ifail, &info ); return (info < 0) ? (info - 1) : info; @@ -97,7 +97,7 @@ lapack_int LAPACKE_cheevx_work( int matrix_layout, char jobz, char range, /* Transpose input matrices */ LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ - LAPACK_cheevx( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, + LAPACK_cheevx_2stage( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, &lwork, rwork, iwork, ifail, &info ); if( info < 0 ) { @@ -117,11 +117,11 @@ exit_level_1: LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_cheevx_work", info ); + LAPACKE_xerbla( "LAPACKE_cheevx_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_cheevx_work", info ); + LAPACKE_xerbla( "LAPACKE_cheevx_2stage_work", info ); } return info; } 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; } diff --git a/LAPACKE/src/lapacke_chegv_2stage_work.c b/LAPACKE/src/lapacke_chegv_2stage_work.c index 39c10ad0..9675b8e0 100644 --- a/LAPACKE/src/lapacke_chegv_2stage_work.c +++ b/LAPACKE/src/lapacke_chegv_2stage_work.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 middle-level C interface to LAPACK function chegv +* Contents: Native middle-level C interface to LAPACK function chegv_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_chegv_work( int matrix_layout, lapack_int itype, char jobz, +lapack_int LAPACKE_chegv_2stage_work( 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, @@ -43,7 +43,7 @@ lapack_int LAPACKE_chegv_work( int matrix_layout, lapack_int itype, char jobz, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_chegv( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, + LAPACK_chegv_2stage( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; @@ -56,17 +56,17 @@ lapack_int LAPACKE_chegv_work( int matrix_layout, lapack_int itype, char jobz, /* Check leading dimension(s) */ if( lda < n ) { info = -7; - LAPACKE_xerbla( "LAPACKE_chegv_work", info ); + LAPACKE_xerbla( "LAPACKE_chegv_2stage_work", info ); return info; } if( ldb < n ) { info = -9; - LAPACKE_xerbla( "LAPACKE_chegv_work", info ); + LAPACKE_xerbla( "LAPACKE_chegv_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_chegv( &itype, &jobz, &uplo, &n, a, &lda_t, b, &ldb_t, w, + LAPACK_chegv_2stage( &itype, &jobz, &uplo, &n, a, &lda_t, b, &ldb_t, w, work, &lwork, rwork, &info ); return (info < 0) ? (info - 1) : info; } @@ -87,7 +87,7 @@ lapack_int LAPACKE_chegv_work( int matrix_layout, lapack_int itype, char jobz, LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); LAPACKE_cge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ - LAPACK_chegv( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, + LAPACK_chegv_2stage( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; @@ -101,11 +101,11 @@ exit_level_1: LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_chegv_work", info ); + LAPACKE_xerbla( "LAPACKE_chegv_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_chegv_work", info ); + LAPACKE_xerbla( "LAPACKE_chegv_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssbevd_2stage.c b/LAPACKE/src/lapacke_ssbevd_2stage.c index 5b5d3a0d..9a26d48c 100644 --- a/LAPACKE/src/lapacke_ssbevd_2stage.c +++ b/LAPACKE/src/lapacke_ssbevd_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 ssbevd +* Contents: Native high-level C interface to LAPACK function ssbevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* w, float* z, lapack_int ldz ) { @@ -45,7 +45,7 @@ lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n lapack_int iwork_query; float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_ssbevd", -1 ); + LAPACKE_xerbla( "LAPACKE_ssbevd_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -55,7 +55,7 @@ lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssbevd_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_ssbevd_2stage_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssbevd_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_ssbevd_2stage_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); @@ -82,7 +82,7 @@ exit_level_1: LAPACKE_free( iwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssbevd", info ); + LAPACKE_xerbla( "LAPACKE_ssbevd_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssbevd_2stage_work.c b/LAPACKE/src/lapacke_ssbevd_2stage_work.c index 1a73ce50..7fd6a99e 100644 --- a/LAPACKE/src/lapacke_ssbevd_2stage_work.c +++ b/LAPACKE/src/lapacke_ssbevd_2stage_work.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 middle-level C interface to LAPACK function ssbevd +* Contents: Native middle-level C interface to LAPACK function ssbevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbevd_work( int matrix_layout, char jobz, char uplo, +lapack_int LAPACKE_ssbevd_2stage_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* w, float* z, lapack_int ldz, float* work, lapack_int lwork, @@ -42,7 +42,7 @@ lapack_int LAPACKE_ssbevd_work( int matrix_layout, char jobz, char uplo, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_ssbevd( &jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz, work, + LAPACK_ssbevd_2stage( &jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; @@ -55,17 +55,17 @@ lapack_int LAPACKE_ssbevd_work( int matrix_layout, char jobz, char uplo, /* Check leading dimension(s) */ if( ldab < n ) { info = -7; - LAPACKE_xerbla( "LAPACKE_ssbevd_work", info ); + LAPACKE_xerbla( "LAPACKE_ssbevd_2stage_work", info ); return info; } if( ldz < n ) { info = -10; - LAPACKE_xerbla( "LAPACKE_ssbevd_work", info ); + LAPACKE_xerbla( "LAPACKE_ssbevd_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( liwork == -1 || lwork == -1 ) { - LAPACK_ssbevd( &jobz, &uplo, &n, &kd, ab, &ldab_t, w, z, &ldz_t, + LAPACK_ssbevd_2stage( &jobz, &uplo, &n, &kd, ab, &ldab_t, w, z, &ldz_t, work, &lwork, iwork, &liwork, &info ); return (info < 0) ? (info - 1) : info; } @@ -85,7 +85,7 @@ lapack_int LAPACKE_ssbevd_work( int matrix_layout, char jobz, char uplo, /* Transpose input matrices */ LAPACKE_ssb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ - LAPACK_ssbevd( &jobz, &uplo, &n, &kd, ab_t, &ldab_t, w, z_t, &ldz_t, + LAPACK_ssbevd_2stage( &jobz, &uplo, &n, &kd, ab_t, &ldab_t, w, z_t, &ldz_t, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; @@ -104,11 +104,11 @@ exit_level_1: LAPACKE_free( ab_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssbevd_work", info ); + LAPACKE_xerbla( "LAPACKE_ssbevd_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_ssbevd_work", info ); + LAPACKE_xerbla( "LAPACKE_ssbevd_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssyev_2stage.c b/LAPACKE/src/lapacke_ssyev_2stage.c index 9d240e8b..597c3736 100644 --- a/LAPACKE/src/lapacke_ssyev_2stage.c +++ b/LAPACKE/src/lapacke_ssyev_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 ssyev +* Contents: Native high-level C interface to LAPACK function ssyev_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyev( int matrix_layout, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssyev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* w ) { lapack_int info = 0; @@ -41,7 +41,7 @@ lapack_int LAPACKE_ssyev( int matrix_layout, char jobz, char uplo, lapack_int n, float* work = NULL; float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_ssyev", -1 ); + LAPACKE_xerbla( "LAPACKE_ssyev_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -51,7 +51,7 @@ lapack_int LAPACKE_ssyev( int matrix_layout, char jobz, char uplo, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssyev_work( matrix_layout, jobz, uplo, n, a, lda, w, + info = LAPACKE_ssyev_2stage_work( matrix_layout, jobz, uplo, n, a, lda, w, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,13 +64,13 @@ lapack_int LAPACKE_ssyev( int matrix_layout, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssyev_work( matrix_layout, jobz, uplo, n, a, lda, w, work, + info = LAPACKE_ssyev_2stage_work( matrix_layout, jobz, uplo, n, a, lda, w, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssyev", info ); + LAPACKE_xerbla( "LAPACKE_ssyev_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssyev_2stage_work.c b/LAPACKE/src/lapacke_ssyev_2stage_work.c index fb8c8971..bd73b9e9 100644 --- a/LAPACKE/src/lapacke_ssyev_2stage_work.c +++ b/LAPACKE/src/lapacke_ssyev_2stage_work.c @@ -26,21 +26,21 @@ ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ***************************************************************************** -* Contents: Native middle-level C interface to LAPACK function ssyev +* Contents: Native middle-level C interface to LAPACK function ssyev_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyev_work( int matrix_layout, char jobz, char uplo, +lapack_int LAPACKE_ssyev_2stage_work( int matrix_layout, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* w, float* work, lapack_int lwork ) { lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_ssyev( &jobz, &uplo, &n, a, &lda, w, work, &lwork, &info ); + LAPACK_ssyev_2stage( &jobz, &uplo, &n, a, &lda, w, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } @@ -50,12 +50,12 @@ lapack_int LAPACKE_ssyev_work( int matrix_layout, char jobz, char uplo, /* Check leading dimension(s) */ if( lda < n ) { info = -6; - LAPACKE_xerbla( "LAPACKE_ssyev_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyev_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_ssyev( &jobz, &uplo, &n, a, &lda_t, w, work, &lwork, &info ); + LAPACK_ssyev_2stage( &jobz, &uplo, &n, a, &lda_t, w, work, &lwork, &info ); return (info < 0) ? (info - 1) : info; } /* Allocate memory for temporary array(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_ssyev_work( int matrix_layout, char jobz, char uplo, /* Transpose input matrices */ LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ - LAPACK_ssyev( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, &info ); + LAPACK_ssyev_2stage( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } @@ -77,11 +77,11 @@ lapack_int LAPACKE_ssyev_work( int matrix_layout, char jobz, char uplo, LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssyev_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyev_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_ssyev_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyev_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssyevd_2stage.c b/LAPACKE/src/lapacke_ssyevd_2stage.c index b668e5f2..c2f17f89 100644 --- a/LAPACKE/src/lapacke_ssyevd_2stage.c +++ b/LAPACKE/src/lapacke_ssyevd_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 ssyevd +* Contents: Native high-level C interface to LAPACK function ssyevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevd( int matrix_layout, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssyevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* w ) { lapack_int info = 0; @@ -44,7 +44,7 @@ lapack_int LAPACKE_ssyevd( int matrix_layout, char jobz, char uplo, lapack_int n lapack_int iwork_query; float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_ssyevd", -1 ); + LAPACKE_xerbla( "LAPACKE_ssyevd_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -54,7 +54,7 @@ lapack_int LAPACKE_ssyevd( int matrix_layout, char jobz, char uplo, lapack_int n } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssyevd_work( matrix_layout, jobz, uplo, n, a, lda, w, + info = LAPACKE_ssyevd_2stage_work( matrix_layout, jobz, uplo, n, a, lda, w, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -73,7 +73,7 @@ lapack_int LAPACKE_ssyevd( int matrix_layout, char jobz, char uplo, lapack_int n goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssyevd_work( matrix_layout, jobz, uplo, n, a, lda, w, work, + info = LAPACKE_ssyevd_2stage_work( matrix_layout, jobz, uplo, n, a, lda, w, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); @@ -81,7 +81,7 @@ exit_level_1: LAPACKE_free( iwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssyevd", info ); + LAPACKE_xerbla( "LAPACKE_ssyevd_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssyevd_2stage_work.c b/LAPACKE/src/lapacke_ssyevd_2stage_work.c index 7b2e19ad..f601597a 100644 --- a/LAPACKE/src/lapacke_ssyevd_2stage_work.c +++ b/LAPACKE/src/lapacke_ssyevd_2stage_work.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 middle-level C interface to LAPACK function ssyevd +* Contents: Native middle-level C interface to LAPACK function ssyevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevd_work( int matrix_layout, char jobz, char uplo, +lapack_int LAPACKE_ssyevd_2stage_work( int matrix_layout, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* w, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) @@ -41,7 +41,7 @@ lapack_int LAPACKE_ssyevd_work( int matrix_layout, char jobz, char uplo, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_ssyevd( &jobz, &uplo, &n, a, &lda, w, work, &lwork, iwork, + LAPACK_ssyevd_2stage( &jobz, &uplo, &n, a, &lda, w, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; @@ -52,12 +52,12 @@ lapack_int LAPACKE_ssyevd_work( int matrix_layout, char jobz, char uplo, /* Check leading dimension(s) */ if( lda < n ) { info = -6; - LAPACKE_xerbla( "LAPACKE_ssyevd_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyevd_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( liwork == -1 || lwork == -1 ) { - LAPACK_ssyevd( &jobz, &uplo, &n, a, &lda_t, w, work, &lwork, iwork, + LAPACK_ssyevd_2stage( &jobz, &uplo, &n, a, &lda_t, w, work, &lwork, iwork, &liwork, &info ); return (info < 0) ? (info - 1) : info; } @@ -70,7 +70,7 @@ lapack_int LAPACKE_ssyevd_work( int matrix_layout, char jobz, char uplo, /* Transpose input matrices */ LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ - LAPACK_ssyevd( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, iwork, + LAPACK_ssyevd_2stage( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; @@ -81,11 +81,11 @@ lapack_int LAPACKE_ssyevd_work( int matrix_layout, char jobz, char uplo, LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssyevd_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyevd_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_ssyevd_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyevd_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssyevx_2stage.c b/LAPACKE/src/lapacke_ssyevx_2stage.c index 9924669a..79091d12 100644 --- a/LAPACKE/src/lapacke_ssyevx_2stage.c +++ b/LAPACKE/src/lapacke_ssyevx_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 ssyevx +* Contents: Native high-level C interface to LAPACK function ssyevx_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevx( int matrix_layout, char jobz, char range, char uplo, +lapack_int LAPACKE_ssyevx_2stage( int matrix_layout, char jobz, char range, char uplo, lapack_int n, float* a, lapack_int lda, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, @@ -45,7 +45,7 @@ lapack_int LAPACKE_ssyevx( int matrix_layout, char jobz, char range, char uplo, float* work = NULL; float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_ssyevx", -1 ); + LAPACKE_xerbla( "LAPACKE_ssyevx_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -74,7 +74,7 @@ lapack_int LAPACKE_ssyevx( int matrix_layout, char jobz, char range, char uplo, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_ssyevx_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_ssyevx_2stage_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, &work_query, lwork, iwork, ifail ); if( info != 0 ) { @@ -88,7 +88,7 @@ lapack_int LAPACKE_ssyevx( int matrix_layout, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssyevx_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_ssyevx_2stage_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, iwork, ifail ); /* Release memory and exit */ @@ -97,7 +97,7 @@ exit_level_1: LAPACKE_free( iwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssyevx", info ); + LAPACKE_xerbla( "LAPACKE_ssyevx_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssyevx_2stage_work.c b/LAPACKE/src/lapacke_ssyevx_2stage_work.c index 9ffd925b..f0f1558f 100644 --- a/LAPACKE/src/lapacke_ssyevx_2stage_work.c +++ b/LAPACKE/src/lapacke_ssyevx_2stage_work.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 middle-level C interface to LAPACK function ssyevx +* Contents: Native middle-level C interface to LAPACK function ssyevx_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevx_work( int matrix_layout, char jobz, char range, +lapack_int LAPACKE_ssyevx_2stage_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, float* a, lapack_int lda, float vl, float vu, lapack_int il, lapack_int iu, float abstol, @@ -44,7 +44,7 @@ lapack_int LAPACKE_ssyevx_work( int matrix_layout, char jobz, char range, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_ssyevx( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, + LAPACK_ssyevx_2stage( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, &lwork, iwork, ifail, &info ); if( info < 0 ) { @@ -61,17 +61,17 @@ lapack_int LAPACKE_ssyevx_work( int matrix_layout, char jobz, char range, /* Check leading dimension(s) */ if( lda < n ) { info = -7; - LAPACKE_xerbla( "LAPACKE_ssyevx_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyevx_2stage_work", info ); return info; } if( ldz < ncols_z ) { info = -16; - LAPACKE_xerbla( "LAPACKE_ssyevx_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyevx_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_ssyevx( &jobz, &range, &uplo, &n, a, &lda_t, &vl, &vu, &il, + LAPACK_ssyevx_2stage( &jobz, &range, &uplo, &n, a, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz_t, work, &lwork, iwork, ifail, &info ); return (info < 0) ? (info - 1) : info; @@ -93,7 +93,7 @@ lapack_int LAPACKE_ssyevx_work( int matrix_layout, char jobz, char range, /* Transpose input matrices */ LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ - LAPACK_ssyevx( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, + LAPACK_ssyevx_2stage( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, &lwork, iwork, ifail, &info ); if( info < 0 ) { @@ -113,11 +113,11 @@ exit_level_1: LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssyevx_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyevx_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_ssyevx_work", info ); + LAPACKE_xerbla( "LAPACKE_ssyevx_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssygv_2stage.c b/LAPACKE/src/lapacke_ssygv_2stage.c index 13ca1ec6..22e5209f 100644 --- a/LAPACKE/src/lapacke_ssygv_2stage.c +++ b/LAPACKE/src/lapacke_ssygv_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 ssygv +* Contents: Native high-level C interface to LAPACK function ssygv_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygv( int matrix_layout, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygv_2stage( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* w ) { @@ -42,7 +42,7 @@ lapack_int LAPACKE_ssygv( int matrix_layout, lapack_int itype, char jobz, float* work = NULL; float work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_ssygv", -1 ); + LAPACKE_xerbla( "LAPACKE_ssygv_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -55,7 +55,7 @@ lapack_int LAPACKE_ssygv( int matrix_layout, lapack_int itype, char jobz, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssygv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_ssygv_2stage_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,13 +68,13 @@ lapack_int LAPACKE_ssygv( int matrix_layout, lapack_int itype, char jobz, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssygv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_ssygv_2stage_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssygv", info ); + LAPACKE_xerbla( "LAPACKE_ssygv_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_ssygv_2stage_work.c b/LAPACKE/src/lapacke_ssygv_2stage_work.c index 6f9f4bbf..473a1a11 100644 --- a/LAPACKE/src/lapacke_ssygv_2stage_work.c +++ b/LAPACKE/src/lapacke_ssygv_2stage_work.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 middle-level C interface to LAPACK function ssygv +* Contents: Native middle-level C interface to LAPACK function ssygv_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygv_work( int matrix_layout, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygv_2stage_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* w, float* work, lapack_int lwork ) @@ -41,7 +41,7 @@ lapack_int LAPACKE_ssygv_work( int matrix_layout, lapack_int itype, char jobz, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_ssygv( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, + LAPACK_ssygv_2stage( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, &lwork, &info ); if( info < 0 ) { info = info - 1; @@ -54,17 +54,17 @@ lapack_int LAPACKE_ssygv_work( int matrix_layout, lapack_int itype, char jobz, /* Check leading dimension(s) */ if( lda < n ) { info = -7; - LAPACKE_xerbla( "LAPACKE_ssygv_work", info ); + LAPACKE_xerbla( "LAPACKE_ssygv_2stage_work", info ); return info; } if( ldb < n ) { info = -9; - LAPACKE_xerbla( "LAPACKE_ssygv_work", info ); + LAPACKE_xerbla( "LAPACKE_ssygv_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_ssygv( &itype, &jobz, &uplo, &n, a, &lda_t, b, &ldb_t, w, + LAPACK_ssygv_2stage( &itype, &jobz, &uplo, &n, a, &lda_t, b, &ldb_t, w, work, &lwork, &info ); return (info < 0) ? (info - 1) : info; } @@ -83,7 +83,7 @@ lapack_int LAPACKE_ssygv_work( int matrix_layout, lapack_int itype, char jobz, LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); LAPACKE_sge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ - LAPACK_ssygv( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, + LAPACK_ssygv_2stage( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, work, &lwork, &info ); if( info < 0 ) { info = info - 1; @@ -97,11 +97,11 @@ exit_level_1: LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssygv_work", info ); + LAPACKE_xerbla( "LAPACKE_ssygv_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_ssygv_work", info ); + LAPACKE_xerbla( "LAPACKE_ssygv_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_zheevd_2stage.c b/LAPACKE/src/lapacke_zheevd_2stage.c index 61e2d258..537e4a75 100644 --- a/LAPACKE/src/lapacke_zheevd_2stage.c +++ b/LAPACKE/src/lapacke_zheevd_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 zheevd +* Contents: Native high-level C interface to LAPACK function zheevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_zheevd( int matrix_layout, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zheevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double* w ) { lapack_int info = 0; @@ -47,7 +47,7 @@ lapack_int LAPACKE_zheevd( int matrix_layout, char jobz, char uplo, lapack_int n double rwork_query; lapack_complex_double work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_zheevd", -1 ); + LAPACKE_xerbla( "LAPACKE_zheevd_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -57,7 +57,7 @@ lapack_int LAPACKE_zheevd( int matrix_layout, char jobz, char uplo, lapack_int n } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zheevd_work( matrix_layout, jobz, uplo, n, a, lda, w, + info = LAPACKE_zheevd_2stage_work( matrix_layout, jobz, uplo, n, a, lda, w, &work_query, lwork, &rwork_query, lrwork, &iwork_query, liwork ); if( info != 0 ) { @@ -84,7 +84,7 @@ lapack_int LAPACKE_zheevd( int matrix_layout, char jobz, char uplo, lapack_int n goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zheevd_work( matrix_layout, jobz, uplo, n, a, lda, w, work, + info = LAPACKE_zheevd_2stage_work( matrix_layout, jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); @@ -94,7 +94,7 @@ exit_level_1: LAPACKE_free( iwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zheevd", info ); + LAPACKE_xerbla( "LAPACKE_zheevd_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_zheevd_2stage_work.c b/LAPACKE/src/lapacke_zheevd_2stage_work.c index 9672e6a2..ab2ff96a 100644 --- a/LAPACKE/src/lapacke_zheevd_2stage_work.c +++ b/LAPACKE/src/lapacke_zheevd_2stage_work.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 middle-level C interface to LAPACK function zheevd +* Contents: Native middle-level C interface to LAPACK function zheevd_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_zheevd_work( int matrix_layout, char jobz, char uplo, +lapack_int LAPACKE_zheevd_2stage_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double* w, lapack_complex_double* work, lapack_int lwork, @@ -43,7 +43,7 @@ lapack_int LAPACKE_zheevd_work( int matrix_layout, char jobz, char uplo, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_zheevd( &jobz, &uplo, &n, a, &lda, w, work, &lwork, rwork, + LAPACK_zheevd_2stage( &jobz, &uplo, &n, a, &lda, w, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; @@ -54,12 +54,12 @@ lapack_int LAPACKE_zheevd_work( int matrix_layout, char jobz, char uplo, /* Check leading dimension(s) */ if( lda < n ) { info = -6; - LAPACKE_xerbla( "LAPACKE_zheevd_work", info ); + LAPACKE_xerbla( "LAPACKE_zheevd_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( liwork == -1 || lrwork == -1 || lwork == -1 ) { - LAPACK_zheevd( &jobz, &uplo, &n, a, &lda_t, w, work, &lwork, rwork, + LAPACK_zheevd_2stage( &jobz, &uplo, &n, a, &lda_t, w, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); return (info < 0) ? (info - 1) : info; } @@ -73,7 +73,7 @@ lapack_int LAPACKE_zheevd_work( int matrix_layout, char jobz, char uplo, /* Transpose input matrices */ LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ - LAPACK_zheevd( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, rwork, + LAPACK_zheevd_2stage( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; @@ -84,11 +84,11 @@ lapack_int LAPACKE_zheevd_work( int matrix_layout, char jobz, char uplo, LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zheevd_work", info ); + LAPACKE_xerbla( "LAPACKE_zheevd_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_zheevd_work", info ); + LAPACKE_xerbla( "LAPACKE_zheevd_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_zheevx_2stage.c b/LAPACKE/src/lapacke_zheevx_2stage.c index 5fa4f328..2f6033e7 100644 --- a/LAPACKE/src/lapacke_zheevx_2stage.c +++ b/LAPACKE/src/lapacke_zheevx_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 zheevx +* Contents: Native high-level C interface to LAPACK function zheevx_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_zheevx( int matrix_layout, char jobz, char range, char uplo, +lapack_int LAPACKE_zheevx_2stage( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zheevx( int matrix_layout, char jobz, char range, char uplo, lapack_complex_double* work = NULL; lapack_complex_double work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_zheevx", -1 ); + LAPACKE_xerbla( "LAPACKE_zheevx_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -81,7 +81,7 @@ lapack_int LAPACKE_zheevx( int matrix_layout, char jobz, char range, char uplo, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_zheevx_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_zheevx_2stage_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, &work_query, lwork, rwork, iwork, ifail ); if( info != 0 ) { @@ -96,7 +96,7 @@ lapack_int LAPACKE_zheevx( int matrix_layout, char jobz, char range, char uplo, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zheevx_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_zheevx_2stage_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, iwork, ifail ); /* Release memory and exit */ @@ -107,7 +107,7 @@ exit_level_1: LAPACKE_free( iwork ); exit_level_0: if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zheevx", info ); + LAPACKE_xerbla( "LAPACKE_zheevx_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_zheevx_2stage_work.c b/LAPACKE/src/lapacke_zheevx_2stage_work.c index b7ac0ba5..14d3a42d 100644 --- a/LAPACKE/src/lapacke_zheevx_2stage_work.c +++ b/LAPACKE/src/lapacke_zheevx_2stage_work.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 middle-level C interface to LAPACK function zheevx +* Contents: Native middle-level C interface to LAPACK function zheevx_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_zheevx_work( int matrix_layout, char jobz, char range, +lapack_int LAPACKE_zheevx_2stage_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double vl, double vu, lapack_int il, @@ -46,7 +46,7 @@ lapack_int LAPACKE_zheevx_work( int matrix_layout, char jobz, char range, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_zheevx( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, + LAPACK_zheevx_2stage( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, &lwork, rwork, iwork, ifail, &info ); if( info < 0 ) { @@ -63,17 +63,17 @@ lapack_int LAPACKE_zheevx_work( int matrix_layout, char jobz, char range, /* Check leading dimension(s) */ if( lda < n ) { info = -7; - LAPACKE_xerbla( "LAPACKE_zheevx_work", info ); + LAPACKE_xerbla( "LAPACKE_zheevx_2stage_work", info ); return info; } if( ldz < ncols_z ) { info = -16; - LAPACKE_xerbla( "LAPACKE_zheevx_work", info ); + LAPACKE_xerbla( "LAPACKE_zheevx_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_zheevx( &jobz, &range, &uplo, &n, a, &lda_t, &vl, &vu, &il, + LAPACK_zheevx_2stage( &jobz, &range, &uplo, &n, a, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz_t, work, &lwork, rwork, iwork, ifail, &info ); return (info < 0) ? (info - 1) : info; @@ -97,7 +97,7 @@ lapack_int LAPACKE_zheevx_work( int matrix_layout, char jobz, char range, /* Transpose input matrices */ LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ - LAPACK_zheevx( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, + LAPACK_zheevx_2stage( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, &lwork, rwork, iwork, ifail, &info ); if( info < 0 ) { @@ -117,11 +117,11 @@ exit_level_1: LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zheevx_work", info ); + LAPACKE_xerbla( "LAPACKE_zheevx_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_zheevx_work", info ); + LAPACKE_xerbla( "LAPACKE_zheevx_2stage_work", info ); } return info; } diff --git a/LAPACKE/src/lapacke_zhegv_2stage.c b/LAPACKE/src/lapacke_zhegv_2stage.c index 49386ad7..bff7faa7 100644 --- a/LAPACKE/src/lapacke_zhegv_2stage.c +++ b/LAPACKE/src/lapacke_zhegv_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 zhegv +* Contents: Native high-level C interface to LAPACK function zhegv_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_zhegv( int matrix_layout, lapack_int itype, char jobz, +lapack_int LAPACKE_zhegv_2stage( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* w ) @@ -44,7 +44,7 @@ lapack_int LAPACKE_zhegv( int matrix_layout, lapack_int itype, char jobz, lapack_complex_double* work = NULL; lapack_complex_double work_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_zhegv", -1 ); + LAPACKE_xerbla( "LAPACKE_zhegv_2stage", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK @@ -63,7 +63,7 @@ lapack_int LAPACKE_zhegv( int matrix_layout, lapack_int itype, char jobz, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zhegv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_zhegv_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_zhegv( int matrix_layout, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhegv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_zhegv_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_zhegv", info ); + LAPACKE_xerbla( "LAPACKE_zhegv_2stage", info ); } return info; } diff --git a/LAPACKE/src/lapacke_zhegv_2stage_work.c b/LAPACKE/src/lapacke_zhegv_2stage_work.c index cb50d52c..f6254e6e 100644 --- a/LAPACKE/src/lapacke_zhegv_2stage_work.c +++ b/LAPACKE/src/lapacke_zhegv_2stage_work.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 middle-level C interface to LAPACK function zhegv +* Contents: Native middle-level C interface to LAPACK function zhegv_2stage * Author: Intel Corporation * Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" -lapack_int LAPACKE_zhegv_work( int matrix_layout, lapack_int itype, char jobz, +lapack_int LAPACKE_zhegv_2stage_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_zhegv_work( int matrix_layout, lapack_int itype, char jobz, lapack_int info = 0; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_zhegv( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, + LAPACK_zhegv_2stage( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; @@ -56,17 +56,17 @@ lapack_int LAPACKE_zhegv_work( int matrix_layout, lapack_int itype, char jobz, /* Check leading dimension(s) */ if( lda < n ) { info = -7; - LAPACKE_xerbla( "LAPACKE_zhegv_work", info ); + LAPACKE_xerbla( "LAPACKE_zhegv_2stage_work", info ); return info; } if( ldb < n ) { info = -9; - LAPACKE_xerbla( "LAPACKE_zhegv_work", info ); + LAPACKE_xerbla( "LAPACKE_zhegv_2stage_work", info ); return info; } /* Query optimal working array(s) size if requested */ if( lwork == -1 ) { - LAPACK_zhegv( &itype, &jobz, &uplo, &n, a, &lda_t, b, &ldb_t, w, + LAPACK_zhegv_2stage( &itype, &jobz, &uplo, &n, a, &lda_t, b, &ldb_t, w, work, &lwork, rwork, &info ); return (info < 0) ? (info - 1) : info; } @@ -87,7 +87,7 @@ lapack_int LAPACKE_zhegv_work( int matrix_layout, lapack_int itype, char jobz, LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); LAPACKE_zge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ - LAPACK_zhegv( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, + LAPACK_zhegv_2stage( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; @@ -101,11 +101,11 @@ exit_level_1: LAPACKE_free( a_t ); exit_level_0: if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zhegv_work", info ); + LAPACKE_xerbla( "LAPACKE_zhegv_2stage_work", info ); } } else { info = -1; - LAPACKE_xerbla( "LAPACKE_zhegv_work", info ); + LAPACKE_xerbla( "LAPACKE_zhegv_2stage_work", info ); } return info; } |