aboutsummaryrefslogtreecommitdiff
path: root/LAPACKE
diff options
context:
space:
mode:
authorJulie <julie@cs.utk.edu>2016-12-23 13:12:05 -0800
committerJulie <julie@cs.utk.edu>2016-12-23 13:12:30 -0800
commitd6326d788a2548d63eec62a4382841a504d35876 (patch)
tree478c863c9abe387a61a3c813c494d202e14d4bc1 /LAPACKE
parent4229de15d062b2e28fa935af186119ff50afda78 (diff)
Fixing 2stage lapacke
Thank you @haidarazzam
Diffstat (limited to 'LAPACKE')
-rw-r--r--LAPACKE/src/CMakeLists.txt2
-rw-r--r--LAPACKE/src/lapacke_cheevd_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_cheevd_2stage_work.c16
-rw-r--r--LAPACKE/src/lapacke_cheevx_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_cheevx_2stage_work.c18
-rw-r--r--LAPACKE/src/lapacke_chegv_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_chegv_2stage_work.c18
-rw-r--r--LAPACKE/src/lapacke_ssbevd_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_ssbevd_2stage_work.c18
-rw-r--r--LAPACKE/src/lapacke_ssyev_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_ssyev_2stage_work.c16
-rw-r--r--LAPACKE/src/lapacke_ssyevd_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_ssyevd_2stage_work.c16
-rw-r--r--LAPACKE/src/lapacke_ssyevx_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_ssyevx_2stage_work.c18
-rw-r--r--LAPACKE/src/lapacke_ssygv_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_ssygv_2stage_work.c18
-rw-r--r--LAPACKE/src/lapacke_zheevd_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_zheevd_2stage_work.c16
-rw-r--r--LAPACKE/src/lapacke_zheevx_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_zheevx_2stage_work.c18
-rw-r--r--LAPACKE/src/lapacke_zhegv_2stage.c12
-rw-r--r--LAPACKE/src/lapacke_zhegv_2stage_work.c18
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;
}