diff --git a/LAPACKE/include/lapack.h b/LAPACKE/include/lapack.h index b4299bed4a..ea20e8cc3d 100644 --- a/LAPACKE/include/lapack.h +++ b/LAPACKE/include/lapack.h @@ -4819,7 +4819,7 @@ void LAPACK_chegst( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, + const lapack_complex_float* B, lapack_int const* ldb, lapack_int* info ); #define LAPACK_zhegst LAPACK_GLOBAL(zhegst,ZHEGST) @@ -4827,7 +4827,7 @@ void LAPACK_zhegst( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, + const lapack_complex_double* B, lapack_int const* ldb, lapack_int* info ); #define LAPACK_chegv LAPACK_GLOBAL(chegv,CHEGV) @@ -11625,7 +11625,7 @@ void LAPACK_zsytrs( void LAPACK_csytrs2( char const* uplo, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, + const lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int* info ); @@ -11634,7 +11634,7 @@ void LAPACK_csytrs2( void LAPACK_dsytrs2( char const* uplo, lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, lapack_int const* ipiv, + const double* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int* info ); @@ -11643,7 +11643,7 @@ void LAPACK_dsytrs2( void LAPACK_ssytrs2( char const* uplo, lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, lapack_int const* ipiv, + const float* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int* info ); @@ -11652,7 +11652,7 @@ void LAPACK_ssytrs2( void LAPACK_zsytrs2( char const* uplo, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, + const lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int* info ); diff --git a/LAPACKE/include/lapacke.h b/LAPACKE/include/lapacke.h index b0fbcc235d..f6fbfcc33b 100644 --- a/LAPACKE/include/lapacke.h +++ b/LAPACKE/include/lapacke.h @@ -1866,11 +1866,11 @@ lapack_int LAPACKE_zheevx( int matrix_layout, char jobz, char range, char uplo, lapack_int LAPACKE_chegst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, + lapack_int lda, const lapack_complex_float* b, lapack_int ldb ); lapack_int LAPACKE_zhegst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, + lapack_int lda, const lapack_complex_double* b, lapack_int ldb ); lapack_int LAPACKE_chegv( int matrix_layout, lapack_int itype, char jobz, @@ -6949,11 +6949,11 @@ lapack_int LAPACKE_zheevx_work( int matrix_layout, char jobz, char range, lapack_int LAPACKE_chegst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, + lapack_int lda, const lapack_complex_float* b, lapack_int ldb ); lapack_int LAPACKE_zhegst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, + lapack_int lda, const lapack_complex_double* b, lapack_int ldb ); lapack_int LAPACKE_chegv_work( int matrix_layout, lapack_int itype, char jobz, @@ -10596,11 +10596,11 @@ lapack_int LAPACKE_csytri2x_work( int matrix_layout, char uplo, lapack_int n, const lapack_int* ipiv, lapack_complex_float* work, lapack_int nb ); lapack_int LAPACKE_csytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); lapack_int LAPACKE_csytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work ); @@ -10761,10 +10761,10 @@ lapack_int LAPACKE_dsytri2x_work( int matrix_layout, char uplo, lapack_int n, const lapack_int* ipiv, double* work, lapack_int nb ); lapack_int LAPACKE_dsytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, + lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ); lapack_int LAPACKE_dsytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, + lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb, double* work ); lapack_int LAPACKE_sbbcsd( int matrix_layout, char jobu1, char jobu2, @@ -10856,10 +10856,10 @@ lapack_int LAPACKE_ssytri2x_work( int matrix_layout, char uplo, lapack_int n, const lapack_int* ipiv, float* work, lapack_int nb ); lapack_int LAPACKE_ssytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, + lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ); lapack_int LAPACKE_ssytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, + lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb, float* work ); lapack_int LAPACKE_zbbcsd( int matrix_layout, char jobu1, char jobu2, @@ -10941,11 +10941,11 @@ lapack_int LAPACKE_zsytri2x_work( int matrix_layout, char uplo, lapack_int n, const lapack_int* ipiv, lapack_complex_double* work, lapack_int nb ); lapack_int LAPACKE_zsytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); lapack_int LAPACKE_zsytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work ); diff --git a/LAPACKE/src/lapacke_cgesvd_work.c b/LAPACKE/src/lapacke_cgesvd_work.c index 3797475ed9..4256c0f046 100644 --- a/LAPACKE/src/lapacke_cgesvd_work.c +++ b/LAPACKE/src/lapacke_cgesvd_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -55,6 +56,8 @@ lapack_int LAPACKE_cgesvd_work( int matrix_layout, char jobu, char jobvt, ( LAPACKE_lsame( jobu, 's' ) ? MIN(m,n) : 1); lapack_int nrows_vt = LAPACKE_lsame( jobvt, 'a' ) ? n : ( LAPACKE_lsame( jobvt, 's' ) ? MIN(m,n) : 1); + lapack_int ncols_vt = ( LAPACKE_lsame( jobvt, 'a' ) || + LAPACKE_lsame( jobvt, 's' ) ) ? n : 1; lapack_int lda_t = MAX(1,m); lapack_int ldu_t = MAX(1,nrows_u); lapack_int ldvt_t = MAX(1,nrows_vt); @@ -72,7 +75,7 @@ lapack_int LAPACKE_cgesvd_work( int matrix_layout, char jobu, char jobvt, LAPACKE_xerbla( "LAPACKE_cgesvd_work", info ); return info; } - if( ldvt < n ) { + if( ldvt < ncols_vt ) { info = -12; LAPACKE_xerbla( "LAPACKE_cgesvd_work", info ); return info; diff --git a/LAPACKE/src/lapacke_cheev_work.c b/LAPACKE/src/lapacke_cheev_work.c index f6d2ef0240..dbb2753d16 100644 --- a/LAPACKE/src/lapacke_cheev_work.c +++ b/LAPACKE/src/lapacke_cheev_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheev * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -77,7 +78,7 @@ lapack_int LAPACKE_cheev_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_cheevd_2stage_work.c b/LAPACKE/src/lapacke_cheevd_2stage_work.c index 13a1dad7b7..2f25c187af 100644 --- a/LAPACKE/src/lapacke_cheevd_2stage_work.c +++ b/LAPACKE/src/lapacke_cheevd_2stage_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevd_2stage * Author: Intel Corporation +* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -78,7 +79,7 @@ lapack_int LAPACKE_cheevd_2stage_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_cheevd_work.c b/LAPACKE/src/lapacke_cheevd_work.c index d16f3f0b0c..9e8a1c4db0 100644 --- a/LAPACKE/src/lapacke_cheevd_work.c +++ b/LAPACKE/src/lapacke_cheevd_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -78,7 +79,7 @@ lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_chegst.c b/LAPACKE/src/lapacke_chegst.c index 5f87894f63..c77334cd4a 100644 --- a/LAPACKE/src/lapacke_chegst.c +++ b/LAPACKE/src/lapacke_chegst.c @@ -28,13 +28,14 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegst * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_chegst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, + lapack_int lda, const lapack_complex_float* b, lapack_int ldb ) { if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { @@ -47,7 +48,7 @@ lapack_int LAPACKE_chegst( int matrix_layout, lapack_int itype, char uplo, if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -7; } } diff --git a/LAPACKE/src/lapacke_chegst_work.c b/LAPACKE/src/lapacke_chegst_work.c index f6bf004e3c..001863819b 100644 --- a/LAPACKE/src/lapacke_chegst_work.c +++ b/LAPACKE/src/lapacke_chegst_work.c @@ -28,13 +28,14 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegst * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_chegst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, + lapack_int lda, const lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_chegv.c b/LAPACKE/src/lapacke_chegv.c index f34a9cba60..c01525662a 100644 --- a/LAPACKE/src/lapacke_chegv.c +++ b/LAPACKE/src/lapacke_chegv.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegv * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -49,10 +50,10 @@ lapack_int LAPACKE_chegv( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_chegv_2stage.c b/LAPACKE/src/lapacke_chegv_2stage.c index 26d35a070d..fc33958339 100644 --- a/LAPACKE/src/lapacke_chegv_2stage.c +++ b/LAPACKE/src/lapacke_chegv_2stage.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegv_2stage * Author: Intel Corporation +* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -49,10 +50,10 @@ lapack_int LAPACKE_chegv_2stage( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_chegvd.c b/LAPACKE/src/lapacke_chegvd.c index 1a0cd6a493..fe7b39cee5 100644 --- a/LAPACKE/src/lapacke_chegvd.c +++ b/LAPACKE/src/lapacke_chegvd.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegvd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -54,10 +55,10 @@ lapack_int LAPACKE_chegvd( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_chegvx.c b/LAPACKE/src/lapacke_chegvx.c index 9ff28f5596..d56e3ee46b 100644 --- a/LAPACKE/src/lapacke_chegvx.c +++ b/LAPACKE/src/lapacke_chegvx.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegvx * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -59,7 +60,7 @@ lapack_int LAPACKE_chegvx( int matrix_layout, lapack_int itype, char jobz, if( LAPACKE_s_nancheck( 1, &abstol, 1 ) ) { return -15; } - if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -9; } if( LAPACKE_lsame( range, 'v' ) ) { diff --git a/LAPACKE/src/lapacke_chetri2x.c b/LAPACKE/src/lapacke_chetri2x.c index 3ea66e4642..fc0d4e3d23 100644 --- a/LAPACKE/src/lapacke_chetri2x.c +++ b/LAPACKE/src/lapacke_chetri2x.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri2x * Author: Intel Corporation +* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -45,7 +46,7 @@ lapack_int LAPACKE_chetri2x( int matrix_layout, char uplo, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } } diff --git a/LAPACKE/src/lapacke_clacpy_work.c b/LAPACKE/src/lapacke_clacpy_work.c index d9513e8ce6..eba3593122 100644 --- a/LAPACKE/src/lapacke_clacpy_work.c +++ b/LAPACKE/src/lapacke_clacpy_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacpy * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -41,9 +42,6 @@ lapack_int LAPACKE_clacpy_work( int matrix_layout, char uplo, lapack_int m, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clacpy( &uplo, &m, &n, a, &lda, b, &ldb ); - if( info < 0 ) { - info = info - 1; - } } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,m); diff --git a/LAPACKE/src/lapacke_claset_work.c b/LAPACKE/src/lapacke_claset_work.c index 136c84a78b..1b4fed17a2 100644 --- a/LAPACKE/src/lapacke_claset_work.c +++ b/LAPACKE/src/lapacke_claset_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function claset * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -41,9 +42,6 @@ lapack_int LAPACKE_claset_work( int matrix_layout, char uplo, lapack_int m, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_claset( &uplo, &m, &n, &alpha, &beta, a, &lda ); - if( info < 0 ) { - info = info - 1; - } } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; diff --git a/LAPACKE/src/lapacke_csyconv.c b/LAPACKE/src/lapacke_csyconv.c index d3e1d691e0..771395e977 100644 --- a/LAPACKE/src/lapacke_csyconv.c +++ b/LAPACKE/src/lapacke_csyconv.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyconv * Author: Intel Corporation +* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -44,7 +45,7 @@ lapack_int LAPACKE_csyconv( int matrix_layout, char uplo, char way, lapack_int n #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } } diff --git a/LAPACKE/src/lapacke_csytrs2.c b/LAPACKE/src/lapacke_csytrs2.c index 260bd6f2b8..f4a0a4334e 100644 --- a/LAPACKE/src/lapacke_csytrs2.c +++ b/LAPACKE/src/lapacke_csytrs2.c @@ -28,12 +28,13 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs2 * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_csytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { diff --git a/LAPACKE/src/lapacke_csytrs2_work.c b/LAPACKE/src/lapacke_csytrs2_work.c index adee0ee005..d914c1d69c 100644 --- a/LAPACKE/src/lapacke_csytrs2_work.c +++ b/LAPACKE/src/lapacke_csytrs2_work.c @@ -28,12 +28,13 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs2 * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_csytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, + lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work ) diff --git a/LAPACKE/src/lapacke_ctrttf.c b/LAPACKE/src/lapacke_ctrttf.c index 200f8a56ad..8ca652456a 100644 --- a/LAPACKE/src/lapacke_ctrttf.c +++ b/LAPACKE/src/lapacke_ctrttf.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrttf * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -43,7 +44,7 @@ lapack_int LAPACKE_ctrttf( int matrix_layout, char transr, char uplo, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ctr_nancheck( matrix_layout, uplo, 'n', n, a, lda ) ) { return -5; } } diff --git a/LAPACKE/src/lapacke_ctrttp.c b/LAPACKE/src/lapacke_ctrttp.c index 90af29491e..7b2e3a1691 100644 --- a/LAPACKE/src/lapacke_ctrttp.c +++ b/LAPACKE/src/lapacke_ctrttp.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrttp * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -43,7 +44,7 @@ lapack_int LAPACKE_ctrttp( int matrix_layout, char uplo, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ctr_nancheck( matrix_layout, uplo, 'n', n, a, lda ) ) { return -4; } } diff --git a/LAPACKE/src/lapacke_cungtr.c b/LAPACKE/src/lapacke_cungtr.c index 8982114049..faa3ef6d35 100644 --- a/LAPACKE/src/lapacke_cungtr.c +++ b/LAPACKE/src/lapacke_cungtr.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungtr * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -47,7 +48,7 @@ lapack_int LAPACKE_cungtr( int matrix_layout, char uplo, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_c_nancheck( n-1, tau, 1 ) ) { diff --git a/LAPACKE/src/lapacke_cunmtr.c b/LAPACKE/src/lapacke_cunmtr.c index 0b0712dcf3..71ad23f2f5 100644 --- a/LAPACKE/src/lapacke_cunmtr.c +++ b/LAPACKE/src/lapacke_cunmtr.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmtr * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -51,7 +52,7 @@ lapack_int LAPACKE_cunmtr( int matrix_layout, char side, char uplo, char trans, if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_cge_nancheck( matrix_layout, r, r, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, r, a, lda ) ) { return -7; } if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { diff --git a/LAPACKE/src/lapacke_dgesvd_work.c b/LAPACKE/src/lapacke_dgesvd_work.c index d622869c8f..671def1dfa 100644 --- a/LAPACKE/src/lapacke_dgesvd_work.c +++ b/LAPACKE/src/lapacke_dgesvd_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -53,6 +54,8 @@ lapack_int LAPACKE_dgesvd_work( int matrix_layout, char jobu, char jobvt, ( LAPACKE_lsame( jobu, 's' ) ? MIN(m,n) : 1); lapack_int nrows_vt = LAPACKE_lsame( jobvt, 'a' ) ? n : ( LAPACKE_lsame( jobvt, 's' ) ? MIN(m,n) : 1); + lapack_int ncols_vt = ( LAPACKE_lsame( jobvt, 'a' ) || + LAPACKE_lsame( jobvt, 's' ) ) ? n : 1; lapack_int lda_t = MAX(1,m); lapack_int ldu_t = MAX(1,nrows_u); lapack_int ldvt_t = MAX(1,nrows_vt); @@ -70,7 +73,7 @@ lapack_int LAPACKE_dgesvd_work( int matrix_layout, char jobu, char jobvt, LAPACKE_xerbla( "LAPACKE_dgesvd_work", info ); return info; } - if( ldvt < n ) { + if( ldvt < ncols_vt ) { info = -12; LAPACKE_xerbla( "LAPACKE_dgesvd_work", info ); return info; diff --git a/LAPACKE/src/lapacke_dlacpy_work.c b/LAPACKE/src/lapacke_dlacpy_work.c index 5b0d4d94a5..88f4489a3c 100644 --- a/LAPACKE/src/lapacke_dlacpy_work.c +++ b/LAPACKE/src/lapacke_dlacpy_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlacpy * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -40,9 +41,6 @@ lapack_int LAPACKE_dlacpy_work( int matrix_layout, char uplo, lapack_int m, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dlacpy( &uplo, &m, &n, a, &lda, b, &ldb ); - if( info < 0 ) { - info = info - 1; - } } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,m); diff --git a/LAPACKE/src/lapacke_dlaset_work.c b/LAPACKE/src/lapacke_dlaset_work.c index 7abeedec5d..f1444b5e2b 100644 --- a/LAPACKE/src/lapacke_dlaset_work.c +++ b/LAPACKE/src/lapacke_dlaset_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaset * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -40,9 +41,6 @@ lapack_int LAPACKE_dlaset_work( int matrix_layout, char uplo, lapack_int m, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dlaset( &uplo, &m, &n, &alpha, &beta, a, &lda ); - if( info < 0 ) { - info = info - 1; - } } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; diff --git a/LAPACKE/src/lapacke_dorgtr.c b/LAPACKE/src/lapacke_dorgtr.c index fc4c4cbdc1..587805de61 100644 --- a/LAPACKE/src/lapacke_dorgtr.c +++ b/LAPACKE/src/lapacke_dorgtr.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgtr * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -46,7 +47,7 @@ lapack_int LAPACKE_dorgtr( int matrix_layout, char uplo, lapack_int n, double* a #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_d_nancheck( n-1, tau, 1 ) ) { diff --git a/LAPACKE/src/lapacke_dormtr.c b/LAPACKE/src/lapacke_dormtr.c index 715a46e65f..0b1c54b9b6 100644 --- a/LAPACKE/src/lapacke_dormtr.c +++ b/LAPACKE/src/lapacke_dormtr.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormtr * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -50,7 +51,7 @@ lapack_int LAPACKE_dormtr( int matrix_layout, char side, char uplo, char trans, if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_dge_nancheck( matrix_layout, r, r, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, r, a, lda ) ) { return -7; } if( LAPACKE_dge_nancheck( matrix_layout, m, n, c, ldc ) ) { diff --git a/LAPACKE/src/lapacke_dsyconv.c b/LAPACKE/src/lapacke_dsyconv.c index 3e2df5e41b..36ff7c40ca 100644 --- a/LAPACKE/src/lapacke_dsyconv.c +++ b/LAPACKE/src/lapacke_dsyconv.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyconv * Author: Intel Corporation +* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -42,7 +43,7 @@ lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } } diff --git a/LAPACKE/src/lapacke_dsyev_work.c b/LAPACKE/src/lapacke_dsyev_work.c index d42e8d165a..78f9e80ed5 100644 --- a/LAPACKE/src/lapacke_dsyev_work.c +++ b/LAPACKE/src/lapacke_dsyev_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyev * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -71,7 +72,7 @@ lapack_int LAPACKE_dsyev_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_dsy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_dsyevd_2stage_work.c b/LAPACKE/src/lapacke_dsyevd_2stage_work.c index bd75d47495..d68989aa60 100644 --- a/LAPACKE/src/lapacke_dsyevd_2stage_work.c +++ b/LAPACKE/src/lapacke_dsyevd_2stage_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevd_2stage * Author: Intel Corporation +* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -75,7 +76,7 @@ lapack_int LAPACKE_dsyevd_2stage_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_dsy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_dsyevd_work.c b/LAPACKE/src/lapacke_dsyevd_work.c index 5d3aee0577..25d075d46b 100644 --- a/LAPACKE/src/lapacke_dsyevd_work.c +++ b/LAPACKE/src/lapacke_dsyevd_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -75,7 +76,7 @@ lapack_int LAPACKE_dsyevd_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_dsy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_dsygst.c b/LAPACKE/src/lapacke_dsygst.c index e1f0c3d1fd..69b90e758f 100644 --- a/LAPACKE/src/lapacke_dsygst.c +++ b/LAPACKE/src/lapacke_dsygst.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygst * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -46,7 +47,7 @@ lapack_int LAPACKE_dsygst( int matrix_layout, lapack_int itype, char uplo, if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -7; } } diff --git a/LAPACKE/src/lapacke_dsygv.c b/LAPACKE/src/lapacke_dsygv.c index 2122eedd70..4ece697946 100644 --- a/LAPACKE/src/lapacke_dsygv.c +++ b/LAPACKE/src/lapacke_dsygv.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygv * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -47,10 +48,10 @@ lapack_int LAPACKE_dsygv( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_dsygv_2stage.c b/LAPACKE/src/lapacke_dsygv_2stage.c index 512e08db3d..0016a7d06c 100644 --- a/LAPACKE/src/lapacke_dsygv_2stage.c +++ b/LAPACKE/src/lapacke_dsygv_2stage.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygv_2stage * Author: Intel Corporation +* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -47,10 +48,10 @@ lapack_int LAPACKE_dsygv_2stage( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_dsygvd.c b/LAPACKE/src/lapacke_dsygvd.c index 3a2b82ff26..0db0cfa67a 100644 --- a/LAPACKE/src/lapacke_dsygvd.c +++ b/LAPACKE/src/lapacke_dsygvd.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygvd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -50,10 +51,10 @@ lapack_int LAPACKE_dsygvd( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_dsygvx.c b/LAPACKE/src/lapacke_dsygvx.c index 3e527939f0..54fa6ff367 100644 --- a/LAPACKE/src/lapacke_dsygvx.c +++ b/LAPACKE/src/lapacke_dsygvx.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygvx * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -57,7 +58,7 @@ lapack_int LAPACKE_dsygvx( int matrix_layout, lapack_int itype, char jobz, if( LAPACKE_d_nancheck( 1, &abstol, 1 ) ) { return -15; } - if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -9; } if( LAPACKE_lsame( range, 'v' ) ) { diff --git a/LAPACKE/src/lapacke_dsytrs2.c b/LAPACKE/src/lapacke_dsytrs2.c index f01e562c8c..46c90190f4 100644 --- a/LAPACKE/src/lapacke_dsytrs2.c +++ b/LAPACKE/src/lapacke_dsytrs2.c @@ -28,12 +28,13 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs2 * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_dsytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, + lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_dsytrs2_work.c b/LAPACKE/src/lapacke_dsytrs2_work.c index a40a5579e1..c937c39c50 100644 --- a/LAPACKE/src/lapacke_dsytrs2_work.c +++ b/LAPACKE/src/lapacke_dsytrs2_work.c @@ -28,12 +28,13 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs2 * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_dsytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, + lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb, double* work ) { diff --git a/LAPACKE/src/lapacke_dtrttf.c b/LAPACKE/src/lapacke_dtrttf.c index 898b7f0a07..de379a970c 100644 --- a/LAPACKE/src/lapacke_dtrttf.c +++ b/LAPACKE/src/lapacke_dtrttf.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrttf * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -43,7 +44,7 @@ lapack_int LAPACKE_dtrttf( int matrix_layout, char transr, char uplo, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_dtr_nancheck( matrix_layout, uplo, 'n', n, a, lda ) ) { return -5; } } diff --git a/LAPACKE/src/lapacke_dtrttp.c b/LAPACKE/src/lapacke_dtrttp.c index 4b2161c04e..d175934719 100644 --- a/LAPACKE/src/lapacke_dtrttp.c +++ b/LAPACKE/src/lapacke_dtrttp.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrttp * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -42,7 +43,7 @@ lapack_int LAPACKE_dtrttp( int matrix_layout, char uplo, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_dtr_nancheck( matrix_layout, uplo, 'n', n, a, lda ) ) { return -4; } } diff --git a/LAPACKE/src/lapacke_sgesvd_work.c b/LAPACKE/src/lapacke_sgesvd_work.c index c053f6a56d..941d83cad6 100644 --- a/LAPACKE/src/lapacke_sgesvd_work.c +++ b/LAPACKE/src/lapacke_sgesvd_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -53,6 +54,8 @@ lapack_int LAPACKE_sgesvd_work( int matrix_layout, char jobu, char jobvt, ( LAPACKE_lsame( jobu, 's' ) ? MIN(m,n) : 1); lapack_int nrows_vt = LAPACKE_lsame( jobvt, 'a' ) ? n : ( LAPACKE_lsame( jobvt, 's' ) ? MIN(m,n) : 1); + lapack_int ncols_vt = ( LAPACKE_lsame( jobvt, 'a' ) || + LAPACKE_lsame( jobvt, 's' ) ) ? n : 1; lapack_int lda_t = MAX(1,m); lapack_int ldu_t = MAX(1,nrows_u); lapack_int ldvt_t = MAX(1,nrows_vt); @@ -70,7 +73,7 @@ lapack_int LAPACKE_sgesvd_work( int matrix_layout, char jobu, char jobvt, LAPACKE_xerbla( "LAPACKE_sgesvd_work", info ); return info; } - if( ldvt < n ) { + if( ldvt < ncols_vt ) { info = -12; LAPACKE_xerbla( "LAPACKE_sgesvd_work", info ); return info; diff --git a/LAPACKE/src/lapacke_slacpy_work.c b/LAPACKE/src/lapacke_slacpy_work.c index 9e0631b27f..cdec2c9678 100644 --- a/LAPACKE/src/lapacke_slacpy_work.c +++ b/LAPACKE/src/lapacke_slacpy_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slacpy * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -40,9 +41,6 @@ lapack_int LAPACKE_slacpy_work( int matrix_layout, char uplo, lapack_int m, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_slacpy( &uplo, &m, &n, a, &lda, b, &ldb ); - if( info < 0 ) { - info = info - 1; - } } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,m); diff --git a/LAPACKE/src/lapacke_slaset_work.c b/LAPACKE/src/lapacke_slaset_work.c index e6e3fee3ac..4f2fa7b677 100644 --- a/LAPACKE/src/lapacke_slaset_work.c +++ b/LAPACKE/src/lapacke_slaset_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaset * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -40,9 +41,6 @@ lapack_int LAPACKE_slaset_work( int matrix_layout, char uplo, lapack_int m, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_slaset( &uplo, &m, &n, &alpha, &beta, a, &lda ); - if( info < 0 ) { - info = info - 1; - } } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; diff --git a/LAPACKE/src/lapacke_sorgtr.c b/LAPACKE/src/lapacke_sorgtr.c index c2ce6966ce..804b7f8ef4 100644 --- a/LAPACKE/src/lapacke_sorgtr.c +++ b/LAPACKE/src/lapacke_sorgtr.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgtr * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -46,7 +47,7 @@ lapack_int LAPACKE_sorgtr( int matrix_layout, char uplo, lapack_int n, float* a, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_s_nancheck( n-1, tau, 1 ) ) { diff --git a/LAPACKE/src/lapacke_sormtr.c b/LAPACKE/src/lapacke_sormtr.c index 7b1a057796..6ffe144cc4 100644 --- a/LAPACKE/src/lapacke_sormtr.c +++ b/LAPACKE/src/lapacke_sormtr.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormtr * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -50,7 +51,7 @@ lapack_int LAPACKE_sormtr( int matrix_layout, char side, char uplo, char trans, if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_sge_nancheck( matrix_layout, r, r, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, r, a, lda ) ) { return -7; } if( LAPACKE_sge_nancheck( matrix_layout, m, n, c, ldc ) ) { diff --git a/LAPACKE/src/lapacke_ssyconv.c b/LAPACKE/src/lapacke_ssyconv.c index 90049e6102..ac41a354de 100644 --- a/LAPACKE/src/lapacke_ssyconv.c +++ b/LAPACKE/src/lapacke_ssyconv.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyconv * Author: Intel Corporation +* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -42,7 +43,7 @@ lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } } diff --git a/LAPACKE/src/lapacke_ssyev_work.c b/LAPACKE/src/lapacke_ssyev_work.c index b269c3d0df..1889a337c9 100644 --- a/LAPACKE/src/lapacke_ssyev_work.c +++ b/LAPACKE/src/lapacke_ssyev_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyev * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -71,7 +72,7 @@ lapack_int LAPACKE_ssyev_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_ssy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_ssyevd_2stage_work.c b/LAPACKE/src/lapacke_ssyevd_2stage_work.c index 455b7ab821..faadc92f15 100644 --- a/LAPACKE/src/lapacke_ssyevd_2stage_work.c +++ b/LAPACKE/src/lapacke_ssyevd_2stage_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevd_2stage * Author: Intel Corporation +* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -75,7 +76,7 @@ lapack_int LAPACKE_ssyevd_2stage_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_ssy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_ssyevd_work.c b/LAPACKE/src/lapacke_ssyevd_work.c index 6f41a84d4e..434b52c018 100644 --- a/LAPACKE/src/lapacke_ssyevd_work.c +++ b/LAPACKE/src/lapacke_ssyevd_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -75,7 +76,7 @@ lapack_int LAPACKE_ssyevd_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_ssy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_ssygst.c b/LAPACKE/src/lapacke_ssygst.c index 7727d8a3e0..4fb55960c1 100644 --- a/LAPACKE/src/lapacke_ssygst.c +++ b/LAPACKE/src/lapacke_ssygst.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygst * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -46,7 +47,7 @@ lapack_int LAPACKE_ssygst( int matrix_layout, lapack_int itype, char uplo, if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -7; } } diff --git a/LAPACKE/src/lapacke_ssygv.c b/LAPACKE/src/lapacke_ssygv.c index e31e8b8dcb..f139de1ab3 100644 --- a/LAPACKE/src/lapacke_ssygv.c +++ b/LAPACKE/src/lapacke_ssygv.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygv * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -47,10 +48,10 @@ lapack_int LAPACKE_ssygv( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_ssygv_2stage.c b/LAPACKE/src/lapacke_ssygv_2stage.c index 6f16f23501..195fb1e542 100644 --- a/LAPACKE/src/lapacke_ssygv_2stage.c +++ b/LAPACKE/src/lapacke_ssygv_2stage.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygv_2stage * Author: Intel Corporation +* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -47,10 +48,10 @@ lapack_int LAPACKE_ssygv_2stage( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_ssygvd.c b/LAPACKE/src/lapacke_ssygvd.c index 880603da51..e33ce2a7b4 100644 --- a/LAPACKE/src/lapacke_ssygvd.c +++ b/LAPACKE/src/lapacke_ssygvd.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygvd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -50,10 +51,10 @@ lapack_int LAPACKE_ssygvd( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_ssygvx.c b/LAPACKE/src/lapacke_ssygvx.c index 0f166094d4..8ffd9dc407 100644 --- a/LAPACKE/src/lapacke_ssygvx.c +++ b/LAPACKE/src/lapacke_ssygvx.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygvx * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -57,7 +58,7 @@ lapack_int LAPACKE_ssygvx( int matrix_layout, lapack_int itype, char jobz, if( LAPACKE_s_nancheck( 1, &abstol, 1 ) ) { return -15; } - if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -9; } if( LAPACKE_lsame( range, 'v' ) ) { diff --git a/LAPACKE/src/lapacke_ssytrs2.c b/LAPACKE/src/lapacke_ssytrs2.c index d95a06d073..a95a71469d 100644 --- a/LAPACKE/src/lapacke_ssytrs2.c +++ b/LAPACKE/src/lapacke_ssytrs2.c @@ -28,12 +28,13 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs2 * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_ssytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, + lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_ssytrs2_work.c b/LAPACKE/src/lapacke_ssytrs2_work.c index 0bfe89f6d6..cf98f443d1 100644 --- a/LAPACKE/src/lapacke_ssytrs2_work.c +++ b/LAPACKE/src/lapacke_ssytrs2_work.c @@ -28,12 +28,13 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs2 * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_ssytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, + lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb, float* work ) { diff --git a/LAPACKE/src/lapacke_strttf.c b/LAPACKE/src/lapacke_strttf.c index 37b851f6c0..e3304fbe7c 100644 --- a/LAPACKE/src/lapacke_strttf.c +++ b/LAPACKE/src/lapacke_strttf.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strttf * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -43,7 +44,7 @@ lapack_int LAPACKE_strttf( int matrix_layout, char transr, char uplo, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_str_nancheck( matrix_layout, uplo, 'n', n, a, lda ) ) { return -5; } } diff --git a/LAPACKE/src/lapacke_strttp.c b/LAPACKE/src/lapacke_strttp.c index 20876327c7..2df79eb050 100644 --- a/LAPACKE/src/lapacke_strttp.c +++ b/LAPACKE/src/lapacke_strttp.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strttp * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -42,7 +43,7 @@ lapack_int LAPACKE_strttp( int matrix_layout, char uplo, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_str_nancheck( matrix_layout, uplo, 'n', n, a, lda ) ) { return -4; } } diff --git a/LAPACKE/src/lapacke_zgesvd_work.c b/LAPACKE/src/lapacke_zgesvd_work.c index 5834648f65..da73cd4792 100644 --- a/LAPACKE/src/lapacke_zgesvd_work.c +++ b/LAPACKE/src/lapacke_zgesvd_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -55,6 +56,8 @@ lapack_int LAPACKE_zgesvd_work( int matrix_layout, char jobu, char jobvt, ( LAPACKE_lsame( jobu, 's' ) ? MIN(m,n) : 1); lapack_int nrows_vt = LAPACKE_lsame( jobvt, 'a' ) ? n : ( LAPACKE_lsame( jobvt, 's' ) ? MIN(m,n) : 1); + lapack_int ncols_vt = ( LAPACKE_lsame( jobvt, 'a' ) || + LAPACKE_lsame( jobvt, 's' ) ) ? n : 1; lapack_int lda_t = MAX(1,m); lapack_int ldu_t = MAX(1,nrows_u); lapack_int ldvt_t = MAX(1,nrows_vt); @@ -72,7 +75,7 @@ lapack_int LAPACKE_zgesvd_work( int matrix_layout, char jobu, char jobvt, LAPACKE_xerbla( "LAPACKE_zgesvd_work", info ); return info; } - if( ldvt < n ) { + if( ldvt < ncols_vt ) { info = -12; LAPACKE_xerbla( "LAPACKE_zgesvd_work", info ); return info; diff --git a/LAPACKE/src/lapacke_zheev_work.c b/LAPACKE/src/lapacke_zheev_work.c index 1e76cdd972..8b7aa35189 100644 --- a/LAPACKE/src/lapacke_zheev_work.c +++ b/LAPACKE/src/lapacke_zheev_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheev * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -77,7 +78,7 @@ lapack_int LAPACKE_zheev_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_zhe_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_zheevd_2stage_work.c b/LAPACKE/src/lapacke_zheevd_2stage_work.c index b613bf0f01..840c538765 100644 --- a/LAPACKE/src/lapacke_zheevd_2stage_work.c +++ b/LAPACKE/src/lapacke_zheevd_2stage_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevd_2stage * Author: Intel Corporation +* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -78,7 +79,7 @@ lapack_int LAPACKE_zheevd_2stage_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_zhe_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_zheevd_work.c b/LAPACKE/src/lapacke_zheevd_work.c index 5f730f7508..b8509e04fc 100644 --- a/LAPACKE/src/lapacke_zheevd_work.c +++ b/LAPACKE/src/lapacke_zheevd_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -78,7 +79,7 @@ lapack_int LAPACKE_zheevd_work( int matrix_layout, char jobz, char uplo, info = info - 1; } /* Transpose output matrices */ - if ( jobz == 'V') { + if ( jobz == 'V' || jobz == 'v' ) { LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda ); } else { LAPACKE_zhe_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); diff --git a/LAPACKE/src/lapacke_zhegst.c b/LAPACKE/src/lapacke_zhegst.c index ca202869f6..5c012750fe 100644 --- a/LAPACKE/src/lapacke_zhegst.c +++ b/LAPACKE/src/lapacke_zhegst.c @@ -28,13 +28,14 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegst * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_zhegst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, + lapack_int lda, const lapack_complex_double* b, lapack_int ldb ) { if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { @@ -47,7 +48,7 @@ lapack_int LAPACKE_zhegst( int matrix_layout, lapack_int itype, char uplo, if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -7; } } diff --git a/LAPACKE/src/lapacke_zhegst_work.c b/LAPACKE/src/lapacke_zhegst_work.c index 4c0bbd0448..f778942049 100644 --- a/LAPACKE/src/lapacke_zhegst_work.c +++ b/LAPACKE/src/lapacke_zhegst_work.c @@ -28,13 +28,14 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegst * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_zhegst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, + lapack_int lda, const lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; diff --git a/LAPACKE/src/lapacke_zhegv.c b/LAPACKE/src/lapacke_zhegv.c index 3bf24f22e2..587e2d4be8 100644 --- a/LAPACKE/src/lapacke_zhegv.c +++ b/LAPACKE/src/lapacke_zhegv.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegv * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -49,10 +50,10 @@ lapack_int LAPACKE_zhegv( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_zhegv_2stage.c b/LAPACKE/src/lapacke_zhegv_2stage.c index 44eb32dca6..43569d99ed 100644 --- a/LAPACKE/src/lapacke_zhegv_2stage.c +++ b/LAPACKE/src/lapacke_zhegv_2stage.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegv_2stage * Author: Intel Corporation +* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -49,10 +50,10 @@ lapack_int LAPACKE_zhegv_2stage( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_zhegvd.c b/LAPACKE/src/lapacke_zhegvd.c index 598a4ff630..c287595ad3 100644 --- a/LAPACKE/src/lapacke_zhegvd.c +++ b/LAPACKE/src/lapacke_zhegvd.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegvd * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -54,10 +55,10 @@ lapack_int LAPACKE_zhegvd( int matrix_layout, lapack_int itype, char jobz, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -8; } } diff --git a/LAPACKE/src/lapacke_zhegvx.c b/LAPACKE/src/lapacke_zhegvx.c index f7e9df3ee9..83f2bda2e3 100644 --- a/LAPACKE/src/lapacke_zhegvx.c +++ b/LAPACKE/src/lapacke_zhegvx.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegvx * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -60,7 +61,7 @@ lapack_int LAPACKE_zhegvx( int matrix_layout, lapack_int itype, char jobz, if( LAPACKE_d_nancheck( 1, &abstol, 1 ) ) { return -15; } - if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -9; } if( LAPACKE_lsame( range, 'v' ) ) { diff --git a/LAPACKE/src/lapacke_zhetri2x.c b/LAPACKE/src/lapacke_zhetri2x.c index 9991c6d206..15a8cc5766 100644 --- a/LAPACKE/src/lapacke_zhetri2x.c +++ b/LAPACKE/src/lapacke_zhetri2x.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri2x * Author: Intel Corporation +* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -45,7 +46,7 @@ lapack_int LAPACKE_zhetri2x( int matrix_layout, char uplo, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } } diff --git a/LAPACKE/src/lapacke_zlacpy_work.c b/LAPACKE/src/lapacke_zlacpy_work.c index 42c49cd866..fe36ed8116 100644 --- a/LAPACKE/src/lapacke_zlacpy_work.c +++ b/LAPACKE/src/lapacke_zlacpy_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacpy * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -41,9 +42,6 @@ lapack_int LAPACKE_zlacpy_work( int matrix_layout, char uplo, lapack_int m, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlacpy( &uplo, &m, &n, a, &lda, b, &ldb ); - if( info < 0 ) { - info = info - 1; - } } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,m); diff --git a/LAPACKE/src/lapacke_zlaset_work.c b/LAPACKE/src/lapacke_zlaset_work.c index 7a348a47f6..ecb6cba25d 100644 --- a/LAPACKE/src/lapacke_zlaset_work.c +++ b/LAPACKE/src/lapacke_zlaset_work.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlaset * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -41,9 +42,6 @@ lapack_int LAPACKE_zlaset_work( int matrix_layout, char uplo, lapack_int m, if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlaset( &uplo, &m, &n, &alpha, &beta, a, &lda ); - if( info < 0 ) { - info = info - 1; - } } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; diff --git a/LAPACKE/src/lapacke_zsyconv.c b/LAPACKE/src/lapacke_zsyconv.c index 16a3c32666..074b15303b 100644 --- a/LAPACKE/src/lapacke_zsyconv.c +++ b/LAPACKE/src/lapacke_zsyconv.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyconv * Author: Intel Corporation +* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" @@ -44,7 +45,7 @@ lapack_int LAPACKE_zsyconv( int matrix_layout, char uplo, char way, lapack_int n #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } } diff --git a/LAPACKE/src/lapacke_zsytrs2.c b/LAPACKE/src/lapacke_zsytrs2.c index 45fb6b9a9a..3c85f9796a 100644 --- a/LAPACKE/src/lapacke_zsytrs2.c +++ b/LAPACKE/src/lapacke_zsytrs2.c @@ -28,12 +28,13 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs2 * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_zsytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, + lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { diff --git a/LAPACKE/src/lapacke_zsytrs2_work.c b/LAPACKE/src/lapacke_zsytrs2_work.c index 02e767d1d5..cdc97fa024 100644 --- a/LAPACKE/src/lapacke_zsytrs2_work.c +++ b/LAPACKE/src/lapacke_zsytrs2_work.c @@ -28,13 +28,14 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs2 * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" lapack_int LAPACKE_zsytrs2_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, + const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work ) diff --git a/LAPACKE/src/lapacke_ztrttf.c b/LAPACKE/src/lapacke_ztrttf.c index 213b2edaf4..8e8789ec6a 100644 --- a/LAPACKE/src/lapacke_ztrttf.c +++ b/LAPACKE/src/lapacke_ztrttf.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrttf * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -43,7 +44,7 @@ lapack_int LAPACKE_ztrttf( int matrix_layout, char transr, char uplo, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ztr_nancheck( matrix_layout, uplo, 'n', n, a, lda ) ) { return -5; } } diff --git a/LAPACKE/src/lapacke_ztrttp.c b/LAPACKE/src/lapacke_ztrttp.c index 2e9183c80e..bd8485108b 100644 --- a/LAPACKE/src/lapacke_ztrttp.c +++ b/LAPACKE/src/lapacke_ztrttp.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrttp * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -43,7 +44,7 @@ lapack_int LAPACKE_ztrttp( int matrix_layout, char uplo, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_ztr_nancheck( matrix_layout, uplo, 'n', n, a, lda ) ) { return -4; } } diff --git a/LAPACKE/src/lapacke_zungtr.c b/LAPACKE/src/lapacke_zungtr.c index 4751ffd2dd..adfaa7db9b 100644 --- a/LAPACKE/src/lapacke_zungtr.c +++ b/LAPACKE/src/lapacke_zungtr.c @@ -28,6 +28,7 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungtr * Author: Intel Corporation +* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -47,7 +48,7 @@ lapack_int LAPACKE_zungtr( int matrix_layout, char uplo, lapack_int n, #ifndef LAPACK_DISABLE_NAN_CHECK if( LAPACKE_get_nancheck() ) { /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_z_nancheck( n-1, tau, 1 ) ) {