From: julie Date: Tue, 18 Feb 2014 16:47:10 +0000 (+0000) Subject: INTEGRATED CHANGES PROVIDED BY INTEL TEAM FOR LAPACKE -- SEE Eugene Chereshnev email... X-Git-Tag: submit/tizen/20180313.231549~426 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a9ffa9a1812fa42e314401a9433331696701f8ed;p=platform%2Fupstream%2Flapack.git INTEGRATED CHANGES PROVIDED BY INTEL TEAM FOR LAPACKE -- SEE Eugene Chereshnev email on Feb 18th --> THANK YO INTEL <-- We performed auto-replacement matrix_order -> matrix_layout in the LAPACKE C Interface. Also we applied several bug fixes which were presented on our side and added two LAPACKE interfaces for function LAPACK_stpqrt which weren't represented on your side (although interfaces for d/c/z/pqrt were). All changes are reflected in the archive in attachment (only modified files in the archive). All changes were performed for revision 1471. Summary of changes: 1. Files: lapacke_stprfb.c lapacke_dtprfb.c lapacke_ctprfb.c lapacke_ztprfb.c lapacke_stprfb_work.c lapacke_dtprfb_work.c lapacke_ctprfb_work.c lapacke_ztprfb_work.c lapacke.h Expression MAX(1,ldwork)*MAX(n,k) was replaced by 'work_size'. It's not a bug but apparently 'work_size' is right expression in this place. Also in functions lapacke_(c/z)tprfb type of 'work' array was changed from float/double to lapack_complex_float/lapack_complex_double. Array 'work' is passed to lapacke_(c/z)tprfb_work and it calls LAPACK_(c/z)tprfb (and passes array 'work') but LAPACK_(c/z)tprfb has argument 'work' of complex type: SRC/ctprfb.f: *> WORK is COMPLEX array, dimension *> (LDWORK,N) if SIDE = 'L', *> (LDWORK,K) if SIDE = 'R'. and SRC/ztprfb.f: *> WORK is COMPLEX*16 array, dimension *> (LDWORK,N) if SIDE = 'L', *> (LDWORK,K) if SIDE = 'R'. Types of 'work' array in lapacke.h for LAPACK_(c/z)tprfb are float/double so they aren't correct. The archive includes changes in lapacke.h and source files: types of 'work' array in LAPACK_(c/z)tprfb: float/double -> lapack_complex_float/lapack_complex_double types of 'work' array in LAPACKE_(c/z)tprfb_work: float/double -> lapack_complex_float/lapack_complex_double In a similar way types of allocated 'work' arrays in LAPACKE_(c/z)tprfb were replaced. Also you can see here why MAX(1,ldwork)*MAX(n,k) isn't fully correct expression for work_size. 2. Files: lapacke_cuncsd.c lapacke_dorcsd.c lapacke_sorcsd.c lapacke_zuncsd.c From documentation of LAPACK_cuncsd (for other three LAPACK functions IWORK must have same size): *> IWORK is INTEGER array, dimension (M-MIN(P,M-P,Q,M-Q)) So it's not correct here to allocate working array with MAX(1,m-q) size. Changes: lapack_int r; r=MIN(p,m-p); r=MIN(r,q); r=MIN(r,m-q); MAX(1,m-q) -> MAX(1,m-r) 3. Files: lapacke_cgbsvxx_work.c lapacke_cgesvxx_work.c lapacke_chesvxx_work.c lapacke_cposvxx_work.c lapacke_csysvxx_work.c lapacke_dgbsvxx_work.c lapacke_dgesvxx_work.c lapacke_dposvxx_work.c lapacke_dsysvxx_work.c lapacke_sgbsvxx_work.c lapacke_sgesvxx_work.c lapacke_sposvxx_work.c lapacke_ssysvxx_work.c lapacke_zgbsvxx_work.c lapacke_zgesvxx_work.c lapacke_zhesvxx_work.c lapacke_zposvxx_work.c lapacke_zsysvxx_work.c Functions doesn't perform right transposition for 'err_bnds_norm' and 'err_bnds_comp' matrices: From documentation of these functions: *> ERR_BNDS_NORM is (SINGLE/DOUBLE) PRECISION array, dimension (NRHS, N_ERR_BNDS) *> ERR_BNDS_COMP is (SINGLE/DOUBLE) PRECISION array, dimension (NRHS, N_ERR_BNDS) So for interface functions right 'lda' for 'err_bnds_norm' and 'err_bnds_comp' matrices is 'n_err_bnds' rather than 'nhrs' in the case of LAPACK_ROW_MAJOR. 4. Files: lapacke_stpqrt.c lapacke_stpqrt_work.c lapacke/src/Makefile lapacke/src/CMakeLists.txt Interfaces for LAPACK_spqrt were added: lapacke_stpqrt.c and lapacke_stpqrt_work.c and appropriate changes were performed in Makefile and CMakeLists.txt. Declaration of LAPACK_spqrt was added to lapacke.h. --- diff --git a/lapacke/example/example_DGELS_colmajor.c b/lapacke/example/example_DGELS_colmajor.c index b5e0bbbb..7b0064c6 100644 --- a/lapacke/example/example_DGELS_colmajor.c +++ b/lapacke/example/example_DGELS_colmajor.c @@ -1,5 +1,5 @@ /* - LAPACKE Example : Calling DGELS using col-major order + LAPACKE Example : Calling DGELS using col-major layout ===================================================== The program computes the solution to the system of linear @@ -27,7 +27,7 @@ ( 16 16 ) ( 18 16 ) We will first store the input matrix as a static C two-dimensional array, - which is stored in col-major order, and let LAPACKE handle the work space + which is stored in col-major layout, and let LAPACKE handle the work space array allocation. The LAPACK base name for this function is gels, and we will use double precision (d), so the LAPACKE function name is LAPACKE_dgels. @@ -55,7 +55,7 @@ February 2012 */ -/* Calling DGELS using col-major order */ +/* Calling DGELS using col-major layout */ /* Includes */ #include diff --git a/lapacke/example/example_DGELS_rowmajor.c b/lapacke/example/example_DGELS_rowmajor.c index 331aa2f8..562ffdcd 100644 --- a/lapacke/example/example_DGELS_rowmajor.c +++ b/lapacke/example/example_DGELS_rowmajor.c @@ -1,5 +1,5 @@ /* - LAPACKE Example : Calling DGELS using row-major order + LAPACKE Example : Calling DGELS using row-major layout ===================================================== The program computes the solution to the system of linear @@ -27,7 +27,7 @@ ( 16 16 ) ( 18 16 ) We will first store the input matrix as a static C two-dimensional array, - which is stored in row-major order, and let LAPACKE handle the work space + which is stored in row-major layout, and let LAPACKE handle the work space array allocation. The LAPACK base name for this function is gels, and we will use double precision (d), so the LAPACKE function name is LAPACKE_dgels. @@ -55,7 +55,7 @@ February 2012 */ -/* Calling DGELS using row-major order */ +/* Calling DGELS using row-major layout */ /* Includes */ #include diff --git a/lapacke/include/lapacke.h b/lapacke/include/lapacke.h index a31c10d6..2551c02a 100644 --- a/lapacke/include/lapacke.h +++ b/lapacke/include/lapacke.h @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -148,31 +148,31 @@ lapack_logical LAPACK_lsame( char* ca, char* cb, /* C-LAPACK function prototypes */ -lapack_int LAPACKE_sbdsdc( int matrix_order, char uplo, char compq, +lapack_int LAPACKE_sbdsdc( int matrix_layout, char uplo, char compq, lapack_int n, float* d, float* e, float* u, lapack_int ldu, float* vt, lapack_int ldvt, float* q, lapack_int* iq ); -lapack_int LAPACKE_dbdsdc( int matrix_order, char uplo, char compq, +lapack_int LAPACKE_dbdsdc( int matrix_layout, char uplo, char compq, lapack_int n, double* d, double* e, double* u, lapack_int ldu, double* vt, lapack_int ldvt, double* q, lapack_int* iq ); -lapack_int LAPACKE_sbdsqr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, float* d, float* e, float* vt, lapack_int ldvt, float* u, lapack_int ldu, float* c, lapack_int ldc ); -lapack_int LAPACKE_dbdsqr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, double* d, double* e, double* vt, lapack_int ldvt, double* u, lapack_int ldu, double* c, lapack_int ldc ); -lapack_int LAPACKE_cbdsqr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, float* d, float* e, lapack_complex_float* vt, lapack_int ldvt, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zbdsqr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, double* d, double* e, lapack_complex_double* vt, lapack_int ldvt, lapack_complex_double* u, @@ -184,25 +184,25 @@ lapack_int LAPACKE_sdisna( char job, lapack_int m, lapack_int n, const float* d, lapack_int LAPACKE_ddisna( char job, lapack_int m, lapack_int n, const double* d, double* sep ); -lapack_int LAPACKE_sgbbrd( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_sgbbrd( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, float* ab, lapack_int ldab, float* d, float* e, float* q, lapack_int ldq, float* pt, lapack_int ldpt, float* c, lapack_int ldc ); -lapack_int LAPACKE_dgbbrd( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_dgbbrd( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq, double* pt, lapack_int ldpt, double* c, lapack_int ldc ); -lapack_int LAPACKE_cgbbrd( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_cgbbrd( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, lapack_complex_float* ab, lapack_int ldab, float* d, float* e, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* pt, lapack_int ldpt, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zgbbrd( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_zgbbrd( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, lapack_complex_double* ab, lapack_int ldab, double* d, double* e, @@ -210,75 +210,75 @@ lapack_int LAPACKE_zgbbrd( int matrix_order, char vect, lapack_int m, lapack_complex_double* pt, lapack_int ldpt, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_sgbcon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_sgbcon( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_dgbcon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_dgbcon( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_cgbcon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_cgbcon( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zgbcon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_zgbcon( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_sgbequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbequ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgbequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbequ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgbequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbequ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgbequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbequ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_sgbequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbequb( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgbequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbequb( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgbequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbequb( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgbequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbequb( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_sgbrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgbrfs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, lapack_int ldafb, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dgbrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgbrfs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, lapack_int ldafb, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cgbrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgbrfs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, lapack_int ldafb, @@ -286,7 +286,7 @@ lapack_int LAPACKE_cgbrfs( int matrix_order, char trans, lapack_int n, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zgbrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgbrfs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* afb, lapack_int ldafb, @@ -295,7 +295,7 @@ lapack_int LAPACKE_zgbrfs( int matrix_order, char trans, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_sgbrfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_sgbrfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, lapack_int ldafb, @@ -305,7 +305,7 @@ lapack_int LAPACKE_sgbrfsx( int matrix_order, char trans, char equed, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_dgbrfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_dgbrfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, lapack_int ldafb, @@ -315,7 +315,7 @@ lapack_int LAPACKE_dgbrfsx( int matrix_order, char trans, char equed, double* berr, lapack_int n_err_bnds, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_cgbrfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_cgbrfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, @@ -326,7 +326,7 @@ lapack_int LAPACKE_cgbrfsx( int matrix_order, char trans, char equed, float* rcond, float* berr, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zgbrfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_zgbrfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* afb, @@ -338,26 +338,26 @@ lapack_int LAPACKE_zgbrfsx( int matrix_order, char trans, char equed, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_sgbsv( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_sgbsv( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgbsv( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_dgbsv( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgbsv( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_cgbsv( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgbsv( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_zgbsv( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sgbsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgbsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, lapack_int* ipiv, @@ -365,7 +365,7 @@ lapack_int LAPACKE_sgbsvx( int matrix_order, char fact, char trans, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* rpivot ); -lapack_int LAPACKE_dgbsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgbsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, lapack_int* ipiv, @@ -373,7 +373,7 @@ lapack_int LAPACKE_dgbsvx( int matrix_order, char fact, char trans, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* rpivot ); -lapack_int LAPACKE_cgbsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgbsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, @@ -382,7 +382,7 @@ lapack_int LAPACKE_cgbsvx( int matrix_order, char fact, char trans, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* rpivot ); -lapack_int LAPACKE_zgbsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgbsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, @@ -392,7 +392,7 @@ lapack_int LAPACKE_zgbsvx( int matrix_order, char fact, char trans, lapack_int ldx, double* rcond, double* ferr, double* berr, double* rpivot ); -lapack_int LAPACKE_sgbsvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgbsvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, lapack_int* ipiv, @@ -402,7 +402,7 @@ lapack_int LAPACKE_sgbsvxx( int matrix_order, char fact, char trans, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_dgbsvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgbsvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, lapack_int* ipiv, @@ -412,7 +412,7 @@ lapack_int LAPACKE_dgbsvxx( int matrix_order, char fact, char trans, lapack_int n_err_bnds, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_cgbsvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgbsvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, @@ -423,7 +423,7 @@ lapack_int LAPACKE_cgbsvxx( int matrix_order, char fact, char trans, float* berr, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zgbsvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgbsvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, @@ -435,202 +435,202 @@ lapack_int LAPACKE_zgbsvxx( int matrix_order, char fact, char trans, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_sgbtrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbtrf( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, float* ab, lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_dgbtrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbtrf( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, double* ab, lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_cgbtrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbtrf( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, lapack_complex_float* ab, lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_zgbtrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbtrf( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, lapack_complex_double* ab, lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_sgbtrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgbtrs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgbtrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgbtrs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgbtrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgbtrs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgbtrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgbtrs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sgebak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_sgebak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* scale, lapack_int m, float* v, lapack_int ldv ); -lapack_int LAPACKE_dgebak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_dgebak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* scale, lapack_int m, double* v, lapack_int ldv ); -lapack_int LAPACKE_cgebak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_cgebak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* scale, lapack_int m, lapack_complex_float* v, lapack_int ldv ); -lapack_int LAPACKE_zgebak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_zgebak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* scale, lapack_int m, lapack_complex_double* v, lapack_int ldv ); -lapack_int LAPACKE_sgebal( int matrix_order, char job, lapack_int n, float* a, +lapack_int LAPACKE_sgebal( int matrix_layout, char job, lapack_int n, float* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, float* scale ); -lapack_int LAPACKE_dgebal( int matrix_order, char job, lapack_int n, double* a, +lapack_int LAPACKE_dgebal( int matrix_layout, char job, lapack_int n, double* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, double* scale ); -lapack_int LAPACKE_cgebal( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_cgebal( int matrix_layout, char job, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, float* scale ); -lapack_int LAPACKE_zgebal( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_zgebal( int matrix_layout, char job, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, double* scale ); -lapack_int LAPACKE_sgebrd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgebrd( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* d, float* e, float* tauq, float* taup ); -lapack_int LAPACKE_dgebrd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgebrd( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* d, double* e, double* tauq, double* taup ); -lapack_int LAPACKE_cgebrd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgebrd( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* d, float* e, lapack_complex_float* tauq, lapack_complex_float* taup ); -lapack_int LAPACKE_zgebrd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgebrd( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* d, double* e, lapack_complex_double* tauq, lapack_complex_double* taup ); -lapack_int LAPACKE_sgecon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_sgecon( int matrix_layout, char norm, lapack_int n, const float* a, lapack_int lda, float anorm, float* rcond ); -lapack_int LAPACKE_dgecon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_dgecon( int matrix_layout, char norm, lapack_int n, const double* a, lapack_int lda, double anorm, double* rcond ); -lapack_int LAPACKE_cgecon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_cgecon( int matrix_layout, char norm, lapack_int n, const lapack_complex_float* a, lapack_int lda, float anorm, float* rcond ); -lapack_int LAPACKE_zgecon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_zgecon( int matrix_layout, char norm, lapack_int n, const lapack_complex_double* a, lapack_int lda, double anorm, double* rcond ); -lapack_int LAPACKE_sgeequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeequ( int matrix_layout, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgeequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeequ( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgeequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeequ( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgeequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeequ( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_sgeequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeequb( int matrix_layout, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgeequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeequb( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgeequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeequb( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgeequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeequb( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_sgees( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_sgees( int matrix_layout, char jobvs, char sort, LAPACK_S_SELECT2 select, lapack_int n, float* a, lapack_int lda, lapack_int* sdim, float* wr, float* wi, float* vs, lapack_int ldvs ); -lapack_int LAPACKE_dgees( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_dgees( int matrix_layout, char jobvs, char sort, LAPACK_D_SELECT2 select, lapack_int n, double* a, lapack_int lda, lapack_int* sdim, double* wr, double* wi, double* vs, lapack_int ldvs ); -lapack_int LAPACKE_cgees( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_cgees( int matrix_layout, char jobvs, char sort, LAPACK_C_SELECT1 select, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* sdim, lapack_complex_float* w, lapack_complex_float* vs, lapack_int ldvs ); -lapack_int LAPACKE_zgees( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_zgees( int matrix_layout, char jobvs, char sort, LAPACK_Z_SELECT1 select, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* sdim, lapack_complex_double* w, lapack_complex_double* vs, lapack_int ldvs ); -lapack_int LAPACKE_sgeesx( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_sgeesx( int matrix_layout, char jobvs, char sort, LAPACK_S_SELECT2 select, char sense, lapack_int n, float* a, lapack_int lda, lapack_int* sdim, float* wr, float* wi, float* vs, lapack_int ldvs, float* rconde, float* rcondv ); -lapack_int LAPACKE_dgeesx( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_dgeesx( int matrix_layout, char jobvs, char sort, LAPACK_D_SELECT2 select, char sense, lapack_int n, double* a, lapack_int lda, lapack_int* sdim, double* wr, double* wi, double* vs, lapack_int ldvs, double* rconde, double* rcondv ); -lapack_int LAPACKE_cgeesx( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_cgeesx( int matrix_layout, char jobvs, char sort, LAPACK_C_SELECT1 select, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* sdim, lapack_complex_float* w, lapack_complex_float* vs, lapack_int ldvs, float* rconde, float* rcondv ); -lapack_int LAPACKE_zgeesx( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_zgeesx( int matrix_layout, char jobvs, char sort, LAPACK_Z_SELECT1 select, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* sdim, lapack_complex_double* w, lapack_complex_double* vs, lapack_int ldvs, double* rconde, double* rcondv ); -lapack_int LAPACKE_sgeev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_sgeev( int matrix_layout, char jobvl, char jobvr, lapack_int n, float* a, lapack_int lda, float* wr, float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr ); -lapack_int LAPACKE_dgeev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_dgeev( int matrix_layout, char jobvl, char jobvr, lapack_int n, double* a, lapack_int lda, double* wr, double* wi, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr ); -lapack_int LAPACKE_cgeev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_cgeev( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* w, lapack_complex_float* vl, lapack_int ldvl, lapack_complex_float* vr, lapack_int ldvr ); -lapack_int LAPACKE_zgeev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_zgeev( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* w, lapack_complex_double* vl, lapack_int ldvl, lapack_complex_double* vr, lapack_int ldvr ); -lapack_int LAPACKE_sgeevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_sgeevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, float* a, lapack_int lda, float* wr, float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, float* scale, float* abnrm, float* rconde, float* rcondv ); -lapack_int LAPACKE_dgeevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_dgeevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, double* a, lapack_int lda, double* wr, double* wi, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, double* scale, double* abnrm, double* rconde, double* rcondv ); -lapack_int LAPACKE_cgeevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_cgeevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* w, lapack_complex_float* vl, @@ -638,7 +638,7 @@ lapack_int LAPACKE_cgeevx( int matrix_order, char balanc, char jobvl, lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, float* scale, float* abnrm, float* rconde, float* rcondv ); -lapack_int LAPACKE_zgeevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_zgeevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* w, lapack_complex_double* vl, @@ -647,214 +647,214 @@ lapack_int LAPACKE_zgeevx( int matrix_order, char balanc, char jobvl, double* scale, double* abnrm, double* rconde, double* rcondv ); -lapack_int LAPACKE_sgehrd( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_sgehrd( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgehrd( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_dgehrd( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgehrd( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_cgehrd( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgehrd( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_zgehrd( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_sgejsv( int matrix_order, char joba, char jobu, char jobv, +lapack_int LAPACKE_sgejsv( int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, float* a, lapack_int lda, float* sva, float* u, lapack_int ldu, float* v, lapack_int ldv, float* stat, lapack_int* istat ); -lapack_int LAPACKE_dgejsv( int matrix_order, char joba, char jobu, char jobv, +lapack_int LAPACKE_dgejsv( int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, double* a, lapack_int lda, double* sva, double* u, lapack_int ldu, double* v, lapack_int ldv, double* stat, lapack_int* istat ); -lapack_int LAPACKE_sgelq2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelq2( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgelq2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelq2( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgelq2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelq2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgelq2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelq2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_sgelqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelqf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgelqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelqf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgelqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelqf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgelqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelqf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_sgels( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_sgels( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgels( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_dgels( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgels( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_cgels( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgels( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_zgels( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sgelsd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelsd( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank ); -lapack_int LAPACKE_dgelsd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelsd( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank ); -lapack_int LAPACKE_cgelsd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelsd( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank ); -lapack_int LAPACKE_zgelsd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelsd( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank ); -lapack_int LAPACKE_sgelss( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelss( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank ); -lapack_int LAPACKE_dgelss( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelss( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank ); -lapack_int LAPACKE_cgelss( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelss( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank ); -lapack_int LAPACKE_zgelss( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelss( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank ); -lapack_int LAPACKE_sgelsy( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelsy( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* jpvt, float rcond, lapack_int* rank ); -lapack_int LAPACKE_dgelsy( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelsy( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* jpvt, double rcond, lapack_int* rank ); -lapack_int LAPACKE_cgelsy( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelsy( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_int* jpvt, float rcond, lapack_int* rank ); -lapack_int LAPACKE_zgelsy( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelsy( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_int* jpvt, double rcond, lapack_int* rank ); -lapack_int LAPACKE_sgeqlf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqlf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgeqlf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqlf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgeqlf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqlf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqlf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqlf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_sgeqp3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqp3( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* jpvt, float* tau ); -lapack_int LAPACKE_dgeqp3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqp3( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* jpvt, double* tau ); -lapack_int LAPACKE_cgeqp3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqp3( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* jpvt, lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqp3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqp3( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* jpvt, lapack_complex_double* tau ); -lapack_int LAPACKE_sgeqpf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqpf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* jpvt, float* tau ); -lapack_int LAPACKE_dgeqpf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqpf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* jpvt, double* tau ); -lapack_int LAPACKE_cgeqpf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqpf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* jpvt, lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqpf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqpf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* jpvt, lapack_complex_double* tau ); -lapack_int LAPACKE_sgeqr2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqr2( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgeqr2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqr2( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgeqr2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqr2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqr2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqr2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_sgeqrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgeqrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgeqrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_sgeqrfp( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrfp( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgeqrfp( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrfp( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgeqrfp( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrfp( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqrfp( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrfp( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_sgerfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgerfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dgerfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgerfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cgerfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgerfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zgerfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgerfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -862,7 +862,7 @@ lapack_int LAPACKE_zgerfs( int matrix_order, char trans, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_sgerfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_sgerfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* r, @@ -871,7 +871,7 @@ lapack_int LAPACKE_sgerfsx( int matrix_order, char trans, char equed, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_dgerfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_dgerfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* r, @@ -880,7 +880,7 @@ lapack_int LAPACKE_dgerfsx( int matrix_order, char trans, char equed, double* berr, lapack_int n_err_bnds, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_cgerfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_cgerfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, @@ -891,7 +891,7 @@ lapack_int LAPACKE_cgerfsx( int matrix_order, char trans, char equed, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zgerfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_zgerfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, @@ -903,103 +903,103 @@ lapack_int LAPACKE_zgerfsx( int matrix_order, char trans, char equed, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_sgerqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgerqf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgerqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgerqf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgerqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgerqf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgerqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgerqf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_sgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_sgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, float* a, lapack_int lda, float* s, float* u, lapack_int ldu, float* vt, lapack_int ldvt ); -lapack_int LAPACKE_dgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_dgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, double* a, lapack_int lda, double* s, double* u, lapack_int ldu, double* vt, lapack_int ldvt ); -lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_cgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* vt, lapack_int ldvt ); -lapack_int LAPACKE_zgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_zgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* s, lapack_complex_double* u, lapack_int ldu, lapack_complex_double* vt, lapack_int ldvt ); -lapack_int LAPACKE_sgesv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sgesv( int matrix_layout, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgesv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dgesv( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgesv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_cgesv( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgesv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zgesv( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_dsgesv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dsgesv( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* x, lapack_int ldx, lapack_int* iter ); -lapack_int LAPACKE_zcgesv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zcgesv( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_int* iter ); -lapack_int LAPACKE_sgesvd( int matrix_order, char jobu, char jobvt, +lapack_int LAPACKE_sgesvd( int matrix_layout, char jobu, char jobvt, lapack_int m, lapack_int n, float* a, lapack_int lda, float* s, float* u, lapack_int ldu, float* vt, lapack_int ldvt, float* superb ); -lapack_int LAPACKE_dgesvd( int matrix_order, char jobu, char jobvt, +lapack_int LAPACKE_dgesvd( int matrix_layout, char jobu, char jobvt, lapack_int m, lapack_int n, double* a, lapack_int lda, double* s, double* u, lapack_int ldu, double* vt, lapack_int ldvt, double* superb ); -lapack_int LAPACKE_cgesvd( int matrix_order, char jobu, char jobvt, +lapack_int LAPACKE_cgesvd( int matrix_layout, char jobu, char jobvt, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* vt, lapack_int ldvt, float* superb ); -lapack_int LAPACKE_zgesvd( int matrix_order, char jobu, char jobvt, +lapack_int LAPACKE_zgesvd( int matrix_layout, char jobu, char jobvt, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* s, lapack_complex_double* u, lapack_int ldu, lapack_complex_double* vt, lapack_int ldvt, double* superb ); -lapack_int LAPACKE_sgesvj( int matrix_order, char joba, char jobu, char jobv, +lapack_int LAPACKE_sgesvj( int matrix_layout, char joba, char jobu, char jobv, lapack_int m, lapack_int n, float* a, lapack_int lda, float* sva, lapack_int mv, float* v, lapack_int ldv, float* stat ); -lapack_int LAPACKE_dgesvj( int matrix_order, char joba, char jobu, char jobv, +lapack_int LAPACKE_dgesvj( int matrix_layout, char joba, char jobu, char jobv, lapack_int m, lapack_int n, double* a, lapack_int lda, double* sva, lapack_int mv, double* v, lapack_int ldv, double* stat ); -lapack_int LAPACKE_sgesvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgesvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, char* equed, float* r, float* c, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* rpivot ); -lapack_int LAPACKE_dgesvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgesvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* r, double* c, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* rpivot ); -lapack_int LAPACKE_cgesvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgesvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -1008,7 +1008,7 @@ lapack_int LAPACKE_cgesvx( int matrix_order, char fact, char trans, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* rpivot ); -lapack_int LAPACKE_zgesvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgesvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -1018,7 +1018,7 @@ lapack_int LAPACKE_zgesvx( int matrix_order, char fact, char trans, double* rcond, double* ferr, double* berr, double* rpivot ); -lapack_int LAPACKE_sgesvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgesvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, char* equed, float* r, float* c, @@ -1027,7 +1027,7 @@ lapack_int LAPACKE_sgesvxx( int matrix_order, char fact, char trans, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_dgesvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgesvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* r, double* c, @@ -1036,7 +1036,7 @@ lapack_int LAPACKE_dgesvxx( int matrix_order, char fact, char trans, double* berr, lapack_int n_err_bnds, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_cgesvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgesvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -1047,7 +1047,7 @@ lapack_int LAPACKE_cgesvxx( int matrix_order, char fact, char trans, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zgesvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgesvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -1059,103 +1059,103 @@ lapack_int LAPACKE_zgesvxx( int matrix_order, char fact, char trans, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_sgetf2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgetf2( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetf2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgetf2( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetf2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgetf2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_zgetf2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgetf2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_sgetrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgetrf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgetrf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgetrf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_zgetrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgetrf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_sgetri( int matrix_order, lapack_int n, float* a, +lapack_int LAPACKE_sgetri( int matrix_layout, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_dgetri( int matrix_order, lapack_int n, double* a, +lapack_int LAPACKE_dgetri( int matrix_layout, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_cgetri( int matrix_order, lapack_int n, +lapack_int LAPACKE_cgetri( int matrix_layout, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_zgetri( int matrix_order, lapack_int n, +lapack_int LAPACKE_zgetri( int matrix_layout, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_sgetrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgetrs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgetrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgetrs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgetrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgetrs( int matrix_layout, char trans, lapack_int n, 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_zgetrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgetrs( int matrix_layout, char trans, lapack_int n, 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_sggbak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_sggbak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* lscale, const float* rscale, lapack_int m, float* v, lapack_int ldv ); -lapack_int LAPACKE_dggbak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_dggbak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* lscale, const double* rscale, lapack_int m, double* v, lapack_int ldv ); -lapack_int LAPACKE_cggbak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_cggbak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* lscale, const float* rscale, lapack_int m, lapack_complex_float* v, lapack_int ldv ); -lapack_int LAPACKE_zggbak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_zggbak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* lscale, const double* rscale, lapack_int m, lapack_complex_double* v, lapack_int ldv ); -lapack_int LAPACKE_sggbal( int matrix_order, char job, lapack_int n, float* a, +lapack_int LAPACKE_sggbal( int matrix_layout, char job, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* ilo, lapack_int* ihi, float* lscale, float* rscale ); -lapack_int LAPACKE_dggbal( int matrix_order, char job, lapack_int n, double* a, +lapack_int LAPACKE_dggbal( int matrix_layout, char job, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* ilo, lapack_int* ihi, double* lscale, double* rscale ); -lapack_int LAPACKE_cggbal( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_cggbal( int matrix_layout, char job, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_int* ilo, lapack_int* ihi, float* lscale, float* rscale ); -lapack_int LAPACKE_zggbal( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_zggbal( int matrix_layout, char job, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_int* ilo, lapack_int* ihi, double* lscale, double* rscale ); -lapack_int LAPACKE_sgges( int matrix_order, char jobvsl, char jobvsr, char sort, +lapack_int LAPACKE_sgges( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_S_SELECT3 selctg, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* sdim, float* alphar, float* alphai, float* beta, float* vsl, lapack_int ldvsl, float* vsr, lapack_int ldvsr ); -lapack_int LAPACKE_dgges( int matrix_order, char jobvsl, char jobvsr, char sort, +lapack_int LAPACKE_dgges( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_D_SELECT3 selctg, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* sdim, double* alphar, double* alphai, double* beta, double* vsl, lapack_int ldvsl, double* vsr, lapack_int ldvsr ); -lapack_int LAPACKE_cgges( int matrix_order, char jobvsl, char jobvsr, char sort, +lapack_int LAPACKE_cgges( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_C_SELECT2 selctg, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -1163,7 +1163,7 @@ lapack_int LAPACKE_cgges( int matrix_order, char jobvsl, char jobvsr, char sort, lapack_complex_float* beta, lapack_complex_float* vsl, lapack_int ldvsl, lapack_complex_float* vsr, lapack_int ldvsr ); -lapack_int LAPACKE_zgges( int matrix_order, char jobvsl, char jobvsr, char sort, +lapack_int LAPACKE_zgges( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_Z_SELECT2 selctg, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -1172,21 +1172,21 @@ lapack_int LAPACKE_zgges( int matrix_order, char jobvsl, char jobvsr, char sort, lapack_complex_double* vsl, lapack_int ldvsl, lapack_complex_double* vsr, lapack_int ldvsr ); -lapack_int LAPACKE_sggesx( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_sggesx( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_S_SELECT3 selctg, char sense, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* sdim, float* alphar, float* alphai, float* beta, float* vsl, lapack_int ldvsl, float* vsr, lapack_int ldvsr, float* rconde, float* rcondv ); -lapack_int LAPACKE_dggesx( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_dggesx( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_D_SELECT3 selctg, char sense, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* sdim, double* alphar, double* alphai, double* beta, double* vsl, lapack_int ldvsl, double* vsr, lapack_int ldvsr, double* rconde, double* rcondv ); -lapack_int LAPACKE_cggesx( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_cggesx( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_C_SELECT2 selctg, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, @@ -1196,7 +1196,7 @@ lapack_int LAPACKE_cggesx( int matrix_order, char jobvsl, char jobvsr, lapack_complex_float* vsl, lapack_int ldvsl, lapack_complex_float* vsr, lapack_int ldvsr, float* rconde, float* rcondv ); -lapack_int LAPACKE_zggesx( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_zggesx( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_Z_SELECT2 selctg, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, @@ -1207,24 +1207,24 @@ lapack_int LAPACKE_zggesx( int matrix_order, char jobvsl, char jobvsr, lapack_complex_double* vsr, lapack_int ldvsr, double* rconde, double* rcondv ); -lapack_int LAPACKE_sggev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_sggev( int matrix_layout, char jobvl, char jobvr, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* alphar, float* alphai, float* beta, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr ); -lapack_int LAPACKE_dggev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_dggev( int matrix_layout, char jobvl, char jobvr, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* alphar, double* alphai, double* beta, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr ); -lapack_int LAPACKE_cggev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_cggev( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* alpha, lapack_complex_float* beta, lapack_complex_float* vl, lapack_int ldvl, lapack_complex_float* vr, lapack_int ldvr ); -lapack_int LAPACKE_zggev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_zggev( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* alpha, @@ -1232,7 +1232,7 @@ lapack_int LAPACKE_zggev( int matrix_order, char jobvl, char jobvr, lapack_complex_double* vl, lapack_int ldvl, lapack_complex_double* vr, lapack_int ldvr ); -lapack_int LAPACKE_sggevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_sggevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* alphar, float* alphai, float* beta, float* vl, @@ -1240,7 +1240,7 @@ lapack_int LAPACKE_sggevx( int matrix_order, char balanc, char jobvl, lapack_int* ilo, lapack_int* ihi, float* lscale, float* rscale, float* abnrm, float* bbnrm, float* rconde, float* rcondv ); -lapack_int LAPACKE_dggevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_dggevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* alphar, double* alphai, double* beta, @@ -1248,7 +1248,7 @@ lapack_int LAPACKE_dggevx( int matrix_order, char balanc, char jobvl, lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, double* lscale, double* rscale, double* abnrm, double* bbnrm, double* rconde, double* rcondv ); -lapack_int LAPACKE_cggevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_cggevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -1258,7 +1258,7 @@ lapack_int LAPACKE_cggevx( int matrix_order, char balanc, char jobvl, lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, float* lscale, float* rscale, float* abnrm, float* bbnrm, float* rconde, float* rcondv ); -lapack_int LAPACKE_zggevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_zggevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -1270,113 +1270,113 @@ lapack_int LAPACKE_zggevx( int matrix_order, char balanc, char jobvl, double* rscale, double* abnrm, double* bbnrm, double* rconde, double* rcondv ); -lapack_int LAPACKE_sggglm( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_sggglm( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, float* a, lapack_int lda, float* b, lapack_int ldb, float* d, float* x, float* y ); -lapack_int LAPACKE_dggglm( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_dggglm( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, double* a, lapack_int lda, double* b, lapack_int ldb, double* d, double* x, double* y ); -lapack_int LAPACKE_cggglm( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_cggglm( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* d, lapack_complex_float* x, lapack_complex_float* y ); -lapack_int LAPACKE_zggglm( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_zggglm( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* d, lapack_complex_double* x, lapack_complex_double* y ); -lapack_int LAPACKE_sgghrd( int matrix_order, char compq, char compz, +lapack_int LAPACKE_sgghrd( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, float* a, lapack_int lda, float* b, lapack_int ldb, float* q, lapack_int ldq, float* z, lapack_int ldz ); -lapack_int LAPACKE_dgghrd( int matrix_order, char compq, char compz, +lapack_int LAPACKE_dgghrd( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, double* a, lapack_int lda, double* b, lapack_int ldb, double* q, lapack_int ldq, double* z, lapack_int ldz ); -lapack_int LAPACKE_cgghrd( int matrix_order, char compq, char compz, +lapack_int LAPACKE_cgghrd( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zgghrd( int matrix_order, char compq, char compz, +lapack_int LAPACKE_zgghrd( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* q, lapack_int ldq, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_sgglse( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgglse( int matrix_layout, lapack_int m, lapack_int n, lapack_int p, float* a, lapack_int lda, float* b, lapack_int ldb, float* c, float* d, float* x ); -lapack_int LAPACKE_dgglse( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgglse( int matrix_layout, lapack_int m, lapack_int n, lapack_int p, double* a, lapack_int lda, double* b, lapack_int ldb, double* c, double* d, double* x ); -lapack_int LAPACKE_cgglse( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgglse( int matrix_layout, lapack_int m, lapack_int n, lapack_int p, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* c, lapack_complex_float* d, lapack_complex_float* x ); -lapack_int LAPACKE_zgglse( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgglse( int matrix_layout, lapack_int m, lapack_int n, lapack_int p, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* c, lapack_complex_double* d, lapack_complex_double* x ); -lapack_int LAPACKE_sggqrf( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_sggqrf( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, float* a, lapack_int lda, float* taua, float* b, lapack_int ldb, float* taub ); -lapack_int LAPACKE_dggqrf( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_dggqrf( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, double* a, lapack_int lda, double* taua, double* b, lapack_int ldb, double* taub ); -lapack_int LAPACKE_cggqrf( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_cggqrf( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, lapack_complex_float* a, lapack_int lda, lapack_complex_float* taua, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* taub ); -lapack_int LAPACKE_zggqrf( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_zggqrf( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, lapack_complex_double* a, lapack_int lda, lapack_complex_double* taua, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* taub ); -lapack_int LAPACKE_sggrqf( int matrix_order, lapack_int m, lapack_int p, +lapack_int LAPACKE_sggrqf( int matrix_layout, lapack_int m, lapack_int p, lapack_int n, float* a, lapack_int lda, float* taua, float* b, lapack_int ldb, float* taub ); -lapack_int LAPACKE_dggrqf( int matrix_order, lapack_int m, lapack_int p, +lapack_int LAPACKE_dggrqf( int matrix_layout, lapack_int m, lapack_int p, lapack_int n, double* a, lapack_int lda, double* taua, double* b, lapack_int ldb, double* taub ); -lapack_int LAPACKE_cggrqf( int matrix_order, lapack_int m, lapack_int p, +lapack_int LAPACKE_cggrqf( int matrix_layout, lapack_int m, lapack_int p, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* taua, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* taub ); -lapack_int LAPACKE_zggrqf( int matrix_order, lapack_int m, lapack_int p, +lapack_int LAPACKE_zggrqf( int matrix_layout, lapack_int m, lapack_int p, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* taua, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* taub ); -lapack_int LAPACKE_sggsvd( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_sggsvd( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int n, lapack_int p, lapack_int* k, lapack_int* l, float* a, lapack_int lda, float* b, lapack_int ldb, float* alpha, float* beta, float* u, lapack_int ldu, float* v, lapack_int ldv, float* q, lapack_int ldq, lapack_int* iwork ); -lapack_int LAPACKE_dggsvd( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_dggsvd( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int n, lapack_int p, lapack_int* k, lapack_int* l, double* a, lapack_int lda, double* b, lapack_int ldb, double* alpha, double* beta, double* u, lapack_int ldu, double* v, lapack_int ldv, double* q, lapack_int ldq, lapack_int* iwork ); -lapack_int LAPACKE_cggsvd( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_cggsvd( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int n, lapack_int p, lapack_int* k, lapack_int* l, lapack_complex_float* a, lapack_int lda, @@ -1385,7 +1385,7 @@ lapack_int LAPACKE_cggsvd( int matrix_order, char jobu, char jobv, char jobq, lapack_int ldu, lapack_complex_float* v, lapack_int ldv, lapack_complex_float* q, lapack_int ldq, lapack_int* iwork ); -lapack_int LAPACKE_zggsvd( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_zggsvd( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int n, lapack_int p, lapack_int* k, lapack_int* l, lapack_complex_double* a, lapack_int lda, @@ -1396,19 +1396,19 @@ lapack_int LAPACKE_zggsvd( int matrix_order, char jobu, char jobv, char jobq, lapack_complex_double* q, lapack_int ldq, lapack_int* iwork ); -lapack_int LAPACKE_sggsvp( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_sggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float tola, float tolb, lapack_int* k, lapack_int* l, float* u, lapack_int ldu, float* v, lapack_int ldv, float* q, lapack_int ldq ); -lapack_int LAPACKE_dggsvp( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_dggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double tola, double tolb, lapack_int* k, lapack_int* l, double* u, lapack_int ldu, double* v, lapack_int ldv, double* q, lapack_int ldq ); -lapack_int LAPACKE_cggsvp( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_cggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float tola, @@ -1416,7 +1416,7 @@ lapack_int LAPACKE_cggsvp( int matrix_order, char jobu, char jobv, char jobq, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* v, lapack_int ldv, lapack_complex_float* q, lapack_int ldq ); -lapack_int LAPACKE_zggsvp( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_zggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -1447,21 +1447,21 @@ lapack_int LAPACKE_zgtcon( char norm, lapack_int n, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_sgtrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgtrfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* dl, const float* d, const float* du, const float* dlf, const float* df, const float* duf, const float* du2, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dgtrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgtrfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* dl, const double* d, const double* du, const double* dlf, const double* df, const double* duf, const double* du2, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cgtrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgtrfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* dl, const lapack_complex_float* d, const lapack_complex_float* du, @@ -1473,7 +1473,7 @@ lapack_int LAPACKE_cgtrfs( int matrix_order, char trans, lapack_int n, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zgtrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgtrfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* dl, const lapack_complex_double* d, const lapack_complex_double* du, @@ -1486,36 +1486,36 @@ lapack_int LAPACKE_zgtrfs( int matrix_order, char trans, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_sgtsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sgtsv( int matrix_layout, lapack_int n, lapack_int nrhs, float* dl, float* d, float* du, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgtsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dgtsv( int matrix_layout, lapack_int n, lapack_int nrhs, double* dl, double* d, double* du, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgtsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_cgtsv( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_float* dl, lapack_complex_float* d, lapack_complex_float* du, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgtsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zgtsv( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* dl, lapack_complex_double* d, lapack_complex_double* du, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sgtsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgtsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, const float* dl, const float* d, const float* du, float* dlf, float* df, float* duf, float* du2, lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_dgtsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgtsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, const double* dl, const double* d, const double* du, double* dlf, double* df, double* duf, double* du2, lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_cgtsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgtsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* dl, const lapack_complex_float* d, @@ -1526,7 +1526,7 @@ lapack_int LAPACKE_cgtsvx( int matrix_order, char fact, char trans, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zgtsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgtsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* dl, const lapack_complex_double* d, @@ -1550,22 +1550,22 @@ lapack_int LAPACKE_zgttrf( lapack_int n, lapack_complex_double* dl, lapack_complex_double* d, lapack_complex_double* du, lapack_complex_double* du2, lapack_int* ipiv ); -lapack_int LAPACKE_sgttrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgttrs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* dl, const float* d, const float* du, const float* du2, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgttrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgttrs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* dl, const double* d, const double* du, const double* du2, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgttrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgttrs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* dl, const lapack_complex_float* d, const lapack_complex_float* du, const lapack_complex_float* du2, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgttrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgttrs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* dl, const lapack_complex_double* d, const lapack_complex_double* du, @@ -1573,32 +1573,32 @@ lapack_int LAPACKE_zgttrs( int matrix_order, char trans, lapack_int n, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_chbev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_chbev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab, float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhbev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zhbev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab, double* w, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chbevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_chbevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab, float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhbevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zhbevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab, double* w, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chbevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_chbevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* q, lapack_int ldq, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, lapack_complex_float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhbevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_zhbevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* q, lapack_int ldq, double vl, @@ -1607,41 +1607,41 @@ lapack_int LAPACKE_zhbevx( int matrix_order, char jobz, char range, char uplo, lapack_complex_double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_chbgst( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_chbgst( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* bb, lapack_int ldbb, lapack_complex_float* x, lapack_int ldx ); -lapack_int LAPACKE_zhbgst( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_zhbgst( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* bb, lapack_int ldbb, lapack_complex_double* x, lapack_int ldx ); -lapack_int LAPACKE_chbgv( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_chbgv( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* bb, lapack_int ldbb, float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhbgv( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zhbgv( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* bb, lapack_int ldbb, double* w, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chbgvd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_chbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* bb, lapack_int ldbb, float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhbgvd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zhbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* bb, lapack_int ldbb, double* w, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chbgvx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_chbgvx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* bb, lapack_int ldbb, @@ -1649,7 +1649,7 @@ lapack_int LAPACKE_chbgvx( int matrix_order, char jobz, char range, char uplo, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, lapack_complex_float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhbgvx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_zhbgvx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* bb, lapack_int ldbb, @@ -1659,102 +1659,102 @@ lapack_int LAPACKE_zhbgvx( int matrix_order, char jobz, char range, char uplo, lapack_complex_double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_chbtrd( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_chbtrd( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab, float* d, float* e, lapack_complex_float* q, lapack_int ldq ); -lapack_int LAPACKE_zhbtrd( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_zhbtrd( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab, double* d, double* e, lapack_complex_double* q, lapack_int ldq ); -lapack_int LAPACKE_checon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_checon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zhecon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhecon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_cheequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cheequb( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zheequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zheequb( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cheev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_cheev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_zheev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zheev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double* w ); -lapack_int LAPACKE_cheevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_cheevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_zheevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zheevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double* w ); -lapack_int LAPACKE_cheevr( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_cheevr( 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, lapack_complex_float* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_zheevr( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_zheevr( 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, double* w, lapack_complex_double* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_cheevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_cheevx( 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, lapack_complex_float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zheevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_zheevx( 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, double* w, lapack_complex_double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_chegst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_chegst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhegst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_zhegst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_chegv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chegv( 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 ); -lapack_int LAPACKE_zhegv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhegv( 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 ); -lapack_int LAPACKE_chegvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chegvd( 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 ); -lapack_int LAPACKE_zhegvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhegvd( 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 ); -lapack_int LAPACKE_chegvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chegvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, lapack_complex_float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhegvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhegvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double vl, @@ -1763,14 +1763,14 @@ lapack_int LAPACKE_zhegvx( int matrix_order, lapack_int itype, char jobz, lapack_complex_double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_cherfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cherfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zherfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zherfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -1778,7 +1778,7 @@ lapack_int LAPACKE_zherfs( int matrix_order, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cherfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_cherfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, @@ -1788,7 +1788,7 @@ lapack_int LAPACKE_cherfsx( int matrix_order, char uplo, char equed, float* rcond, float* berr, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zherfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zherfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, @@ -1799,23 +1799,23 @@ lapack_int LAPACKE_zherfsx( int matrix_order, char uplo, char equed, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_chesv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chesv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhesv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhesv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_chesvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_chesvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zhesvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zhesvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, lapack_int* ipiv, @@ -1823,7 +1823,7 @@ lapack_int LAPACKE_zhesvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_chesvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_chesvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -1834,7 +1834,7 @@ lapack_int LAPACKE_chesvxx( int matrix_order, char fact, char uplo, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zhesvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zhesvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -1846,57 +1846,57 @@ lapack_int LAPACKE_zhesvxx( int matrix_order, char fact, char uplo, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_chetrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrd( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float* d, float* e, lapack_complex_float* tau ); -lapack_int LAPACKE_zhetrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrd( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double* d, double* e, lapack_complex_double* tau ); -lapack_int LAPACKE_chetrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_zhetrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_chetri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_zhetri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_chetrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrs( int matrix_layout, char uplo, lapack_int n, 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_zhetrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrs( int matrix_layout, char uplo, lapack_int n, 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_chfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_chfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, float alpha, const lapack_complex_float* a, lapack_int lda, float beta, lapack_complex_float* c ); -lapack_int LAPACKE_zhfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_zhfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const lapack_complex_double* a, lapack_int lda, double beta, lapack_complex_double* c ); -lapack_int LAPACKE_shgeqz( int matrix_order, char job, char compq, char compz, +lapack_int LAPACKE_shgeqz( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, float* h, lapack_int ldh, float* t, lapack_int ldt, float* alphar, float* alphai, float* beta, float* q, lapack_int ldq, float* z, lapack_int ldz ); -lapack_int LAPACKE_dhgeqz( int matrix_order, char job, char compq, char compz, +lapack_int LAPACKE_dhgeqz( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, double* h, lapack_int ldh, double* t, lapack_int ldt, double* alphar, double* alphai, double* beta, double* q, lapack_int ldq, double* z, lapack_int ldz ); -lapack_int LAPACKE_chgeqz( int matrix_order, char job, char compq, char compz, +lapack_int LAPACKE_chgeqz( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* h, lapack_int ldh, lapack_complex_float* t, lapack_int ldt, @@ -1904,7 +1904,7 @@ lapack_int LAPACKE_chgeqz( int matrix_order, char job, char compq, char compz, lapack_complex_float* beta, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhgeqz( int matrix_order, char job, char compq, char compz, +lapack_int LAPACKE_zhgeqz( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* h, lapack_int ldh, lapack_complex_double* t, lapack_int ldt, @@ -1913,73 +1913,73 @@ lapack_int LAPACKE_zhgeqz( int matrix_order, char job, char compq, char compz, lapack_complex_double* q, lapack_int ldq, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chpcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chpcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zhpcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhpcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_chpev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_chpev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhpev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zhpev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, double* w, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chpevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_chpevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhpevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zhpevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, double* w, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chpevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_chpevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* ap, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, lapack_complex_float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhpevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_zhpevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* ap, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, lapack_complex_double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_chpgst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_chpgst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_complex_float* bp ); -lapack_int LAPACKE_zhpgst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_zhpgst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_complex_double* bp ); -lapack_int LAPACKE_chpgv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhpgv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chpgvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhpgvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_chpgvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, lapack_complex_float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhpgvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double vl, double vu, lapack_int il, lapack_int iu, @@ -1987,14 +1987,14 @@ lapack_int LAPACKE_zhpgvx( int matrix_order, lapack_int itype, char jobz, lapack_complex_double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_chprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zhprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, const lapack_int* ipiv, @@ -2002,75 +2002,75 @@ lapack_int LAPACKE_zhprfs( int matrix_order, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_chpsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chpsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhpsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhpsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_chpsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_chpsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* afp, lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zhpsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zhpsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* afp, lapack_int* ipiv, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_chptrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrd( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, float* d, float* e, lapack_complex_float* tau ); -lapack_int LAPACKE_zhptrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrd( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, double* d, double* e, lapack_complex_double* tau ); -lapack_int LAPACKE_chptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_zhptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, lapack_int* ipiv ); -lapack_int LAPACKE_chptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_zhptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_chptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_shsein( int matrix_order, char job, char eigsrc, char initv, +lapack_int LAPACKE_shsein( int matrix_layout, char job, char eigsrc, char initv, lapack_logical* select, lapack_int n, const float* h, lapack_int ldh, float* wr, const float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_dhsein( int matrix_order, char job, char eigsrc, char initv, +lapack_int LAPACKE_dhsein( int matrix_layout, char job, char eigsrc, char initv, lapack_logical* select, lapack_int n, const double* h, lapack_int ldh, double* wr, const double* wi, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_chsein( int matrix_order, char job, char eigsrc, char initv, +lapack_int LAPACKE_chsein( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, lapack_complex_float* vl, lapack_int ldvl, lapack_complex_float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_zhsein( int matrix_order, char job, char eigsrc, char initv, +lapack_int LAPACKE_zhsein( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_double* h, lapack_int ldh, lapack_complex_double* w, lapack_complex_double* vl, @@ -2078,20 +2078,20 @@ lapack_int LAPACKE_zhsein( int matrix_order, char job, char eigsrc, char initv, lapack_int ldvr, lapack_int mm, lapack_int* m, lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_shseqr( int matrix_order, char job, char compz, lapack_int n, +lapack_int LAPACKE_shseqr( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, float* h, lapack_int ldh, float* wr, float* wi, float* z, lapack_int ldz ); -lapack_int LAPACKE_dhseqr( int matrix_order, char job, char compz, lapack_int n, +lapack_int LAPACKE_dhseqr( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, double* h, lapack_int ldh, double* wr, double* wi, double* z, lapack_int ldz ); -lapack_int LAPACKE_chseqr( int matrix_order, char job, char compz, lapack_int n, +lapack_int LAPACKE_chseqr( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhseqr( int matrix_order, char job, char compz, lapack_int n, +lapack_int LAPACKE_zhseqr( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* h, lapack_int ldh, lapack_complex_double* w, lapack_complex_double* z, @@ -2113,55 +2113,55 @@ lapack_int LAPACKE_zlacn2( lapack_int n, lapack_complex_double* v, lapack_complex_double* x, double* est, lapack_int* kase, lapack_int* isave ); -lapack_int LAPACKE_slacpy( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_slacpy( int matrix_layout, char uplo, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dlacpy( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_dlacpy( int matrix_layout, char uplo, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_clacpy( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_clacpy( int matrix_layout, char uplo, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zlacpy( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlacpy( int matrix_layout, char uplo, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_clacp2( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_clacp2( int matrix_layout, char uplo, lapack_int m, lapack_int n, const float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zlacp2( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlacp2( int matrix_layout, char uplo, lapack_int m, lapack_int n, const double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zlag2c( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlag2c( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_float* sa, lapack_int ldsa ); -lapack_int LAPACKE_slag2d( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_slag2d( int matrix_layout, lapack_int m, lapack_int n, const float* sa, lapack_int ldsa, double* a, lapack_int lda ); -lapack_int LAPACKE_dlag2s( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dlag2s( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, float* sa, lapack_int ldsa ); -lapack_int LAPACKE_clag2z( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clag2z( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* sa, lapack_int ldsa, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_slagge( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_slagge( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* d, float* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_dlagge( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dlagge( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* d, double* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_clagge( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clagge( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_zlagge( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlagge( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed ); @@ -2169,62 +2169,62 @@ lapack_int LAPACKE_zlagge( int matrix_order, lapack_int m, lapack_int n, float LAPACKE_slamch( char cmach ); double LAPACKE_dlamch( char cmach ); -float LAPACKE_slange( int matrix_order, char norm, lapack_int m, +float LAPACKE_slange( int matrix_layout, char norm, lapack_int m, lapack_int n, const float* a, lapack_int lda ); -double LAPACKE_dlange( int matrix_order, char norm, lapack_int m, +double LAPACKE_dlange( int matrix_layout, char norm, lapack_int m, lapack_int n, const double* a, lapack_int lda ); -float LAPACKE_clange( int matrix_order, char norm, lapack_int m, +float LAPACKE_clange( int matrix_layout, char norm, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda ); -double LAPACKE_zlange( int matrix_order, char norm, lapack_int m, +double LAPACKE_zlange( int matrix_layout, char norm, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda ); -float LAPACKE_clanhe( int matrix_order, char norm, char uplo, lapack_int n, +float LAPACKE_clanhe( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda ); -double LAPACKE_zlanhe( int matrix_order, char norm, char uplo, lapack_int n, +double LAPACKE_zlanhe( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda ); -float LAPACKE_slansy( int matrix_order, char norm, char uplo, lapack_int n, +float LAPACKE_slansy( int matrix_layout, char norm, char uplo, lapack_int n, const float* a, lapack_int lda ); -double LAPACKE_dlansy( int matrix_order, char norm, char uplo, lapack_int n, +double LAPACKE_dlansy( int matrix_layout, char norm, char uplo, lapack_int n, const double* a, lapack_int lda ); -float LAPACKE_clansy( int matrix_order, char norm, char uplo, lapack_int n, +float LAPACKE_clansy( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda ); -double LAPACKE_zlansy( int matrix_order, char norm, char uplo, lapack_int n, +double LAPACKE_zlansy( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda ); -float LAPACKE_slantr( int matrix_order, char norm, char uplo, char diag, +float LAPACKE_slantr( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const float* a, lapack_int lda ); -double LAPACKE_dlantr( int matrix_order, char norm, char uplo, char diag, +double LAPACKE_dlantr( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const double* a, lapack_int lda ); -float LAPACKE_clantr( int matrix_order, char norm, char uplo, char diag, +float LAPACKE_clantr( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda ); -double LAPACKE_zlantr( int matrix_order, char norm, char uplo, char diag, +double LAPACKE_zlantr( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_slarfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_slarfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* c, lapack_int ldc ); -lapack_int LAPACKE_dlarfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_dlarfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* c, lapack_int ldc ); -lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_clarfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, lapack_int ldt, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_zlarfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, @@ -2242,36 +2242,36 @@ lapack_int LAPACKE_zlarfg( lapack_int n, lapack_complex_double* alpha, lapack_complex_double* x, lapack_int incx, lapack_complex_double* tau ); -lapack_int LAPACKE_slarft( int matrix_order, char direct, char storev, +lapack_int LAPACKE_slarft( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const float* v, lapack_int ldv, const float* tau, float* t, lapack_int ldt ); -lapack_int LAPACKE_dlarft( int matrix_order, char direct, char storev, +lapack_int LAPACKE_dlarft( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const double* v, lapack_int ldv, const double* tau, double* t, lapack_int ldt ); -lapack_int LAPACKE_clarft( int matrix_order, char direct, char storev, +lapack_int LAPACKE_clarft( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* tau, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zlarft( int matrix_order, char direct, char storev, +lapack_int LAPACKE_zlarft( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* tau, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_slarfx( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_slarfx( int matrix_layout, char side, lapack_int m, lapack_int n, const float* v, float tau, float* c, lapack_int ldc, float* work ); -lapack_int LAPACKE_dlarfx( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_dlarfx( int matrix_layout, char side, lapack_int m, lapack_int n, const double* v, double tau, double* c, lapack_int ldc, double* work ); -lapack_int LAPACKE_clarfx( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_clarfx( int matrix_layout, char side, lapack_int m, lapack_int n, const lapack_complex_float* v, lapack_complex_float tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work ); -lapack_int LAPACKE_zlarfx( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_zlarfx( int matrix_layout, char side, lapack_int m, lapack_int n, const lapack_complex_double* v, lapack_complex_double tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work ); @@ -2285,17 +2285,17 @@ lapack_int LAPACKE_clarnv( lapack_int idist, lapack_int* iseed, lapack_int n, lapack_int LAPACKE_zlarnv( lapack_int idist, lapack_int* iseed, lapack_int n, lapack_complex_double* x ); -lapack_int LAPACKE_slaset( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_slaset( int matrix_layout, char uplo, lapack_int m, lapack_int n, float alpha, float beta, float* a, lapack_int lda ); -lapack_int LAPACKE_dlaset( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_dlaset( int matrix_layout, char uplo, lapack_int m, lapack_int n, double alpha, double beta, double* a, lapack_int lda ); -lapack_int LAPACKE_claset( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_claset( int matrix_layout, char uplo, lapack_int m, lapack_int n, lapack_complex_float alpha, lapack_complex_float beta, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlaset( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlaset( int matrix_layout, char uplo, lapack_int m, lapack_int n, lapack_complex_double alpha, lapack_complex_double beta, lapack_complex_double* a, lapack_int lda ); @@ -2303,230 +2303,230 @@ lapack_int LAPACKE_zlaset( int matrix_order, char uplo, lapack_int m, lapack_int LAPACKE_slasrt( char id, lapack_int n, float* d ); lapack_int LAPACKE_dlasrt( char id, lapack_int n, double* d ); -lapack_int LAPACKE_slaswp( int matrix_order, lapack_int n, float* a, +lapack_int LAPACKE_slaswp( int matrix_layout, lapack_int n, float* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_dlaswp( int matrix_order, lapack_int n, double* a, +lapack_int LAPACKE_dlaswp( int matrix_layout, lapack_int n, double* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_claswp( int matrix_order, lapack_int n, +lapack_int LAPACKE_claswp( int matrix_layout, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_zlaswp( int matrix_order, lapack_int n, +lapack_int LAPACKE_zlaswp( int matrix_layout, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_slatms( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_slatms( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, float* d, lapack_int mode, float cond, float dmax, lapack_int kl, lapack_int ku, char pack, float* a, lapack_int lda ); -lapack_int LAPACKE_dlatms( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dlatms( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, double* d, lapack_int mode, double cond, double dmax, lapack_int kl, lapack_int ku, char pack, double* a, lapack_int lda ); -lapack_int LAPACKE_clatms( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clatms( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, float* d, lapack_int mode, float cond, float dmax, lapack_int kl, lapack_int ku, char pack, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlatms( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlatms( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, double* d, lapack_int mode, double cond, double dmax, lapack_int kl, lapack_int ku, char pack, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_slauum( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_slauum( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dlauum( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dlauum( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_clauum( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_clauum( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlauum( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zlauum( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_sopgtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sopgtr( int matrix_layout, char uplo, lapack_int n, const float* ap, const float* tau, float* q, lapack_int ldq ); -lapack_int LAPACKE_dopgtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dopgtr( int matrix_layout, char uplo, lapack_int n, const double* ap, const double* tau, double* q, lapack_int ldq ); -lapack_int LAPACKE_sopmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_sopmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const float* ap, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dopmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_dopmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const double* ap, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_sorgbr( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_sorgbr( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau ); -lapack_int LAPACKE_dorgbr( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_dorgbr( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau ); -lapack_int LAPACKE_sorghr( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_sorghr( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, float* a, lapack_int lda, const float* tau ); -lapack_int LAPACKE_dorghr( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_dorghr( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, double* a, lapack_int lda, const double* tau ); -lapack_int LAPACKE_sorglq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sorglq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau ); -lapack_int LAPACKE_dorglq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dorglq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau ); -lapack_int LAPACKE_sorgql( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sorgql( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau ); -lapack_int LAPACKE_dorgql( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dorgql( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau ); -lapack_int LAPACKE_sorgqr( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sorgqr( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau ); -lapack_int LAPACKE_dorgqr( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dorgqr( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau ); -lapack_int LAPACKE_sorgrq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sorgrq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau ); -lapack_int LAPACKE_dorgrq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dorgrq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau ); -lapack_int LAPACKE_sorgtr( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_sorgtr( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const float* tau ); -lapack_int LAPACKE_dorgtr( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dorgtr( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const double* tau ); -lapack_int LAPACKE_sormbr( int matrix_order, char vect, char side, char trans, +lapack_int LAPACKE_sormbr( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormbr( int matrix_order, char vect, char side, char trans, +lapack_int LAPACKE_dormbr( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_sormhr( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormhr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormhr( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormhr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_sormlq( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormlq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormlq( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormlq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_sormql( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormql( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormql( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormql( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_sormqr( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormqr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormqr( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormqr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_sormrq( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormrq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormrq( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormrq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_sormrz( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormrz( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormrz( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormrz( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_sormtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_sormtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_dormtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc ); -lapack_int LAPACKE_spbcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbcon( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab, float anorm, float* rcond ); -lapack_int LAPACKE_dpbcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbcon( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab, double anorm, double* rcond ); -lapack_int LAPACKE_cpbcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbcon( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float anorm, float* rcond ); -lapack_int LAPACKE_zpbcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbcon( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double anorm, double* rcond ); -lapack_int LAPACKE_spbequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbequ( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dpbequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbequ( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cpbequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbequ( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpbequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbequ( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double* s, double* scond, double* amax ); -lapack_int LAPACKE_spbrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbrfs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, lapack_int ldafb, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dpbrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbrfs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, lapack_int ldafb, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cpbrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbrfs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, lapack_int ldafb, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zpbrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbrfs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* afb, lapack_int ldafb, @@ -2534,45 +2534,45 @@ lapack_int LAPACKE_zpbrfs( int matrix_order, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_spbstf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbstf( int matrix_layout, char uplo, lapack_int n, lapack_int kb, float* bb, lapack_int ldbb ); -lapack_int LAPACKE_dpbstf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbstf( int matrix_layout, char uplo, lapack_int n, lapack_int kb, double* bb, lapack_int ldbb ); -lapack_int LAPACKE_cpbstf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbstf( int matrix_layout, char uplo, lapack_int n, lapack_int kb, lapack_complex_float* bb, lapack_int ldbb ); -lapack_int LAPACKE_zpbstf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbstf( int matrix_layout, char uplo, lapack_int n, lapack_int kb, lapack_complex_double* bb, lapack_int ldbb ); -lapack_int LAPACKE_spbsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbsv( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, float* ab, lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpbsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbsv( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, double* ab, lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpbsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbsv( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpbsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbsv( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_spbsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_spbsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_dpbsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dpbsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_cpbsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_cpbsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, lapack_int ldafb, @@ -2580,7 +2580,7 @@ lapack_int LAPACKE_cpbsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zpbsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zpbsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, lapack_int ldafb, @@ -2589,128 +2589,128 @@ lapack_int LAPACKE_zpbsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_spbtrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbtrf( int matrix_layout, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab ); -lapack_int LAPACKE_dpbtrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbtrf( int matrix_layout, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab ); -lapack_int LAPACKE_cpbtrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbtrf( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab ); -lapack_int LAPACKE_zpbtrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbtrf( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab ); -lapack_int LAPACKE_spbtrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbtrs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpbtrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbtrs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpbtrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbtrs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpbtrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbtrs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_spftrf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_spftrf( int matrix_layout, char transr, char uplo, lapack_int n, float* a ); -lapack_int LAPACKE_dpftrf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dpftrf( int matrix_layout, char transr, char uplo, lapack_int n, double* a ); -lapack_int LAPACKE_cpftrf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftrf( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_zpftrf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftrf( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_double* a ); -lapack_int LAPACKE_spftri( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_spftri( int matrix_layout, char transr, char uplo, lapack_int n, float* a ); -lapack_int LAPACKE_dpftri( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dpftri( int matrix_layout, char transr, char uplo, lapack_int n, double* a ); -lapack_int LAPACKE_cpftri( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftri( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_zpftri( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftri( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_double* a ); -lapack_int LAPACKE_spftrs( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_spftrs( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const float* a, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpftrs( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dpftrs( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const double* a, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpftrs( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftrs( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpftrs( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftrs( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_spocon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spocon( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float anorm, float* rcond ); -lapack_int LAPACKE_dpocon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpocon( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double anorm, double* rcond ); -lapack_int LAPACKE_cpocon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpocon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float anorm, float* rcond ); -lapack_int LAPACKE_zpocon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpocon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double anorm, double* rcond ); -lapack_int LAPACKE_spoequ( int matrix_order, lapack_int n, const float* a, +lapack_int LAPACKE_spoequ( int matrix_layout, lapack_int n, const float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dpoequ( int matrix_order, lapack_int n, const double* a, +lapack_int LAPACKE_dpoequ( int matrix_layout, lapack_int n, const double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cpoequ( int matrix_order, lapack_int n, +lapack_int LAPACKE_cpoequ( int matrix_layout, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpoequ( int matrix_order, lapack_int n, +lapack_int LAPACKE_zpoequ( int matrix_layout, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_spoequb( int matrix_order, lapack_int n, const float* a, +lapack_int LAPACKE_spoequb( int matrix_layout, lapack_int n, const float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dpoequb( int matrix_order, lapack_int n, const double* a, +lapack_int LAPACKE_dpoequb( int matrix_layout, lapack_int n, const double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cpoequb( int matrix_order, lapack_int n, +lapack_int LAPACKE_cpoequb( int matrix_layout, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpoequb( int matrix_order, lapack_int n, +lapack_int LAPACKE_zpoequb( int matrix_layout, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_sporfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sporfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dporfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dporfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cporfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cporfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zporfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zporfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_sporfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_sporfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const float* s, const float* b, lapack_int ldb, @@ -2718,7 +2718,7 @@ lapack_int LAPACKE_sporfsx( int matrix_order, char uplo, char equed, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_dporfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_dporfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const double* s, const double* b, lapack_int ldb, @@ -2726,7 +2726,7 @@ lapack_int LAPACKE_dporfsx( int matrix_order, char uplo, char equed, double* berr, lapack_int n_err_bnds, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_cporfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_cporfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, @@ -2736,7 +2736,7 @@ lapack_int LAPACKE_cporfsx( int matrix_order, char uplo, char equed, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zporfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zporfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, @@ -2747,48 +2747,48 @@ lapack_int LAPACKE_zporfsx( int matrix_order, char uplo, char equed, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_sposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_cposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_dsposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* x, lapack_int ldx, lapack_int* iter ); -lapack_int LAPACKE_zcposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zcposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, lapack_int* iter ); -lapack_int LAPACKE_sposvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_sposvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_dposvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dposvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_cposvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_cposvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, char* equed, float* s, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zposvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zposvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, char* equed, double* s, @@ -2796,7 +2796,7 @@ lapack_int LAPACKE_zposvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_sposvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sposvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, char* equed, float* s, float* b, lapack_int ldb, @@ -2804,7 +2804,7 @@ lapack_int LAPACKE_sposvxx( int matrix_order, char fact, char uplo, float* rpvgrw, float* berr, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_dposvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dposvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, char* equed, double* s, double* b, lapack_int ldb, @@ -2812,7 +2812,7 @@ lapack_int LAPACKE_dposvxx( int matrix_order, char fact, char uplo, double* rpvgrw, double* berr, lapack_int n_err_bnds, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_cposvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cposvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -2822,7 +2822,7 @@ lapack_int LAPACKE_cposvxx( int matrix_order, char fact, char uplo, float* berr, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zposvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zposvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -2833,161 +2833,161 @@ lapack_int LAPACKE_zposvxx( int matrix_order, char fact, char uplo, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_spotrf( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_spotrf( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dpotrf( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dpotrf( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_cpotrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_spotri( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_spotri( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dpotri( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dpotri( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_cpotri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_spotrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spotrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpotrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpotrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpotrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpotrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sppcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppcon( int matrix_layout, char uplo, lapack_int n, const float* ap, float anorm, float* rcond ); -lapack_int LAPACKE_dppcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppcon( int matrix_layout, char uplo, lapack_int n, const double* ap, double anorm, double* rcond ); -lapack_int LAPACKE_cppcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, float anorm, float* rcond ); -lapack_int LAPACKE_zppcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, double anorm, double* rcond ); -lapack_int LAPACKE_sppequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppequ( int matrix_layout, char uplo, lapack_int n, const float* ap, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dppequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppequ( int matrix_layout, char uplo, lapack_int n, const double* ap, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cppequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppequ( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zppequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppequ( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, double* s, double* scond, double* amax ); -lapack_int LAPACKE_spprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const float* afp, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dpprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const double* afp, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cpprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zpprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_sppsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* ap, float* b, lapack_int ldb ); -lapack_int LAPACKE_dppsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* ap, double* b, lapack_int ldb ); -lapack_int LAPACKE_cppsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zppsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sppsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_sppsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* ap, float* afp, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_dppsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dppsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* ap, double* afp, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_cppsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_cppsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_complex_float* afp, char* equed, float* s, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zppsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zppsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_complex_double* afp, char* equed, double* s, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_spptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptrf( int matrix_layout, char uplo, lapack_int n, float* ap ); -lapack_int LAPACKE_dpptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptrf( int matrix_layout, char uplo, lapack_int n, double* ap ); -lapack_int LAPACKE_cpptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap ); -lapack_int LAPACKE_zpptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap ); -lapack_int LAPACKE_spptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptri( int matrix_layout, char uplo, lapack_int n, float* ap ); -lapack_int LAPACKE_dpptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptri( int matrix_layout, char uplo, lapack_int n, double* ap ); -lapack_int LAPACKE_cpptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap ); -lapack_int LAPACKE_zpptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap ); -lapack_int LAPACKE_spptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_spstrf( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_spstrf( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* piv, lapack_int* rank, float tol ); -lapack_int LAPACKE_dpstrf( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dpstrf( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, lapack_int* piv, lapack_int* rank, double tol ); -lapack_int LAPACKE_cpstrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpstrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* piv, lapack_int* rank, float tol ); -lapack_int LAPACKE_zpstrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpstrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* piv, lapack_int* rank, double tol ); @@ -3002,33 +3002,33 @@ lapack_int LAPACKE_zptcon( lapack_int n, const double* d, const lapack_complex_double* e, double anorm, double* rcond ); -lapack_int LAPACKE_spteqr( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_spteqr( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dpteqr( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dpteqr( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ); -lapack_int LAPACKE_cpteqr( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_cpteqr( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zpteqr( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zpteqr( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_sptrfs( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sptrfs( int matrix_layout, lapack_int n, lapack_int nrhs, const float* d, const float* e, const float* df, const float* ef, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dptrfs( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dptrfs( int matrix_layout, lapack_int n, lapack_int nrhs, const double* d, const double* e, const double* df, const double* ef, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cptrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cptrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, const float* df, const lapack_complex_float* ef, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zptrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zptrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, const double* df, const lapack_complex_double* ef, @@ -3036,35 +3036,35 @@ lapack_int LAPACKE_zptrfs( int matrix_order, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_sptsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sptsv( int matrix_layout, lapack_int n, lapack_int nrhs, float* d, float* e, float* b, lapack_int ldb ); -lapack_int LAPACKE_dptsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dptsv( int matrix_layout, lapack_int n, lapack_int nrhs, double* d, double* e, double* b, lapack_int ldb ); -lapack_int LAPACKE_cptsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_cptsv( int matrix_layout, lapack_int n, lapack_int nrhs, float* d, lapack_complex_float* e, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zptsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zptsv( int matrix_layout, lapack_int n, lapack_int nrhs, double* d, lapack_complex_double* e, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sptsvx( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_sptsvx( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const float* d, const float* e, float* df, float* ef, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_dptsvx( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_dptsvx( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const double* d, const double* e, double* df, double* ef, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_cptsvx( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_cptsvx( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, float* df, lapack_complex_float* ef, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zptsvx( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_zptsvx( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, double* df, lapack_complex_double* ef, @@ -3077,83 +3077,83 @@ lapack_int LAPACKE_dpttrf( lapack_int n, double* d, double* e ); lapack_int LAPACKE_cpttrf( lapack_int n, float* d, lapack_complex_float* e ); lapack_int LAPACKE_zpttrf( lapack_int n, double* d, lapack_complex_double* e ); -lapack_int LAPACKE_spttrs( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_spttrs( int matrix_layout, lapack_int n, lapack_int nrhs, const float* d, const float* e, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpttrs( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dpttrs( int matrix_layout, lapack_int n, lapack_int nrhs, const double* d, const double* e, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpttrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpttrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpttrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpttrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_ssbev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbev( 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 ); -lapack_int LAPACKE_dsbev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsbev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* w, double* z, lapack_int ldz ); -lapack_int LAPACKE_ssbevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbevd( 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 ); -lapack_int LAPACKE_dsbevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsbevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* w, double* z, lapack_int ldz ); -lapack_int LAPACKE_ssbevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_ssbevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* q, lapack_int ldq, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_dsbevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dsbevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* q, lapack_int ldq, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_ssbgst( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_ssbgst( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, const float* bb, lapack_int ldbb, float* x, lapack_int ldx ); -lapack_int LAPACKE_dsbgst( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_dsbgst( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, const double* bb, lapack_int ldbb, double* x, lapack_int ldx ); -lapack_int LAPACKE_ssbgv( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbgv( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dsbgv( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsbgv( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, lapack_int ldz ); -lapack_int LAPACKE_ssbgvd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dsbgvd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, lapack_int ldz ); -lapack_int LAPACKE_ssbgvx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_ssbgvx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* q, lapack_int ldq, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_dsbgvx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dsbgvx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* q, lapack_int ldq, @@ -3161,106 +3161,106 @@ lapack_int LAPACKE_dsbgvx( int matrix_order, char jobz, char range, char uplo, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_ssbtrd( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_ssbtrd( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* d, float* e, float* q, lapack_int ldq ); -lapack_int LAPACKE_dsbtrd( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_dsbtrd( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq ); -lapack_int LAPACKE_ssfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_ssfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, float alpha, const float* a, lapack_int lda, float beta, float* c ); -lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_dsfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const double* a, lapack_int lda, double beta, double* c ); -lapack_int LAPACKE_sspcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sspcon( int matrix_layout, char uplo, lapack_int n, const float* ap, const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_dspcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dspcon( int matrix_layout, char uplo, lapack_int n, const double* ap, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_cspcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cspcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zspcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zspcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_sspev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_sspev( int matrix_layout, char jobz, char uplo, lapack_int n, float* ap, float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dspev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dspev( int matrix_layout, char jobz, char uplo, lapack_int n, double* ap, double* w, double* z, lapack_int ldz ); -lapack_int LAPACKE_sspevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_sspevd( int matrix_layout, char jobz, char uplo, lapack_int n, float* ap, float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dspevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dspevd( int matrix_layout, char jobz, char uplo, lapack_int n, double* ap, double* w, double* z, lapack_int ldz ); -lapack_int LAPACKE_sspevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_sspevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, float* ap, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_dspevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dspevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* ap, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_sspgst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_sspgst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, float* ap, const float* bp ); -lapack_int LAPACKE_dspgst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_dspgst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, double* ap, const double* bp ); -lapack_int LAPACKE_sspgv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* ap, float* bp, float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dspgv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* ap, double* bp, double* w, double* z, lapack_int ldz ); -lapack_int LAPACKE_sspgvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* ap, float* bp, float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dspgvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* ap, double* bp, double* w, double* z, lapack_int ldz ); -lapack_int LAPACKE_sspgvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* ap, float* bp, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_dspgvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, double* ap, double* bp, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_ssprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const float* afp, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dsprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const double* afp, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_csprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zsprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, const lapack_int* ipiv, @@ -3268,78 +3268,78 @@ lapack_int LAPACKE_zsprfs( int matrix_order, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_sspsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sspsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* ap, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dspsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dspsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* ap, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cspsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cspsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zspsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zspsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sspsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_sspsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const float* ap, float* afp, lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_dspsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dspsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const double* ap, double* afp, lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_cspsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_cspsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* afp, lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zspsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zspsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* afp, lapack_int* ipiv, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_ssptrd( int matrix_order, char uplo, lapack_int n, float* ap, +lapack_int LAPACKE_ssptrd( int matrix_layout, char uplo, lapack_int n, float* ap, float* d, float* e, float* tau ); -lapack_int LAPACKE_dsptrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrd( int matrix_layout, char uplo, lapack_int n, double* ap, double* d, double* e, double* tau ); -lapack_int LAPACKE_ssptrf( int matrix_order, char uplo, lapack_int n, float* ap, +lapack_int LAPACKE_ssptrf( int matrix_layout, char uplo, lapack_int n, float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_dsptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrf( int matrix_layout, char uplo, lapack_int n, double* ap, lapack_int* ipiv ); -lapack_int LAPACKE_csptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_zsptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, lapack_int* ipiv ); -lapack_int LAPACKE_ssptri( int matrix_order, char uplo, lapack_int n, float* ap, +lapack_int LAPACKE_ssptri( int matrix_layout, char uplo, lapack_int n, float* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_dsptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptri( int matrix_layout, char uplo, lapack_int n, double* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_csptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_zsptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_ssptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); @@ -3355,240 +3355,240 @@ lapack_int LAPACKE_dstebz( char range, char order, lapack_int n, double vl, lapack_int* m, lapack_int* nsplit, double* w, lapack_int* iblock, lapack_int* isplit ); -lapack_int LAPACKE_sstedc( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_sstedc( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dstedc( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dstedc( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ); -lapack_int LAPACKE_cstedc( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_cstedc( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zstedc( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zstedc( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_sstegr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstegr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_dstegr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstegr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_cstegr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cstegr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, lapack_complex_float* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_zstegr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zstegr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, lapack_complex_double* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_sstein( int matrix_order, lapack_int n, const float* d, +lapack_int LAPACKE_sstein( int matrix_layout, lapack_int n, const float* d, const float* e, lapack_int m, const float* w, const lapack_int* iblock, const lapack_int* isplit, float* z, lapack_int ldz, lapack_int* ifailv ); -lapack_int LAPACKE_dstein( int matrix_order, lapack_int n, const double* d, +lapack_int LAPACKE_dstein( int matrix_layout, lapack_int n, const double* d, const double* e, lapack_int m, const double* w, const lapack_int* iblock, const lapack_int* isplit, double* z, lapack_int ldz, lapack_int* ifailv ); -lapack_int LAPACKE_cstein( int matrix_order, lapack_int n, const float* d, +lapack_int LAPACKE_cstein( int matrix_layout, lapack_int n, const float* d, const float* e, lapack_int m, const float* w, const lapack_int* iblock, const lapack_int* isplit, lapack_complex_float* z, lapack_int ldz, lapack_int* ifailv ); -lapack_int LAPACKE_zstein( int matrix_order, lapack_int n, const double* d, +lapack_int LAPACKE_zstein( int matrix_layout, lapack_int n, const double* d, const double* e, lapack_int m, const double* w, const lapack_int* iblock, const lapack_int* isplit, lapack_complex_double* z, lapack_int ldz, lapack_int* ifailv ); -lapack_int LAPACKE_sstemr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstemr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int nzc, lapack_int* isuppz, lapack_logical* tryrac ); -lapack_int LAPACKE_dstemr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstemr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int nzc, lapack_int* isuppz, lapack_logical* tryrac ); -lapack_int LAPACKE_cstemr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cstemr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* m, float* w, lapack_complex_float* z, lapack_int ldz, lapack_int nzc, lapack_int* isuppz, lapack_logical* tryrac ); -lapack_int LAPACKE_zstemr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zstemr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* m, double* w, lapack_complex_double* z, lapack_int ldz, lapack_int nzc, lapack_int* isuppz, lapack_logical* tryrac ); -lapack_int LAPACKE_ssteqr( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_ssteqr( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dsteqr( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dsteqr( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ); -lapack_int LAPACKE_csteqr( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_csteqr( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zsteqr( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zsteqr( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz ); lapack_int LAPACKE_ssterf( lapack_int n, float* d, float* e ); lapack_int LAPACKE_dsterf( lapack_int n, double* d, double* e ); -lapack_int LAPACKE_sstev( int matrix_order, char jobz, lapack_int n, float* d, +lapack_int LAPACKE_sstev( int matrix_layout, char jobz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dstev( int matrix_order, char jobz, lapack_int n, double* d, +lapack_int LAPACKE_dstev( int matrix_layout, char jobz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ); -lapack_int LAPACKE_sstevd( int matrix_order, char jobz, lapack_int n, float* d, +lapack_int LAPACKE_sstevd( int matrix_layout, char jobz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dstevd( int matrix_order, char jobz, lapack_int n, double* d, +lapack_int LAPACKE_dstevd( int matrix_layout, char jobz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ); -lapack_int LAPACKE_sstevr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstevr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_dstevr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstevr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_sstevx( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstevx( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_dstevx( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstevx( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_ssycon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssycon( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_dsycon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsycon( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_csycon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csycon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zsycon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsycon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond ); -lapack_int LAPACKE_ssyequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyequb( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dsyequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyequb( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_csyequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyequb( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zsyequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyequb( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_ssyev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssyev( int matrix_layout, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_dsyev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsyev( int matrix_layout, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* w ); -lapack_int LAPACKE_ssyevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssyevd( int matrix_layout, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_dsyevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsyevd( int matrix_layout, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* w ); -lapack_int LAPACKE_ssyevr( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_ssyevr( 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, lapack_int* isuppz ); -lapack_int LAPACKE_dsyevr( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dsyevr( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_ssyevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_ssyevx( 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, lapack_int* ifail ); -lapack_int LAPACKE_dsyevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dsyevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_ssygst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_ssygst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, float* a, lapack_int lda, const float* b, lapack_int ldb ); -lapack_int LAPACKE_dsygst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_dsygst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, double* a, lapack_int lda, const double* b, lapack_int ldb ); -lapack_int LAPACKE_ssygv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygv( 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 ); -lapack_int LAPACKE_dsygv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* w ); -lapack_int LAPACKE_ssygvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvd( 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 ); -lapack_int LAPACKE_dsygvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* w ); -lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_dsygvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_ssyrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dsyrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_csyrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zsyrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -3596,7 +3596,7 @@ lapack_int LAPACKE_zsyrfs( int matrix_order, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_ssyrfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_ssyrfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* s, @@ -3605,7 +3605,7 @@ lapack_int LAPACKE_ssyrfsx( int matrix_order, char uplo, char equed, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_dsyrfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_dsyrfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* s, @@ -3614,7 +3614,7 @@ lapack_int LAPACKE_dsyrfsx( int matrix_order, char uplo, char equed, lapack_int n_err_bnds, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_csyrfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_csyrfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, @@ -3624,7 +3624,7 @@ lapack_int LAPACKE_csyrfsx( int matrix_order, char uplo, char equed, float* rcond, float* berr, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zsyrfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zsyrfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, @@ -3635,41 +3635,41 @@ lapack_int LAPACKE_zsyrfsx( int matrix_order, char uplo, char equed, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_ssysv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsysv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csysv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsysv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_ssysvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_ssysvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_dsysvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dsysvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_csysvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_csysvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zsysvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zsysvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, lapack_int* ipiv, @@ -3677,7 +3677,7 @@ lapack_int LAPACKE_zsysvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_complex_double* x, lapack_int ldx, double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_ssysvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_ssysvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, char* equed, float* s, float* b, @@ -3686,7 +3686,7 @@ lapack_int LAPACKE_ssysvxx( int matrix_order, char fact, char uplo, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_dsysvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dsysvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* s, double* b, @@ -3695,7 +3695,7 @@ lapack_int LAPACKE_dsysvxx( int matrix_order, char fact, char uplo, lapack_int n_err_bnds, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_csysvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_csysvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -3706,7 +3706,7 @@ lapack_int LAPACKE_csysvxx( int matrix_order, char fact, char uplo, lapack_int n_err_bnds, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params ); -lapack_int LAPACKE_zsysvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zsysvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -3718,175 +3718,175 @@ lapack_int LAPACKE_zsysvxx( int matrix_order, char fact, char uplo, double* err_bnds_comp, lapack_int nparams, double* params ); -lapack_int LAPACKE_ssytrd( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_ssytrd( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, float* d, float* e, float* tau ); -lapack_int LAPACKE_dsytrd( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dsytrd( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, double* d, double* e, double* tau ); -lapack_int LAPACKE_ssytrf( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_ssytrf( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dsytrf( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dsytrf( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_csytrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_zsytrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_ssytri( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_ssytri( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_dsytri( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dsytri( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_csytri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_zsytri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_ssytrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrs( int matrix_layout, char uplo, lapack_int n, 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_zsytrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrs( int matrix_layout, char uplo, lapack_int n, 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_stbcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_stbcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab, float* rcond ); -lapack_int LAPACKE_dtbcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_dtbcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab, double* rcond ); -lapack_int LAPACKE_ctbcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ctbcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float* rcond ); -lapack_int LAPACKE_ztbcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ztbcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double* rcond ); -lapack_int LAPACKE_stbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_stbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dtbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, const double* b, lapack_int ldb, const double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_ctbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* b, lapack_int ldb, const lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_ztbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* b, lapack_int ldb, const lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_stbtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_stbtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtbtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtbtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctbtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctbtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztbtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztbtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_stfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_stfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, float alpha, const float* a, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_dtfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, double alpha, const double* a, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_ctfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_float alpha, const lapack_complex_float* a, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_ztfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_stftri( int matrix_order, char transr, char uplo, char diag, +lapack_int LAPACKE_stftri( int matrix_layout, char transr, char uplo, char diag, lapack_int n, float* a ); -lapack_int LAPACKE_dtftri( int matrix_order, char transr, char uplo, char diag, +lapack_int LAPACKE_dtftri( int matrix_layout, char transr, char uplo, char diag, lapack_int n, double* a ); -lapack_int LAPACKE_ctftri( int matrix_order, char transr, char uplo, char diag, +lapack_int LAPACKE_ctftri( int matrix_layout, char transr, char uplo, char diag, lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_ztftri( int matrix_order, char transr, char uplo, char diag, +lapack_int LAPACKE_ztftri( int matrix_layout, char transr, char uplo, char diag, lapack_int n, lapack_complex_double* a ); -lapack_int LAPACKE_stfttp( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stfttp( int matrix_layout, char transr, char uplo, lapack_int n, const float* arf, float* ap ); -lapack_int LAPACKE_dtfttp( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtfttp( int matrix_layout, char transr, char uplo, lapack_int n, const double* arf, double* ap ); -lapack_int LAPACKE_ctfttp( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctfttp( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* arf, lapack_complex_float* ap ); -lapack_int LAPACKE_ztfttp( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztfttp( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* arf, lapack_complex_double* ap ); -lapack_int LAPACKE_stfttr( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stfttr( int matrix_layout, char transr, char uplo, lapack_int n, const float* arf, float* a, lapack_int lda ); -lapack_int LAPACKE_dtfttr( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtfttr( int matrix_layout, char transr, char uplo, lapack_int n, const double* arf, double* a, lapack_int lda ); -lapack_int LAPACKE_ctfttr( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctfttr( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* arf, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztfttr( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztfttr( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* arf, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_stgevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_stgevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const float* s, lapack_int lds, const float* p, lapack_int ldp, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_dtgevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_dtgevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const double* s, lapack_int lds, const double* p, lapack_int ldp, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ctgevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ctgevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* s, lapack_int lds, const lapack_complex_float* p, lapack_int ldp, lapack_complex_float* vl, lapack_int ldvl, lapack_complex_float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ztgevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ztgevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* s, lapack_int lds, const lapack_complex_double* p, lapack_int ldp, @@ -3894,24 +3894,24 @@ lapack_int LAPACKE_ztgevc( int matrix_order, char side, char howmny, lapack_complex_double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_stgexc( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_stgexc( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* q, lapack_int ldq, float* z, lapack_int ldz, lapack_int* ifst, lapack_int* ilst ); -lapack_int LAPACKE_dtgexc( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_dtgexc( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* q, lapack_int ldq, double* z, lapack_int ldz, lapack_int* ifst, lapack_int* ilst ); -lapack_int LAPACKE_ctgexc( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_ctgexc( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* z, lapack_int ldz, lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_ztgexc( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_ztgexc( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -3919,21 +3919,21 @@ lapack_int LAPACKE_ztgexc( int matrix_order, lapack_logical wantq, lapack_complex_double* z, lapack_int ldz, lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_stgsen( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_stgsen( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* alphar, float* alphai, float* beta, float* q, lapack_int ldq, float* z, lapack_int ldz, lapack_int* m, float* pl, float* pr, float* dif ); -lapack_int LAPACKE_dtgsen( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_dtgsen( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* alphar, double* alphai, double* beta, double* q, lapack_int ldq, double* z, lapack_int ldz, lapack_int* m, double* pl, double* pr, double* dif ); -lapack_int LAPACKE_ctgsen( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_ctgsen( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, lapack_complex_float* a, lapack_int lda, @@ -3943,7 +3943,7 @@ lapack_int LAPACKE_ctgsen( int matrix_order, lapack_int ijob, lapack_int ldq, lapack_complex_float* z, lapack_int ldz, lapack_int* m, float* pl, float* pr, float* dif ); -lapack_int LAPACKE_ztgsen( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_ztgsen( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, lapack_complex_double* a, lapack_int lda, @@ -3954,14 +3954,14 @@ lapack_int LAPACKE_ztgsen( int matrix_order, lapack_int ijob, lapack_complex_double* z, lapack_int ldz, lapack_int* m, double* pl, double* pr, double* dif ); -lapack_int LAPACKE_stgsja( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_stgsja( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, float* a, lapack_int lda, float* b, lapack_int ldb, float tola, float tolb, float* alpha, float* beta, float* u, lapack_int ldu, float* v, lapack_int ldv, float* q, lapack_int ldq, lapack_int* ncycle ); -lapack_int LAPACKE_dtgsja( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_dtgsja( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, double* a, lapack_int lda, double* b, lapack_int ldb, @@ -3969,7 +3969,7 @@ lapack_int LAPACKE_dtgsja( int matrix_order, char jobu, char jobv, char jobq, double* beta, double* u, lapack_int ldu, double* v, lapack_int ldv, double* q, lapack_int ldq, lapack_int* ncycle ); -lapack_int LAPACKE_ctgsja( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_ctgsja( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, @@ -3978,7 +3978,7 @@ lapack_int LAPACKE_ctgsja( int matrix_order, char jobu, char jobv, char jobq, lapack_complex_float* v, lapack_int ldv, lapack_complex_float* q, lapack_int ldq, lapack_int* ncycle ); -lapack_int LAPACKE_ztgsja( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_ztgsja( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, @@ -3989,26 +3989,26 @@ lapack_int LAPACKE_ztgsja( int matrix_order, char jobu, char jobv, char jobq, lapack_complex_double* q, lapack_int ldq, lapack_int* ncycle ); -lapack_int LAPACKE_stgsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_stgsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, const float* vl, lapack_int ldvl, const float* vr, lapack_int ldvr, float* s, float* dif, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_dtgsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_dtgsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, const double* vl, lapack_int ldvl, const double* vr, lapack_int ldvr, double* s, double* dif, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ctgsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ctgsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, const lapack_complex_float* vl, lapack_int ldvl, const lapack_complex_float* vr, lapack_int ldvr, float* s, float* dif, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ztgsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ztgsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -4017,20 +4017,20 @@ lapack_int LAPACKE_ztgsna( int matrix_order, char job, char howmny, double* s, double* dif, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_stgsyl( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_stgsyl( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, float* c, lapack_int ldc, const float* d, lapack_int ldd, const float* e, lapack_int lde, float* f, lapack_int ldf, float* scale, float* dif ); -lapack_int LAPACKE_dtgsyl( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_dtgsyl( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, double* c, lapack_int ldc, const double* d, lapack_int ldd, const double* e, lapack_int lde, double* f, lapack_int ldf, double* scale, double* dif ); -lapack_int LAPACKE_ctgsyl( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_ctgsyl( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -4039,7 +4039,7 @@ lapack_int LAPACKE_ctgsyl( int matrix_order, char trans, lapack_int ijob, const lapack_complex_float* e, lapack_int lde, lapack_complex_float* f, lapack_int ldf, float* scale, float* dif ); -lapack_int LAPACKE_ztgsyl( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_ztgsyl( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -4049,198 +4049,198 @@ lapack_int LAPACKE_ztgsyl( int matrix_order, char trans, lapack_int ijob, lapack_complex_double* f, lapack_int ldf, double* scale, double* dif ); -lapack_int LAPACKE_stpcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_stpcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const float* ap, float* rcond ); -lapack_int LAPACKE_dtpcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_dtpcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const double* ap, double* rcond ); -lapack_int LAPACKE_ctpcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ctpcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_float* ap, float* rcond ); -lapack_int LAPACKE_ztpcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ztpcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_double* ap, double* rcond ); -lapack_int LAPACKE_stprfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_stprfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* ap, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dtprfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtprfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* ap, const double* b, lapack_int ldb, const double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_ctprfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctprfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* b, lapack_int ldb, const lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_ztprfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztprfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* b, lapack_int ldb, const lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_stptri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_stptri( int matrix_layout, char uplo, char diag, lapack_int n, float* ap ); -lapack_int LAPACKE_dtptri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_dtptri( int matrix_layout, char uplo, char diag, lapack_int n, double* ap ); -lapack_int LAPACKE_ctptri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_ctptri( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_float* ap ); -lapack_int LAPACKE_ztptri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_ztptri( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_double* ap ); -lapack_int LAPACKE_stptrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_stptrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* ap, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtptrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtptrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* ap, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctptrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctptrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztptrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztptrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_stpttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stpttf( int matrix_layout, char transr, char uplo, lapack_int n, const float* ap, float* arf ); -lapack_int LAPACKE_dtpttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtpttf( int matrix_layout, char transr, char uplo, lapack_int n, const double* ap, double* arf ); -lapack_int LAPACKE_ctpttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctpttf( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* ap, lapack_complex_float* arf ); -lapack_int LAPACKE_ztpttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztpttf( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* ap, lapack_complex_double* arf ); -lapack_int LAPACKE_stpttr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_stpttr( int matrix_layout, char uplo, lapack_int n, const float* ap, float* a, lapack_int lda ); -lapack_int LAPACKE_dtpttr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dtpttr( int matrix_layout, char uplo, lapack_int n, const double* ap, double* a, lapack_int lda ); -lapack_int LAPACKE_ctpttr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ctpttr( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztpttr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ztpttr( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_strcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_strcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const float* a, lapack_int lda, float* rcond ); -lapack_int LAPACKE_dtrcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_dtrcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const double* a, lapack_int lda, double* rcond ); -lapack_int LAPACKE_ctrcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ctrcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* rcond ); -lapack_int LAPACKE_ztrcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ztrcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* rcond ); -lapack_int LAPACKE_strevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_strevc( int matrix_layout, char side, char howmny, lapack_logical* select, lapack_int n, const float* t, lapack_int ldt, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_dtrevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_dtrevc( int matrix_layout, char side, char howmny, lapack_logical* select, lapack_int n, const double* t, lapack_int ldt, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ctrevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ctrevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* vl, lapack_int ldvl, lapack_complex_float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ztrevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ztrevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* vl, lapack_int ldvl, lapack_complex_double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_strexc( int matrix_order, char compq, lapack_int n, float* t, +lapack_int LAPACKE_strexc( int matrix_layout, char compq, lapack_int n, float* t, lapack_int ldt, float* q, lapack_int ldq, lapack_int* ifst, lapack_int* ilst ); -lapack_int LAPACKE_dtrexc( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_dtrexc( int matrix_layout, char compq, lapack_int n, double* t, lapack_int ldt, double* q, lapack_int ldq, lapack_int* ifst, lapack_int* ilst ); -lapack_int LAPACKE_ctrexc( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_ctrexc( int matrix_layout, char compq, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* q, lapack_int ldq, lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_ztrexc( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_ztrexc( int matrix_layout, char compq, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* q, lapack_int ldq, lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_strrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_strrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dtrrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtrrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* b, lapack_int ldb, const double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_ctrrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctrrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, const lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_ztrrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztrrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, const lapack_complex_double* x, lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_strsen( int matrix_order, char job, char compq, +lapack_int LAPACKE_strsen( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, float* t, lapack_int ldt, float* q, lapack_int ldq, float* wr, float* wi, lapack_int* m, float* s, float* sep ); -lapack_int LAPACKE_dtrsen( int matrix_order, char job, char compq, +lapack_int LAPACKE_dtrsen( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, double* t, lapack_int ldt, double* q, lapack_int ldq, double* wr, double* wi, lapack_int* m, double* s, double* sep ); -lapack_int LAPACKE_ctrsen( int matrix_order, char job, char compq, +lapack_int LAPACKE_ctrsen( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* w, lapack_int* m, float* s, float* sep ); -lapack_int LAPACKE_ztrsen( int matrix_order, char job, char compq, +lapack_int LAPACKE_ztrsen( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* q, lapack_int ldq, lapack_complex_double* w, lapack_int* m, double* s, double* sep ); -lapack_int LAPACKE_strsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_strsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const float* t, lapack_int ldt, const float* vl, lapack_int ldvl, const float* vr, lapack_int ldvr, float* s, float* sep, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_dtrsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_dtrsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const double* t, lapack_int ldt, const double* vl, lapack_int ldvl, const double* vr, lapack_int ldvr, double* s, double* sep, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ctrsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ctrsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* t, lapack_int ldt, const lapack_complex_float* vl, lapack_int ldvl, const lapack_complex_float* vr, lapack_int ldvr, float* s, float* sep, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ztrsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ztrsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* t, lapack_int ldt, const lapack_complex_double* vl, lapack_int ldvl, @@ -4248,273 +4248,273 @@ lapack_int LAPACKE_ztrsna( int matrix_order, char job, char howmny, double* s, double* sep, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_strsyl( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_strsyl( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, float* c, lapack_int ldc, float* scale ); -lapack_int LAPACKE_dtrsyl( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_dtrsyl( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, double* c, lapack_int ldc, double* scale ); -lapack_int LAPACKE_ctrsyl( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_ctrsyl( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* c, lapack_int ldc, float* scale ); -lapack_int LAPACKE_ztrsyl( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_ztrsyl( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* c, lapack_int ldc, double* scale ); -lapack_int LAPACKE_strtri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_strtri( int matrix_layout, char uplo, char diag, lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dtrtri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_dtrtri( int matrix_layout, char uplo, char diag, lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_ctrtri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_ctrtri( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztrtri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_ztrtri( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_strtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_strtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtrtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtrtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctrtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctrtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztrtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztrtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_strttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_strttf( int matrix_layout, char transr, char uplo, lapack_int n, const float* a, lapack_int lda, float* arf ); -lapack_int LAPACKE_dtrttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtrttf( int matrix_layout, char transr, char uplo, lapack_int n, const double* a, lapack_int lda, double* arf ); -lapack_int LAPACKE_ctrttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctrttf( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* arf ); -lapack_int LAPACKE_ztrttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztrttf( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* arf ); -lapack_int LAPACKE_strttp( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_strttp( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float* ap ); -lapack_int LAPACKE_dtrttp( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dtrttp( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double* ap ); -lapack_int LAPACKE_ctrttp( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ctrttp( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* ap ); -lapack_int LAPACKE_ztrttp( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ztrttp( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* ap ); -lapack_int LAPACKE_stzrzf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_stzrzf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dtzrzf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dtzrzf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_ctzrzf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ctzrzf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_ztzrzf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ztzrzf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ); -lapack_int LAPACKE_cungbr( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_cungbr( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungbr( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_zungbr( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ); -lapack_int LAPACKE_cunghr( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_cunghr( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zunghr( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_zunghr( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ); -lapack_int LAPACKE_cunglq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cunglq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zunglq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zunglq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ); -lapack_int LAPACKE_cungql( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungql( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungql( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungql( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ); -lapack_int LAPACKE_cungqr( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungqr( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungqr( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungqr( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ); -lapack_int LAPACKE_cungrq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungrq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungrq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungrq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ); -lapack_int LAPACKE_cungtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cungtr( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zungtr( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ); -lapack_int LAPACKE_cunmbr( int matrix_order, char vect, char side, char trans, +lapack_int LAPACKE_cunmbr( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmbr( int matrix_order, char vect, char side, char trans, +lapack_int LAPACKE_zunmbr( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_cunmhr( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmhr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmhr( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmhr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_cunmlq( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmlq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmlq( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmlq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_cunmql( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmql( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmql( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmql( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_cunmqr( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmqr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmqr( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmqr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_cunmrq( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmrq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmrq( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmrq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_cunmrz( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmrz( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmrz( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmrz( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_cunmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_cunmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_zunmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_cupgtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cupgtr( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_complex_float* tau, lapack_complex_float* q, lapack_int ldq ); -lapack_int LAPACKE_zupgtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zupgtr( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, lapack_complex_double* q, lapack_int ldq ); -lapack_int LAPACKE_cupmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_cupmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_float* ap, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_zupmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_sbdsdc_work( int matrix_order, char uplo, char compq, +lapack_int LAPACKE_sbdsdc_work( int matrix_layout, char uplo, char compq, lapack_int n, float* d, float* e, float* u, lapack_int ldu, float* vt, lapack_int ldvt, float* q, lapack_int* iq, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dbdsdc_work( int matrix_order, char uplo, char compq, +lapack_int LAPACKE_dbdsdc_work( int matrix_layout, char uplo, char compq, lapack_int n, double* d, double* e, double* u, lapack_int ldu, double* vt, lapack_int ldvt, double* q, lapack_int* iq, double* work, lapack_int* iwork ); -lapack_int LAPACKE_sbdsqr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sbdsqr_work( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, float* d, float* e, float* vt, lapack_int ldvt, float* u, lapack_int ldu, float* c, lapack_int ldc, float* work ); -lapack_int LAPACKE_dbdsqr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dbdsqr_work( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, double* d, double* e, double* vt, lapack_int ldvt, double* u, lapack_int ldu, double* c, lapack_int ldc, double* work ); -lapack_int LAPACKE_cbdsqr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cbdsqr_work( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, float* d, float* e, lapack_complex_float* vt, lapack_int ldvt, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* c, lapack_int ldc, float* work ); -lapack_int LAPACKE_zbdsqr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zbdsqr_work( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, double* d, double* e, lapack_complex_double* vt, lapack_int ldvt, lapack_complex_double* u, @@ -4526,19 +4526,19 @@ lapack_int LAPACKE_sdisna_work( char job, lapack_int m, lapack_int n, lapack_int LAPACKE_ddisna_work( char job, lapack_int m, lapack_int n, const double* d, double* sep ); -lapack_int LAPACKE_sgbbrd_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_sgbbrd_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, float* ab, lapack_int ldab, float* d, float* e, float* q, lapack_int ldq, float* pt, lapack_int ldpt, float* c, lapack_int ldc, float* work ); -lapack_int LAPACKE_dgbbrd_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_dgbbrd_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq, double* pt, lapack_int ldpt, double* c, lapack_int ldc, double* work ); -lapack_int LAPACKE_cgbbrd_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_cgbbrd_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, lapack_complex_float* ab, lapack_int ldab, float* d, float* e, @@ -4546,7 +4546,7 @@ lapack_int LAPACKE_cgbbrd_work( int matrix_order, char vect, lapack_int m, lapack_complex_float* pt, lapack_int ldpt, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgbbrd_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_zgbbrd_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, lapack_complex_double* ab, lapack_int ldab, double* d, double* e, @@ -4555,68 +4555,68 @@ lapack_int LAPACKE_zgbbrd_work( int matrix_order, char vect, lapack_int m, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgbcon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_sgbcon_work( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, const lapack_int* ipiv, float anorm, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgbcon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_dgbcon_work( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, const lapack_int* ipiv, double anorm, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgbcon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_cgbcon_work( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, const lapack_int* ipiv, float anorm, float* rcond, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgbcon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_zgbcon_work( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgbequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbequ_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgbequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbequ_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgbequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbequ_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgbequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbequ_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_sgbequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbequb_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgbequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbequb_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgbequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbequb_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgbequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbequb_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_sgbrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgbrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, lapack_int ldafb, @@ -4624,7 +4624,7 @@ lapack_int LAPACKE_sgbrfs_work( int matrix_order, char trans, lapack_int n, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgbrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgbrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, lapack_int ldafb, @@ -4632,7 +4632,7 @@ lapack_int LAPACKE_dgbrfs_work( int matrix_order, char trans, lapack_int n, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgbrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgbrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, @@ -4641,7 +4641,7 @@ lapack_int LAPACKE_cgbrfs_work( int matrix_order, char trans, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgbrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgbrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, @@ -4652,7 +4652,7 @@ lapack_int LAPACKE_zgbrfs_work( int matrix_order, char trans, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgbrfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_sgbrfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, @@ -4664,7 +4664,7 @@ lapack_int LAPACKE_sgbrfsx_work( int matrix_order, char trans, char equed, float* err_bnds_comp, lapack_int nparams, float* params, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgbrfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_dgbrfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, @@ -4676,7 +4676,7 @@ lapack_int LAPACKE_dgbrfsx_work( int matrix_order, char trans, char equed, double* err_bnds_comp, lapack_int nparams, double* params, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgbrfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_cgbrfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, @@ -4691,7 +4691,7 @@ lapack_int LAPACKE_cgbrfsx_work( int matrix_order, char trans, char equed, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgbrfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_zgbrfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, @@ -4707,26 +4707,26 @@ lapack_int LAPACKE_zgbrfsx_work( int matrix_order, char trans, char equed, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_sgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_dgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_cgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_zgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sgbsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgbsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, lapack_int* ipiv, @@ -4734,7 +4734,7 @@ lapack_int LAPACKE_sgbsvx_work( int matrix_order, char fact, char trans, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgbsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgbsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, lapack_int* ipiv, @@ -4742,7 +4742,7 @@ lapack_int LAPACKE_dgbsvx_work( int matrix_order, char fact, char trans, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgbsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgbsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, @@ -4752,7 +4752,7 @@ lapack_int LAPACKE_cgbsvx_work( int matrix_order, char fact, char trans, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgbsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgbsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, @@ -4763,7 +4763,7 @@ lapack_int LAPACKE_zgbsvx_work( int matrix_order, char fact, char trans, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgbsvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, lapack_int* ipiv, @@ -4774,7 +4774,7 @@ lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans, float* err_bnds_comp, lapack_int nparams, float* params, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgbsvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, @@ -4786,7 +4786,7 @@ lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans, double* err_bnds_comp, lapack_int nparams, double* params, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgbsvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, @@ -4799,7 +4799,7 @@ lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgbsvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, @@ -4813,164 +4813,164 @@ lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgbtrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, float* ab, lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_dgbtrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, double* ab, lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_cgbtrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, lapack_complex_float* ab, lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_zgbtrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, lapack_complex_double* ab, lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_sgbtrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgbtrs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgbtrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgbtrs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgbtrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgbtrs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgbtrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgbtrs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sgebak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_sgebak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* scale, lapack_int m, float* v, lapack_int ldv ); -lapack_int LAPACKE_dgebak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_dgebak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* scale, lapack_int m, double* v, lapack_int ldv ); -lapack_int LAPACKE_cgebak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_cgebak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* scale, lapack_int m, lapack_complex_float* v, lapack_int ldv ); -lapack_int LAPACKE_zgebak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_zgebak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* scale, lapack_int m, lapack_complex_double* v, lapack_int ldv ); -lapack_int LAPACKE_sgebal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_sgebal_work( int matrix_layout, char job, lapack_int n, float* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, float* scale ); -lapack_int LAPACKE_dgebal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_dgebal_work( int matrix_layout, char job, lapack_int n, double* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, double* scale ); -lapack_int LAPACKE_cgebal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_cgebal_work( int matrix_layout, char job, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, float* scale ); -lapack_int LAPACKE_zgebal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_zgebal_work( int matrix_layout, char job, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, double* scale ); -lapack_int LAPACKE_sgebrd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgebrd_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* d, float* e, float* tauq, float* taup, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgebrd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgebrd_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* d, double* e, double* tauq, double* taup, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgebrd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgebrd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* d, float* e, lapack_complex_float* tauq, lapack_complex_float* taup, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgebrd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgebrd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* d, double* e, lapack_complex_double* tauq, lapack_complex_double* taup, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgecon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_sgecon_work( int matrix_layout, char norm, lapack_int n, const float* a, lapack_int lda, float anorm, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgecon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_dgecon_work( int matrix_layout, char norm, lapack_int n, const double* a, lapack_int lda, double anorm, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgecon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_cgecon_work( int matrix_layout, char norm, lapack_int n, const lapack_complex_float* a, lapack_int lda, float anorm, float* rcond, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgecon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_zgecon_work( int matrix_layout, char norm, lapack_int n, const lapack_complex_double* a, lapack_int lda, double anorm, double* rcond, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgeequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeequ_work( int matrix_layout, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgeequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeequ_work( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgeequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeequ_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgeequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeequ_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_sgeequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeequb_work( int matrix_layout, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgeequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeequb_work( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgeequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeequb_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgeequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeequb_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_sgees_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_sgees_work( int matrix_layout, char jobvs, char sort, LAPACK_S_SELECT2 select, lapack_int n, float* a, lapack_int lda, lapack_int* sdim, float* wr, float* wi, float* vs, lapack_int ldvs, float* work, lapack_int lwork, lapack_logical* bwork ); -lapack_int LAPACKE_dgees_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_dgees_work( int matrix_layout, char jobvs, char sort, LAPACK_D_SELECT2 select, lapack_int n, double* a, lapack_int lda, lapack_int* sdim, double* wr, double* wi, double* vs, lapack_int ldvs, double* work, lapack_int lwork, lapack_logical* bwork ); -lapack_int LAPACKE_cgees_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_cgees_work( int matrix_layout, char jobvs, char sort, LAPACK_C_SELECT1 select, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* sdim, lapack_complex_float* w, lapack_complex_float* vs, lapack_int ldvs, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_zgees_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_zgees_work( int matrix_layout, char jobvs, char sort, LAPACK_Z_SELECT1 select, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* sdim, lapack_complex_double* w, @@ -4978,7 +4978,7 @@ lapack_int LAPACKE_zgees_work( int matrix_order, char jobvs, char sort, lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_sgeesx_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_sgeesx_work( int matrix_layout, char jobvs, char sort, LAPACK_S_SELECT2 select, char sense, lapack_int n, float* a, lapack_int lda, lapack_int* sdim, float* wr, float* wi, @@ -4986,7 +4986,7 @@ lapack_int LAPACKE_sgeesx_work( int matrix_order, char jobvs, char sort, float* rcondv, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork, lapack_logical* bwork ); -lapack_int LAPACKE_dgeesx_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_dgeesx_work( int matrix_layout, char jobvs, char sort, LAPACK_D_SELECT2 select, char sense, lapack_int n, double* a, lapack_int lda, lapack_int* sdim, double* wr, double* wi, @@ -4994,7 +4994,7 @@ lapack_int LAPACKE_dgeesx_work( int matrix_order, char jobvs, char sort, double* rcondv, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork, lapack_logical* bwork ); -lapack_int LAPACKE_cgeesx_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_cgeesx_work( int matrix_layout, char jobvs, char sort, LAPACK_C_SELECT1 select, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* sdim, @@ -5003,7 +5003,7 @@ lapack_int LAPACKE_cgeesx_work( int matrix_order, char jobvs, char sort, float* rconde, float* rcondv, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_zgeesx_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_zgeesx_work( int matrix_layout, char jobvs, char sort, LAPACK_Z_SELECT1 select, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* sdim, @@ -5013,24 +5013,24 @@ lapack_int LAPACKE_zgeesx_work( int matrix_order, char jobvs, char sort, lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_sgeev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_sgeev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, float* a, lapack_int lda, float* wr, float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_dgeev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, double* a, lapack_int lda, double* wr, double* wi, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_cgeev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* w, lapack_complex_float* vl, lapack_int ldvl, lapack_complex_float* vr, lapack_int ldvr, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgeev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_zgeev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* w, lapack_complex_double* vl, lapack_int ldvl, @@ -5038,7 +5038,7 @@ lapack_int LAPACKE_zgeev_work( int matrix_order, char jobvl, char jobvr, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_sgeevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_sgeevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, float* a, lapack_int lda, float* wr, float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, @@ -5046,7 +5046,7 @@ lapack_int LAPACKE_sgeevx_work( int matrix_order, char balanc, char jobvl, float* abnrm, float* rconde, float* rcondv, float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dgeevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_dgeevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, double* a, lapack_int lda, double* wr, double* wi, double* vl, lapack_int ldvl, double* vr, @@ -5054,7 +5054,7 @@ lapack_int LAPACKE_dgeevx_work( int matrix_order, char balanc, char jobvl, lapack_int* ihi, double* scale, double* abnrm, double* rconde, double* rcondv, double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_cgeevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_cgeevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* w, @@ -5064,7 +5064,7 @@ lapack_int LAPACKE_cgeevx_work( int matrix_order, char balanc, char jobvl, float* abnrm, float* rconde, float* rcondv, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgeevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_zgeevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* w, @@ -5075,29 +5075,29 @@ lapack_int LAPACKE_zgeevx_work( int matrix_order, char balanc, char jobvl, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_sgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_sgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_dgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_cgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_zgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgejsv_work( int matrix_order, char joba, char jobu, +lapack_int LAPACKE_sgejsv_work( int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, float* a, lapack_int lda, float* sva, float* u, lapack_int ldu, float* v, lapack_int ldv, float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dgejsv_work( int matrix_order, char joba, char jobu, +lapack_int LAPACKE_dgejsv_work( int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, double* a, lapack_int lda, double* sva, double* u, @@ -5105,73 +5105,73 @@ lapack_int LAPACKE_dgejsv_work( int matrix_order, char joba, char jobu, double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_sgelq2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelq2_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work ); -lapack_int LAPACKE_dgelq2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelq2_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work ); -lapack_int LAPACKE_cgelq2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelq2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work ); -lapack_int LAPACKE_zgelq2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelq2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work ); -lapack_int LAPACKE_sgelqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelqf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgelqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelqf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgelqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgelqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgels_work( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_sgels_work( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgels_work( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_dgels_work( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgels_work( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_cgels_work( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgels_work( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_zgels_work( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgelsd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelsd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank, float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dgelsd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelsd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank, double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_cgelsd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelsd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int* iwork ); -lapack_int LAPACKE_zgelsd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelsd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* s, double rcond, @@ -5179,160 +5179,160 @@ lapack_int LAPACKE_zgelsd_work( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork, double* rwork, lapack_int* iwork ); -lapack_int LAPACKE_sgelss_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelss_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgelss_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelss_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgelss_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelss_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgelss_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelss_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_sgelsy_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelsy_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* jpvt, float rcond, lapack_int* rank, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgelsy_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelsy_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* jpvt, double rcond, lapack_int* rank, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgelsy_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelsy_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_int* jpvt, float rcond, lapack_int* rank, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgelsy_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelsy_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_int* jpvt, double rcond, lapack_int* rank, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_sgeqlf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqlf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqlf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgeqlf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgeqp3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* jpvt, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqp3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* jpvt, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqp3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* jpvt, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgeqp3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* jpvt, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_sgeqpf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* jpvt, float* tau, float* work ); -lapack_int LAPACKE_dgeqpf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* jpvt, double* tau, double* work ); -lapack_int LAPACKE_cgeqpf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* jpvt, lapack_complex_float* tau, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgeqpf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* jpvt, lapack_complex_double* tau, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgeqr2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work ); -lapack_int LAPACKE_dgeqr2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work ); -lapack_int LAPACKE_cgeqr2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work ); -lapack_int LAPACKE_zgeqr2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work ); -lapack_int LAPACKE_sgeqrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgeqrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgerfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgerfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgerfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgerfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgerfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgerfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -5340,7 +5340,7 @@ lapack_int LAPACKE_cgerfs_work( int matrix_order, char trans, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgerfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgerfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -5349,7 +5349,7 @@ lapack_int LAPACKE_zgerfs_work( int matrix_order, char trans, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgerfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_sgerfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -5360,7 +5360,7 @@ lapack_int LAPACKE_sgerfsx_work( int matrix_order, char trans, char equed, float* err_bnds_comp, lapack_int nparams, float* params, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgerfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_dgerfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -5371,7 +5371,7 @@ lapack_int LAPACKE_dgerfsx_work( int matrix_order, char trans, char equed, double* err_bnds_comp, lapack_int nparams, double* params, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgerfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_cgerfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, @@ -5384,7 +5384,7 @@ lapack_int LAPACKE_cgerfsx_work( int matrix_order, char trans, char equed, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgerfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_zgerfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, @@ -5398,39 +5398,39 @@ lapack_int LAPACKE_zgerfsx_work( int matrix_order, char trans, char equed, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgerqf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgerqf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgerqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgerqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgesdd_work( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_sgesdd_work( int matrix_layout, char jobz, lapack_int m, lapack_int n, float* a, lapack_int lda, float* s, float* u, lapack_int ldu, float* vt, lapack_int ldvt, float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dgesdd_work( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_dgesdd_work( int matrix_layout, char jobz, lapack_int m, lapack_int n, double* a, lapack_int lda, double* s, double* u, lapack_int ldu, double* vt, lapack_int ldvt, double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_cgesdd_work( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_cgesdd_work( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* vt, lapack_int ldvt, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int* iwork ); -lapack_int LAPACKE_zgesdd_work( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_zgesdd_work( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* s, lapack_complex_double* u, lapack_int ldu, @@ -5438,26 +5438,26 @@ lapack_int LAPACKE_zgesdd_work( int matrix_order, char jobz, lapack_int m, lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_int* iwork ); -lapack_int LAPACKE_sgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_cgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_dsgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dsgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* x, lapack_int ldx, double* work, float* swork, lapack_int* iter ); -lapack_int LAPACKE_zcgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zcgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, @@ -5465,24 +5465,24 @@ lapack_int LAPACKE_zcgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, lapack_complex_float* swork, double* rwork, lapack_int* iter ); -lapack_int LAPACKE_sgesvd_work( int matrix_order, char jobu, char jobvt, +lapack_int LAPACKE_sgesvd_work( int matrix_layout, char jobu, char jobvt, lapack_int m, lapack_int n, float* a, lapack_int lda, float* s, float* u, lapack_int ldu, float* vt, lapack_int ldvt, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgesvd_work( int matrix_order, char jobu, char jobvt, +lapack_int LAPACKE_dgesvd_work( int matrix_layout, char jobu, char jobvt, lapack_int m, lapack_int n, double* a, lapack_int lda, double* s, double* u, lapack_int ldu, double* vt, lapack_int ldvt, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgesvd_work( int matrix_order, char jobu, char jobvt, +lapack_int LAPACKE_cgesvd_work( int matrix_layout, char jobu, char jobvt, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* vt, lapack_int ldvt, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgesvd_work( int matrix_order, char jobu, char jobvt, +lapack_int LAPACKE_zgesvd_work( int matrix_layout, char jobu, char jobvt, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* s, lapack_complex_double* u, @@ -5490,32 +5490,32 @@ lapack_int LAPACKE_zgesvd_work( int matrix_order, char jobu, char jobvt, lapack_int ldvt, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_sgesvj_work( int matrix_order, char joba, char jobu, +lapack_int LAPACKE_sgesvj_work( int matrix_layout, char joba, char jobu, char jobv, lapack_int m, lapack_int n, float* a, lapack_int lda, float* sva, lapack_int mv, float* v, lapack_int ldv, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgesvj_work( int matrix_order, char joba, char jobu, +lapack_int LAPACKE_dgesvj_work( int matrix_layout, char joba, char jobu, char jobv, lapack_int m, lapack_int n, double* a, lapack_int lda, double* sva, lapack_int mv, double* v, lapack_int ldv, double* work, lapack_int lwork ); -lapack_int LAPACKE_sgesvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgesvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, char* equed, float* r, float* c, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgesvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgesvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* r, double* c, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgesvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgesvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -5525,7 +5525,7 @@ lapack_int LAPACKE_cgesvx_work( int matrix_order, char fact, char trans, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgesvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgesvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -5536,7 +5536,7 @@ lapack_int LAPACKE_zgesvx_work( int matrix_order, char fact, char trans, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgesvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgesvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, char* equed, float* r, @@ -5546,7 +5546,7 @@ lapack_int LAPACKE_sgesvxx_work( int matrix_order, char fact, char trans, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgesvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgesvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* r, @@ -5557,7 +5557,7 @@ lapack_int LAPACKE_dgesvxx_work( int matrix_order, char fact, char trans, double* err_bnds_comp, lapack_int nparams, double* params, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgesvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgesvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -5569,7 +5569,7 @@ lapack_int LAPACKE_cgesvxx_work( int matrix_order, char fact, char trans, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgesvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgesvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -5582,101 +5582,101 @@ lapack_int LAPACKE_zgesvxx_work( int matrix_order, char fact, char trans, lapack_int nparams, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgetf2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgetf2_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetf2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgetf2_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetf2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgetf2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_zgetf2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgetf2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_sgetrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgetrf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgetrf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgetrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_zgetrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgetrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_sgetri_work( int matrix_order, lapack_int n, float* a, +lapack_int LAPACKE_sgetri_work( int matrix_layout, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgetri_work( int matrix_order, lapack_int n, double* a, +lapack_int LAPACKE_dgetri_work( int matrix_layout, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgetri_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_cgetri_work( int matrix_layout, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgetri_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_zgetri_work( int matrix_layout, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgetrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgetrs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgetrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgetrs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgetrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgetrs_work( int matrix_layout, char trans, lapack_int n, 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_zgetrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgetrs_work( int matrix_layout, char trans, lapack_int n, 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_sggbak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_sggbak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* lscale, const float* rscale, lapack_int m, float* v, lapack_int ldv ); -lapack_int LAPACKE_dggbak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_dggbak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* lscale, const double* rscale, lapack_int m, double* v, lapack_int ldv ); -lapack_int LAPACKE_cggbak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_cggbak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* lscale, const float* rscale, lapack_int m, lapack_complex_float* v, lapack_int ldv ); -lapack_int LAPACKE_zggbak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_zggbak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* lscale, const double* rscale, lapack_int m, lapack_complex_double* v, lapack_int ldv ); -lapack_int LAPACKE_sggbal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_sggbal_work( int matrix_layout, char job, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* ilo, lapack_int* ihi, float* lscale, float* rscale, float* work ); -lapack_int LAPACKE_dggbal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_dggbal_work( int matrix_layout, char job, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* ilo, lapack_int* ihi, double* lscale, double* rscale, double* work ); -lapack_int LAPACKE_cggbal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_cggbal_work( int matrix_layout, char job, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_int* ilo, lapack_int* ihi, float* lscale, float* rscale, float* work ); -lapack_int LAPACKE_zggbal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_zggbal_work( int matrix_layout, char job, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_int* ilo, lapack_int* ihi, double* lscale, double* rscale, double* work ); -lapack_int LAPACKE_sgges_work( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_sgges_work( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_S_SELECT3 selctg, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* sdim, float* alphar, @@ -5684,7 +5684,7 @@ lapack_int LAPACKE_sgges_work( int matrix_order, char jobvsl, char jobvsr, lapack_int ldvsl, float* vsr, lapack_int ldvsr, float* work, lapack_int lwork, lapack_logical* bwork ); -lapack_int LAPACKE_dgges_work( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_dgges_work( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_D_SELECT3 selctg, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* sdim, double* alphar, @@ -5692,7 +5692,7 @@ lapack_int LAPACKE_dgges_work( int matrix_order, char jobvsl, char jobvsr, lapack_int ldvsl, double* vsr, lapack_int ldvsr, double* work, lapack_int lwork, lapack_logical* bwork ); -lapack_int LAPACKE_cgges_work( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_cgges_work( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_C_SELECT2 selctg, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -5702,7 +5702,7 @@ lapack_int LAPACKE_cgges_work( int matrix_order, char jobvsl, char jobvsr, lapack_complex_float* vsr, lapack_int ldvsr, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_zgges_work( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_zgges_work( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_Z_SELECT2 selctg, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -5713,7 +5713,7 @@ lapack_int LAPACKE_zgges_work( int matrix_order, char jobvsl, char jobvsr, lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_sggesx_work( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_sggesx_work( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_S_SELECT3 selctg, char sense, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* sdim, @@ -5723,7 +5723,7 @@ lapack_int LAPACKE_sggesx_work( int matrix_order, char jobvsl, char jobvsr, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork, lapack_logical* bwork ); -lapack_int LAPACKE_dggesx_work( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_dggesx_work( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_D_SELECT3 selctg, char sense, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* sdim, @@ -5733,7 +5733,7 @@ lapack_int LAPACKE_dggesx_work( int matrix_order, char jobvsl, char jobvsr, double* rcondv, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork, lapack_logical* bwork ); -lapack_int LAPACKE_cggesx_work( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_cggesx_work( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_C_SELECT2 selctg, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, @@ -5746,7 +5746,7 @@ lapack_int LAPACKE_cggesx_work( int matrix_order, char jobvsl, char jobvsr, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int* iwork, lapack_int liwork, lapack_logical* bwork ); -lapack_int LAPACKE_zggesx_work( int matrix_order, char jobvsl, char jobvsr, +lapack_int LAPACKE_zggesx_work( int matrix_layout, char jobvsl, char jobvsr, char sort, LAPACK_Z_SELECT2 selctg, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, @@ -5760,19 +5760,19 @@ lapack_int LAPACKE_zggesx_work( int matrix_order, char jobvsl, char jobvsr, double* rwork, lapack_int* iwork, lapack_int liwork, lapack_logical* bwork ); -lapack_int LAPACKE_sggev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_sggev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* alphar, float* alphai, float* beta, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, float* work, lapack_int lwork ); -lapack_int LAPACKE_dggev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_dggev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* alphar, double* alphai, double* beta, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, double* work, lapack_int lwork ); -lapack_int LAPACKE_cggev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_cggev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* alpha, @@ -5781,7 +5781,7 @@ lapack_int LAPACKE_cggev_work( int matrix_order, char jobvl, char jobvr, lapack_complex_float* vr, lapack_int ldvr, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zggev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_zggev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* alpha, @@ -5791,7 +5791,7 @@ lapack_int LAPACKE_zggev_work( int matrix_order, char jobvl, char jobvr, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_sggevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_sggevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* alphar, float* alphai, float* beta, @@ -5801,7 +5801,7 @@ lapack_int LAPACKE_sggevx_work( int matrix_order, char balanc, char jobvl, float* abnrm, float* bbnrm, float* rconde, float* rcondv, float* work, lapack_int lwork, lapack_int* iwork, lapack_logical* bwork ); -lapack_int LAPACKE_dggevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_dggevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* alphar, double* alphai, double* beta, @@ -5811,7 +5811,7 @@ lapack_int LAPACKE_dggevx_work( int matrix_order, char balanc, char jobvl, double* abnrm, double* bbnrm, double* rconde, double* rcondv, double* work, lapack_int lwork, lapack_int* iwork, lapack_logical* bwork ); -lapack_int LAPACKE_cggevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_cggevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -5825,7 +5825,7 @@ lapack_int LAPACKE_cggevx_work( int matrix_order, char balanc, char jobvl, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int* iwork, lapack_logical* bwork ); -lapack_int LAPACKE_zggevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_zggevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -5840,22 +5840,22 @@ lapack_int LAPACKE_zggevx_work( int matrix_order, char balanc, char jobvl, double* rwork, lapack_int* iwork, lapack_logical* bwork ); -lapack_int LAPACKE_sggglm_work( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_sggglm_work( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, float* a, lapack_int lda, float* b, lapack_int ldb, float* d, float* x, float* y, float* work, lapack_int lwork ); -lapack_int LAPACKE_dggglm_work( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_dggglm_work( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, double* a, lapack_int lda, double* b, lapack_int ldb, double* d, double* x, double* y, double* work, lapack_int lwork ); -lapack_int LAPACKE_cggglm_work( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_cggglm_work( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* d, lapack_complex_float* x, lapack_complex_float* y, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zggglm_work( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_zggglm_work( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* d, @@ -5863,45 +5863,45 @@ lapack_int LAPACKE_zggglm_work( int matrix_order, lapack_int n, lapack_int m, lapack_complex_double* y, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sgghrd_work( int matrix_order, char compq, char compz, +lapack_int LAPACKE_sgghrd_work( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, float* a, lapack_int lda, float* b, lapack_int ldb, float* q, lapack_int ldq, float* z, lapack_int ldz ); -lapack_int LAPACKE_dgghrd_work( int matrix_order, char compq, char compz, +lapack_int LAPACKE_dgghrd_work( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, double* a, lapack_int lda, double* b, lapack_int ldb, double* q, lapack_int ldq, double* z, lapack_int ldz ); -lapack_int LAPACKE_cgghrd_work( int matrix_order, char compq, char compz, +lapack_int LAPACKE_cgghrd_work( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zgghrd_work( int matrix_order, char compq, char compz, +lapack_int LAPACKE_zgghrd_work( int matrix_layout, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* q, lapack_int ldq, lapack_complex_double* z, lapack_int ldz ); -lapack_int LAPACKE_sgglse_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgglse_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int p, float* a, lapack_int lda, float* b, lapack_int ldb, float* c, float* d, float* x, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgglse_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgglse_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int p, double* a, lapack_int lda, double* b, lapack_int ldb, double* c, double* d, double* x, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgglse_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgglse_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int p, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* c, lapack_complex_float* d, lapack_complex_float* x, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgglse_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgglse_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int p, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* c, @@ -5909,49 +5909,49 @@ lapack_int LAPACKE_zgglse_work( int matrix_order, lapack_int m, lapack_int n, lapack_complex_double* x, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sggqrf_work( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_sggqrf_work( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, float* a, lapack_int lda, float* taua, float* b, lapack_int ldb, float* taub, float* work, lapack_int lwork ); -lapack_int LAPACKE_dggqrf_work( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_dggqrf_work( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, double* a, lapack_int lda, double* taua, double* b, lapack_int ldb, double* taub, double* work, lapack_int lwork ); -lapack_int LAPACKE_cggqrf_work( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_cggqrf_work( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, lapack_complex_float* a, lapack_int lda, lapack_complex_float* taua, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* taub, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zggqrf_work( int matrix_order, lapack_int n, lapack_int m, +lapack_int LAPACKE_zggqrf_work( int matrix_layout, lapack_int n, lapack_int m, lapack_int p, lapack_complex_double* a, lapack_int lda, lapack_complex_double* taua, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* taub, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sggrqf_work( int matrix_order, lapack_int m, lapack_int p, +lapack_int LAPACKE_sggrqf_work( int matrix_layout, lapack_int m, lapack_int p, lapack_int n, float* a, lapack_int lda, float* taua, float* b, lapack_int ldb, float* taub, float* work, lapack_int lwork ); -lapack_int LAPACKE_dggrqf_work( int matrix_order, lapack_int m, lapack_int p, +lapack_int LAPACKE_dggrqf_work( int matrix_layout, lapack_int m, lapack_int p, lapack_int n, double* a, lapack_int lda, double* taua, double* b, lapack_int ldb, double* taub, double* work, lapack_int lwork ); -lapack_int LAPACKE_cggrqf_work( int matrix_order, lapack_int m, lapack_int p, +lapack_int LAPACKE_cggrqf_work( int matrix_layout, lapack_int m, lapack_int p, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* taua, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* taub, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zggrqf_work( int matrix_order, lapack_int m, lapack_int p, +lapack_int LAPACKE_zggrqf_work( int matrix_layout, lapack_int m, lapack_int p, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* taua, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* taub, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_sggsvd_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_sggsvd_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int n, lapack_int p, lapack_int* k, lapack_int* l, float* a, lapack_int lda, float* b, @@ -5959,7 +5959,7 @@ lapack_int LAPACKE_sggsvd_work( int matrix_order, char jobu, char jobv, float* u, lapack_int ldu, float* v, lapack_int ldv, float* q, lapack_int ldq, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dggsvd_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_dggsvd_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int n, lapack_int p, lapack_int* k, lapack_int* l, double* a, lapack_int lda, double* b, @@ -5967,7 +5967,7 @@ lapack_int LAPACKE_dggsvd_work( int matrix_order, char jobu, char jobv, double* u, lapack_int ldu, double* v, lapack_int ldv, double* q, lapack_int ldq, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cggsvd_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_cggsvd_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int n, lapack_int p, lapack_int* k, lapack_int* l, lapack_complex_float* a, lapack_int lda, @@ -5978,7 +5978,7 @@ lapack_int LAPACKE_cggsvd_work( int matrix_order, char jobu, char jobv, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* work, float* rwork, lapack_int* iwork ); -lapack_int LAPACKE_zggsvd_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_zggsvd_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int n, lapack_int p, lapack_int* k, lapack_int* l, lapack_complex_double* a, lapack_int lda, @@ -5990,7 +5990,7 @@ lapack_int LAPACKE_zggsvd_work( int matrix_order, char jobu, char jobv, lapack_complex_double* work, double* rwork, lapack_int* iwork ); -lapack_int LAPACKE_sggsvp_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_sggsvp_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float tola, @@ -5998,7 +5998,7 @@ lapack_int LAPACKE_sggsvp_work( int matrix_order, char jobu, char jobv, float* u, lapack_int ldu, float* v, lapack_int ldv, float* q, lapack_int ldq, lapack_int* iwork, float* tau, float* work ); -lapack_int LAPACKE_dggsvp_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_dggsvp_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double tola, @@ -6006,7 +6006,7 @@ lapack_int LAPACKE_dggsvp_work( int matrix_order, char jobu, char jobv, double* u, lapack_int ldu, double* v, lapack_int ldv, double* q, lapack_int ldq, lapack_int* iwork, double* tau, double* work ); -lapack_int LAPACKE_cggsvp_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_cggsvp_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, @@ -6018,7 +6018,7 @@ lapack_int LAPACKE_cggsvp_work( int matrix_order, char jobu, char jobv, lapack_int* iwork, float* rwork, lapack_complex_float* tau, lapack_complex_float* work ); -lapack_int LAPACKE_zggsvp_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_zggsvp_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, @@ -6056,7 +6056,7 @@ lapack_int LAPACKE_zgtcon_work( char norm, lapack_int n, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work ); -lapack_int LAPACKE_sgtrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgtrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* dl, const float* d, const float* du, const float* dlf, const float* df, @@ -6065,7 +6065,7 @@ lapack_int LAPACKE_sgtrfs_work( int matrix_order, char trans, lapack_int n, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgtrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgtrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* dl, const double* d, const double* du, const double* dlf, const double* df, @@ -6074,7 +6074,7 @@ lapack_int LAPACKE_dgtrfs_work( int matrix_order, char trans, lapack_int n, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgtrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgtrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* dl, const lapack_complex_float* d, const lapack_complex_float* du, @@ -6087,7 +6087,7 @@ lapack_int LAPACKE_cgtrfs_work( int matrix_order, char trans, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgtrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgtrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* dl, const lapack_complex_double* d, @@ -6102,24 +6102,24 @@ lapack_int LAPACKE_zgtrfs_work( int matrix_order, char trans, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sgtsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, float* dl, float* d, float* du, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dgtsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* dl, double* d, double* du, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_cgtsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_float* dl, lapack_complex_float* d, lapack_complex_float* du, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgtsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zgtsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* dl, lapack_complex_double* d, lapack_complex_double* du, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sgtsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgtsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, const float* dl, const float* d, const float* du, float* dlf, float* df, float* duf, float* du2, @@ -6127,7 +6127,7 @@ lapack_int LAPACKE_sgtsvx_work( int matrix_order, char fact, char trans, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgtsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgtsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, const double* dl, const double* d, const double* du, double* dlf, double* df, double* duf, double* du2, @@ -6135,7 +6135,7 @@ lapack_int LAPACKE_dgtsvx_work( int matrix_order, char fact, char trans, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgtsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgtsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* dl, const lapack_complex_float* d, @@ -6148,7 +6148,7 @@ lapack_int LAPACKE_cgtsvx_work( int matrix_order, char fact, char trans, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgtsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgtsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* dl, const lapack_complex_double* d, @@ -6175,24 +6175,24 @@ lapack_int LAPACKE_zgttrf_work( lapack_int n, lapack_complex_double* dl, lapack_complex_double* du, lapack_complex_double* du2, lapack_int* ipiv ); -lapack_int LAPACKE_sgttrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgttrs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* dl, const float* d, const float* du, const float* du2, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgttrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgttrs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* dl, const double* d, const double* du, const double* du2, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgttrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgttrs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* dl, const lapack_complex_float* d, const lapack_complex_float* du, const lapack_complex_float* du2, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgttrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgttrs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* dl, const lapack_complex_double* d, @@ -6201,20 +6201,20 @@ lapack_int LAPACKE_zgttrs_work( int matrix_order, char trans, lapack_int n, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_chbev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_chbev_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab, float* w, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhbev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zhbev_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab, double* w, lapack_complex_double* z, lapack_int ldz, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chbevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_chbevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab, float* w, lapack_complex_float* z, @@ -6222,7 +6222,7 @@ lapack_int LAPACKE_chbevd_work( int matrix_order, char jobz, char uplo, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zhbevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zhbevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab, double* w, lapack_complex_double* z, @@ -6231,7 +6231,7 @@ lapack_int LAPACKE_zhbevd_work( int matrix_order, char jobz, char uplo, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_chbevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_chbevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* q, lapack_int ldq, @@ -6241,7 +6241,7 @@ lapack_int LAPACKE_chbevx_work( int matrix_order, char jobz, char range, lapack_int ldz, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhbevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zhbevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* q, lapack_int ldq, @@ -6252,13 +6252,13 @@ lapack_int LAPACKE_zhbevx_work( int matrix_order, char jobz, char range, double* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_chbgst_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_chbgst_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* bb, lapack_int ldbb, lapack_complex_float* x, lapack_int ldx, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhbgst_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_zhbgst_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* bb, @@ -6266,14 +6266,14 @@ lapack_int LAPACKE_zhbgst_work( int matrix_order, char vect, char uplo, lapack_int ldx, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chbgv_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_chbgv_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* bb, lapack_int ldbb, float* w, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhbgv_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zhbgv_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* bb, lapack_int ldbb, @@ -6281,7 +6281,7 @@ lapack_int LAPACKE_zhbgv_work( int matrix_order, char jobz, char uplo, lapack_int ldz, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chbgvd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_chbgvd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* bb, lapack_int ldbb, @@ -6290,7 +6290,7 @@ lapack_int LAPACKE_chbgvd_work( int matrix_order, char jobz, char uplo, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zhbgvd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zhbgvd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* bb, lapack_int ldbb, @@ -6300,7 +6300,7 @@ lapack_int LAPACKE_zhbgvd_work( int matrix_order, char jobz, char uplo, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_chbgvx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_chbgvx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* bb, @@ -6311,7 +6311,7 @@ lapack_int LAPACKE_chbgvx_work( int matrix_order, char jobz, char range, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhbgvx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zhbgvx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* bb, @@ -6323,60 +6323,60 @@ lapack_int LAPACKE_zhbgvx_work( int matrix_order, char jobz, char range, lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_chbtrd_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_chbtrd_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab, float* d, float* e, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* work ); -lapack_int LAPACKE_zhbtrd_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_zhbtrd_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab, double* d, double* e, lapack_complex_double* q, lapack_int ldq, lapack_complex_double* work ); -lapack_int LAPACKE_checon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_checon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zhecon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhecon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work ); -lapack_int LAPACKE_cheequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cheequb_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax, lapack_complex_float* work ); -lapack_int LAPACKE_zheequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zheequb_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax, lapack_complex_double* work ); -lapack_int LAPACKE_cheev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_cheev_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, float* rwork ); -lapack_int LAPACKE_zheev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zheev_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, double* rwork ); -lapack_int LAPACKE_cheevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_cheevd_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, float* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zheevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zheevd_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, double* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_cheevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cheevr_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, @@ -6386,7 +6386,7 @@ lapack_int LAPACKE_cheevr_work( int matrix_order, char jobz, char range, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zheevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zheevr_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, @@ -6397,7 +6397,7 @@ lapack_int LAPACKE_zheevr_work( int matrix_order, char jobz, char range, double* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_cheevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cheevx_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, @@ -6406,7 +6406,7 @@ lapack_int LAPACKE_cheevx_work( int matrix_order, char jobz, char range, lapack_int ldz, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zheevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zheevx_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, @@ -6416,29 +6416,29 @@ lapack_int LAPACKE_zheevx_work( int matrix_order, char jobz, char range, lapack_int lwork, double* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_chegst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_chegst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhegst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_zhegst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_chegv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chegv_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, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zhegv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhegv_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, double* w, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_chegvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chegvd_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, @@ -6446,7 +6446,7 @@ lapack_int LAPACKE_chegvd_work( int matrix_order, lapack_int itype, char jobz, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zhegvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhegvd_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, @@ -6455,7 +6455,7 @@ lapack_int LAPACKE_zhegvd_work( int matrix_order, lapack_int itype, char jobz, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_chegvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chegvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -6465,7 +6465,7 @@ lapack_int LAPACKE_chegvx_work( int matrix_order, lapack_int itype, char jobz, lapack_int ldz, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhegvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhegvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -6476,7 +6476,7 @@ lapack_int LAPACKE_zhegvx_work( int matrix_order, lapack_int itype, char jobz, lapack_int lwork, double* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_cherfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cherfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -6484,7 +6484,7 @@ lapack_int LAPACKE_cherfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zherfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zherfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -6493,7 +6493,7 @@ lapack_int LAPACKE_zherfs_work( int matrix_order, char uplo, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_cherfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_cherfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, @@ -6505,7 +6505,7 @@ lapack_int LAPACKE_cherfsx_work( int matrix_order, char uplo, char equed, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zherfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zherfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, @@ -6519,18 +6519,18 @@ lapack_int LAPACKE_zherfsx_work( int matrix_order, char uplo, char equed, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chesv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chesv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhesv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhesv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_chesvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_chesvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -6539,7 +6539,7 @@ lapack_int LAPACKE_chesvx_work( int matrix_order, char fact, char uplo, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zhesvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zhesvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -6550,7 +6550,7 @@ lapack_int LAPACKE_zhesvx_work( int matrix_order, char fact, char uplo, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_chesvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -6562,7 +6562,7 @@ lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zhesvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -6575,69 +6575,69 @@ lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chetrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrd_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float* d, float* e, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhetrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrd_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double* d, double* e, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_chetrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhetrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_chetri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work ); -lapack_int LAPACKE_zhetri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work ); -lapack_int LAPACKE_chetrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrs_work( int matrix_layout, char uplo, lapack_int n, 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_zhetrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrs_work( int matrix_layout, char uplo, lapack_int n, 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_chfrk_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_chfrk_work( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, float alpha, const lapack_complex_float* a, lapack_int lda, float beta, lapack_complex_float* c ); -lapack_int LAPACKE_zhfrk_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zhfrk_work( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const lapack_complex_double* a, lapack_int lda, double beta, lapack_complex_double* c ); -lapack_int LAPACKE_shgeqz_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_shgeqz_work( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, float* h, lapack_int ldh, float* t, lapack_int ldt, float* alphar, float* alphai, float* beta, float* q, lapack_int ldq, float* z, lapack_int ldz, float* work, lapack_int lwork ); -lapack_int LAPACKE_dhgeqz_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_dhgeqz_work( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, double* h, lapack_int ldh, double* t, lapack_int ldt, double* alphar, double* alphai, double* beta, double* q, lapack_int ldq, double* z, lapack_int ldz, double* work, lapack_int lwork ); -lapack_int LAPACKE_chgeqz_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_chgeqz_work( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* h, lapack_int ldh, lapack_complex_float* t, @@ -6647,7 +6647,7 @@ lapack_int LAPACKE_chgeqz_work( int matrix_order, char job, char compq, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zhgeqz_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_zhgeqz_work( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* h, lapack_int ldh, lapack_complex_double* t, @@ -6658,33 +6658,33 @@ lapack_int LAPACKE_zhgeqz_work( int matrix_order, char job, char compq, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_chpcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chpcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_int* ipiv, float anorm, float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zhpcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhpcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work ); -lapack_int LAPACKE_chpev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_chpev_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, float* w, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhpev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zhpev_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, double* w, lapack_complex_double* z, lapack_int ldz, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chpevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_chpevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, float* w, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zhpevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zhpevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, double* w, lapack_complex_double* z, lapack_int ldz, lapack_complex_double* work, @@ -6692,7 +6692,7 @@ lapack_int LAPACKE_zhpevd_work( int matrix_order, char jobz, char uplo, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_chpevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_chpevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* ap, float vl, float vu, lapack_int il, lapack_int iu, float abstol, @@ -6700,7 +6700,7 @@ lapack_int LAPACKE_chpevx_work( int matrix_order, char jobz, char range, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhpevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zhpevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* ap, double vl, double vu, lapack_int il, lapack_int iu, double abstol, @@ -6709,27 +6709,27 @@ lapack_int LAPACKE_zhpevx_work( int matrix_order, char jobz, char range, lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_chpgst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_chpgst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_complex_float* bp ); -lapack_int LAPACKE_zhpgst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_zhpgst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_complex_double* bp ); -lapack_int LAPACKE_chpgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float* w, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhpgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, lapack_complex_double* z, lapack_int ldz, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chpgvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float* w, @@ -6737,7 +6737,7 @@ lapack_int LAPACKE_chpgvd_work( int matrix_order, lapack_int itype, char jobz, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zhpgvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, @@ -6746,7 +6746,7 @@ lapack_int LAPACKE_zhpgvd_work( int matrix_order, lapack_int itype, char jobz, double* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_chpgvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float vl, float vu, @@ -6755,7 +6755,7 @@ lapack_int LAPACKE_chpgvx_work( int matrix_order, lapack_int itype, char jobz, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhpgvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double vl, double vu, @@ -6765,7 +6765,7 @@ lapack_int LAPACKE_zhpgvx_work( int matrix_order, lapack_int itype, char jobz, lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_chprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_int* ipiv, @@ -6773,7 +6773,7 @@ lapack_int LAPACKE_chprfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, @@ -6783,16 +6783,16 @@ lapack_int LAPACKE_zhprfs_work( int matrix_order, char uplo, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chpsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chpsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhpsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhpsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_chpsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_chpsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* afp, lapack_int* ipiv, @@ -6800,7 +6800,7 @@ lapack_int LAPACKE_chpsvx_work( int matrix_order, char fact, char uplo, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhpsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zhpsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* afp, lapack_int* ipiv, @@ -6809,52 +6809,52 @@ lapack_int LAPACKE_zhpsvx_work( int matrix_order, char fact, char uplo, double* rcond, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_chptrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrd_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, float* d, float* e, lapack_complex_float* tau ); -lapack_int LAPACKE_zhptrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrd_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, double* d, double* e, lapack_complex_double* tau ); -lapack_int LAPACKE_chptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_zhptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, lapack_int* ipiv ); -lapack_int LAPACKE_chptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* work ); -lapack_int LAPACKE_zhptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* work ); -lapack_int LAPACKE_chptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_shsein_work( int matrix_order, char job, char eigsrc, +lapack_int LAPACKE_shsein_work( int matrix_layout, char job, char eigsrc, char initv, lapack_logical* select, lapack_int n, const float* h, lapack_int ldh, float* wr, const float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, float* work, lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_dhsein_work( int matrix_order, char job, char eigsrc, +lapack_int LAPACKE_dhsein_work( int matrix_layout, char job, char eigsrc, char initv, lapack_logical* select, lapack_int n, const double* h, lapack_int ldh, double* wr, const double* wi, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, double* work, lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_chsein_work( int matrix_order, char job, char eigsrc, +lapack_int LAPACKE_chsein_work( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, @@ -6863,7 +6863,7 @@ lapack_int LAPACKE_chsein_work( int matrix_order, char job, char eigsrc, lapack_int mm, lapack_int* m, lapack_complex_float* work, float* rwork, lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_zhsein_work( int matrix_order, char job, char eigsrc, +lapack_int LAPACKE_zhsein_work( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_double* h, lapack_int ldh, lapack_complex_double* w, @@ -6873,23 +6873,23 @@ lapack_int LAPACKE_zhsein_work( int matrix_order, char job, char eigsrc, lapack_complex_double* work, double* rwork, lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_shseqr_work( int matrix_order, char job, char compz, +lapack_int LAPACKE_shseqr_work( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, float* h, lapack_int ldh, float* wr, float* wi, float* z, lapack_int ldz, float* work, lapack_int lwork ); -lapack_int LAPACKE_dhseqr_work( int matrix_order, char job, char compz, +lapack_int LAPACKE_dhseqr_work( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, double* h, lapack_int ldh, double* wr, double* wi, double* z, lapack_int ldz, double* work, lapack_int lwork ); -lapack_int LAPACKE_chseqr_work( int matrix_order, char job, char compz, +lapack_int LAPACKE_chseqr_work( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhseqr_work( int matrix_order, char job, char compz, +lapack_int LAPACKE_zhseqr_work( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* h, lapack_int ldh, lapack_complex_double* w, @@ -6916,97 +6916,97 @@ lapack_int LAPACKE_zlacn2_work( lapack_int n, lapack_complex_double* v, double* est, lapack_int* kase, lapack_int* isave ); -lapack_int LAPACKE_slacpy_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_slacpy_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dlacpy_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_dlacpy_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_clacpy_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_clacpy_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zlacpy_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlacpy_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_clacp2_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_clacp2_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zlacp2_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlacp2_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zlag2c_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlag2c_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_float* sa, lapack_int ldsa ); -lapack_int LAPACKE_slag2d_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_slag2d_work( int matrix_layout, lapack_int m, lapack_int n, const float* sa, lapack_int ldsa, double* a, lapack_int lda ); -lapack_int LAPACKE_dlag2s_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dlag2s_work( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, float* sa, lapack_int ldsa ); -lapack_int LAPACKE_clag2z_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clag2z_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* sa, lapack_int ldsa, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_slagge_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_slagge_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* d, float* a, lapack_int lda, lapack_int* iseed, float* work ); -lapack_int LAPACKE_dlagge_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dlagge_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* d, double* a, lapack_int lda, lapack_int* iseed, double* work ); -lapack_int LAPACKE_clagge_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clagge_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed, lapack_complex_float* work ); -lapack_int LAPACKE_zlagge_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlagge_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed, lapack_complex_double* work ); -lapack_int LAPACKE_claghe_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_claghe_work( int matrix_layout, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed, lapack_complex_float* work ); -lapack_int LAPACKE_zlaghe_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_zlaghe_work( int matrix_layout, lapack_int n, lapack_int k, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed, lapack_complex_double* work ); -lapack_int LAPACKE_slagsy_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_slagsy_work( int matrix_layout, lapack_int n, lapack_int k, const float* d, float* a, lapack_int lda, lapack_int* iseed, float* work ); -lapack_int LAPACKE_dlagsy_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_dlagsy_work( int matrix_layout, lapack_int n, lapack_int k, const double* d, double* a, lapack_int lda, lapack_int* iseed, double* work ); -lapack_int LAPACKE_clagsy_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_clagsy_work( int matrix_layout, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed, lapack_complex_float* work ); -lapack_int LAPACKE_zlagsy_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_zlagsy_work( int matrix_layout, lapack_int n, lapack_int k, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed, lapack_complex_double* work ); -lapack_int LAPACKE_slapmr_work( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_slapmr_work( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, float* x, lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_dlapmr_work( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_dlapmr_work( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, double* x, lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_clapmr_work( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_clapmr_work( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, lapack_complex_float* x, lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_zlapmr_work( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_zlapmr_work( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, lapack_complex_double* x, lapack_int ldx, lapack_int* k ); @@ -7030,74 +7030,74 @@ double LAPACKE_dlapy3_work( double x, double y, double z ); float LAPACKE_slamch_work( char cmach ); double LAPACKE_dlamch_work( char cmach ); -float LAPACKE_slange_work( int matrix_order, char norm, lapack_int m, +float LAPACKE_slange_work( int matrix_layout, char norm, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* work ); -double LAPACKE_dlange_work( int matrix_order, char norm, lapack_int m, +double LAPACKE_dlange_work( int matrix_layout, char norm, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* work ); -float LAPACKE_clange_work( int matrix_order, char norm, lapack_int m, +float LAPACKE_clange_work( int matrix_layout, char norm, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* work ); -double LAPACKE_zlange_work( int matrix_order, char norm, lapack_int m, +double LAPACKE_zlange_work( int matrix_layout, char norm, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* work ); -float LAPACKE_clanhe_work( int matrix_order, char norm, char uplo, +float LAPACKE_clanhe_work( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* work ); -double LAPACKE_zlanhe_work( int matrix_order, char norm, char uplo, +double LAPACKE_zlanhe_work( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* work ); -float LAPACKE_slansy_work( int matrix_order, char norm, char uplo, +float LAPACKE_slansy_work( int matrix_layout, char norm, char uplo, lapack_int n, const float* a, lapack_int lda, float* work ); -double LAPACKE_dlansy_work( int matrix_order, char norm, char uplo, +double LAPACKE_dlansy_work( int matrix_layout, char norm, char uplo, lapack_int n, const double* a, lapack_int lda, double* work ); -float LAPACKE_clansy_work( int matrix_order, char norm, char uplo, +float LAPACKE_clansy_work( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* work ); -double LAPACKE_zlansy_work( int matrix_order, char norm, char uplo, +double LAPACKE_zlansy_work( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* work ); -float LAPACKE_slantr_work( int matrix_order, char norm, char uplo, +float LAPACKE_slantr_work( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* work ); -double LAPACKE_dlantr_work( int matrix_order, char norm, char uplo, +double LAPACKE_dlantr_work( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* work ); -float LAPACKE_clantr_work( int matrix_order, char norm, char uplo, +float LAPACKE_clantr_work( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* work ); -double LAPACKE_zlantr_work( int matrix_order, char norm, char uplo, +double LAPACKE_zlantr_work( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* work ); -lapack_int LAPACKE_slarfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_slarfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* c, lapack_int ldc, float* work, lapack_int ldwork ); -lapack_int LAPACKE_dlarfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* c, lapack_int ldc, double* work, lapack_int ldwork ); -lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, lapack_int ldt, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int ldwork ); -lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zlarfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* v, lapack_int ldv, @@ -7117,37 +7117,37 @@ lapack_int LAPACKE_zlarfg_work( lapack_int n, lapack_complex_double* alpha, lapack_complex_double* x, lapack_int incx, lapack_complex_double* tau ); -lapack_int LAPACKE_slarft_work( int matrix_order, char direct, char storev, +lapack_int LAPACKE_slarft_work( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const float* v, lapack_int ldv, const float* tau, float* t, lapack_int ldt ); -lapack_int LAPACKE_dlarft_work( int matrix_order, char direct, char storev, +lapack_int LAPACKE_dlarft_work( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const double* v, lapack_int ldv, const double* tau, double* t, lapack_int ldt ); -lapack_int LAPACKE_clarft_work( int matrix_order, char direct, char storev, +lapack_int LAPACKE_clarft_work( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* tau, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zlarft_work( int matrix_order, char direct, char storev, +lapack_int LAPACKE_zlarft_work( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* tau, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_slarfx_work( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_slarfx_work( int matrix_layout, char side, lapack_int m, lapack_int n, const float* v, float tau, float* c, lapack_int ldc, float* work ); -lapack_int LAPACKE_dlarfx_work( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_dlarfx_work( int matrix_layout, char side, lapack_int m, lapack_int n, const double* v, double tau, double* c, lapack_int ldc, double* work ); -lapack_int LAPACKE_clarfx_work( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_clarfx_work( int matrix_layout, char side, lapack_int m, lapack_int n, const lapack_complex_float* v, lapack_complex_float tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work ); -lapack_int LAPACKE_zlarfx_work( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_zlarfx_work( int matrix_layout, char side, lapack_int m, lapack_int n, const lapack_complex_double* v, lapack_complex_double tau, lapack_complex_double* c, lapack_int ldc, @@ -7162,17 +7162,17 @@ lapack_int LAPACKE_clarnv_work( lapack_int idist, lapack_int* iseed, lapack_int LAPACKE_zlarnv_work( lapack_int idist, lapack_int* iseed, lapack_int n, lapack_complex_double* x ); -lapack_int LAPACKE_slaset_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_slaset_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, float alpha, float beta, float* a, lapack_int lda ); -lapack_int LAPACKE_dlaset_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_dlaset_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, double alpha, double beta, double* a, lapack_int lda ); -lapack_int LAPACKE_claset_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_claset_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, lapack_complex_float alpha, lapack_complex_float beta, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlaset_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlaset_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, lapack_complex_double alpha, lapack_complex_double beta, lapack_complex_double* a, lapack_int lda ); @@ -7180,268 +7180,268 @@ lapack_int LAPACKE_zlaset_work( int matrix_order, char uplo, lapack_int m, lapack_int LAPACKE_slasrt_work( char id, lapack_int n, float* d ); lapack_int LAPACKE_dlasrt_work( char id, lapack_int n, double* d ); -lapack_int LAPACKE_slaswp_work( int matrix_order, lapack_int n, float* a, +lapack_int LAPACKE_slaswp_work( int matrix_layout, lapack_int n, float* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_dlaswp_work( int matrix_order, lapack_int n, double* a, +lapack_int LAPACKE_dlaswp_work( int matrix_layout, lapack_int n, double* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_claswp_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_claswp_work( int matrix_layout, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_zlaswp_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_zlaswp_work( int matrix_layout, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_slatms_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_slatms_work( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, float* d, lapack_int mode, float cond, float dmax, lapack_int kl, lapack_int ku, char pack, float* a, lapack_int lda, float* work ); -lapack_int LAPACKE_dlatms_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dlatms_work( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, double* d, lapack_int mode, double cond, double dmax, lapack_int kl, lapack_int ku, char pack, double* a, lapack_int lda, double* work ); -lapack_int LAPACKE_clatms_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clatms_work( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, float* d, lapack_int mode, float cond, float dmax, lapack_int kl, lapack_int ku, char pack, lapack_complex_float* a, lapack_int lda, lapack_complex_float* work ); -lapack_int LAPACKE_zlatms_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlatms_work( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, double* d, lapack_int mode, double cond, double dmax, lapack_int kl, lapack_int ku, char pack, lapack_complex_double* a, lapack_int lda, lapack_complex_double* work ); -lapack_int LAPACKE_slauum_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_slauum_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dlauum_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dlauum_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_clauum_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_clauum_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlauum_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zlauum_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_sopgtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sopgtr_work( int matrix_layout, char uplo, lapack_int n, const float* ap, const float* tau, float* q, lapack_int ldq, float* work ); -lapack_int LAPACKE_dopgtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dopgtr_work( int matrix_layout, char uplo, lapack_int n, const double* ap, const double* tau, double* q, lapack_int ldq, double* work ); -lapack_int LAPACKE_sopmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_sopmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const float* ap, const float* tau, float* c, lapack_int ldc, float* work ); -lapack_int LAPACKE_dopmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_dopmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const double* ap, const double* tau, double* c, lapack_int ldc, double* work ); -lapack_int LAPACKE_sorgbr_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_sorgbr_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dorgbr_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_dorgbr_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_sorghr_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_sorghr_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, float* a, lapack_int lda, const float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dorghr_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_dorghr_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, double* a, lapack_int lda, const double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_sorglq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sorglq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dorglq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dorglq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_sorgql_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sorgql_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dorgql_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dorgql_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_sorgqr_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sorgqr_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dorgqr_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dorgqr_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_sorgrq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sorgrq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, float* a, lapack_int lda, const float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dorgrq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dorgrq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, double* a, lapack_int lda, const double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_sorgtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sorgtr_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dorgtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dorgtr_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_sormbr_work( int matrix_order, char vect, char side, +lapack_int LAPACKE_sormbr_work( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc, float* work, lapack_int lwork ); -lapack_int LAPACKE_dormbr_work( int matrix_order, char vect, char side, +lapack_int LAPACKE_dormbr_work( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc, double* work, lapack_int lwork ); -lapack_int LAPACKE_sormhr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormhr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc, float* work, lapack_int lwork ); -lapack_int LAPACKE_dormhr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormhr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc, double* work, lapack_int lwork ); -lapack_int LAPACKE_sormlq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormlq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc, float* work, lapack_int lwork ); -lapack_int LAPACKE_dormlq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormlq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc, double* work, lapack_int lwork ); -lapack_int LAPACKE_sormql_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormql_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc, float* work, lapack_int lwork ); -lapack_int LAPACKE_dormql_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormql_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc, double* work, lapack_int lwork ); -lapack_int LAPACKE_sormqr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormqr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc, float* work, lapack_int lwork ); -lapack_int LAPACKE_dormqr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormqr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc, double* work, lapack_int lwork ); -lapack_int LAPACKE_sormrq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormrq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc, float* work, lapack_int lwork ); -lapack_int LAPACKE_dormrq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormrq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc, double* work, lapack_int lwork ); -lapack_int LAPACKE_sormrz_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_sormrz_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc, float* work, lapack_int lwork ); -lapack_int LAPACKE_dormrz_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dormrz_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc, double* work, lapack_int lwork ); -lapack_int LAPACKE_sormtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_sormtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* tau, float* c, lapack_int ldc, float* work, lapack_int lwork ); -lapack_int LAPACKE_dormtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_dormtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* tau, double* c, lapack_int ldc, double* work, lapack_int lwork ); -lapack_int LAPACKE_spbcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbcon_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab, float anorm, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dpbcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbcon_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab, double anorm, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cpbcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbcon_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float anorm, float* rcond, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpbcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbcon_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double anorm, double* rcond, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_spbequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbequ_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dpbequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbequ_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cpbequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbequ_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpbequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbequ_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double* s, double* scond, double* amax ); -lapack_int LAPACKE_spbrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, lapack_int ldafb, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dpbrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, lapack_int ldafb, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cpbrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, @@ -7449,7 +7449,7 @@ lapack_int LAPACKE_cpbrfs_work( int matrix_order, char uplo, lapack_int n, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpbrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, @@ -7460,47 +7460,47 @@ lapack_int LAPACKE_zpbrfs_work( int matrix_order, char uplo, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_spbstf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbstf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kb, float* bb, lapack_int ldbb ); -lapack_int LAPACKE_dpbstf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbstf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kb, double* bb, lapack_int ldbb ); -lapack_int LAPACKE_cpbstf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbstf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kb, lapack_complex_float* bb, lapack_int ldbb ); -lapack_int LAPACKE_zpbstf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbstf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kb, lapack_complex_double* bb, lapack_int ldbb ); -lapack_int LAPACKE_spbsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, float* ab, lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpbsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, double* ab, lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpbsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpbsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_spbsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_spbsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dpbsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dpbsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cpbsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cpbsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, lapack_int ldafb, @@ -7509,7 +7509,7 @@ lapack_int LAPACKE_cpbsvx_work( int matrix_order, char fact, char uplo, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpbsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zpbsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, lapack_int ldafb, @@ -7519,130 +7519,130 @@ lapack_int LAPACKE_zpbsvx_work( int matrix_order, char fact, char uplo, double* rcond, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_spbtrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbtrf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab ); -lapack_int LAPACKE_dpbtrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbtrf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab ); -lapack_int LAPACKE_cpbtrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbtrf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab ); -lapack_int LAPACKE_zpbtrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbtrf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab ); -lapack_int LAPACKE_spbtrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spbtrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpbtrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpbtrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpbtrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbtrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpbtrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbtrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_spftrf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_spftrf_work( int matrix_layout, char transr, char uplo, lapack_int n, float* a ); -lapack_int LAPACKE_dpftrf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dpftrf_work( int matrix_layout, char transr, char uplo, lapack_int n, double* a ); -lapack_int LAPACKE_cpftrf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftrf_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_zpftrf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftrf_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_double* a ); -lapack_int LAPACKE_spftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_spftri_work( int matrix_layout, char transr, char uplo, lapack_int n, float* a ); -lapack_int LAPACKE_dpftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dpftri_work( int matrix_layout, char transr, char uplo, lapack_int n, double* a ); -lapack_int LAPACKE_cpftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftri_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_zpftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftri_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_double* a ); -lapack_int LAPACKE_spftrs_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_spftrs_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const float* a, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpftrs_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dpftrs_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const double* a, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpftrs_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftrs_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpftrs_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftrs_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_spocon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spocon_work( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float anorm, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dpocon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpocon_work( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double anorm, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cpocon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpocon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float anorm, float* rcond, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpocon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpocon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double anorm, double* rcond, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_spoequ_work( int matrix_order, lapack_int n, const float* a, +lapack_int LAPACKE_spoequ_work( int matrix_layout, lapack_int n, const float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dpoequ_work( int matrix_order, lapack_int n, const double* a, +lapack_int LAPACKE_dpoequ_work( int matrix_layout, lapack_int n, const double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cpoequ_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_cpoequ_work( int matrix_layout, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpoequ_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_zpoequ_work( int matrix_layout, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_spoequb_work( int matrix_order, lapack_int n, const float* a, +lapack_int LAPACKE_spoequb_work( int matrix_layout, lapack_int n, const float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dpoequb_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_dpoequb_work( int matrix_layout, lapack_int n, const double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cpoequb_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_cpoequb_work( int matrix_layout, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpoequb_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_zpoequb_work( int matrix_layout, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ); -lapack_int LAPACKE_sporfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sporfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dporfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dporfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cporfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cporfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zporfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zporfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_complex_double* b, @@ -7650,7 +7650,7 @@ lapack_int LAPACKE_zporfs_work( int matrix_order, char uplo, lapack_int n, lapack_int ldx, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sporfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_sporfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const float* s, @@ -7660,7 +7660,7 @@ lapack_int LAPACKE_sporfsx_work( int matrix_order, char uplo, char equed, float* err_bnds_comp, lapack_int nparams, float* params, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dporfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_dporfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const double* s, @@ -7670,7 +7670,7 @@ lapack_int LAPACKE_dporfsx_work( int matrix_order, char uplo, char equed, double* err_bnds_comp, lapack_int nparams, double* params, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cporfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_cporfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, @@ -7682,7 +7682,7 @@ lapack_int LAPACKE_cporfsx_work( int matrix_order, char uplo, char equed, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zporfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zporfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, @@ -7695,26 +7695,26 @@ lapack_int LAPACKE_zporfsx_work( int matrix_order, char uplo, char equed, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_cposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_dsposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* x, lapack_int ldx, double* work, float* swork, lapack_int* iter ); -lapack_int LAPACKE_zcposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zcposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, @@ -7722,21 +7722,21 @@ lapack_int LAPACKE_zcposv_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* swork, double* rwork, lapack_int* iter ); -lapack_int LAPACKE_sposvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sposvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dposvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dposvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cposvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cposvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -7745,7 +7745,7 @@ lapack_int LAPACKE_cposvx_work( int matrix_order, char fact, char uplo, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zposvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zposvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -7755,7 +7755,7 @@ lapack_int LAPACKE_zposvx_work( int matrix_order, char fact, char uplo, double* rcond, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, char* equed, float* s, float* b, @@ -7765,7 +7765,7 @@ lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo, float* err_bnds_comp, lapack_int nparams, float* params, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, char* equed, double* s, double* b, @@ -7775,7 +7775,7 @@ lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo, double* err_bnds_comp, lapack_int nparams, double* params, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -7786,7 +7786,7 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -7799,87 +7799,87 @@ lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_spotrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spotrf_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dpotrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpotrf_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_cpotrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_spotri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spotri_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dpotri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpotri_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_cpotri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_spotrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spotrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpotrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpotrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpotrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpotrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sppcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppcon_work( int matrix_layout, char uplo, lapack_int n, const float* ap, float anorm, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dppcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppcon_work( int matrix_layout, char uplo, lapack_int n, const double* ap, double anorm, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cppcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, float anorm, float* rcond, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zppcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, double anorm, double* rcond, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sppequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppequ_work( int matrix_layout, char uplo, lapack_int n, const float* ap, float* s, float* scond, float* amax ); -lapack_int LAPACKE_dppequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppequ_work( int matrix_layout, char uplo, lapack_int n, const double* ap, double* s, double* scond, double* amax ); -lapack_int LAPACKE_cppequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppequ_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, float* s, float* scond, float* amax ); -lapack_int LAPACKE_zppequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppequ_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, double* s, double* scond, double* amax ); -lapack_int LAPACKE_spprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const float* afp, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dpprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const double* afp, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cpprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, @@ -7888,32 +7888,32 @@ lapack_int LAPACKE_zpprfs_work( int matrix_order, char uplo, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sppsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* ap, float* b, lapack_int ldb ); -lapack_int LAPACKE_dppsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* ap, double* b, lapack_int ldb ); -lapack_int LAPACKE_cppsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zppsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sppsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sppsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* ap, float* afp, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dppsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dppsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* ap, double* afp, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cppsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cppsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_complex_float* afp, char* equed, @@ -7922,7 +7922,7 @@ lapack_int LAPACKE_cppsvx_work( int matrix_order, char fact, char uplo, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zppsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zppsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_complex_double* afp, char* equed, @@ -7932,49 +7932,49 @@ lapack_int LAPACKE_zppsvx_work( int matrix_order, char fact, char uplo, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_spptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptrf_work( int matrix_layout, char uplo, lapack_int n, float* ap ); -lapack_int LAPACKE_dpptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptrf_work( int matrix_layout, char uplo, lapack_int n, double* ap ); -lapack_int LAPACKE_cpptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap ); -lapack_int LAPACKE_zpptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap ); -lapack_int LAPACKE_spptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptri_work( int matrix_layout, char uplo, lapack_int n, float* ap ); -lapack_int LAPACKE_dpptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptri_work( int matrix_layout, char uplo, lapack_int n, double* ap ); -lapack_int LAPACKE_cpptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap ); -lapack_int LAPACKE_zpptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap ); -lapack_int LAPACKE_spptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_spstrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spstrf_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* piv, lapack_int* rank, float tol, float* work ); -lapack_int LAPACKE_dpstrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpstrf_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, lapack_int* piv, lapack_int* rank, double tol, double* work ); -lapack_int LAPACKE_cpstrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpstrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* piv, lapack_int* rank, float tol, float* work ); -lapack_int LAPACKE_zpstrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpstrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* piv, lapack_int* rank, double tol, double* work ); @@ -7990,31 +7990,31 @@ lapack_int LAPACKE_zptcon_work( lapack_int n, const double* d, const lapack_complex_double* e, double anorm, double* rcond, double* work ); -lapack_int LAPACKE_spteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_spteqr_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work ); -lapack_int LAPACKE_dpteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dpteqr_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work ); -lapack_int LAPACKE_cpteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_cpteqr_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz, float* work ); -lapack_int LAPACKE_zpteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zpteqr_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz, double* work ); -lapack_int LAPACKE_sptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sptrfs_work( int matrix_layout, lapack_int n, lapack_int nrhs, const float* d, const float* e, const float* df, const float* ef, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work ); -lapack_int LAPACKE_dptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dptrfs_work( int matrix_layout, lapack_int n, lapack_int nrhs, const double* d, const double* e, const double* df, const double* ef, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work ); -lapack_int LAPACKE_cptrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cptrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, const float* df, const lapack_complex_float* ef, @@ -8022,7 +8022,7 @@ lapack_int LAPACKE_cptrfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zptrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zptrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, const double* df, @@ -8032,31 +8032,31 @@ lapack_int LAPACKE_zptrfs_work( int matrix_order, char uplo, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, float* d, float* e, float* b, lapack_int ldb ); -lapack_int LAPACKE_dptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* d, double* e, double* b, lapack_int ldb ); -lapack_int LAPACKE_cptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_cptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, float* d, lapack_complex_float* e, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* d, lapack_complex_double* e, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sptsvx_work( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_sptsvx_work( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const float* d, const float* e, float* df, float* ef, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* work ); -lapack_int LAPACKE_dptsvx_work( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_dptsvx_work( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const double* d, const double* e, double* df, double* ef, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* work ); -lapack_int LAPACKE_cptsvx_work( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_cptsvx_work( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, float* df, lapack_complex_float* ef, @@ -8064,7 +8064,7 @@ lapack_int LAPACKE_cptsvx_work( int matrix_order, char fact, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zptsvx_work( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_zptsvx_work( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, double* df, lapack_complex_double* ef, @@ -8080,42 +8080,42 @@ lapack_int LAPACKE_cpttrf_work( lapack_int n, float* d, lapack_int LAPACKE_zpttrf_work( lapack_int n, double* d, lapack_complex_double* e ); -lapack_int LAPACKE_spttrs_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_spttrs_work( int matrix_layout, lapack_int n, lapack_int nrhs, const float* d, const float* e, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpttrs_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dpttrs_work( int matrix_layout, lapack_int n, lapack_int nrhs, const double* d, const double* e, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpttrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpttrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpttrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpttrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_ssbev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssbev_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 LAPACKE_dsbev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbev_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* w, double* z, lapack_int ldz, double* work ); -lapack_int LAPACKE_ssbevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssbevd_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, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsbevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* w, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ssbevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_ssbevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* q, lapack_int ldq, float vl, float vu, @@ -8123,7 +8123,7 @@ lapack_int LAPACKE_ssbevx_work( int matrix_order, char jobz, char range, lapack_int* m, float* w, float* z, lapack_int ldz, float* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dsbevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dsbevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* q, lapack_int ldq, double vl, double vu, @@ -8132,42 +8132,42 @@ lapack_int LAPACKE_dsbevx_work( int matrix_order, char jobz, char range, lapack_int ldz, double* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_ssbgst_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_ssbgst_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, const float* bb, lapack_int ldbb, float* x, lapack_int ldx, float* work ); -lapack_int LAPACKE_dsbgst_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_dsbgst_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, const double* bb, lapack_int ldbb, double* x, lapack_int ldx, double* work ); -lapack_int LAPACKE_ssbgv_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssbgv_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* w, float* z, lapack_int ldz, float* work ); -lapack_int LAPACKE_dsbgv_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbgv_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, lapack_int ldz, double* work ); -lapack_int LAPACKE_ssbgvd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssbgvd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* w, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsbgvd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbgvd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ssbgvx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_ssbgvx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* q, @@ -8176,7 +8176,7 @@ lapack_int LAPACKE_ssbgvx_work( int matrix_order, char jobz, char range, lapack_int* m, float* w, float* z, lapack_int ldz, float* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dsbgvx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dsbgvx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* q, @@ -8186,102 +8186,102 @@ lapack_int LAPACKE_dsbgvx_work( int matrix_order, char jobz, char range, lapack_int ldz, double* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_ssbtrd_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_ssbtrd_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* d, float* e, float* q, lapack_int ldq, float* work ); -lapack_int LAPACKE_dsbtrd_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_dsbtrd_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq, double* work ); -lapack_int LAPACKE_ssfrk_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ssfrk_work( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, float alpha, const float* a, lapack_int lda, float beta, float* c ); -lapack_int LAPACKE_dsfrk_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dsfrk_work( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const double* a, lapack_int lda, double beta, double* c ); -lapack_int LAPACKE_sspcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sspcon_work( int matrix_layout, char uplo, lapack_int n, const float* ap, const lapack_int* ipiv, float anorm, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dspcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dspcon_work( int matrix_layout, char uplo, lapack_int n, const double* ap, const lapack_int* ipiv, double anorm, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cspcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cspcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_int* ipiv, float anorm, float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zspcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zspcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work ); -lapack_int LAPACKE_sspev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_sspev_work( int matrix_layout, char jobz, char uplo, lapack_int n, float* ap, float* w, float* z, lapack_int ldz, float* work ); -lapack_int LAPACKE_dspev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dspev_work( int matrix_layout, char jobz, char uplo, lapack_int n, double* ap, double* w, double* z, lapack_int ldz, double* work ); -lapack_int LAPACKE_sspevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_sspevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, float* ap, float* w, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dspevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dspevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, double* ap, double* w, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_sspevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sspevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, float* ap, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, float* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dspevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dspevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* ap, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, double* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_sspgst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_sspgst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, float* ap, const float* bp ); -lapack_int LAPACKE_dspgst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_dspgst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, double* ap, const double* bp ); -lapack_int LAPACKE_sspgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* ap, float* bp, float* w, float* z, lapack_int ldz, float* work ); -lapack_int LAPACKE_dspgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* ap, double* bp, double* w, double* z, lapack_int ldz, double* work ); -lapack_int LAPACKE_sspgvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* ap, float* bp, float* w, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dspgvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* ap, double* bp, double* w, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_sspgvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* ap, float* bp, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, float* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dspgvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, double* ap, double* bp, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, @@ -8289,19 +8289,19 @@ lapack_int LAPACKE_dspgvx_work( int matrix_order, lapack_int itype, char jobz, double* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_ssprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const float* afp, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dsprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const double* afp, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_csprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_int* ipiv, @@ -8309,7 +8309,7 @@ lapack_int LAPACKE_csprfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zsprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, @@ -8319,34 +8319,34 @@ lapack_int LAPACKE_zsprfs_work( int matrix_order, char uplo, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_sspsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sspsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* ap, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dspsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dspsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* ap, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cspsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cspsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zspsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zspsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sspsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sspsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const float* ap, float* afp, lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dspsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dspsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const double* ap, double* afp, lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cspsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cspsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* afp, lapack_int* ipiv, @@ -8354,7 +8354,7 @@ lapack_int LAPACKE_cspsvx_work( int matrix_order, char fact, char uplo, lapack_complex_float* x, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zspsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zspsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* afp, lapack_int* ipiv, @@ -8363,48 +8363,48 @@ lapack_int LAPACKE_zspsvx_work( int matrix_order, char fact, char uplo, double* rcond, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_ssptrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptrd_work( int matrix_layout, char uplo, lapack_int n, float* ap, float* d, float* e, float* tau ); -lapack_int LAPACKE_dsptrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrd_work( int matrix_layout, char uplo, lapack_int n, double* ap, double* d, double* e, double* tau ); -lapack_int LAPACKE_ssptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptrf_work( int matrix_layout, char uplo, lapack_int n, float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_dsptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrf_work( int matrix_layout, char uplo, lapack_int n, double* ap, lapack_int* ipiv ); -lapack_int LAPACKE_csptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_zsptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, lapack_int* ipiv ); -lapack_int LAPACKE_ssptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptri_work( int matrix_layout, char uplo, lapack_int n, float* ap, const lapack_int* ipiv, float* work ); -lapack_int LAPACKE_dsptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptri_work( int matrix_layout, char uplo, lapack_int n, double* ap, const lapack_int* ipiv, double* work ); -lapack_int LAPACKE_csptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* work ); -lapack_int LAPACKE_zsptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* work ); -lapack_int LAPACKE_ssptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_int* ipiv, @@ -8423,42 +8423,42 @@ lapack_int LAPACKE_dstebz_work( char range, char order, lapack_int n, double vl, lapack_int* iblock, lapack_int* isplit, double* work, lapack_int* iwork ); -lapack_int LAPACKE_sstedc_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_sstedc_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dstedc_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dstedc_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_cstedc_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_cstedc_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zstedc_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zstedc_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz, lapack_complex_double* work, lapack_int lwork, double* rwork, lapack_int lrwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_sstegr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstegr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* isuppz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dstegr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstegr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, lapack_int* isuppz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_cstegr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cstegr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, @@ -8466,7 +8466,7 @@ lapack_int LAPACKE_cstegr_work( int matrix_order, char jobz, char range, lapack_int* isuppz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zstegr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zstegr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -8475,26 +8475,26 @@ lapack_int LAPACKE_zstegr_work( int matrix_order, char jobz, char range, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_sstein_work( int matrix_order, lapack_int n, const float* d, +lapack_int LAPACKE_sstein_work( int matrix_layout, lapack_int n, const float* d, const float* e, lapack_int m, const float* w, const lapack_int* iblock, const lapack_int* isplit, float* z, lapack_int ldz, float* work, lapack_int* iwork, lapack_int* ifailv ); -lapack_int LAPACKE_dstein_work( int matrix_order, lapack_int n, const double* d, +lapack_int LAPACKE_dstein_work( int matrix_layout, lapack_int n, const double* d, const double* e, lapack_int m, const double* w, const lapack_int* iblock, const lapack_int* isplit, double* z, lapack_int ldz, double* work, lapack_int* iwork, lapack_int* ifailv ); -lapack_int LAPACKE_cstein_work( int matrix_order, lapack_int n, const float* d, +lapack_int LAPACKE_cstein_work( int matrix_layout, lapack_int n, const float* d, const float* e, lapack_int m, const float* w, const lapack_int* iblock, const lapack_int* isplit, lapack_complex_float* z, lapack_int ldz, float* work, lapack_int* iwork, lapack_int* ifailv ); -lapack_int LAPACKE_zstein_work( int matrix_order, lapack_int n, const double* d, +lapack_int LAPACKE_zstein_work( int matrix_layout, lapack_int n, const double* d, const double* e, lapack_int m, const double* w, const lapack_int* iblock, const lapack_int* isplit, @@ -8502,7 +8502,7 @@ lapack_int LAPACKE_zstein_work( int matrix_order, lapack_int n, const double* d, double* work, lapack_int* iwork, lapack_int* ifailv ); -lapack_int LAPACKE_sstemr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstemr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* m, float* w, float* z, @@ -8510,7 +8510,7 @@ lapack_int LAPACKE_sstemr_work( int matrix_order, char jobz, char range, lapack_int* isuppz, lapack_logical* tryrac, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dstemr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstemr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* m, double* w, double* z, @@ -8518,7 +8518,7 @@ lapack_int LAPACKE_dstemr_work( int matrix_order, char jobz, char range, lapack_int* isuppz, lapack_logical* tryrac, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_cstemr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cstemr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* m, float* w, @@ -8527,7 +8527,7 @@ lapack_int LAPACKE_cstemr_work( int matrix_order, char jobz, char range, lapack_logical* tryrac, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zstemr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zstemr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* m, double* w, @@ -8537,46 +8537,46 @@ lapack_int LAPACKE_zstemr_work( int matrix_order, char jobz, char range, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ssteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_ssteqr_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work ); -lapack_int LAPACKE_dsteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dsteqr_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work ); -lapack_int LAPACKE_csteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_csteqr_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz, float* work ); -lapack_int LAPACKE_zsteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zsteqr_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz, double* work ); lapack_int LAPACKE_ssterf_work( lapack_int n, float* d, float* e ); lapack_int LAPACKE_dsterf_work( lapack_int n, double* d, double* e ); -lapack_int LAPACKE_sstev_work( int matrix_order, char jobz, lapack_int n, +lapack_int LAPACKE_sstev_work( int matrix_layout, char jobz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work ); -lapack_int LAPACKE_dstev_work( int matrix_order, char jobz, lapack_int n, +lapack_int LAPACKE_dstev_work( int matrix_layout, char jobz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work ); -lapack_int LAPACKE_sstevd_work( int matrix_order, char jobz, lapack_int n, +lapack_int LAPACKE_sstevd_work( int matrix_layout, char jobz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dstevd_work( int matrix_order, char jobz, lapack_int n, +lapack_int LAPACKE_dstevd_work( int matrix_layout, char jobz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_sstevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstevr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int* isuppz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dstevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstevr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -8584,69 +8584,69 @@ lapack_int LAPACKE_dstevr_work( int matrix_order, char jobz, char range, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_sstevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstevx_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, float* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dstevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstevx_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, double* work, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_ssycon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssycon_work( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dsycon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsycon_work( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_csycon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csycon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zsycon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsycon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work ); -lapack_int LAPACKE_ssyequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyequb_work( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float* s, float* scond, float* amax, float* work ); -lapack_int LAPACKE_dsyequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyequb_work( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double* s, double* scond, double* amax, double* work ); -lapack_int LAPACKE_csyequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyequb_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax, lapack_complex_float* work ); -lapack_int LAPACKE_zsyequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyequb_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax, lapack_complex_double* work ); -lapack_int LAPACKE_ssyev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssyev_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 LAPACKE_dsyev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsyev_work( int matrix_layout, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* w, double* work, lapack_int lwork ); -lapack_int LAPACKE_ssyevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssyevd_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 ); -lapack_int LAPACKE_dsyevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsyevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* w, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ssyevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_ssyevr_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, @@ -8654,7 +8654,7 @@ lapack_int LAPACKE_ssyevr_work( int matrix_order, char jobz, char range, lapack_int ldz, lapack_int* isuppz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsyevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dsyevr_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, @@ -8663,14 +8663,14 @@ lapack_int LAPACKE_dsyevr_work( int matrix_order, char jobz, char range, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ssyevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_ssyevx_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, lapack_int* m, float* w, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dsyevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dsyevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, @@ -8678,34 +8678,34 @@ lapack_int LAPACKE_dsyevx_work( int matrix_order, char jobz, char range, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_ssygst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_ssygst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, float* a, lapack_int lda, const float* b, lapack_int ldb ); -lapack_int LAPACKE_dsygst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_dsygst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, double* a, lapack_int lda, const double* b, lapack_int ldb ); -lapack_int LAPACKE_ssygv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygv_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 ); -lapack_int LAPACKE_dsygv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* w, double* work, lapack_int lwork ); -lapack_int LAPACKE_ssygvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvd_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, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsygvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* w, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ssygvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float vl, float vu, lapack_int il, @@ -8713,7 +8713,7 @@ lapack_int LAPACKE_ssygvx_work( int matrix_order, lapack_int itype, char jobz, float* w, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dsygvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double vl, double vu, lapack_int il, @@ -8722,21 +8722,21 @@ lapack_int LAPACKE_dsygvx_work( int matrix_order, lapack_int itype, char jobz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_ssyrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dsyrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_csyrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -8744,7 +8744,7 @@ lapack_int LAPACKE_csyrfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zsyrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -8753,7 +8753,7 @@ lapack_int LAPACKE_zsyrfs_work( int matrix_order, char uplo, lapack_int n, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_ssyrfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_ssyrfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -8763,7 +8763,7 @@ lapack_int LAPACKE_ssyrfsx_work( int matrix_order, char uplo, char equed, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dsyrfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_dsyrfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -8774,7 +8774,7 @@ lapack_int LAPACKE_dsyrfsx_work( int matrix_order, char uplo, char equed, double* err_bnds_comp, lapack_int nparams, double* params, double* work, lapack_int* iwork ); -lapack_int LAPACKE_csyrfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_csyrfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, @@ -8786,7 +8786,7 @@ lapack_int LAPACKE_csyrfsx_work( int matrix_order, char uplo, char equed, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zsyrfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zsyrfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, @@ -8800,47 +8800,47 @@ lapack_int LAPACKE_zsyrfsx_work( int matrix_order, char uplo, char equed, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_ssysv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsysv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* work, lapack_int lwork ); -lapack_int LAPACKE_csysv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsysv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_ssysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* work, lapack_int lwork ); -lapack_int LAPACKE_csysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_ssysvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_ssysvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, const float* b, @@ -8848,7 +8848,7 @@ lapack_int LAPACKE_ssysvx_work( int matrix_order, char fact, char uplo, float* rcond, float* ferr, float* berr, float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dsysvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dsysvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, const double* b, @@ -8856,7 +8856,7 @@ lapack_int LAPACKE_dsysvx_work( int matrix_order, char fact, char uplo, double* rcond, double* ferr, double* berr, double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_csysvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_csysvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -8865,7 +8865,7 @@ lapack_int LAPACKE_csysvx_work( int matrix_order, char fact, char uplo, lapack_int ldx, float* rcond, float* ferr, float* berr, lapack_complex_float* work, lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zsysvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zsysvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -8876,7 +8876,7 @@ lapack_int LAPACKE_zsysvx_work( int matrix_order, char fact, char uplo, lapack_complex_double* work, lapack_int lwork, double* rwork ); -lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_ssysvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, char* equed, float* s, @@ -8886,7 +8886,7 @@ lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo, float* err_bnds_norm, float* err_bnds_comp, lapack_int nparams, float* params, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dsysvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* s, @@ -8896,7 +8896,7 @@ lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo, double* err_bnds_norm, double* err_bnds_comp, lapack_int nparams, double* params, double* work, lapack_int* iwork ); -lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_csysvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -8908,7 +8908,7 @@ lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo, float* err_bnds_comp, lapack_int nparams, float* params, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zsysvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -8921,101 +8921,101 @@ lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo, double* params, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_ssytrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrd_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, float* d, float* e, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrd_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, double* d, double* e, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_ssytrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrf_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrf_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, lapack_int* ipiv, double* work, lapack_int lwork ); -lapack_int LAPACKE_csytrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsytrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_ssytri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytri_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, float* work ); -lapack_int LAPACKE_dsytri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, double* work ); -lapack_int LAPACKE_csytri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work ); -lapack_int LAPACKE_zsytri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work ); -lapack_int LAPACKE_ssytrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrs_work( int matrix_layout, char uplo, lapack_int n, 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_zsytrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrs_work( int matrix_layout, char uplo, lapack_int n, 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_stbcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_stbcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtbcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_dtbcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_ctbcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ctbcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float* rcond, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztbcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ztbcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double* rcond, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_stbrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_stbrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtbrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtbrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, const double* b, lapack_int ldb, const double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_ctbrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctbrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* b, lapack_int ldb, const lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztbrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztbrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, @@ -9024,93 +9024,93 @@ lapack_int LAPACKE_ztbrfs_work( int matrix_order, char uplo, char trans, lapack_int ldx, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_stbtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_stbtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtbtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtbtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctbtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctbtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztbtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztbtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_stfsm_work( int matrix_order, char transr, char side, +lapack_int LAPACKE_stfsm_work( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, float alpha, const float* a, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtfsm_work( int matrix_order, char transr, char side, +lapack_int LAPACKE_dtfsm_work( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, double alpha, const double* a, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctfsm_work( int matrix_order, char transr, char side, +lapack_int LAPACKE_ctfsm_work( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_float alpha, const lapack_complex_float* a, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztfsm_work( int matrix_order, char transr, char side, +lapack_int LAPACKE_ztfsm_work( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_stftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stftri_work( int matrix_layout, char transr, char uplo, char diag, lapack_int n, float* a ); -lapack_int LAPACKE_dtftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtftri_work( int matrix_layout, char transr, char uplo, char diag, lapack_int n, double* a ); -lapack_int LAPACKE_ctftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctftri_work( int matrix_layout, char transr, char uplo, char diag, lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_ztftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztftri_work( int matrix_layout, char transr, char uplo, char diag, lapack_int n, lapack_complex_double* a ); -lapack_int LAPACKE_stfttp_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stfttp_work( int matrix_layout, char transr, char uplo, lapack_int n, const float* arf, float* ap ); -lapack_int LAPACKE_dtfttp_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtfttp_work( int matrix_layout, char transr, char uplo, lapack_int n, const double* arf, double* ap ); -lapack_int LAPACKE_ctfttp_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctfttp_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* arf, lapack_complex_float* ap ); -lapack_int LAPACKE_ztfttp_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztfttp_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* arf, lapack_complex_double* ap ); -lapack_int LAPACKE_stfttr_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stfttr_work( int matrix_layout, char transr, char uplo, lapack_int n, const float* arf, float* a, lapack_int lda ); -lapack_int LAPACKE_dtfttr_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtfttr_work( int matrix_layout, char transr, char uplo, lapack_int n, const double* arf, double* a, lapack_int lda ); -lapack_int LAPACKE_ctfttr_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctfttr_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* arf, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztfttr_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztfttr_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* arf, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_stgevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_stgevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const float* s, lapack_int lds, const float* p, lapack_int ldp, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, float* work ); -lapack_int LAPACKE_dtgevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_dtgevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const double* s, lapack_int lds, const double* p, lapack_int ldp, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, double* work ); -lapack_int LAPACKE_ctgevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ctgevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* s, lapack_int lds, const lapack_complex_float* p, lapack_int ldp, @@ -9118,7 +9118,7 @@ lapack_int LAPACKE_ctgevc_work( int matrix_order, char side, char howmny, lapack_complex_float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztgevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ztgevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* s, lapack_int lds, const lapack_complex_double* p, lapack_int ldp, @@ -9127,28 +9127,28 @@ lapack_int LAPACKE_ztgevc_work( int matrix_order, char side, char howmny, lapack_int mm, lapack_int* m, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_stgexc_work( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_stgexc_work( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* q, lapack_int ldq, float* z, lapack_int ldz, lapack_int* ifst, lapack_int* ilst, float* work, lapack_int lwork ); -lapack_int LAPACKE_dtgexc_work( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_dtgexc_work( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* q, lapack_int ldq, double* z, lapack_int ldz, lapack_int* ifst, lapack_int* ilst, double* work, lapack_int lwork ); -lapack_int LAPACKE_ctgexc_work( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_ctgexc_work( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* z, lapack_int ldz, lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_ztgexc_work( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_ztgexc_work( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -9156,7 +9156,7 @@ lapack_int LAPACKE_ztgexc_work( int matrix_order, lapack_logical wantq, lapack_complex_double* z, lapack_int ldz, lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_stgsen_work( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_stgsen_work( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, float* a, lapack_int lda, float* b, @@ -9166,7 +9166,7 @@ lapack_int LAPACKE_stgsen_work( int matrix_order, lapack_int ijob, float* pr, float* dif, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dtgsen_work( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_dtgsen_work( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, double* a, lapack_int lda, double* b, @@ -9176,7 +9176,7 @@ lapack_int LAPACKE_dtgsen_work( int matrix_order, lapack_int ijob, double* pl, double* pr, double* dif, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ctgsen_work( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_ctgsen_work( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, lapack_complex_float* a, lapack_int lda, @@ -9188,7 +9188,7 @@ lapack_int LAPACKE_ctgsen_work( int matrix_order, lapack_int ijob, lapack_int* m, float* pl, float* pr, float* dif, lapack_complex_float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ztgsen_work( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_ztgsen_work( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, lapack_complex_double* a, lapack_int lda, @@ -9202,7 +9202,7 @@ lapack_int LAPACKE_ztgsen_work( int matrix_order, lapack_int ijob, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_stgsja_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_stgsja_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, float* a, lapack_int lda, float* b, @@ -9211,7 +9211,7 @@ lapack_int LAPACKE_stgsja_work( int matrix_order, char jobu, char jobv, lapack_int ldu, float* v, lapack_int ldv, float* q, lapack_int ldq, float* work, lapack_int* ncycle ); -lapack_int LAPACKE_dtgsja_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_dtgsja_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, double* a, lapack_int lda, double* b, @@ -9220,7 +9220,7 @@ lapack_int LAPACKE_dtgsja_work( int matrix_order, char jobu, char jobv, lapack_int ldu, double* v, lapack_int ldv, double* q, lapack_int ldq, double* work, lapack_int* ncycle ); -lapack_int LAPACKE_ctgsja_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_ctgsja_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, lapack_complex_float* a, lapack_int lda, @@ -9231,7 +9231,7 @@ lapack_int LAPACKE_ctgsja_work( int matrix_order, char jobu, char jobv, lapack_int ldv, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* work, lapack_int* ncycle ); -lapack_int LAPACKE_ztgsja_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_ztgsja_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, lapack_complex_double* a, lapack_int lda, @@ -9243,7 +9243,7 @@ lapack_int LAPACKE_ztgsja_work( int matrix_order, char jobu, char jobv, lapack_int ldq, lapack_complex_double* work, lapack_int* ncycle ); -lapack_int LAPACKE_stgsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_stgsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, const float* vl, @@ -9251,7 +9251,7 @@ lapack_int LAPACKE_stgsna_work( int matrix_order, char job, char howmny, lapack_int ldvr, float* s, float* dif, lapack_int mm, lapack_int* m, float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dtgsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_dtgsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, @@ -9260,7 +9260,7 @@ lapack_int LAPACKE_dtgsna_work( int matrix_order, char job, char howmny, double* dif, lapack_int mm, lapack_int* m, double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_ctgsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ctgsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -9269,7 +9269,7 @@ lapack_int LAPACKE_ctgsna_work( int matrix_order, char job, char howmny, float* s, float* dif, lapack_int mm, lapack_int* m, lapack_complex_float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_ztgsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ztgsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -9281,7 +9281,7 @@ lapack_int LAPACKE_ztgsna_work( int matrix_order, char job, char howmny, lapack_complex_double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_stgsyl_work( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_stgsyl_work( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, float* c, lapack_int ldc, const float* d, @@ -9289,7 +9289,7 @@ lapack_int LAPACKE_stgsyl_work( int matrix_order, char trans, lapack_int ijob, float* f, lapack_int ldf, float* scale, float* dif, float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dtgsyl_work( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_dtgsyl_work( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, double* c, lapack_int ldc, const double* d, @@ -9297,7 +9297,7 @@ lapack_int LAPACKE_dtgsyl_work( int matrix_order, char trans, lapack_int ijob, double* f, lapack_int ldf, double* scale, double* dif, double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_ctgsyl_work( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_ctgsyl_work( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -9308,7 +9308,7 @@ lapack_int LAPACKE_ctgsyl_work( int matrix_order, char trans, lapack_int ijob, float* scale, float* dif, lapack_complex_float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_ztgsyl_work( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_ztgsyl_work( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -9320,41 +9320,41 @@ lapack_int LAPACKE_ztgsyl_work( int matrix_order, char trans, lapack_int ijob, lapack_complex_double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_stpcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_stpcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const float* ap, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtpcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_dtpcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const double* ap, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_ctpcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ctpcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_float* ap, float* rcond, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztpcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ztpcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_double* ap, double* rcond, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_stprfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_stprfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* ap, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtprfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtprfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* ap, const double* b, lapack_int ldb, const double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_ctprfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctprfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* b, lapack_int ldb, const lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztprfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztprfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* b, lapack_int ldb, @@ -9362,89 +9362,89 @@ lapack_int LAPACKE_ztprfs_work( int matrix_order, char uplo, char trans, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_stptri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_stptri_work( int matrix_layout, char uplo, char diag, lapack_int n, float* ap ); -lapack_int LAPACKE_dtptri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_dtptri_work( int matrix_layout, char uplo, char diag, lapack_int n, double* ap ); -lapack_int LAPACKE_ctptri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_ctptri_work( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_float* ap ); -lapack_int LAPACKE_ztptri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_ztptri_work( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_double* ap ); -lapack_int LAPACKE_stptrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_stptrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* ap, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtptrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtptrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* ap, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctptrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctptrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztptrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztptrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_stpttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stpttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const float* ap, float* arf ); -lapack_int LAPACKE_dtpttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtpttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const double* ap, double* arf ); -lapack_int LAPACKE_ctpttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctpttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* ap, lapack_complex_float* arf ); -lapack_int LAPACKE_ztpttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztpttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* ap, lapack_complex_double* arf ); -lapack_int LAPACKE_stpttr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_stpttr_work( int matrix_layout, char uplo, lapack_int n, const float* ap, float* a, lapack_int lda ); -lapack_int LAPACKE_dtpttr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dtpttr_work( int matrix_layout, char uplo, lapack_int n, const double* ap, double* a, lapack_int lda ); -lapack_int LAPACKE_ctpttr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ctpttr_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztpttr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ztpttr_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_strcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_strcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const float* a, lapack_int lda, float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtrcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_dtrcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const double* a, lapack_int lda, double* rcond, double* work, lapack_int* iwork ); -lapack_int LAPACKE_ctrcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ctrcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* rcond, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztrcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ztrcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* rcond, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_strevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_strevc_work( int matrix_layout, char side, char howmny, lapack_logical* select, lapack_int n, const float* t, lapack_int ldt, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, float* work ); -lapack_int LAPACKE_dtrevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_dtrevc_work( int matrix_layout, char side, char howmny, lapack_logical* select, lapack_int n, const double* t, lapack_int ldt, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, double* work ); -lapack_int LAPACKE_ctrevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ctrevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* vl, lapack_int ldvl, lapack_complex_float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztrevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ztrevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* vl, lapack_int ldvl, @@ -9452,43 +9452,43 @@ lapack_int LAPACKE_ztrevc_work( int matrix_order, char side, char howmny, lapack_int mm, lapack_int* m, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_strexc_work( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_strexc_work( int matrix_layout, char compq, lapack_int n, float* t, lapack_int ldt, float* q, lapack_int ldq, lapack_int* ifst, lapack_int* ilst, float* work ); -lapack_int LAPACKE_dtrexc_work( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_dtrexc_work( int matrix_layout, char compq, lapack_int n, double* t, lapack_int ldt, double* q, lapack_int ldq, lapack_int* ifst, lapack_int* ilst, double* work ); -lapack_int LAPACKE_ctrexc_work( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_ctrexc_work( int matrix_layout, char compq, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* q, lapack_int ldq, lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_ztrexc_work( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_ztrexc_work( int matrix_layout, char compq, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* q, lapack_int ldq, lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_strrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_strrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtrrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtrrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* b, lapack_int ldb, const double* x, lapack_int ldx, double* ferr, double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_ctrrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctrrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, const lapack_complex_float* x, lapack_int ldx, float* ferr, float* berr, lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztrrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztrrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -9496,28 +9496,28 @@ lapack_int LAPACKE_ztrrfs_work( int matrix_order, char uplo, char trans, double* ferr, double* berr, lapack_complex_double* work, double* rwork ); -lapack_int LAPACKE_strsen_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_strsen_work( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, float* t, lapack_int ldt, float* q, lapack_int ldq, float* wr, float* wi, lapack_int* m, float* s, float* sep, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dtrsen_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_dtrsen_work( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, double* t, lapack_int ldt, double* q, lapack_int ldq, double* wr, double* wi, lapack_int* m, double* s, double* sep, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ctrsen_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_ctrsen_work( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* w, lapack_int* m, float* s, float* sep, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_ztrsen_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_ztrsen_work( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* q, lapack_int ldq, @@ -9525,14 +9525,14 @@ lapack_int LAPACKE_ztrsen_work( int matrix_order, char job, char compq, double* s, double* sep, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_strsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_strsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const float* t, lapack_int ldt, const float* vl, lapack_int ldvl, const float* vr, lapack_int ldvr, float* s, float* sep, lapack_int mm, lapack_int* m, float* work, lapack_int ldwork, lapack_int* iwork ); -lapack_int LAPACKE_dtrsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_dtrsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const double* t, lapack_int ldt, const double* vl, lapack_int ldvl, @@ -9540,7 +9540,7 @@ lapack_int LAPACKE_dtrsna_work( int matrix_order, char job, char howmny, double* sep, lapack_int mm, lapack_int* m, double* work, lapack_int ldwork, lapack_int* iwork ); -lapack_int LAPACKE_ctrsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ctrsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* t, lapack_int ldt, const lapack_complex_float* vl, lapack_int ldvl, @@ -9548,7 +9548,7 @@ lapack_int LAPACKE_ctrsna_work( int matrix_order, char job, char howmny, float* s, float* sep, lapack_int mm, lapack_int* m, lapack_complex_float* work, lapack_int ldwork, float* rwork ); -lapack_int LAPACKE_ztrsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ztrsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* t, lapack_int ldt, const lapack_complex_double* vl, @@ -9559,173 +9559,173 @@ lapack_int LAPACKE_ztrsna_work( int matrix_order, char job, char howmny, lapack_complex_double* work, lapack_int ldwork, double* rwork ); -lapack_int LAPACKE_strsyl_work( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_strsyl_work( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, float* c, lapack_int ldc, float* scale ); -lapack_int LAPACKE_dtrsyl_work( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_dtrsyl_work( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, double* c, lapack_int ldc, double* scale ); -lapack_int LAPACKE_ctrsyl_work( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_ctrsyl_work( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* c, lapack_int ldc, float* scale ); -lapack_int LAPACKE_ztrsyl_work( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_ztrsyl_work( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* c, lapack_int ldc, double* scale ); -lapack_int LAPACKE_strtri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_strtri_work( int matrix_layout, char uplo, char diag, lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dtrtri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_dtrtri_work( int matrix_layout, char uplo, char diag, lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_ctrtri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_ctrtri_work( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztrtri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_ztrtri_work( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_strtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_strtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtrtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtrtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctrtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctrtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztrtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztrtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_strttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_strttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const float* a, lapack_int lda, float* arf ); -lapack_int LAPACKE_dtrttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtrttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const double* a, lapack_int lda, double* arf ); -lapack_int LAPACKE_ctrttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctrttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* arf ); -lapack_int LAPACKE_ztrttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztrttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* arf ); -lapack_int LAPACKE_strttp_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_strttp_work( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float* ap ); -lapack_int LAPACKE_dtrttp_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dtrttp_work( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double* ap ); -lapack_int LAPACKE_ctrttp_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ctrttp_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* ap ); -lapack_int LAPACKE_ztrttp_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ztrttp_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* ap ); -lapack_int LAPACKE_stzrzf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_stzrzf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dtzrzf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dtzrzf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_ctzrzf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ctzrzf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_ztzrzf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ztzrzf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cungbr_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_cungbr_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungbr_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_zungbr_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunghr_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_cunghr_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunghr_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_zunghr_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunglq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cunglq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunglq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zunglq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cungql_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungql_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungql_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungql_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cungqr_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungqr_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungqr_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungqr_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cungrq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungrq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungrq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungrq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cungtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cungtr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zungtr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunmbr_work( int matrix_order, char vect, char side, +lapack_int LAPACKE_cunmbr_work( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmbr_work( int matrix_order, char vect, char side, +lapack_int LAPACKE_zunmbr_work( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, @@ -9733,13 +9733,13 @@ lapack_int LAPACKE_zunmbr_work( int matrix_order, char vect, char side, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunmhr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmhr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmhr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmhr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const lapack_complex_double* a, lapack_int lda, @@ -9747,65 +9747,65 @@ lapack_int LAPACKE_zunmhr_work( int matrix_order, char side, char trans, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunmlq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmlq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmlq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmlq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunmql_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmql_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmql_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmql_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunmqr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmqr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmqr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmqr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunmrq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmrq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmrq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmrq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunmrz_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmrz_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmrz_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmrz_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_double* a, lapack_int lda, @@ -9813,73 +9813,73 @@ lapack_int LAPACKE_zunmrz_work( int matrix_order, char side, char trans, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cunmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_cunmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_zunmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_cupgtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cupgtr_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_complex_float* tau, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* work ); -lapack_int LAPACKE_zupgtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zupgtr_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, lapack_complex_double* q, lapack_int ldq, lapack_complex_double* work ); -lapack_int LAPACKE_cupmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_cupmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_float* ap, const lapack_complex_float* tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work ); -lapack_int LAPACKE_zupmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_zupmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work ); -lapack_int LAPACKE_claghe( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_claghe( int matrix_layout, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_zlaghe( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_zlaghe( int matrix_layout, lapack_int n, lapack_int k, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_slagsy( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_slagsy( int matrix_layout, lapack_int n, lapack_int k, const float* d, float* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_dlagsy( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_dlagsy( int matrix_layout, lapack_int n, lapack_int k, const double* d, double* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_clagsy( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_clagsy( int matrix_layout, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_zlagsy( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_zlagsy( int matrix_layout, lapack_int n, lapack_int k, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_slapmr( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_slapmr( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, float* x, lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_dlapmr( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_dlapmr( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, double* x, lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_clapmr( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_clapmr( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, lapack_complex_float* x, lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_zlapmr( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_zlapmr( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, lapack_complex_double* x, lapack_int ldx, lapack_int* k ); @@ -9901,7 +9901,7 @@ lapack_int LAPACKE_dlartgs( double x, double y, double sigma, double* cs, //LAPACK 3.3.0 -lapack_int LAPACKE_cbbcsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_cbbcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, float* theta, float* phi, lapack_complex_float* u1, lapack_int ldu1, @@ -9910,7 +9910,7 @@ lapack_int LAPACKE_cbbcsd( int matrix_order, char jobu1, char jobu2, lapack_complex_float* v2t, lapack_int ldv2t, float* b11d, float* b11e, float* b12d, float* b12e, float* b21d, float* b21e, float* b22d, float* b22e ); -lapack_int LAPACKE_cbbcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_cbbcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, float* theta, float* phi, @@ -9922,72 +9922,72 @@ lapack_int LAPACKE_cbbcsd_work( int matrix_order, char jobu1, char jobu2, float* b12e, float* b21d, float* b21e, float* b22d, float* b22e, float* rwork, lapack_int lrwork ); -lapack_int LAPACKE_cheswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cheswapr( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_cheswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cheswapr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_chetri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri2( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_chetri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri2_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_chetri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri2x( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_chetri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri2x_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int nb ); -lapack_int LAPACKE_chetrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrs2( int matrix_layout, char uplo, lapack_int n, 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_chetrs2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrs2_work( int matrix_layout, char uplo, lapack_int n, 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 ); -lapack_int LAPACKE_csyconv( int matrix_order, char uplo, char way, lapack_int n, +lapack_int LAPACKE_csyconv( int matrix_layout, char uplo, char way, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_csyconv_work( int matrix_order, char uplo, char way, +lapack_int LAPACKE_csyconv_work( int matrix_layout, char uplo, char way, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work ); -lapack_int LAPACKE_csyswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyswapr( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_csyswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyswapr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_csytri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri2( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_csytri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri2_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_csytri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri2x( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_csytri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri2x_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int nb ); -lapack_int LAPACKE_csytrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrs2( int matrix_layout, char uplo, lapack_int n, 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_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrs2_work( int matrix_layout, char uplo, lapack_int n, 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 ); -lapack_int LAPACKE_cunbdb( int matrix_order, char trans, char signs, +lapack_int LAPACKE_cunbdb( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_float* x11, lapack_int ldx11, lapack_complex_float* x12, lapack_int ldx12, @@ -9998,7 +9998,7 @@ lapack_int LAPACKE_cunbdb( int matrix_order, char trans, char signs, lapack_complex_float* taup2, lapack_complex_float* tauq1, lapack_complex_float* tauq2 ); -lapack_int LAPACKE_cunbdb_work( int matrix_order, char trans, char signs, +lapack_int LAPACKE_cunbdb_work( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_float* x11, lapack_int ldx11, lapack_complex_float* x12, lapack_int ldx12, @@ -10010,7 +10010,7 @@ lapack_int LAPACKE_cunbdb_work( int matrix_order, char trans, char signs, lapack_complex_float* tauq1, lapack_complex_float* tauq2, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_cuncsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_cuncsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_float* x11, lapack_int ldx11, @@ -10022,7 +10022,7 @@ lapack_int LAPACKE_cuncsd( int matrix_order, char jobu1, char jobu2, lapack_int ldu2, lapack_complex_float* v1t, lapack_int ldv1t, lapack_complex_float* v2t, lapack_int ldv2t ); -lapack_int LAPACKE_cuncsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_cuncsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_float* x11, @@ -10037,7 +10037,7 @@ lapack_int LAPACKE_cuncsd_work( int matrix_order, char jobu1, char jobu2, lapack_complex_float* work, lapack_int lwork, float* rwork, lapack_int lrwork, lapack_int* iwork ); -lapack_int LAPACKE_dbbcsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_dbbcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, double* theta, double* phi, double* u1, lapack_int ldu1, double* u2, @@ -10046,7 +10046,7 @@ lapack_int LAPACKE_dbbcsd( int matrix_order, char jobu1, char jobu2, double* b11e, double* b12d, double* b12e, double* b21d, double* b21e, double* b22d, double* b22e ); -lapack_int LAPACKE_dbbcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_dbbcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, double* theta, double* phi, double* u1, @@ -10056,14 +10056,14 @@ lapack_int LAPACKE_dbbcsd_work( int matrix_order, char jobu1, char jobu2, double* b12d, double* b12e, double* b21d, double* b21e, double* b22d, double* b22e, double* work, lapack_int lwork ); -lapack_int LAPACKE_dorbdb( int matrix_order, char trans, char signs, +lapack_int LAPACKE_dorbdb( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, double* x11, lapack_int ldx11, double* x12, lapack_int ldx12, double* x21, lapack_int ldx21, double* x22, lapack_int ldx22, double* theta, double* phi, double* taup1, double* taup2, double* tauq1, double* tauq2 ); -lapack_int LAPACKE_dorbdb_work( int matrix_order, char trans, char signs, +lapack_int LAPACKE_dorbdb_work( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, double* x11, lapack_int ldx11, double* x12, lapack_int ldx12, double* x21, lapack_int ldx21, @@ -10071,7 +10071,7 @@ lapack_int LAPACKE_dorbdb_work( int matrix_order, char trans, char signs, double* phi, double* taup1, double* taup2, double* tauq1, double* tauq2, double* work, lapack_int lwork ); -lapack_int LAPACKE_dorcsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_dorcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, double* x11, lapack_int ldx11, double* x12, @@ -10080,7 +10080,7 @@ lapack_int LAPACKE_dorcsd( int matrix_order, char jobu1, char jobu2, double* u1, lapack_int ldu1, double* u2, lapack_int ldu2, double* v1t, lapack_int ldv1t, double* v2t, lapack_int ldv2t ); -lapack_int LAPACKE_dorcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_dorcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, double* x11, lapack_int ldx11, @@ -10091,36 +10091,36 @@ lapack_int LAPACKE_dorcsd_work( int matrix_order, char jobu1, char jobu2, lapack_int ldv1t, double* v2t, lapack_int ldv2t, double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dsyconv( int matrix_order, char uplo, char way, lapack_int n, +lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_dsyconv_work( int matrix_order, char uplo, char way, +lapack_int LAPACKE_dsyconv_work( int matrix_layout, char uplo, char way, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, double* work ); -lapack_int LAPACKE_dsyswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyswapr( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_dsyswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyswapr_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_dsytri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri2( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_dsytri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri2_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_dsytri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri2x( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_dsytri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri2x_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, double* work, lapack_int nb ); -lapack_int LAPACKE_dsytrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrs2( int matrix_layout, char uplo, lapack_int n, 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_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrs2_work( int matrix_layout, char uplo, lapack_int n, 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_order, char jobu1, char jobu2, +lapack_int LAPACKE_sbbcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, float* theta, float* phi, float* u1, lapack_int ldu1, float* u2, @@ -10128,7 +10128,7 @@ lapack_int LAPACKE_sbbcsd( int matrix_order, char jobu1, char jobu2, float* v2t, lapack_int ldv2t, float* b11d, float* b11e, float* b12d, float* b12e, float* b21d, float* b21e, float* b22d, float* b22e ); -lapack_int LAPACKE_sbbcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_sbbcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, float* theta, float* phi, float* u1, @@ -10138,14 +10138,14 @@ lapack_int LAPACKE_sbbcsd_work( int matrix_order, char jobu1, char jobu2, float* b12d, float* b12e, float* b21d, float* b21e, float* b22d, float* b22e, float* work, lapack_int lwork ); -lapack_int LAPACKE_sorbdb( int matrix_order, char trans, char signs, +lapack_int LAPACKE_sorbdb( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, float* x11, lapack_int ldx11, float* x12, lapack_int ldx12, float* x21, lapack_int ldx21, float* x22, lapack_int ldx22, float* theta, float* phi, float* taup1, float* taup2, float* tauq1, float* tauq2 ); -lapack_int LAPACKE_sorbdb_work( int matrix_order, char trans, char signs, +lapack_int LAPACKE_sorbdb_work( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, float* x11, lapack_int ldx11, float* x12, lapack_int ldx12, float* x21, lapack_int ldx21, @@ -10153,7 +10153,7 @@ lapack_int LAPACKE_sorbdb_work( int matrix_order, char trans, char signs, float* phi, float* taup1, float* taup2, float* tauq1, float* tauq2, float* work, lapack_int lwork ); -lapack_int LAPACKE_sorcsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_sorcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, float* x11, lapack_int ldx11, float* x12, lapack_int ldx12, @@ -10162,7 +10162,7 @@ lapack_int LAPACKE_sorcsd( int matrix_order, char jobu1, char jobu2, lapack_int ldu1, float* u2, lapack_int ldu2, float* v1t, lapack_int ldv1t, float* v2t, lapack_int ldv2t ); -lapack_int LAPACKE_sorcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_sorcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, float* x11, lapack_int ldx11, @@ -10173,36 +10173,36 @@ lapack_int LAPACKE_sorcsd_work( int matrix_order, char jobu1, char jobu2, lapack_int ldv1t, float* v2t, lapack_int ldv2t, float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_ssyconv( int matrix_order, char uplo, char way, lapack_int n, +lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_ssyconv_work( int matrix_order, char uplo, char way, +lapack_int LAPACKE_ssyconv_work( int matrix_layout, char uplo, char way, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, float* work ); -lapack_int LAPACKE_ssyswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyswapr( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_ssyswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyswapr_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_ssytri2( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_ssytri2( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_ssytri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytri2_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_ssytri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytri2x( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_ssytri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytri2x_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, float* work, lapack_int nb ); -lapack_int LAPACKE_ssytrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrs2( int matrix_layout, char uplo, lapack_int n, 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_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrs2_work( int matrix_layout, char uplo, lapack_int n, 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_order, char jobu1, char jobu2, +lapack_int LAPACKE_zbbcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, double* theta, double* phi, lapack_complex_double* u1, @@ -10212,7 +10212,7 @@ lapack_int LAPACKE_zbbcsd( int matrix_order, char jobu1, char jobu2, lapack_int ldv2t, double* b11d, double* b11e, double* b12d, double* b12e, double* b21d, double* b21e, double* b22d, double* b22e ); -lapack_int LAPACKE_zbbcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_zbbcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, double* theta, double* phi, @@ -10224,72 +10224,72 @@ lapack_int LAPACKE_zbbcsd_work( int matrix_order, char jobu1, char jobu2, double* b12e, double* b21d, double* b21e, double* b22d, double* b22e, double* rwork, lapack_int lrwork ); -lapack_int LAPACKE_zheswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zheswapr( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_zheswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zheswapr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_zhetri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri2( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_zhetri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri2_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_zhetri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri2x( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_zhetri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri2x_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int nb ); -lapack_int LAPACKE_zhetrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrs2( int matrix_layout, char uplo, lapack_int n, 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_zhetrs2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrs2_work( int matrix_layout, char uplo, lapack_int n, 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 ); -lapack_int LAPACKE_zsyconv( int matrix_order, char uplo, char way, lapack_int n, +lapack_int LAPACKE_zsyconv( int matrix_layout, char uplo, char way, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_zsyconv_work( int matrix_order, char uplo, char way, +lapack_int LAPACKE_zsyconv_work( int matrix_layout, char uplo, char way, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work ); -lapack_int LAPACKE_zsyswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyswapr( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_zsyswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyswapr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_zsytri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri2( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_zsytri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri2_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_zsytri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri2x( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_zsytri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri2x_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int nb ); -lapack_int LAPACKE_zsytrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrs2( int matrix_layout, char uplo, lapack_int n, 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_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrs2_work( int matrix_layout, char uplo, lapack_int n, 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 ); -lapack_int LAPACKE_zunbdb( int matrix_order, char trans, char signs, +lapack_int LAPACKE_zunbdb( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_double* x11, lapack_int ldx11, lapack_complex_double* x12, lapack_int ldx12, @@ -10300,7 +10300,7 @@ lapack_int LAPACKE_zunbdb( int matrix_order, char trans, char signs, lapack_complex_double* taup2, lapack_complex_double* tauq1, lapack_complex_double* tauq2 ); -lapack_int LAPACKE_zunbdb_work( int matrix_order, char trans, char signs, +lapack_int LAPACKE_zunbdb_work( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_double* x11, lapack_int ldx11, lapack_complex_double* x12, lapack_int ldx12, @@ -10312,7 +10312,7 @@ lapack_int LAPACKE_zunbdb_work( int matrix_order, char trans, char signs, lapack_complex_double* tauq1, lapack_complex_double* tauq2, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_zuncsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_zuncsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_double* x11, lapack_int ldx11, @@ -10324,7 +10324,7 @@ lapack_int LAPACKE_zuncsd( int matrix_order, char jobu1, char jobu2, lapack_int ldu2, lapack_complex_double* v1t, lapack_int ldv1t, lapack_complex_double* v2t, lapack_int ldv2t ); -lapack_int LAPACKE_zuncsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_zuncsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_double* x11, @@ -10340,151 +10340,156 @@ lapack_int LAPACKE_zuncsd_work( int matrix_order, char jobu1, char jobu2, double* rwork, lapack_int lrwork, lapack_int* iwork ); //LAPACK 3.4.0 -lapack_int LAPACKE_sgemqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_sgemqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* c, lapack_int ldc ); -lapack_int LAPACKE_dgemqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_dgemqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* c, lapack_int ldc ); -lapack_int LAPACKE_cgemqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_cgemqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, lapack_int ldt, lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zgemqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_zgemqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, lapack_int ldt, lapack_complex_double* c, lapack_int ldc ); -lapack_int LAPACKE_sgeqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, float* a, lapack_int lda, float* t, lapack_int ldt ); -lapack_int LAPACKE_dgeqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, double* a, lapack_int lda, double* t, lapack_int ldt ); -lapack_int LAPACKE_cgeqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_sgeqrt2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt2( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* t, lapack_int ldt ); -lapack_int LAPACKE_dgeqrt2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt2( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* t, lapack_int ldt ); -lapack_int LAPACKE_cgeqrt2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_sgeqrt3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt3( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* t, lapack_int ldt ); -lapack_int LAPACKE_dgeqrt3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt3( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* t, lapack_int ldt ); -lapack_int LAPACKE_cgeqrt3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt3( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt3( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_stpmqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_stpmqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtpmqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_dtpmqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctpmqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_ctpmqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, lapack_int ldt, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztpmqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_ztpmqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, lapack_int ldt, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); + +lapack_int LAPACKE_stpqrt( int matrix_layout, lapack_int m, lapack_int n, + lapack_int l, lapack_int nb, float* a, + lapack_int lda, float* b, lapack_int ldb, float* t, + lapack_int ldt ); -lapack_int LAPACKE_dtpqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dtpqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt ); -lapack_int LAPACKE_ctpqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ctpqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_ztpqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ztpqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_stpqrt2( int matrix_order, +lapack_int LAPACKE_stpqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, float* a, lapack_int lda, float* b, lapack_int ldb, float* t, lapack_int ldt ); -lapack_int LAPACKE_dtpqrt2( int matrix_order, +lapack_int LAPACKE_dtpqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt ); -lapack_int LAPACKE_ctpqrt2( int matrix_order, +lapack_int LAPACKE_ctpqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_ztpqrt2( int matrix_order, +lapack_int LAPACKE_ztpqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_stprfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_stprfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtprfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_dtprfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctprfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_ctprfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, lapack_int ldt, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztprfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_ztprfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_double* v, lapack_int ldv, @@ -10492,83 +10497,83 @@ lapack_int LAPACKE_ztprfb( int matrix_order, char side, char trans, char direct, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_sgemqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_sgemqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* c, lapack_int ldc, float* work ); -lapack_int LAPACKE_dgemqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dgemqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* c, lapack_int ldc, double* work ); -lapack_int LAPACKE_cgemqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cgemqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, lapack_int ldt, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work ); -lapack_int LAPACKE_zgemqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zgemqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, lapack_int ldt, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work ); -lapack_int LAPACKE_sgeqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, float* a, lapack_int lda, float* t, lapack_int ldt, float* work ); -lapack_int LAPACKE_dgeqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, double* a, lapack_int lda, double* t, lapack_int ldt, double* work ); -lapack_int LAPACKE_cgeqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* work ); -lapack_int LAPACKE_zgeqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* work ); -lapack_int LAPACKE_sgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* t, lapack_int ldt ); -lapack_int LAPACKE_dgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* t, lapack_int ldt ); -lapack_int LAPACKE_cgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_sgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* t, lapack_int ldt ); -lapack_int LAPACKE_dgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* t, lapack_int ldt ); -lapack_int LAPACKE_cgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_stpmqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_stpmqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* a, lapack_int lda, float* b, lapack_int ldb, float* work ); -lapack_int LAPACKE_dtpmqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dtpmqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* a, lapack_int lda, double* b, lapack_int ldb, double* work ); -lapack_int LAPACKE_ctpmqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_ctpmqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const lapack_complex_float* v, lapack_int ldv, @@ -10576,7 +10581,7 @@ lapack_int LAPACKE_ctpmqrt_work( int matrix_order, char side, char trans, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work ); -lapack_int LAPACKE_ztpmqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_ztpmqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const lapack_complex_double* v, lapack_int ldv, @@ -10584,125 +10589,129 @@ lapack_int LAPACKE_ztpmqrt_work( int matrix_order, char side, char trans, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work ); - -lapack_int LAPACKE_dtpqrt_work( int matrix_order, lapack_int m, lapack_int n, + +lapack_int LAPACKE_stpqrt_work( int matrix_layout, lapack_int m, lapack_int n, + lapack_int l, lapack_int nb, float* a, + lapack_int lda, float* b, lapack_int ldb, + float* t, lapack_int ldt, float* work ); +lapack_int LAPACKE_dtpqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt, double* work ); -lapack_int LAPACKE_ctpqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ctpqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* work ); -lapack_int LAPACKE_ztpqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ztpqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* work ); -lapack_int LAPACKE_stpqrt2_work( int matrix_order, +lapack_int LAPACKE_stpqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, float* a, lapack_int lda, float* b, lapack_int ldb, float* t, lapack_int ldt ); -lapack_int LAPACKE_dtpqrt2_work( int matrix_order, +lapack_int LAPACKE_dtpqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt ); -lapack_int LAPACKE_ctpqrt2_work( int matrix_order, +lapack_int LAPACKE_ctpqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_ztpqrt2_work( int matrix_order, +lapack_int LAPACKE_ztpqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* t, lapack_int ldt ); -lapack_int LAPACKE_stprfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_stprfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* a, lapack_int lda, float* b, lapack_int ldb, const float* work, lapack_int ldwork ); -lapack_int LAPACKE_dtprfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dtprfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* a, lapack_int lda, double* b, lapack_int ldb, const double* work, lapack_int ldwork ); -lapack_int LAPACKE_ctprfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_ctprfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, lapack_int ldt, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, - const float* work, lapack_int ldwork ); -lapack_int LAPACKE_ztprfb_work( int matrix_order, char side, char trans, + lapack_complex_float* work, lapack_int ldwork ); +lapack_int LAPACKE_ztprfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, lapack_int ldt, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, - const double* work, lapack_int ldwork ); + lapack_complex_double* work, lapack_int ldwork ); //LAPACK 3.X.X -lapack_int LAPACKE_ssysv_rook( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsysv_rook( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csysv_rook( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsysv_rook( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_csyr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyr( int matrix_layout, char uplo, lapack_int n, lapack_complex_float alpha, const lapack_complex_float* x, lapack_int incx, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zsyr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyr( int matrix_layout, char uplo, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* x, lapack_int incx, lapack_complex_double* a, lapack_int lda ); -lapack_int LAPACKE_ssysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* work, lapack_int lwork ); -lapack_int LAPACKE_csysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_csyr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float alpha, const lapack_complex_float* x, lapack_int incx, lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zsyr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* x, lapack_int incx, lapack_complex_double* a, @@ -11736,6 +11745,7 @@ void LAPACKE_ilaver( const lapack_int* vers_major, #define LAPACK_dtpmqrt LAPACK_GLOBAL(dtpmqrt,DTPMQRT) #define LAPACK_ctpmqrt LAPACK_GLOBAL(ctpmqrt,CTPMQRT) #define LAPACK_ztpmqrt LAPACK_GLOBAL(ztpmqrt,ZTPMQRT) +#define LAPACK_stpqrt LAPACK_GLOBAL(stpqrt,STPQRT) #define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT) #define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT) #define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT) @@ -16350,6 +16360,9 @@ void LAPACK_ztpmqrt( char* side, char* trans, lapack_int* m, lapack_int* n, lapack_complex_double* a, lapack_int* lda, lapack_complex_double* b, lapack_int* ldb, lapack_complex_double* work, lapack_int *info ); +void LAPACK_stpqrt( lapack_int* m, lapack_int* n, lapack_int* l, lapack_int* nb, + float* a, lapack_int* lda, float* b, lapack_int* ldb, + float* t, lapack_int* ldt, float* work, lapack_int *info ); void LAPACK_dtpqrt( lapack_int* m, lapack_int* n, lapack_int* l, lapack_int* nb, double* a, lapack_int* lda, double* b, lapack_int* ldb, double* t, lapack_int* ldt, double* work, @@ -16402,14 +16415,14 @@ void LAPACK_ctprfb( char* side, char* trans, char* direct, char* storev, const lapack_complex_float* t, lapack_int* ldt, lapack_complex_float* a, lapack_int* lda, lapack_complex_float* b, lapack_int* ldb, - const float* work, lapack_int* ldwork ); + lapack_complex_float* work, lapack_int* ldwork ); void LAPACK_ztprfb( char* side, char* trans, char* direct, char* storev, lapack_int* m, lapack_int* n, lapack_int* k, lapack_int* l, const lapack_complex_double* v, lapack_int* ldv, const lapack_complex_double* t, lapack_int* ldt, lapack_complex_double* a, lapack_int* lda, lapack_complex_double* b, lapack_int* ldb, - const double* work, lapack_int* ldwork ); + lapack_complex_double* work, lapack_int* ldwork ); // LAPACK 3.5.0 void LAPACK_ssysv_rook( char* uplo, lapack_int* n, lapack_int* nrhs, float* a, lapack_int* lda, lapack_int* ipiv, float* b, diff --git a/lapacke/include/lapacke_utils.h b/lapacke/include/lapacke_utils.h index 95f144e0..a9236d23 100644 --- a/lapacke/include/lapacke_utils.h +++ b/lapacke/include/lapacke_utils.h @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -70,215 +70,215 @@ void LAPACKE_xerbla( const char *name, lapack_int info ); lapack_logical LAPACKE_lsame( char ca, char cb ); /* Functions to convert column-major to row-major 2d arrays and vice versa. */ -void LAPACKE_cgb_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_cgb_trans( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_cge_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_cge_trans( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* in, lapack_int ldin, lapack_complex_float* out, lapack_int ldout ); -void LAPACKE_cgg_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_cgg_trans( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* in, lapack_int ldin, lapack_complex_float* out, lapack_int ldout ); -void LAPACKE_chb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_chb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_che_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_che_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_chp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_chp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ); -void LAPACKE_chs_trans( int matrix_order, lapack_int n, +void LAPACKE_chs_trans( int matrix_layout, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_cpb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_cpb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_cpf_trans( int matrix_order, char transr, char uplo, +void LAPACKE_cpf_trans( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ); -void LAPACKE_cpo_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_cpo_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_cpp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_cpp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ); -void LAPACKE_csp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_csp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ); -void LAPACKE_csy_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_csy_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_ctb_trans( int matrix_order, char uplo, char diag, +void LAPACKE_ctb_trans( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_ctf_trans( int matrix_order, char transr, char uplo, char diag, +void LAPACKE_ctf_trans( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ); -void LAPACKE_ctp_trans( int matrix_order, char uplo, char diag, +void LAPACKE_ctp_trans( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ); -void LAPACKE_ctr_trans( int matrix_order, char uplo, char diag, lapack_int n, +void LAPACKE_ctr_trans( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_dgb_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_dgb_trans( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double *in, lapack_int ldin, double *out, lapack_int ldout ); -void LAPACKE_dge_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_dge_trans( int matrix_layout, lapack_int m, lapack_int n, const double* in, lapack_int ldin, double* out, lapack_int ldout ); -void LAPACKE_dgg_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_dgg_trans( int matrix_layout, lapack_int m, lapack_int n, const double* in, lapack_int ldin, double* out, lapack_int ldout ); -void LAPACKE_dhs_trans( int matrix_order, lapack_int n, +void LAPACKE_dhs_trans( int matrix_layout, lapack_int n, const double *in, lapack_int ldin, double *out, lapack_int ldout ); -void LAPACKE_dpb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dpb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double *in, lapack_int ldin, double *out, lapack_int ldout ); -void LAPACKE_dpf_trans( int matrix_order, char transr, char uplo, +void LAPACKE_dpf_trans( int matrix_layout, char transr, char uplo, lapack_int n, const double *in, double *out ); -void LAPACKE_dpo_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dpo_trans( int matrix_layout, char uplo, lapack_int n, const double *in, lapack_int ldin, double *out, lapack_int ldout ); -void LAPACKE_dpp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dpp_trans( int matrix_layout, char uplo, lapack_int n, const double *in, double *out ); -void LAPACKE_dsb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dsb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double *in, lapack_int ldin, double *out, lapack_int ldout ); -void LAPACKE_dsp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dsp_trans( int matrix_layout, char uplo, lapack_int n, const double *in, double *out ); -void LAPACKE_dsy_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dsy_trans( int matrix_layout, char uplo, lapack_int n, const double *in, lapack_int ldin, double *out, lapack_int ldout ); -void LAPACKE_dtb_trans( int matrix_order, char uplo, char diag, +void LAPACKE_dtb_trans( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const double *in, lapack_int ldin, double *out, lapack_int ldout ); -void LAPACKE_dtf_trans( int matrix_order, char transr, char uplo, char diag, +void LAPACKE_dtf_trans( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const double *in, double *out ); -void LAPACKE_dtp_trans( int matrix_order, char uplo, char diag, +void LAPACKE_dtp_trans( int matrix_layout, char uplo, char diag, lapack_int n, const double *in, double *out ); -void LAPACKE_dtr_trans( int matrix_order, char uplo, char diag, lapack_int n, +void LAPACKE_dtr_trans( int matrix_layout, char uplo, char diag, lapack_int n, const double *in, lapack_int ldin, double *out, lapack_int ldout ); -void LAPACKE_sgb_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_sgb_trans( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float *in, lapack_int ldin, float *out, lapack_int ldout ); -void LAPACKE_sge_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_sge_trans( int matrix_layout, lapack_int m, lapack_int n, const float* in, lapack_int ldin, float* out, lapack_int ldout ); -void LAPACKE_sgg_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_sgg_trans( int matrix_layout, lapack_int m, lapack_int n, const float* in, lapack_int ldin, float* out, lapack_int ldout ); -void LAPACKE_shs_trans( int matrix_order, lapack_int n, +void LAPACKE_shs_trans( int matrix_layout, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout ); -void LAPACKE_spb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_spb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float *in, lapack_int ldin, float *out, lapack_int ldout ); -void LAPACKE_spf_trans( int matrix_order, char transr, char uplo, +void LAPACKE_spf_trans( int matrix_layout, char transr, char uplo, lapack_int n, const float *in, float *out ); -void LAPACKE_spo_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_spo_trans( int matrix_layout, char uplo, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout ); -void LAPACKE_spp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_spp_trans( int matrix_layout, char uplo, lapack_int n, const float *in, float *out ); -void LAPACKE_ssb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_ssb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float *in, lapack_int ldin, float *out, lapack_int ldout ); -void LAPACKE_ssp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_ssp_trans( int matrix_layout, char uplo, lapack_int n, const float *in, float *out ); -void LAPACKE_ssy_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_ssy_trans( int matrix_layout, char uplo, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout ); -void LAPACKE_stb_trans( int matrix_order, char uplo, char diag, +void LAPACKE_stb_trans( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const float *in, lapack_int ldin, float *out, lapack_int ldout ); -void LAPACKE_stf_trans( int matrix_order, char transr, char uplo, char diag, +void LAPACKE_stf_trans( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const float *in, float *out ); -void LAPACKE_stp_trans( int matrix_order, char uplo, char diag, +void LAPACKE_stp_trans( int matrix_layout, char uplo, char diag, lapack_int n, const float *in, float *out ); -void LAPACKE_str_trans( int matrix_order, char uplo, char diag, lapack_int n, +void LAPACKE_str_trans( int matrix_layout, char uplo, char diag, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout ); -void LAPACKE_zgb_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_zgb_trans( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zge_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_zge_trans( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* in, lapack_int ldin, lapack_complex_double* out, lapack_int ldout ); -void LAPACKE_zgg_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_zgg_trans( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* in, lapack_int ldin, lapack_complex_double* out, lapack_int ldout ); -void LAPACKE_zhb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zhb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zhe_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zhe_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zhp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zhp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ); -void LAPACKE_zhs_trans( int matrix_order, lapack_int n, +void LAPACKE_zhs_trans( int matrix_layout, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zpb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zpb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zpf_trans( int matrix_order, char transr, char uplo, +void LAPACKE_zpf_trans( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ); -void LAPACKE_zpo_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zpo_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zpp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zpp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ); -void LAPACKE_zsp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zsp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ); -void LAPACKE_zsy_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zsy_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_ztb_trans( int matrix_order, char uplo, char diag, +void LAPACKE_ztb_trans( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_ztf_trans( int matrix_order, char transr, char uplo, char diag, +void LAPACKE_ztf_trans( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ); -void LAPACKE_ztp_trans( int matrix_order, char uplo, char diag, +void LAPACKE_ztp_trans( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ); -void LAPACKE_ztr_trans( int matrix_order, char uplo, char diag, lapack_int n, +void LAPACKE_ztr_trans( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ); @@ -304,16 +304,16 @@ lapack_logical LAPACKE_z_nancheck( lapack_int n, const lapack_complex_double *x, lapack_int incx ); /* NaN checkers for matrices */ -lapack_logical LAPACKE_cgb_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_cgb_nancheck( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float *ab, lapack_int ldab ); -lapack_logical LAPACKE_cge_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_cge_nancheck( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float *a, lapack_int lda ); -lapack_logical LAPACKE_cgg_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_cgg_nancheck( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float *a, lapack_int lda ); @@ -321,26 +321,26 @@ lapack_logical LAPACKE_cgt_nancheck( lapack_int n, const lapack_complex_float *dl, const lapack_complex_float *d, const lapack_complex_float *du ); -lapack_logical LAPACKE_chb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_chb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab ); -lapack_logical LAPACKE_che_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_che_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *a, lapack_int lda ); lapack_logical LAPACKE_chp_nancheck( lapack_int n, const lapack_complex_float *ap ); -lapack_logical LAPACKE_chs_nancheck( int matrix_order, lapack_int n, +lapack_logical LAPACKE_chs_nancheck( int matrix_layout, lapack_int n, const lapack_complex_float *a, lapack_int lda ); -lapack_logical LAPACKE_cpb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_cpb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab ); lapack_logical LAPACKE_cpf_nancheck( lapack_int n, const lapack_complex_float *a ); -lapack_logical LAPACKE_cpo_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_cpo_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *a, lapack_int lda ); @@ -354,36 +354,36 @@ lapack_logical LAPACKE_csp_nancheck( lapack_int n, lapack_logical LAPACKE_cst_nancheck( lapack_int n, const lapack_complex_float *d, const lapack_complex_float *e ); -lapack_logical LAPACKE_csy_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_csy_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *a, lapack_int lda ); -lapack_logical LAPACKE_ctb_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ctb_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab ); -lapack_logical LAPACKE_ctf_nancheck( int matrix_order, char transr, +lapack_logical LAPACKE_ctf_nancheck( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const lapack_complex_float *a ); -lapack_logical LAPACKE_ctp_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ctp_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *ap ); -lapack_logical LAPACKE_ctr_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ctr_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *a, lapack_int lda ); -lapack_logical LAPACKE_dgb_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_dgb_nancheck( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double *ab, lapack_int ldab ); -lapack_logical LAPACKE_dge_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_dge_nancheck( int matrix_layout, lapack_int m, lapack_int n, const double *a, lapack_int lda ); -lapack_logical LAPACKE_dgg_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_dgg_nancheck( int matrix_layout, lapack_int m, lapack_int n, const double *a, lapack_int lda ); @@ -391,16 +391,16 @@ lapack_logical LAPACKE_dgt_nancheck( lapack_int n, const double *dl, const double *d, const double *du ); -lapack_logical LAPACKE_dhs_nancheck( int matrix_order, lapack_int n, +lapack_logical LAPACKE_dhs_nancheck( int matrix_layout, lapack_int n, const double *a, lapack_int lda ); -lapack_logical LAPACKE_dpb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_dpb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab ); lapack_logical LAPACKE_dpf_nancheck( lapack_int n, const double *a ); -lapack_logical LAPACKE_dpo_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_dpo_nancheck( int matrix_layout, char uplo, lapack_int n, const double *a, lapack_int lda ); @@ -409,7 +409,7 @@ lapack_logical LAPACKE_dpp_nancheck( lapack_int n, lapack_logical LAPACKE_dpt_nancheck( lapack_int n, const double *d, const double *e ); -lapack_logical LAPACKE_dsb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_dsb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab ); @@ -418,36 +418,36 @@ lapack_logical LAPACKE_dsp_nancheck( lapack_int n, lapack_logical LAPACKE_dst_nancheck( lapack_int n, const double *d, const double *e ); -lapack_logical LAPACKE_dsy_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_dsy_nancheck( int matrix_layout, char uplo, lapack_int n, const double *a, lapack_int lda ); -lapack_logical LAPACKE_dtb_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_dtb_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab ); -lapack_logical LAPACKE_dtf_nancheck( int matrix_order, char transr, +lapack_logical LAPACKE_dtf_nancheck( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const double *a ); -lapack_logical LAPACKE_dtp_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_dtp_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const double *ap ); -lapack_logical LAPACKE_dtr_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_dtr_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const double *a, lapack_int lda ); -lapack_logical LAPACKE_sgb_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_sgb_nancheck( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float *ab, lapack_int ldab ); -lapack_logical LAPACKE_sge_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_sge_nancheck( int matrix_layout, lapack_int m, lapack_int n, const float *a, lapack_int lda ); -lapack_logical LAPACKE_sgg_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_sgg_nancheck( int matrix_layout, lapack_int m, lapack_int n, const float *a, lapack_int lda ); @@ -455,16 +455,16 @@ lapack_logical LAPACKE_sgt_nancheck( lapack_int n, const float *dl, const float *d, const float *du ); -lapack_logical LAPACKE_shs_nancheck( int matrix_order, lapack_int n, +lapack_logical LAPACKE_shs_nancheck( int matrix_layout, lapack_int n, const float *a, lapack_int lda ); -lapack_logical LAPACKE_spb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_spb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab ); lapack_logical LAPACKE_spf_nancheck( lapack_int n, const float *a ); -lapack_logical LAPACKE_spo_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_spo_nancheck( int matrix_layout, char uplo, lapack_int n, const float *a, lapack_int lda ); @@ -473,7 +473,7 @@ lapack_logical LAPACKE_spp_nancheck( lapack_int n, lapack_logical LAPACKE_spt_nancheck( lapack_int n, const float *d, const float *e ); -lapack_logical LAPACKE_ssb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_ssb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab ); @@ -482,36 +482,36 @@ lapack_logical LAPACKE_ssp_nancheck( lapack_int n, lapack_logical LAPACKE_sst_nancheck( lapack_int n, const float *d, const float *e ); -lapack_logical LAPACKE_ssy_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_ssy_nancheck( int matrix_layout, char uplo, lapack_int n, const float *a, lapack_int lda ); -lapack_logical LAPACKE_stb_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_stb_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab ); -lapack_logical LAPACKE_stf_nancheck( int matrix_order, char transr, +lapack_logical LAPACKE_stf_nancheck( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const float *a ); -lapack_logical LAPACKE_stp_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_stp_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const float *ap ); -lapack_logical LAPACKE_str_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_str_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const float *a, lapack_int lda ); -lapack_logical LAPACKE_zgb_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_zgb_nancheck( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double *ab, lapack_int ldab ); -lapack_logical LAPACKE_zge_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_zge_nancheck( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *a, lapack_int lda ); -lapack_logical LAPACKE_zgg_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_zgg_nancheck( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *a, lapack_int lda ); @@ -519,26 +519,26 @@ lapack_logical LAPACKE_zgt_nancheck( lapack_int n, const lapack_complex_double *dl, const lapack_complex_double *d, const lapack_complex_double *du ); -lapack_logical LAPACKE_zhb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zhb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab ); -lapack_logical LAPACKE_zhe_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zhe_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *a, lapack_int lda ); lapack_logical LAPACKE_zhp_nancheck( lapack_int n, const lapack_complex_double *ap ); -lapack_logical LAPACKE_zhs_nancheck( int matrix_order, lapack_int n, +lapack_logical LAPACKE_zhs_nancheck( int matrix_layout, lapack_int n, const lapack_complex_double *a, lapack_int lda ); -lapack_logical LAPACKE_zpb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zpb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab ); lapack_logical LAPACKE_zpf_nancheck( lapack_int n, const lapack_complex_double *a ); -lapack_logical LAPACKE_zpo_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zpo_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *a, lapack_int lda ); @@ -552,22 +552,22 @@ lapack_logical LAPACKE_zsp_nancheck( lapack_int n, lapack_logical LAPACKE_zst_nancheck( lapack_int n, const lapack_complex_double *d, const lapack_complex_double *e ); -lapack_logical LAPACKE_zsy_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zsy_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *a, lapack_int lda ); -lapack_logical LAPACKE_ztb_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ztb_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab ); -lapack_logical LAPACKE_ztf_nancheck( int matrix_order, char transr, +lapack_logical LAPACKE_ztf_nancheck( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const lapack_complex_double *a ); -lapack_logical LAPACKE_ztp_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ztp_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *ap ); -lapack_logical LAPACKE_ztr_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ztr_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *a, lapack_int lda ); diff --git a/lapacke/src/CMakeLists.txt b/lapacke/src/CMakeLists.txt index e1b5cfd5..20bac67e 100644 --- a/lapacke/src/CMakeLists.txt +++ b/lapacke/src/CMakeLists.txt @@ -1435,6 +1435,8 @@ lapacke_stpcon.c lapacke_stpcon_work.c lapacke_stpmqrt.c lapacke_stpmqrt_work.c +lapacke_stpqrt.c +lapacke_stpqrt_work.c lapacke_stpqrt2.c lapacke_stpqrt2_work.c lapacke_stprfb.c diff --git a/lapacke/src/Makefile b/lapacke/src/Makefile index c9b37355..df57ddaf 100644 --- a/lapacke/src/Makefile +++ b/lapacke/src/Makefile @@ -1,5 +1,5 @@ ############################################################################## -# Copyright (c) 2010, Intel Corp. +# Copyright (c) 2014, Intel Corp. # All rights reserved. # # Redistribution and use in source and binary forms, with or without @@ -1469,6 +1469,8 @@ lapacke_stpcon.o \ lapacke_stpcon_work.o \ lapacke_stpmqrt.o \ lapacke_stpmqrt_work.o \ +lapacke_stpqrt.o \ +lapacke_stpqrt_work.o \ lapacke_stpqrt2.o \ lapacke_stpqrt2_work.o \ lapacke_stprfb.o \ diff --git a/lapacke/src/lapacke_cbbcsd.c b/lapacke/src/lapacke_cbbcsd.c index e304b79b..1b077663 100644 --- a/lapacke/src/lapacke_cbbcsd.c +++ b/lapacke/src/lapacke_cbbcsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cbbcsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_cbbcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, float* theta, float* phi, lapack_complex_float* u1, lapack_int ldu1, @@ -48,7 +48,7 @@ lapack_int LAPACKE_cbbcsd( int matrix_order, char jobu1, char jobu2, float* rwork = NULL; float rwork_query; lapack_int nrows_u1, nrows_u2, nrows_v1t, nrows_v2t; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cbbcsd", -1 ); return -1; } @@ -65,28 +65,28 @@ lapack_int LAPACKE_cbbcsd( int matrix_order, char jobu1, char jobu2, return -10; } if( LAPACKE_lsame( jobu1, 'y' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, nrows_u1, p, u1, ldu1 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_u1, p, u1, ldu1 ) ) { return -12; } } if( LAPACKE_lsame( jobu2, 'y' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, nrows_u2, m-p, u2, ldu2 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_u2, m-p, u2, ldu2 ) ) { return -14; } } if( LAPACKE_lsame( jobv1t, 'y' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, nrows_v1t, q, v1t, ldv1t ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_v1t, q, v1t, ldv1t ) ) { return -16; } } if( LAPACKE_lsame( jobv2t, 'y' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, nrows_v2t, m-q, v2t, ldv2t ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_v2t, m-q, v2t, ldv2t ) ) { return -18; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cbbcsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_cbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e, &rwork_query, lrwork ); @@ -101,7 +101,7 @@ lapack_int LAPACKE_cbbcsd( int matrix_order, char jobu1, char jobu2, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cbbcsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_cbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e, rwork, lrwork ); diff --git a/lapacke/src/lapacke_cbbcsd_work.c b/lapacke/src/lapacke_cbbcsd_work.c index a0041c49..98f3d1b8 100644 --- a/lapacke/src/lapacke_cbbcsd_work.c +++ b/lapacke/src/lapacke_cbbcsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cbbcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_cbbcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, float* theta, float* phi, @@ -47,7 +47,7 @@ lapack_int LAPACKE_cbbcsd_work( int matrix_order, char jobu1, char jobu2, lapack_int lrwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cbbcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &m, &p, &q, theta, phi, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, v2t, @@ -56,7 +56,7 @@ lapack_int LAPACKE_cbbcsd_work( int matrix_order, char jobu1, char jobu2, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_u1 = ( LAPACKE_lsame( jobu1, 'y' ) ? p : 1); lapack_int nrows_u2 = ( LAPACKE_lsame( jobu2, 'y' ) ? m-p : 1); lapack_int nrows_v1t = ( LAPACKE_lsame( jobv1t, 'y' ) ? q : 1); @@ -137,19 +137,19 @@ lapack_int LAPACKE_cbbcsd_work( int matrix_order, char jobu1, char jobu2, } /* Transpose input matrices */ if( LAPACKE_lsame( jobu1, 'y' ) ) { - LAPACKE_cge_trans( matrix_order, nrows_u1, p, u1, ldu1, u1_t, + LAPACKE_cge_trans( matrix_layout, nrows_u1, p, u1, ldu1, u1_t, ldu1_t ); } if( LAPACKE_lsame( jobu2, 'y' ) ) { - LAPACKE_cge_trans( matrix_order, nrows_u2, m-p, u2, ldu2, u2_t, + LAPACKE_cge_trans( matrix_layout, nrows_u2, m-p, u2, ldu2, u2_t, ldu2_t ); } if( LAPACKE_lsame( jobv1t, 'y' ) ) { - LAPACKE_cge_trans( matrix_order, nrows_v1t, q, v1t, ldv1t, v1t_t, + LAPACKE_cge_trans( matrix_layout, nrows_v1t, q, v1t, ldv1t, v1t_t, ldv1t_t ); } if( LAPACKE_lsame( jobv2t, 'y' ) ) { - LAPACKE_cge_trans( matrix_order, nrows_v2t, m-q, v2t, ldv2t, v2t_t, + LAPACKE_cge_trans( matrix_layout, nrows_v2t, m-q, v2t, ldv2t, v2t_t, ldv2t_t ); } /* Call LAPACK function and adjust info */ diff --git a/lapacke/src/lapacke_cbdsqr.c b/lapacke/src/lapacke_cbdsqr.c index 0a3dd91a..05fd4729 100644 --- a/lapacke/src/lapacke_cbdsqr.c +++ b/lapacke/src/lapacke_cbdsqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cbdsqr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, float* d, float* e, lapack_complex_float* vt, lapack_int ldvt, lapack_complex_float* u, @@ -42,14 +42,14 @@ lapack_int LAPACKE_cbdsqr( int matrix_order, char uplo, lapack_int n, { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cbdsqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( ncc != 0 ) { - if( LAPACKE_cge_nancheck( matrix_order, n, ncc, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, ncc, c, ldc ) ) { return -13; } } @@ -60,12 +60,12 @@ lapack_int LAPACKE_cbdsqr( int matrix_order, char uplo, lapack_int n, return -8; } if( nru != 0 ) { - if( LAPACKE_cge_nancheck( matrix_order, nru, n, u, ldu ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nru, n, u, ldu ) ) { return -11; } } if( ncvt != 0 ) { - if( LAPACKE_cge_nancheck( matrix_order, n, ncvt, vt, ldvt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, ncvt, vt, ldvt ) ) { return -9; } } @@ -77,7 +77,7 @@ lapack_int LAPACKE_cbdsqr( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cbdsqr_work( matrix_order, uplo, n, ncvt, nru, ncc, d, e, vt, + info = LAPACKE_cbdsqr_work( matrix_layout, uplo, n, ncvt, nru, ncc, d, e, vt, ldvt, u, ldu, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cbdsqr_work.c b/lapacke/src/lapacke_cbdsqr_work.c index 5ac2a699..6e4c9ec8 100644 --- a/lapacke/src/lapacke_cbdsqr_work.c +++ b/lapacke/src/lapacke_cbdsqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cbdsqr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cbdsqr_work( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, float* d, float* e, lapack_complex_float* vt, lapack_int ldvt, lapack_complex_float* u, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cbdsqr_work( int matrix_order, char uplo, lapack_int n, lapack_int ldc, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cbdsqr( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt, &ldvt, u, &ldu, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,n); lapack_int ldu_t = MAX(1,nru); lapack_int ldvt_t = MAX(1,n); @@ -101,13 +101,13 @@ lapack_int LAPACKE_cbdsqr_work( int matrix_order, char uplo, lapack_int n, } /* Transpose input matrices */ if( ncvt != 0 ) { - LAPACKE_cge_trans( matrix_order, n, ncvt, vt, ldvt, vt_t, ldvt_t ); + LAPACKE_cge_trans( matrix_layout, n, ncvt, vt, ldvt, vt_t, ldvt_t ); } if( nru != 0 ) { - LAPACKE_cge_trans( matrix_order, nru, n, u, ldu, u_t, ldu_t ); + LAPACKE_cge_trans( matrix_layout, nru, n, u, ldu, u_t, ldu_t ); } if( ncc != 0 ) { - LAPACKE_cge_trans( matrix_order, n, ncc, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, n, ncc, c, ldc, c_t, ldc_t ); } /* Call LAPACK function and adjust info */ LAPACK_cbdsqr( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt_t, &ldvt_t, u_t, diff --git a/lapacke/src/lapacke_cgbbrd.c b/lapacke/src/lapacke_cgbbrd.c index 99aba8f9..e4586a90 100644 --- a/lapacke/src/lapacke_cgbbrd.c +++ b/lapacke/src/lapacke_cgbbrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbbrd( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_cgbbrd( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, lapack_complex_float* ab, lapack_int ldab, float* d, float* e, @@ -44,17 +44,17 @@ lapack_int LAPACKE_cgbbrd( int matrix_order, char vect, lapack_int m, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbbrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -8; } if( ncc != 0 ) { - if( LAPACKE_cge_nancheck( matrix_order, m, ncc, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, ncc, c, ldc ) ) { return -16; } } @@ -72,7 +72,7 @@ lapack_int LAPACKE_cgbbrd( int matrix_order, char vect, lapack_int m, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgbbrd_work( matrix_order, vect, m, n, ncc, kl, ku, ab, ldab, + info = LAPACKE_cgbbrd_work( matrix_layout, vect, m, n, ncc, kl, ku, ab, ldab, d, e, q, ldq, pt, ldpt, c, ldc, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgbbrd_work.c b/lapacke/src/lapacke_cgbbrd_work.c index aaedd339..ae41793f 100644 --- a/lapacke/src/lapacke_cgbbrd_work.c +++ b/lapacke/src/lapacke_cgbbrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbbrd_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_cgbbrd_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, lapack_complex_float* ab, lapack_int ldab, float* d, float* e, @@ -43,14 +43,14 @@ lapack_int LAPACKE_cgbbrd_work( int matrix_order, char vect, lapack_int m, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbbrd( &vect, &m, &n, &ncc, &kl, &ku, ab, &ldab, d, e, q, &ldq, pt, &ldpt, c, &ldc, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldc_t = MAX(1,m); lapack_int ldpt_t = MAX(1,n); @@ -115,9 +115,9 @@ lapack_int LAPACKE_cgbbrd_work( int matrix_order, char vect, lapack_int m, } } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_cgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( ncc != 0 ) { - LAPACKE_cge_trans( matrix_order, m, ncc, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, m, ncc, c, ldc, c_t, ldc_t ); } /* Call LAPACK function and adjust info */ LAPACK_cgbbrd( &vect, &m, &n, &ncc, &kl, &ku, ab_t, &ldab_t, d, e, q_t, diff --git a/lapacke/src/lapacke_cgbcon.c b/lapacke/src/lapacke_cgbcon.c index fc13ff6d..209eee99 100644 --- a/lapacke/src/lapacke_cgbcon.c +++ b/lapacke/src/lapacke_cgbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbcon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_cgbcon( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, const lapack_int* ipiv, float anorm, float* rcond ) @@ -41,13 +41,13 @@ lapack_int LAPACKE_cgbcon( int matrix_order, char norm, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -6; } if( LAPACKE_s_nancheck( 1, &anorm, 1 ) ) { @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgbcon( int matrix_order, char norm, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgbcon_work( matrix_order, norm, n, kl, ku, ab, ldab, ipiv, + info = LAPACKE_cgbcon_work( matrix_layout, norm, n, kl, ku, ab, ldab, ipiv, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgbcon_work.c b/lapacke/src/lapacke_cgbcon_work.c index a0d30f45..d7e277ff 100644 --- a/lapacke/src/lapacke_cgbcon_work.c +++ b/lapacke/src/lapacke_cgbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbcon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_cgbcon_work( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, const lapack_int* ipiv, float anorm, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cgbcon_work( int matrix_order, char norm, lapack_int n, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbcon( &norm, &n, &kl, &ku, ab, &ldab, ipiv, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_complex_float* ab_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_cgbcon_work( int matrix_order, char norm, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_cgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbcon( &norm, &n, &kl, &ku, ab_t, &ldab_t, ipiv, &anorm, rcond, diff --git a/lapacke/src/lapacke_cgbequ.c b/lapacke/src/lapacke_cgbequ.c index 1de824bb..fccc12f5 100644 --- a/lapacke/src/lapacke_cgbequ.c +++ b/lapacke/src/lapacke_cgbequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbequ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_cgbequ_work( matrix_order, m, n, kl, ku, ab, ldab, r, c, + return LAPACKE_cgbequ_work( matrix_layout, m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_cgbequ_work.c b/lapacke/src/lapacke_cgbequ_work.c index 1c8d02dc..2b26e29f 100644 --- a/lapacke/src/lapacke_cgbequ_work.c +++ b/lapacke/src/lapacke_cgbequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbequ_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbequ( &m, &n, &kl, &ku, ab, &ldab, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_complex_float* ab_t = NULL; /* Check leading dimension(s) */ @@ -64,7 +64,7 @@ lapack_int LAPACKE_cgbequ_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_cgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbequ( &m, &n, &kl, &ku, ab_t, &ldab_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_cgbequb.c b/lapacke/src/lapacke_cgbequb.c index a755044d..df5d1d76 100644 --- a/lapacke/src/lapacke_cgbequb.c +++ b/lapacke/src/lapacke_cgbequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbequb( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_cgbequb_work( matrix_order, m, n, kl, ku, ab, ldab, r, c, + return LAPACKE_cgbequb_work( matrix_layout, m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_cgbequb_work.c b/lapacke/src/lapacke_cgbequb_work.c index b3d60230..d2b66082 100644 --- a/lapacke/src/lapacke_cgbequb_work.c +++ b/lapacke/src/lapacke_cgbequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbequb_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbequb( &m, &n, &kl, &ku, ab, &ldab, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_complex_float* ab_t = NULL; /* Check leading dimension(s) */ @@ -64,7 +64,7 @@ lapack_int LAPACKE_cgbequb_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_cgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbequb( &m, &n, &kl, &ku, ab_t, &ldab_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_cgbrfs.c b/lapacke/src/lapacke_cgbrfs.c index d2512317..0eee684f 100644 --- a/lapacke/src/lapacke_cgbrfs.c +++ b/lapacke/src/lapacke_cgbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgbrfs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, lapack_int ldafb, @@ -45,22 +45,22 @@ lapack_int LAPACKE_cgbrfs( int matrix_order, char trans, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -7; } - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, ldafb ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -9; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -77,7 +77,7 @@ lapack_int LAPACKE_cgbrfs( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgbrfs_work( matrix_order, trans, n, kl, ku, nrhs, ab, ldab, + info = LAPACKE_cgbrfs_work( matrix_layout, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cgbrfs_work.c b/lapacke/src/lapacke_cgbrfs_work.c index 4e80c86f..f8d6853e 100644 --- a/lapacke/src/lapacke_cgbrfs_work.c +++ b/lapacke/src/lapacke_cgbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgbrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, @@ -44,14 +44,14 @@ lapack_int LAPACKE_cgbrfs_work( int matrix_order, char trans, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbrfs( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -109,11 +109,11 @@ lapack_int LAPACKE_cgbrfs_work( int matrix_order, char trans, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_cgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_cgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_cgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbrfs( &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, diff --git a/lapacke/src/lapacke_cgbrfsx.c b/lapacke/src/lapacke_cgbrfsx.c index ea5b3970..715b5434 100644 --- a/lapacke/src/lapacke_cgbrfsx.c +++ b/lapacke/src/lapacke_cgbrfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbrfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_cgbrfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, @@ -48,19 +48,19 @@ lapack_int LAPACKE_cgbrfsx( int matrix_order, char trans, char equed, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbrfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, ldafb ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -15; } if( LAPACKE_lsame( equed, 'b' ) || LAPACKE_lsame( equed, 'c' ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_cgbrfsx( int matrix_order, char trans, char equed, return -13; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -17; } #endif @@ -95,7 +95,7 @@ lapack_int LAPACKE_cgbrfsx( int matrix_order, char trans, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgbrfsx_work( matrix_order, trans, equed, n, kl, ku, nrhs, + info = LAPACKE_cgbrfsx_work( matrix_layout, trans, equed, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, r, c, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_cgbrfsx_work.c b/lapacke/src/lapacke_cgbrfsx_work.c index dff8bb3f..a8a6e2f2 100644 --- a/lapacke/src/lapacke_cgbrfsx_work.c +++ b/lapacke/src/lapacke_cgbrfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbrfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_cgbrfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, @@ -50,7 +50,7 @@ lapack_int LAPACKE_cgbrfsx_work( int matrix_order, char trans, char equed, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbrfsx( &trans, &equed, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, r, c, b, &ldb, x, &ldx, rcond, berr, @@ -59,7 +59,7 @@ lapack_int LAPACKE_cgbrfsx_work( int matrix_order, char trans, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -131,11 +131,11 @@ lapack_int LAPACKE_cgbrfsx_work( int matrix_order, char trans, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_cgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_cgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_cgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbrfsx( &trans, &equed, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, r, c, b_t, &ldb_t, x_t, &ldx_t, diff --git a/lapacke/src/lapacke_cgbsv.c b/lapacke/src/lapacke_cgbsv.c index 51cc614b..84f54fd4 100644 --- a/lapacke/src/lapacke_cgbsv.c +++ b/lapacke/src/lapacke_cgbsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbsv( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_cgbsv( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif - return LAPACKE_cgbsv_work( matrix_order, n, kl, ku, nrhs, ab, ldab, ipiv, b, + return LAPACKE_cgbsv_work( matrix_layout, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_cgbsv_work.c b/lapacke/src/lapacke_cgbsv_work.c index db2fc6fb..a8573d20 100644 --- a/lapacke/src/lapacke_cgbsv_work.c +++ b/lapacke/src/lapacke_cgbsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_cgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbsv( &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); lapack_complex_float* ab_t = NULL; @@ -77,9 +77,9 @@ lapack_int LAPACKE_cgbsv_work( int matrix_order, lapack_int n, lapack_int kl, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_cgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbsv( &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_cgbsvx.c b/lapacke/src/lapacke_cgbsvx.c index 6ce7156b..c54a41aa 100644 --- a/lapacke/src/lapacke_cgbsvx.c +++ b/lapacke/src/lapacke_cgbsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgbsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, @@ -46,22 +46,22 @@ lapack_int LAPACKE_cgbsvx( int matrix_order, char fact, char trans, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -16; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -90,7 +90,7 @@ lapack_int LAPACKE_cgbsvx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgbsvx_work( matrix_order, fact, trans, n, kl, ku, nrhs, ab, + info = LAPACKE_cgbsvx_work( matrix_layout, fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Backup significant data from working array(s) */ diff --git a/lapacke/src/lapacke_cgbsvx_work.c b/lapacke/src/lapacke_cgbsvx_work.c index 9d0f66c7..35c4927b 100644 --- a/lapacke/src/lapacke_cgbsvx_work.c +++ b/lapacke/src/lapacke_cgbsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgbsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, @@ -45,7 +45,7 @@ lapack_int LAPACKE_cgbsvx_work( int matrix_order, char fact, char trans, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbsvx( &fact, &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, equed, r, c, b, &ldb, x, &ldx, rcond, ferr, @@ -53,7 +53,7 @@ lapack_int LAPACKE_cgbsvx_work( int matrix_order, char fact, char trans, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -111,12 +111,12 @@ lapack_int LAPACKE_cgbsvx_work( int matrix_order, char fact, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_cgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_cgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_cgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbsvx( &fact, &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, equed, r, c, b_t, &ldb_t, x_t, &ldx_t, diff --git a/lapacke/src/lapacke_cgbsvxx.c b/lapacke/src/lapacke_cgbsvxx.c index 247b4f8d..07410c7d 100644 --- a/lapacke/src/lapacke_cgbsvxx.c +++ b/lapacke/src/lapacke_cgbsvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbsvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgbsvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, @@ -48,22 +48,22 @@ lapack_int LAPACKE_cgbsvxx( int matrix_order, char fact, char trans, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbsvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -16; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -97,7 +97,7 @@ lapack_int LAPACKE_cgbsvxx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgbsvxx_work( matrix_order, fact, trans, n, kl, ku, nrhs, ab, + info = LAPACKE_cgbsvxx_work( matrix_layout, fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, diff --git a/lapacke/src/lapacke_cgbsvxx_work.c b/lapacke/src/lapacke_cgbsvxx_work.c index 931580f7..a9d66da0 100644 --- a/lapacke/src/lapacke_cgbsvxx_work.c +++ b/lapacke/src/lapacke_cgbsvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_cgbsvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, @@ -48,7 +48,7 @@ lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbsvxx( &fact, &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, equed, r, c, b, &ldb, x, &ldx, rcond, @@ -57,7 +57,7 @@ lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -129,12 +129,12 @@ lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_cgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_cgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_cgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbsvxx( &fact, &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, equed, r, c, b_t, &ldb_t, x_t, @@ -160,9 +160,9 @@ lapack_int LAPACKE_cgbsvxx_work( int matrix_order, char fact, char trans, } LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_cgbtrf.c b/lapacke/src/lapacke_cgbtrf.c index 689c943a..5475f019 100644 --- a/lapacke/src/lapacke_cgbtrf.c +++ b/lapacke/src/lapacke_cgbtrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbtrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbtrf( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, lapack_complex_float* ab, lapack_int ldab, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbtrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, m, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, m, n, kl, kl+ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_cgbtrf_work( matrix_order, m, n, kl, ku, ab, ldab, ipiv ); + return LAPACKE_cgbtrf_work( matrix_layout, m, n, kl, ku, ab, ldab, ipiv ); } diff --git a/lapacke/src/lapacke_cgbtrf_work.c b/lapacke/src/lapacke_cgbtrf_work.c index 0e01ab2b..c2ff5017 100644 --- a/lapacke/src/lapacke_cgbtrf_work.c +++ b/lapacke/src/lapacke_cgbtrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbtrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, lapack_complex_float* ab, lapack_int ldab, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbtrf( &m, &n, &kl, &ku, ab, &ldab, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_complex_float* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cgbtrf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, m, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_cgb_trans( matrix_layout, m, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbtrf( &m, &n, &kl, &ku, ab_t, &ldab_t, ipiv, &info ); diff --git a/lapacke/src/lapacke_cgbtrs.c b/lapacke/src/lapacke_cgbtrs.c index 2a836420..321f6154 100644 --- a/lapacke/src/lapacke_cgbtrs.c +++ b/lapacke/src/lapacke_cgbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbtrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgbtrs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_cgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } #endif - return LAPACKE_cgbtrs_work( matrix_order, trans, n, kl, ku, nrhs, ab, ldab, + return LAPACKE_cgbtrs_work( matrix_layout, trans, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_cgbtrs_work.c b/lapacke/src/lapacke_cgbtrs_work.c index 272b72cd..179ee57a 100644 --- a/lapacke/src/lapacke_cgbtrs_work.c +++ b/lapacke/src/lapacke_cgbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgbtrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgbtrs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgbtrs( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); lapack_complex_float* ab_t = NULL; @@ -78,9 +78,9 @@ lapack_int LAPACKE_cgbtrs_work( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_cgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cgbtrs( &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_cgebak.c b/lapacke/src/lapacke_cgebak.c index d9fd9471..57c0f683 100644 --- a/lapacke/src/lapacke_cgebak.c +++ b/lapacke/src/lapacke_cgebak.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgebak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_cgebak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* scale, lapack_int m, lapack_complex_float* v, lapack_int ldv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgebak", -1 ); return -1; } @@ -47,10 +47,10 @@ lapack_int LAPACKE_cgebak( int matrix_order, char job, char side, lapack_int n, if( LAPACKE_s_nancheck( n, scale, 1 ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, m, v, ldv ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, m, v, ldv ) ) { return -9; } #endif - return LAPACKE_cgebak_work( matrix_order, job, side, n, ilo, ihi, scale, m, + return LAPACKE_cgebak_work( matrix_layout, job, side, n, ilo, ihi, scale, m, v, ldv ); } diff --git a/lapacke/src/lapacke_cgebak_work.c b/lapacke/src/lapacke_cgebak_work.c index 4dd5dcd0..54a8c272 100644 --- a/lapacke/src/lapacke_cgebak_work.c +++ b/lapacke/src/lapacke_cgebak_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgebak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_cgebak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* scale, lapack_int m, lapack_complex_float* v, lapack_int ldv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgebak( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldv_t = MAX(1,n); lapack_complex_float* v_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cgebak_work( int matrix_order, char job, char side, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, m, v, ldv, v_t, ldv_t ); + LAPACKE_cge_trans( matrix_layout, n, m, v, ldv, v_t, ldv_t ); /* Call LAPACK function and adjust info */ LAPACK_cgebak( &job, &side, &n, &ilo, &ihi, scale, &m, v_t, &ldv_t, &info ); diff --git a/lapacke/src/lapacke_cgebal.c b/lapacke/src/lapacke_cgebal.c index 8e46f944..17b43e5a 100644 --- a/lapacke/src/lapacke_cgebal.c +++ b/lapacke/src/lapacke_cgebal.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgebal( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_cgebal( int matrix_layout, char job, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, float* scale ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgebal", -1 ); return -1; } @@ -45,10 +45,10 @@ lapack_int LAPACKE_cgebal( int matrix_order, char job, lapack_int n, /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'p' ) || LAPACKE_lsame( job, 's' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } } #endif - return LAPACKE_cgebal_work( matrix_order, job, n, a, lda, ilo, ihi, scale ); + return LAPACKE_cgebal_work( matrix_layout, job, n, a, lda, ilo, ihi, scale ); } diff --git a/lapacke/src/lapacke_cgebal_work.c b/lapacke/src/lapacke_cgebal_work.c index e997bc76..3ddb042a 100644 --- a/lapacke/src/lapacke_cgebal_work.c +++ b/lapacke/src/lapacke_cgebal_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgebal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_cgebal_work( int matrix_layout, char job, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, float* scale ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgebal( &job, &n, a, &lda, ilo, ihi, scale, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgebal_work( int matrix_order, char job, lapack_int n, /* Transpose input matrices */ if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'p' ) || LAPACKE_lsame( job, 's' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); } /* Call LAPACK function and adjust info */ LAPACK_cgebal( &job, &n, a_t, &lda_t, ilo, ihi, scale, &info ); diff --git a/lapacke/src/lapacke_cgebrd.c b/lapacke/src/lapacke_cgebrd.c index 604724c0..8cbe2f8c 100644 --- a/lapacke/src/lapacke_cgebrd.c +++ b/lapacke/src/lapacke_cgebrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgebrd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgebrd( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* d, float* e, lapack_complex_float* tauq, lapack_complex_float* taup ) @@ -42,18 +42,18 @@ lapack_int LAPACKE_cgebrd( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgebrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgebrd_work( matrix_order, m, n, a, lda, d, e, tauq, taup, + info = LAPACKE_cgebrd_work( matrix_layout, m, n, a, lda, d, e, tauq, taup, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgebrd( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgebrd_work( matrix_order, m, n, a, lda, d, e, tauq, taup, + info = LAPACKE_cgebrd_work( matrix_layout, m, n, a, lda, d, e, tauq, taup, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgebrd_work.c b/lapacke/src/lapacke_cgebrd_work.c index 9476b88e..f4a58abb 100644 --- a/lapacke/src/lapacke_cgebrd_work.c +++ b/lapacke/src/lapacke_cgebrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgebrd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgebrd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* d, float* e, lapack_complex_float* tauq, lapack_complex_float* taup, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgebrd( &m, &n, a, &lda, d, e, tauq, taup, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -69,7 +69,7 @@ lapack_int LAPACKE_cgebrd_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgebrd( &m, &n, a_t, &lda_t, d, e, tauq, taup, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cgecon.c b/lapacke/src/lapacke_cgecon.c index 356dd196..f0707d05 100644 --- a/lapacke/src/lapacke_cgecon.c +++ b/lapacke/src/lapacke_cgecon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgecon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_cgecon( int matrix_layout, char norm, lapack_int n, const lapack_complex_float* a, lapack_int lda, float anorm, float* rcond ) { lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgecon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } if( LAPACKE_s_nancheck( 1, &anorm, 1 ) ) { @@ -66,7 +66,7 @@ lapack_int LAPACKE_cgecon( int matrix_order, char norm, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgecon_work( matrix_order, norm, n, a, lda, anorm, rcond, + info = LAPACKE_cgecon_work( matrix_layout, norm, n, a, lda, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgecon_work.c b/lapacke/src/lapacke_cgecon_work.c index 53540b6c..0738b322 100644 --- a/lapacke/src/lapacke_cgecon_work.c +++ b/lapacke/src/lapacke_cgecon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgecon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_cgecon_work( int matrix_layout, char norm, lapack_int n, const lapack_complex_float* a, lapack_int lda, float anorm, float* rcond, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgecon( &norm, &n, a, &lda, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cgecon_work( int matrix_order, char norm, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgecon( &norm, &n, a_t, &lda_t, &anorm, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cgeequ.c b/lapacke/src/lapacke_cgeequ.c index 8f1f7100..2c6ac8e1 100644 --- a/lapacke/src/lapacke_cgeequ.c +++ b/lapacke/src/lapacke_cgeequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeequ( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_cgeequ_work( matrix_order, m, n, a, lda, r, c, rowcnd, + return LAPACKE_cgeequ_work( matrix_layout, m, n, a, lda, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_cgeequ_work.c b/lapacke/src/lapacke_cgeequ_work.c index 7bc17ee1..4d6c695c 100644 --- a/lapacke/src/lapacke_cgeequ_work.c +++ b/lapacke/src/lapacke_cgeequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeequ_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeequ( &m, &n, a, &lda, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cgeequ_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeequ( &m, &n, a_t, &lda_t, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgeequb.c b/lapacke/src/lapacke_cgeequb.c index 3644b949..0daf9fc6 100644 --- a/lapacke/src/lapacke_cgeequb.c +++ b/lapacke/src/lapacke_cgeequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeequb( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_cgeequb_work( matrix_order, m, n, a, lda, r, c, rowcnd, + return LAPACKE_cgeequb_work( matrix_layout, m, n, a, lda, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_cgeequb_work.c b/lapacke/src/lapacke_cgeequb_work.c index 90bbf86e..32d4389d 100644 --- a/lapacke/src/lapacke_cgeequb_work.c +++ b/lapacke/src/lapacke_cgeequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeequb_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeequb( &m, &n, a, &lda, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cgeequb_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeequb( &m, &n, a_t, &lda_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_cgees.c b/lapacke/src/lapacke_cgees.c index 87eb258d..55314bb3 100644 --- a/lapacke/src/lapacke_cgees.c +++ b/lapacke/src/lapacke_cgees.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgees( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_cgees( int matrix_layout, char jobvs, char sort, LAPACK_C_SELECT1 select, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* sdim, lapack_complex_float* w, @@ -45,13 +45,13 @@ lapack_int LAPACKE_cgees( int matrix_order, char jobvs, char sort, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgees", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_cgees( int matrix_order, char jobvs, char sort, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_cgees_work( matrix_order, jobvs, sort, select, n, a, lda, + info = LAPACKE_cgees_work( matrix_layout, jobvs, sort, select, n, a, lda, sdim, w, vs, ldvs, &work_query, lwork, rwork, bwork ); if( info != 0 ) { @@ -85,7 +85,7 @@ lapack_int LAPACKE_cgees( int matrix_order, char jobvs, char sort, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cgees_work( matrix_order, jobvs, sort, select, n, a, lda, + info = LAPACKE_cgees_work( matrix_layout, jobvs, sort, select, n, a, lda, sdim, w, vs, ldvs, work, lwork, rwork, bwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgees_work.c b/lapacke/src/lapacke_cgees_work.c index effcf689..6fb70e4f 100644 --- a/lapacke/src/lapacke_cgees_work.c +++ b/lapacke/src/lapacke_cgees_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgees_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_cgees_work( int matrix_layout, char jobvs, char sort, LAPACK_C_SELECT1 select, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* sdim, lapack_complex_float* w, @@ -42,14 +42,14 @@ lapack_int LAPACKE_cgees_work( int matrix_order, char jobvs, char sort, float* rwork, lapack_logical* bwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgees( &jobvs, &sort, select, &n, a, &lda, sdim, w, vs, &ldvs, work, &lwork, rwork, bwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvs_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -88,7 +88,7 @@ lapack_int LAPACKE_cgees_work( int matrix_order, char jobvs, char sort, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgees( &jobvs, &sort, select, &n, a_t, &lda_t, sdim, w, vs_t, &ldvs_t, work, &lwork, rwork, bwork, &info ); diff --git a/lapacke/src/lapacke_cgeesx.c b/lapacke/src/lapacke_cgeesx.c index 0bbde524..0e61a580 100644 --- a/lapacke/src/lapacke_cgeesx.c +++ b/lapacke/src/lapacke_cgeesx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeesx( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_cgeesx( int matrix_layout, char jobvs, char sort, LAPACK_C_SELECT1 select, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* sdim, lapack_complex_float* w, @@ -46,13 +46,13 @@ lapack_int LAPACKE_cgeesx( int matrix_order, char jobvs, char sort, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeesx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } #endif @@ -71,7 +71,7 @@ lapack_int LAPACKE_cgeesx( int matrix_order, char jobvs, char sort, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_cgeesx_work( matrix_order, jobvs, sort, select, sense, n, a, + info = LAPACKE_cgeesx_work( matrix_layout, jobvs, sort, select, sense, n, a, lda, sdim, w, vs, ldvs, rconde, rcondv, &work_query, lwork, rwork, bwork ); if( info != 0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_cgeesx( int matrix_order, char jobvs, char sort, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cgeesx_work( matrix_order, jobvs, sort, select, sense, n, a, + info = LAPACKE_cgeesx_work( matrix_layout, jobvs, sort, select, sense, n, a, lda, sdim, w, vs, ldvs, rconde, rcondv, work, lwork, rwork, bwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cgeesx_work.c b/lapacke/src/lapacke_cgeesx_work.c index 55f0d44a..969cf2a9 100644 --- a/lapacke/src/lapacke_cgeesx_work.c +++ b/lapacke/src/lapacke_cgeesx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeesx_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_cgeesx_work( int matrix_layout, char jobvs, char sort, LAPACK_C_SELECT1 select, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* sdim, @@ -44,7 +44,7 @@ lapack_int LAPACKE_cgeesx_work( int matrix_order, char jobvs, char sort, float* rwork, lapack_logical* bwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeesx( &jobvs, &sort, select, &sense, &n, a, &lda, sdim, w, vs, &ldvs, rconde, rcondv, work, &lwork, rwork, bwork, @@ -52,7 +52,7 @@ lapack_int LAPACKE_cgeesx_work( int matrix_order, char jobvs, char sort, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvs_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -92,7 +92,7 @@ lapack_int LAPACKE_cgeesx_work( int matrix_order, char jobvs, char sort, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeesx( &jobvs, &sort, select, &sense, &n, a_t, &lda_t, sdim, w, vs_t, &ldvs_t, rconde, rcondv, work, &lwork, rwork, diff --git a/lapacke/src/lapacke_cgeev.c b/lapacke/src/lapacke_cgeev.c index 5a0a2365..75084a20 100644 --- a/lapacke/src/lapacke_cgeev.c +++ b/lapacke/src/lapacke_cgeev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_cgeev( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* w, lapack_complex_float* vl, lapack_int ldvl, lapack_complex_float* vr, @@ -44,13 +44,13 @@ lapack_int LAPACKE_cgeev( int matrix_order, char jobvl, char jobvr, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeev", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_cgeev( int matrix_order, char jobvl, char jobvr, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_cgeev_work( matrix_order, jobvl, jobvr, n, a, lda, w, vl, + info = LAPACKE_cgeev_work( matrix_layout, jobvl, jobvr, n, a, lda, w, vl, ldvl, vr, ldvr, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -75,7 +75,7 @@ lapack_int LAPACKE_cgeev( int matrix_order, char jobvl, char jobvr, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgeev_work( matrix_order, jobvl, jobvr, n, a, lda, w, vl, + info = LAPACKE_cgeev_work( matrix_layout, jobvl, jobvr, n, a, lda, w, vl, ldvl, vr, ldvr, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgeev_work.c b/lapacke/src/lapacke_cgeev_work.c index 10b43fcf..a9728de6 100644 --- a/lapacke/src/lapacke_cgeev_work.c +++ b/lapacke/src/lapacke_cgeev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_cgeev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* w, lapack_complex_float* vl, lapack_int ldvl, @@ -42,14 +42,14 @@ lapack_int LAPACKE_cgeev_work( int matrix_order, char jobvl, char jobvr, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeev( &jobvl, &jobvr, &n, a, &lda, w, vl, &ldvl, vr, &ldvr, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -104,7 +104,7 @@ lapack_int LAPACKE_cgeev_work( int matrix_order, char jobvl, char jobvr, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeev( &jobvl, &jobvr, &n, a_t, &lda_t, w, vl_t, &ldvl_t, vr_t, &ldvr_t, work, &lwork, rwork, &info ); diff --git a/lapacke/src/lapacke_cgeevx.c b/lapacke/src/lapacke_cgeevx.c index 77de9b01..c3f62ccb 100644 --- a/lapacke/src/lapacke_cgeevx.c +++ b/lapacke/src/lapacke_cgeevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_cgeevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* w, lapack_complex_float* vl, @@ -47,13 +47,13 @@ lapack_int LAPACKE_cgeevx( int matrix_order, char balanc, char jobvl, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeevx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } #endif @@ -64,7 +64,7 @@ lapack_int LAPACKE_cgeevx( int matrix_order, char balanc, char jobvl, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_cgeevx_work( matrix_order, balanc, jobvl, jobvr, sense, n, a, + info = LAPACKE_cgeevx_work( matrix_layout, balanc, jobvl, jobvr, sense, n, a, lda, w, vl, ldvl, vr, ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, &work_query, lwork, rwork ); @@ -80,7 +80,7 @@ lapack_int LAPACKE_cgeevx( int matrix_order, char balanc, char jobvl, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgeevx_work( matrix_order, balanc, jobvl, jobvr, sense, n, a, + info = LAPACKE_cgeevx_work( matrix_layout, balanc, jobvl, jobvr, sense, n, a, lda, w, vl, ldvl, vr, ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, work, lwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cgeevx_work.c b/lapacke/src/lapacke_cgeevx_work.c index 43587209..25cd2ac0 100644 --- a/lapacke/src/lapacke_cgeevx_work.c +++ b/lapacke/src/lapacke_cgeevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_cgeevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* w, @@ -45,7 +45,7 @@ lapack_int LAPACKE_cgeevx_work( int matrix_order, char balanc, char jobvl, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, w, vl, &ldvl, vr, &ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, @@ -53,7 +53,7 @@ lapack_int LAPACKE_cgeevx_work( int matrix_order, char balanc, char jobvl, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -109,7 +109,7 @@ lapack_int LAPACKE_cgeevx_work( int matrix_order, char balanc, char jobvl, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeevx( &balanc, &jobvl, &jobvr, &sense, &n, a_t, &lda_t, w, vl_t, &ldvl_t, vr_t, &ldvr_t, ilo, ihi, scale, abnrm, diff --git a/lapacke/src/lapacke_cgehrd.c b/lapacke/src/lapacke_cgehrd.c index b6ca55e1..1c3b3c05 100644 --- a/lapacke/src/lapacke_cgehrd.c +++ b/lapacke/src/lapacke_cgehrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgehrd( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_cgehrd( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_cgehrd( int matrix_order, lapack_int n, lapack_int ilo, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgehrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgehrd_work( matrix_order, n, ilo, ihi, a, lda, tau, + info = LAPACKE_cgehrd_work( matrix_layout, n, ilo, ihi, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_cgehrd( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgehrd_work( matrix_order, n, ilo, ihi, a, lda, tau, work, + info = LAPACKE_cgehrd_work( matrix_layout, n, ilo, ihi, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgehrd_work.c b/lapacke/src/lapacke_cgehrd_work.c index 4809f83b..9dab47e1 100644 --- a/lapacke/src/lapacke_cgehrd_work.c +++ b/lapacke/src/lapacke_cgehrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_cgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgehrd( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_cgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgehrd( &n, &ilo, &ihi, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgelq2.c b/lapacke/src/lapacke_cgelq2.c index da178308..52eebf61 100644 --- a/lapacke/src/lapacke_cgelq2.c +++ b/lapacke/src/lapacke_cgelq2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelq2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelq2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgelq2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_cgelq2( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgelq2_work( matrix_order, m, n, a, lda, tau, work ); + info = LAPACKE_cgelq2_work( matrix_layout, m, n, a, lda, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cgelq2_work.c b/lapacke/src/lapacke_cgelq2_work.c index 9dc62cf9..de5a8e45 100644 --- a/lapacke/src/lapacke_cgelq2_work.c +++ b/lapacke/src/lapacke_cgelq2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelq2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelq2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgelq2( &m, &n, a, &lda, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cgelq2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgelq2( &m, &n, a_t, &lda_t, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgelqf.c b/lapacke/src/lapacke_cgelqf.c index 323a2de3..f35b664d 100644 --- a/lapacke/src/lapacke_cgelqf.c +++ b/lapacke/src/lapacke_cgelqf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelqf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_cgelqf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgelqf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgelqf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_cgelqf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_cgelqf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgelqf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_cgelqf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cgelqf_work.c b/lapacke/src/lapacke_cgelqf_work.c index 34f631dc..ae7eb9bc 100644 --- a/lapacke/src/lapacke_cgelqf_work.c +++ b/lapacke/src/lapacke_cgelqf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgelqf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgelqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgelqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgels.c b/lapacke/src/lapacke_cgels.c index 6011f49b..18a5126f 100644 --- a/lapacke/src/lapacke_cgels.c +++ b/lapacke/src/lapacke_cgels.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgels( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_cgels( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) @@ -42,21 +42,21 @@ lapack_int LAPACKE_cgels( int matrix_order, char trans, lapack_int m, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgels", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgels_work( matrix_order, trans, m, n, nrhs, a, lda, b, ldb, + info = LAPACKE_cgels_work( matrix_layout, trans, m, n, nrhs, a, lda, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -70,7 +70,7 @@ lapack_int LAPACKE_cgels( int matrix_order, char trans, lapack_int m, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgels_work( matrix_order, trans, m, n, nrhs, a, lda, b, ldb, + info = LAPACKE_cgels_work( matrix_layout, trans, m, n, nrhs, a, lda, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgels_work.c b/lapacke/src/lapacke_cgels_work.c index d1440378..c041f843 100644 --- a/lapacke/src/lapacke_cgels_work.c +++ b/lapacke/src/lapacke_cgels_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgels_work( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_cgels_work( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgels( &trans, &m, &n, &nrhs, a, &lda, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); lapack_complex_float* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_cgels_work( int matrix_order, char trans, lapack_int m, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cgels( &trans, &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cgelsd.c b/lapacke/src/lapacke_cgelsd.c index 4e1a3973..77d2e430 100644 --- a/lapacke/src/lapacke_cgelsd.c +++ b/lapacke/src/lapacke_cgelsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelsd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelsd( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* s, float rcond, @@ -50,16 +50,16 @@ lapack_int LAPACKE_cgelsd( int matrix_order, lapack_int m, lapack_int n, lapack_int iwork_query; float rwork_query; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgelsd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &rcond, 1 ) ) { @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgelsd( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgelsd_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_cgelsd_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, &work_query, lwork, &rwork_query, &iwork_query ); if( info != 0 ) { @@ -94,7 +94,7 @@ lapack_int LAPACKE_cgelsd( int matrix_order, lapack_int m, lapack_int n, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cgelsd_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_cgelsd_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, rwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgelsd_work.c b/lapacke/src/lapacke_cgelsd_work.c index 62e74b5c..16894672 100644 --- a/lapacke/src/lapacke_cgelsd_work.c +++ b/lapacke/src/lapacke_cgelsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelsd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelsd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* s, float rcond, @@ -42,14 +42,14 @@ lapack_int LAPACKE_cgelsd_work( int matrix_order, lapack_int m, lapack_int n, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgelsd( &m, &n, &nrhs, a, &lda, b, &ldb, s, &rcond, rank, work, &lwork, rwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); lapack_complex_float* a_t = NULL; @@ -86,8 +86,8 @@ lapack_int LAPACKE_cgelsd_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cgelsd( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, s, &rcond, rank, work, &lwork, rwork, iwork, &info ); diff --git a/lapacke/src/lapacke_cgelss.c b/lapacke/src/lapacke_cgelss.c index e8524bf7..f03a62f7 100644 --- a/lapacke/src/lapacke_cgelss.c +++ b/lapacke/src/lapacke_cgelss.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelss( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelss( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* s, float rcond, @@ -44,16 +44,16 @@ lapack_int LAPACKE_cgelss( int matrix_order, lapack_int m, lapack_int n, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgelss", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &rcond, 1 ) ) { @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgelss( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_cgelss_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_cgelss_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -81,7 +81,7 @@ lapack_int LAPACKE_cgelss( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgelss_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_cgelss_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgelss_work.c b/lapacke/src/lapacke_cgelss_work.c index 48db13c9..13edc376 100644 --- a/lapacke/src/lapacke_cgelss_work.c +++ b/lapacke/src/lapacke_cgelss_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelss_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelss_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float* s, float rcond, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cgelss_work( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgelss( &m, &n, &nrhs, a, &lda, b, &ldb, s, &rcond, rank, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); lapack_complex_float* a_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_cgelss_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cgelss( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, s, &rcond, rank, work, &lwork, rwork, &info ); diff --git a/lapacke/src/lapacke_cgelsy.c b/lapacke/src/lapacke_cgelsy.c index 06e05e90..447e94c8 100644 --- a/lapacke/src/lapacke_cgelsy.c +++ b/lapacke/src/lapacke_cgelsy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelsy( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelsy( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_int* jpvt, float rcond, @@ -44,16 +44,16 @@ lapack_int LAPACKE_cgelsy( int matrix_order, lapack_int m, lapack_int n, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgelsy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &rcond, 1 ) ) { @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgelsy( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_cgelsy_work( matrix_order, m, n, nrhs, a, lda, b, ldb, jpvt, + info = LAPACKE_cgelsy_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -81,7 +81,7 @@ lapack_int LAPACKE_cgelsy( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgelsy_work( matrix_order, m, n, nrhs, a, lda, b, ldb, jpvt, + info = LAPACKE_cgelsy_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgelsy_work.c b/lapacke/src/lapacke_cgelsy_work.c index 8a60ec74..fa4e42ba 100644 --- a/lapacke/src/lapacke_cgelsy_work.c +++ b/lapacke/src/lapacke_cgelsy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgelsy_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgelsy_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_int* jpvt, float rcond, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cgelsy_work( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgelsy( &m, &n, &nrhs, a, &lda, b, &ldb, jpvt, &rcond, rank, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); lapack_complex_float* a_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_cgelsy_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cgelsy( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, jpvt, &rcond, rank, work, &lwork, rwork, &info ); diff --git a/lapacke/src/lapacke_cgemqrt.c b/lapacke/src/lapacke_cgemqrt.c index 826d5c43..8d12a474 100644 --- a/lapacke/src/lapacke_cgemqrt.c +++ b/lapacke/src/lapacke_cgemqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgemqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_cgemqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, @@ -42,19 +42,19 @@ lapack_int LAPACKE_cgemqrt( int matrix_order, char side, char trans, { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgemqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -12; } - if( LAPACKE_cge_nancheck( matrix_order, ldt, nb, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, ldt, nb, t, ldt ) ) { return -10; } - if( LAPACKE_cge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -8; } #endif @@ -66,7 +66,7 @@ lapack_int LAPACKE_cgemqrt( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgemqrt_work( matrix_order, side, trans, m, n, k, nb, v, ldv, + info = LAPACKE_cgemqrt_work( matrix_layout, side, trans, m, n, k, nb, v, ldv, t, ldt, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgemqrt_work.c b/lapacke/src/lapacke_cgemqrt_work.c index c6ea2d78..de161333 100644 --- a/lapacke/src/lapacke_cgemqrt_work.c +++ b/lapacke/src/lapacke_cgemqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgemqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cgemqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cgemqrt_work( int matrix_order, char side, char trans, lapack_int ldc, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgemqrt( &side, &trans, &m, &n, &k, &nb, v, &ldv, t, &ldt, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,m); lapack_int ldt_t = MAX(1,ldt); lapack_int ldv_t = MAX(1,ldv); @@ -91,9 +91,9 @@ lapack_int LAPACKE_cgemqrt_work( int matrix_order, char side, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_cge_trans( matrix_order, ldt, nb, t, ldt, t_t, ldt_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_cge_trans( matrix_layout, ldt, nb, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cgemqrt( &side, &trans, &m, &n, &k, &nb, v_t, &ldv_t, t_t, &ldt_t, c_t, &ldc_t, work, &info ); diff --git a/lapacke/src/lapacke_cgeqlf.c b/lapacke/src/lapacke_cgeqlf.c index e64a1527..ab4524b3 100644 --- a/lapacke/src/lapacke_cgeqlf.c +++ b/lapacke/src/lapacke_cgeqlf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqlf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqlf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_cgeqlf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqlf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgeqlf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_cgeqlf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_cgeqlf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgeqlf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_cgeqlf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cgeqlf_work.c b/lapacke/src/lapacke_cgeqlf_work.c index e633c7c2..0f873ca0 100644 --- a/lapacke/src/lapacke_cgeqlf_work.c +++ b/lapacke/src/lapacke_cgeqlf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqlf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqlf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgeqlf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqlf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgeqp3.c b/lapacke/src/lapacke_cgeqp3.c index e91931a0..fd787a67 100644 --- a/lapacke/src/lapacke_cgeqp3.c +++ b/lapacke/src/lapacke_cgeqp3.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqp3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqp3( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* jpvt, lapack_complex_float* tau ) { @@ -42,13 +42,13 @@ lapack_int LAPACKE_cgeqp3( int matrix_order, lapack_int m, lapack_int n, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqp3", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -59,7 +59,7 @@ lapack_int LAPACKE_cgeqp3( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_cgeqp3_work( matrix_order, m, n, a, lda, jpvt, tau, + info = LAPACKE_cgeqp3_work( matrix_layout, m, n, a, lda, jpvt, tau, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -73,7 +73,7 @@ lapack_int LAPACKE_cgeqp3( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgeqp3_work( matrix_order, m, n, a, lda, jpvt, tau, work, + info = LAPACKE_cgeqp3_work( matrix_layout, m, n, a, lda, jpvt, tau, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgeqp3_work.c b/lapacke/src/lapacke_cgeqp3_work.c index a6c6c5df..40a99f45 100644 --- a/lapacke/src/lapacke_cgeqp3_work.c +++ b/lapacke/src/lapacke_cgeqp3_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqp3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* jpvt, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqp3( &m, &n, a, &lda, jpvt, tau, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -69,7 +69,7 @@ lapack_int LAPACKE_cgeqp3_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqp3( &m, &n, a_t, &lda_t, jpvt, tau, work, &lwork, rwork, &info ); diff --git a/lapacke/src/lapacke_cgeqpf.c b/lapacke/src/lapacke_cgeqpf.c index 1fcef81c..80ebcbbe 100644 --- a/lapacke/src/lapacke_cgeqpf.c +++ b/lapacke/src/lapacke_cgeqpf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqpf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqpf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* jpvt, lapack_complex_float* tau ) { lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqpf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -63,7 +63,7 @@ lapack_int LAPACKE_cgeqpf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgeqpf_work( matrix_order, m, n, a, lda, jpvt, tau, work, + info = LAPACKE_cgeqpf_work( matrix_layout, m, n, a, lda, jpvt, tau, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgeqpf_work.c b/lapacke/src/lapacke_cgeqpf_work.c index 80b29728..7f523c51 100644 --- a/lapacke/src/lapacke_cgeqpf_work.c +++ b/lapacke/src/lapacke_cgeqpf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqpf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* jpvt, lapack_complex_float* tau, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqpf( &m, &n, a, &lda, jpvt, tau, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cgeqpf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqpf( &m, &n, a_t, &lda_t, jpvt, tau, work, rwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgeqr2.c b/lapacke/src/lapacke_cgeqr2.c index 1f15fa6f..a8fceead 100644 --- a/lapacke/src/lapacke_cgeqr2.c +++ b/lapacke/src/lapacke_cgeqr2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqr2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqr2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqr2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_cgeqr2( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgeqr2_work( matrix_order, m, n, a, lda, tau, work ); + info = LAPACKE_cgeqr2_work( matrix_layout, m, n, a, lda, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cgeqr2_work.c b/lapacke/src/lapacke_cgeqr2_work.c index 0247d0cc..845f0e33 100644 --- a/lapacke/src/lapacke_cgeqr2_work.c +++ b/lapacke/src/lapacke_cgeqr2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqr2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqr2( &m, &n, a, &lda, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cgeqr2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqr2( &m, &n, a_t, &lda_t, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgeqrf.c b/lapacke/src/lapacke_cgeqrf.c index 5e280dab..b0afad10 100644 --- a/lapacke/src/lapacke_cgeqrf.c +++ b/lapacke/src/lapacke_cgeqrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_cgeqrf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgeqrf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_cgeqrf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_cgeqrf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgeqrf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_cgeqrf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cgeqrf_work.c b/lapacke/src/lapacke_cgeqrf_work.c index c9725d0c..8f6f15b7 100644 --- a/lapacke/src/lapacke_cgeqrf_work.c +++ b/lapacke/src/lapacke_cgeqrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqrf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgeqrf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqrf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgeqrfp.c b/lapacke/src/lapacke_cgeqrfp.c index 47259bab..f7af174b 100644 --- a/lapacke/src/lapacke_cgeqrfp.c +++ b/lapacke/src/lapacke_cgeqrfp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrfp( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrfp( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_cgeqrfp( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqrfp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgeqrfp_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_cgeqrfp_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_cgeqrfp( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgeqrfp_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_cgeqrfp_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cgeqrfp_work.c b/lapacke/src/lapacke_cgeqrfp_work.c index dd2153e7..65974fbc 100644 --- a/lapacke/src/lapacke_cgeqrfp_work.c +++ b/lapacke/src/lapacke_cgeqrfp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqrfp( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqrfp( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgeqrt.c b/lapacke/src/lapacke_cgeqrt.c index e83897a9..9aec4f6c 100644 --- a/lapacke/src/lapacke_cgeqrt.c +++ b/lapacke/src/lapacke_cgeqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -58,7 +58,7 @@ lapack_int LAPACKE_cgeqrt( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgeqrt_work( matrix_order, m, n, nb, a, lda, t, ldt, work ); + info = LAPACKE_cgeqrt_work( matrix_layout, m, n, nb, a, lda, t, ldt, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cgeqrt2.c b/lapacke/src/lapacke_cgeqrt2.c index 994b465a..30cd71dd 100644 --- a/lapacke/src/lapacke_cgeqrt2.c +++ b/lapacke/src/lapacke_cgeqrt2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrt2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqrt2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_cgeqrt2_work( matrix_order, m, n, a, lda, t, ldt ); + return LAPACKE_cgeqrt2_work( matrix_layout, m, n, a, lda, t, ldt ); } diff --git a/lapacke/src/lapacke_cgeqrt2_work.c b/lapacke/src/lapacke_cgeqrt2_work.c index 22b45063..098ffae3 100644 --- a/lapacke/src/lapacke_cgeqrt2_work.c +++ b/lapacke/src/lapacke_cgeqrt2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqrt2( &m, &n, a, &lda, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_cgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqrt2( &m, &n, a_t, &lda_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgeqrt3.c b/lapacke/src/lapacke_cgeqrt3.c index 13ae01a1..d2baaf5a 100644 --- a/lapacke/src/lapacke_cgeqrt3.c +++ b/lapacke/src/lapacke_cgeqrt3.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrt3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt3( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgeqrt3", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_cgeqrt3_work( matrix_order, m, n, a, lda, t, ldt ); + return LAPACKE_cgeqrt3_work( matrix_layout, m, n, a, lda, t, ldt ); } diff --git a/lapacke/src/lapacke_cgeqrt3_work.c b/lapacke/src/lapacke_cgeqrt3_work.c index 602a9497..eb2ac229 100644 --- a/lapacke/src/lapacke_cgeqrt3_work.c +++ b/lapacke/src/lapacke_cgeqrt3_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqrt3( &m, &n, a, &lda, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_cgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqrt3( &m, &n, a_t, &lda_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgeqrt_work.c b/lapacke/src/lapacke_cgeqrt_work.c index 99fdb546..e4f03bfd 100644 --- a/lapacke/src/lapacke_cgeqrt_work.c +++ b/lapacke/src/lapacke_cgeqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgeqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, lapack_complex_float* a, lapack_int lda, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgeqrt( &m, &n, &nb, a, &lda, t, &ldt, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,ldt); lapack_complex_float* a_t = NULL; @@ -76,7 +76,7 @@ lapack_int LAPACKE_cgeqrt_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgerfs.c b/lapacke/src/lapacke_cgerfs.c index c4f6c2e0..92a2e729 100644 --- a/lapacke/src/lapacke_cgerfs.c +++ b/lapacke/src/lapacke_cgerfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgerfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgerfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -44,22 +44,22 @@ lapack_int LAPACKE_cgerfs( int matrix_order, char trans, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgerfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_cgerfs( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgerfs_work( matrix_order, trans, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_cgerfs_work( matrix_layout, trans, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgerfs_work.c b/lapacke/src/lapacke_cgerfs_work.c index a4a42478..f003839d 100644 --- a/lapacke/src/lapacke_cgerfs_work.c +++ b/lapacke/src/lapacke_cgerfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgerfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_cgerfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_cgerfs_work( int matrix_order, char trans, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgerfs( &trans, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -108,10 +108,10 @@ lapack_int LAPACKE_cgerfs_work( int matrix_order, char trans, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cgerfs( &trans, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cgerfsx.c b/lapacke/src/lapacke_cgerfsx.c index 38ca161b..7f896722 100644 --- a/lapacke/src/lapacke_cgerfsx.c +++ b/lapacke/src/lapacke_cgerfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgerfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_cgerfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, @@ -48,19 +48,19 @@ lapack_int LAPACKE_cgerfsx( int matrix_order, char trans, char equed, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgerfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( LAPACKE_lsame( equed, 'b' ) || LAPACKE_lsame( equed, 'c' ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_cgerfsx( int matrix_order, char trans, char equed, return -11; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -15; } #endif @@ -95,7 +95,7 @@ lapack_int LAPACKE_cgerfsx( int matrix_order, char trans, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cgerfsx_work( matrix_order, trans, equed, n, nrhs, a, lda, + info = LAPACKE_cgerfsx_work( matrix_layout, trans, equed, n, nrhs, a, lda, af, ldaf, ipiv, r, c, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_cgerfsx_work.c b/lapacke/src/lapacke_cgerfsx_work.c index e02121fd..35b8a2b6 100644 --- a/lapacke/src/lapacke_cgerfsx_work.c +++ b/lapacke/src/lapacke_cgerfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgerfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_cgerfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, @@ -48,7 +48,7 @@ lapack_int LAPACKE_cgerfsx_work( int matrix_order, char trans, char equed, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgerfsx( &trans, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, r, c, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -57,7 +57,7 @@ lapack_int LAPACKE_cgerfsx_work( int matrix_order, char trans, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -129,10 +129,10 @@ lapack_int LAPACKE_cgerfsx_work( int matrix_order, char trans, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cgerfsx( &trans, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, r, c, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_cgerqf.c b/lapacke/src/lapacke_cgerqf.c index c1ce4578..870523af 100644 --- a/lapacke/src/lapacke_cgerqf.c +++ b/lapacke/src/lapacke_cgerqf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgerqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgerqf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_cgerqf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgerqf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cgerqf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_cgerqf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_cgerqf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cgerqf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_cgerqf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cgerqf_work.c b/lapacke/src/lapacke_cgerqf_work.c index e9e6a569..b6856401 100644 --- a/lapacke/src/lapacke_cgerqf_work.c +++ b/lapacke/src/lapacke_cgerqf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cgerqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgerqf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cgerqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cgerqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cgesdd.c b/lapacke/src/lapacke_cgesdd.c index f7498557..b42bad2b 100644 --- a/lapacke/src/lapacke_cgesdd.c +++ b/lapacke/src/lapacke_cgesdd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_cgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu, lapack_complex_float* vt, @@ -47,13 +47,13 @@ lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgesdd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_cgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_cgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, &work_query, lwork, rwork, iwork ); if( info != 0 ) { goto exit_level_2; @@ -90,7 +90,7 @@ lapack_int LAPACKE_cgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_cgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cgesdd_work.c b/lapacke/src/lapacke_cgesdd_work.c index ad27f696..7a4b3d2a 100644 --- a/lapacke/src/lapacke_cgesdd_work.c +++ b/lapacke/src/lapacke_cgesdd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cgesdd_work( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_cgesdd_work( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu, @@ -42,14 +42,14 @@ lapack_int LAPACKE_cgesdd_work( int matrix_order, char jobz, lapack_int m, float* rwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cgesdd( &jobz, &m, &n, a, &lda, s, u, &ldu, vt, &ldvt, work, &lwork, rwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_u = ( LAPACKE_lsame( jobz, 'a' ) || LAPACKE_lsame( jobz, 's' ) || ( LAPACKE_lsame( jobz, 'o' ) && m0 ) { @@ -72,7 +72,7 @@ lapack_int LAPACKE_cherfsx( int matrix_order, char uplo, char equed, return -11; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -89,7 +89,7 @@ lapack_int LAPACKE_cherfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cherfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_cherfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, ipiv, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_cherfsx_work.c b/lapacke/src/lapacke_cherfsx_work.c index d75b16b5..ef3bc14b 100644 --- a/lapacke/src/lapacke_cherfsx_work.c +++ b/lapacke/src/lapacke_cherfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cherfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_cherfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, @@ -47,7 +47,7 @@ lapack_int LAPACKE_cherfsx_work( int matrix_order, char uplo, char equed, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cherfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -56,7 +56,7 @@ lapack_int LAPACKE_cherfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -128,10 +128,10 @@ lapack_int LAPACKE_cherfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_che_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cherfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_chesv.c b/lapacke/src/lapacke_chesv.c index f60900bc..dc4e25d6 100644 --- a/lapacke/src/lapacke_chesv.c +++ b/lapacke/src/lapacke_chesv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chesv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chesv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) @@ -42,21 +42,21 @@ lapack_int LAPACKE_chesv( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chesv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_chesv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_chesv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -70,7 +70,7 @@ lapack_int LAPACKE_chesv( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chesv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_chesv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chesv_work.c b/lapacke/src/lapacke_chesv_work.c index e77f7a12..dbcdef40 100644 --- a/lapacke/src/lapacke_chesv_work.c +++ b/lapacke/src/lapacke_chesv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chesv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chesv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chesv( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_chesv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_chesv( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_chesvx.c b/lapacke/src/lapacke_chesvx.c index 08266e45..78af8fdd 100644 --- a/lapacke/src/lapacke_chesvx.c +++ b/lapacke/src/lapacke_chesvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chesvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_chesvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, lapack_int* ipiv, @@ -46,21 +46,21 @@ lapack_int LAPACKE_chesvx( int matrix_order, char fact, char uplo, lapack_int n, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chesvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_che_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -11; } #endif @@ -71,7 +71,7 @@ lapack_int LAPACKE_chesvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_chesvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_chesvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, &work_query, lwork, rwork ); if( info != 0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_chesvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chesvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_chesvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, lwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_chesvx_work.c b/lapacke/src/lapacke_chesvx_work.c index 7903539d..7744ed42 100644 --- a/lapacke/src/lapacke_chesvx_work.c +++ b/lapacke/src/lapacke_chesvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chesvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_chesvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -44,7 +44,7 @@ lapack_int LAPACKE_chesvx_work( int matrix_order, char fact, char uplo, lapack_int lwork, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chesvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, &lwork, rwork, @@ -52,7 +52,7 @@ lapack_int LAPACKE_chesvx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -117,11 +117,11 @@ lapack_int LAPACKE_chesvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_che_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_chesvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, diff --git a/lapacke/src/lapacke_chesvxx.c b/lapacke/src/lapacke_chesvxx.c index 9c908b33..f88131d9 100644 --- a/lapacke/src/lapacke_chesvxx.c +++ b/lapacke/src/lapacke_chesvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chesvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_chesvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -48,21 +48,21 @@ lapack_int LAPACKE_chesvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chesvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_che_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( nparams>0 ) { @@ -89,7 +89,7 @@ lapack_int LAPACKE_chesvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chesvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_chesvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_chesvxx_work.c b/lapacke/src/lapacke_chesvxx_work.c index f014850f..52bcd71a 100644 --- a/lapacke/src/lapacke_chesvxx_work.c +++ b/lapacke/src/lapacke_chesvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_chesvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -47,7 +47,7 @@ lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chesvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, @@ -56,7 +56,7 @@ lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -128,11 +128,11 @@ lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_che_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_chesvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, @@ -154,9 +154,9 @@ lapack_int LAPACKE_chesvxx_work( int matrix_order, char fact, char uplo, } LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_cheswapr.c b/lapacke/src/lapacke_cheswapr.c index 40869557..cceacba1 100644 --- a/lapacke/src/lapacke_cheswapr.c +++ b/lapacke/src/lapacke_cheswapr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cheswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cheswapr( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int i1, lapack_int i2 ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cheswapr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, n ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, n ) ) { return -4; } #endif - return LAPACKE_cheswapr_work( matrix_order, uplo, n, a, i1, i2 ); + return LAPACKE_cheswapr_work( matrix_layout, uplo, n, a, i1, i2 ); } diff --git a/lapacke/src/lapacke_cheswapr_work.c b/lapacke/src/lapacke_cheswapr_work.c index ea9ad283..ce4eae5d 100644 --- a/lapacke/src/lapacke_cheswapr_work.c +++ b/lapacke/src/lapacke_cheswapr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cheswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cheswapr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int i1, lapack_int i2 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cheswapr( &uplo, &n, a, &i1, &i2 ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_cheswapr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, n, a_t, n ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, n, a_t, n ); /* Call LAPACK function and adjust info */ LAPACK_cheswapr( &uplo, &n, a_t, &i1, &i2 ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_chetrd.c b/lapacke/src/lapacke_chetrd.c index efceac03..6f9cf1ce 100644 --- a/lapacke/src/lapacke_chetrd.c +++ b/lapacke/src/lapacke_chetrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrd( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float* d, float* e, lapack_complex_float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_chetrd( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chetrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_chetrd_work( matrix_order, uplo, n, a, lda, d, e, tau, + info = LAPACKE_chetrd_work( matrix_layout, uplo, n, a, lda, d, e, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_chetrd( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chetrd_work( matrix_order, uplo, n, a, lda, d, e, tau, work, + info = LAPACKE_chetrd_work( matrix_layout, uplo, n, a, lda, d, e, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chetrd_work.c b/lapacke/src/lapacke_chetrd_work.c index de8fd5ad..3d4b4763 100644 --- a/lapacke/src/lapacke_chetrd_work.c +++ b/lapacke/src/lapacke_chetrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrd_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, float* d, float* e, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chetrd( &uplo, &n, a, &lda, d, e, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_chetrd_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_chetrd( &uplo, &n, a_t, &lda_t, d, e, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chetrf.c b/lapacke/src/lapacke_chetrf.c index 4f0a6f5d..763b0a26 100644 --- a/lapacke/src/lapacke_chetrf.c +++ b/lapacke/src/lapacke_chetrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_chetrf( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chetrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_chetrf_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_chetrf_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_chetrf( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chetrf_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_chetrf_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chetrf_work.c b/lapacke/src/lapacke_chetrf_work.c index 3eddb49b..402ae16e 100644 --- a/lapacke/src/lapacke_chetrf_work.c +++ b/lapacke/src/lapacke_chetrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chetrf( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_chetrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_chetrf( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chetri.c b/lapacke/src/lapacke_chetri.c index 531f387f..1384bf72 100644 --- a/lapacke/src/lapacke_chetri.c +++ b/lapacke/src/lapacke_chetri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chetri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_chetri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chetri_work( matrix_order, uplo, n, a, lda, ipiv, work ); + info = LAPACKE_chetri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_chetri2.c b/lapacke/src/lapacke_chetri2.c index 38afda4a..69408572 100644 --- a/lapacke/src/lapacke_chetri2.c +++ b/lapacke/src/lapacke_chetri2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri2( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_chetri2( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chetri2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_chetri2_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_chetri2_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_chetri2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chetri2_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_chetri2_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chetri2_work.c b/lapacke/src/lapacke_chetri2_work.c index 3029cf42..4a9cbe0c 100644 --- a/lapacke/src/lapacke_chetri2_work.c +++ b/lapacke/src/lapacke_chetri2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri2_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chetri2( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_chetri2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_chetri2( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chetri2x.c b/lapacke/src/lapacke_chetri2x.c index 406aa2db..5f7316c0 100644 --- a/lapacke/src/lapacke_chetri2x.c +++ b/lapacke/src/lapacke_chetri2x.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri2x( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chetri2x", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, lda, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, lda, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_chetri2x( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chetri2x_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_chetri2x_work( matrix_layout, uplo, n, a, lda, ipiv, work, nb ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chetri2x_work.c b/lapacke/src/lapacke_chetri2x_work.c index fbe26b6e..410e665d 100644 --- a/lapacke/src/lapacke_chetri2x_work.c +++ b/lapacke/src/lapacke_chetri2x_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri2x_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int nb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chetri2x( &uplo, &n, a, &lda, ipiv, work, &nb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,lda); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_chetri2x_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, lda, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, lda, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_chetri2x( &uplo, &n, a_t, &lda_t, ipiv, work, &nb, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chetri_work.c b/lapacke/src/lapacke_chetri_work.c index c6fda459..48c339b2 100644 --- a/lapacke/src/lapacke_chetri_work.c +++ b/lapacke/src/lapacke_chetri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chetri( &uplo, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_chetri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_chetri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chetrs.c b/lapacke/src/lapacke_chetrs.c index 6da2e839..c2fa3a91 100644 --- a/lapacke/src/lapacke_chetrs.c +++ b/lapacke/src/lapacke_chetrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chetrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_chetrs_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + return LAPACKE_chetrs_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_chetrs2.c b/lapacke/src/lapacke_chetrs2.c index 4a54e986..13a6c1dd 100644 --- a/lapacke/src/lapacke_chetrs2.c +++ b/lapacke/src/lapacke_chetrs2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrs2( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chetrs2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_chetrs2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chetrs2_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_chetrs2_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chetrs2_work.c b/lapacke/src/lapacke_chetrs2_work.c index 555b8b72..7e6359ac 100644 --- a/lapacke/src/lapacke_chetrs2_work.c +++ b/lapacke/src/lapacke_chetrs2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetrs2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrs2_work( int matrix_layout, char uplo, lapack_int n, 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 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chetrs2( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -77,8 +77,8 @@ lapack_int LAPACKE_chetrs2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_chetrs2( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_chetrs_work.c b/lapacke/src/lapacke_chetrs_work.c index c9e5d32d..76a9cf63 100644 --- a/lapacke/src/lapacke_chetrs_work.c +++ b/lapacke/src/lapacke_chetrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chetrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chetrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chetrs( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_chetrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_chetrs( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_chfrk.c b/lapacke/src/lapacke_chfrk.c index 15d98570..a86c66ea 100644 --- a/lapacke/src/lapacke_chfrk.c +++ b/lapacke/src/lapacke_chfrk.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_chfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, float alpha, const lapack_complex_float* a, lapack_int lda, float beta, lapack_complex_float* c ) { lapack_int ka, na; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chfrk", -1 ); return -1; } @@ -47,7 +47,7 @@ lapack_int LAPACKE_chfrk( int matrix_order, char transr, char uplo, char trans, /* Optionally check input matrices for NaNs */ ka = LAPACKE_lsame( trans, 'n' ) ? k : n; na = LAPACKE_lsame( trans, 'n' ) ? n : k; - if( LAPACKE_cge_nancheck( matrix_order, na, ka, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, na, ka, a, lda ) ) { return -8; } if( LAPACKE_s_nancheck( 1, &alpha, 1 ) ) { @@ -60,6 +60,6 @@ lapack_int LAPACKE_chfrk( int matrix_order, char transr, char uplo, char trans, return -11; } #endif - return LAPACKE_chfrk_work( matrix_order, transr, uplo, trans, n, k, alpha, + return LAPACKE_chfrk_work( matrix_layout, transr, uplo, trans, n, k, alpha, a, lda, beta, c ); } diff --git a/lapacke/src/lapacke_chfrk_work.c b/lapacke/src/lapacke_chfrk_work.c index 04ae4745..cdb7a00b 100644 --- a/lapacke/src/lapacke_chfrk_work.c +++ b/lapacke/src/lapacke_chfrk_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chfrk_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_chfrk_work( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, float alpha, const lapack_complex_float* a, lapack_int lda, float beta, @@ -42,14 +42,14 @@ lapack_int LAPACKE_chfrk_work( int matrix_order, char transr, char uplo, lapack_int info = 0; lapack_int na, ka, lda_t; lapack_complex_float *a_t = NULL, *c_t = NULL; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chfrk( &transr, &uplo, &trans, &n, &k, &alpha, a, &lda, &beta, c ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { na = LAPACKE_lsame( trans, 'n' ) ? n : k; ka = LAPACKE_lsame( trans, 'n' ) ? k : n; lda_t = MAX(1,na); @@ -74,8 +74,8 @@ lapack_int LAPACKE_chfrk_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, na, ka, a, lda, a_t, lda_t ); - LAPACKE_cpf_trans( matrix_order, transr, uplo, n, c, c_t ); + LAPACKE_cge_trans( matrix_layout, na, ka, a, lda, a_t, lda_t ); + LAPACKE_cpf_trans( matrix_layout, transr, uplo, n, c, c_t ); /* Call LAPACK function and adjust info */ LAPACK_chfrk( &transr, &uplo, &trans, &n, &k, &alpha, a_t, &lda_t, &beta, c_t ); diff --git a/lapacke/src/lapacke_chgeqz.c b/lapacke/src/lapacke_chgeqz.c index 997f5c01..8541c771 100644 --- a/lapacke/src/lapacke_chgeqz.c +++ b/lapacke/src/lapacke_chgeqz.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chgeqz( int matrix_order, char job, char compq, char compz, +lapack_int LAPACKE_chgeqz( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* h, lapack_int ldh, lapack_complex_float* t, lapack_int ldt, @@ -47,25 +47,25 @@ lapack_int LAPACKE_chgeqz( int matrix_order, char job, char compq, char compz, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chgeqz", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, h, ldh ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, h, ldh ) ) { return -8; } if( LAPACKE_lsame( compq, 'i' ) || LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -14; } } - if( LAPACKE_cge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -10; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -16; } } @@ -77,7 +77,7 @@ lapack_int LAPACKE_chgeqz( int matrix_order, char job, char compq, char compz, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_chgeqz_work( matrix_order, job, compq, compz, n, ilo, ihi, h, + info = LAPACKE_chgeqz_work( matrix_layout, job, compq, compz, n, ilo, ihi, h, ldh, t, ldt, alpha, beta, q, ldq, z, ldz, &work_query, lwork, rwork ); if( info != 0 ) { @@ -92,7 +92,7 @@ lapack_int LAPACKE_chgeqz( int matrix_order, char job, char compq, char compz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chgeqz_work( matrix_order, job, compq, compz, n, ilo, ihi, h, + info = LAPACKE_chgeqz_work( matrix_layout, job, compq, compz, n, ilo, ihi, h, ldh, t, ldt, alpha, beta, q, ldq, z, ldz, work, lwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_chgeqz_work.c b/lapacke/src/lapacke_chgeqz_work.c index c1201ecd..e445a6b9 100644 --- a/lapacke/src/lapacke_chgeqz_work.c +++ b/lapacke/src/lapacke_chgeqz_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chgeqz_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_chgeqz_work( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* h, lapack_int ldh, lapack_complex_float* t, @@ -45,7 +45,7 @@ lapack_int LAPACKE_chgeqz_work( int matrix_order, char job, char compq, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chgeqz( &job, &compq, &compz, &n, &ilo, &ihi, h, &ldh, t, &ldt, alpha, beta, q, &ldq, z, &ldz, work, &lwork, rwork, @@ -53,7 +53,7 @@ lapack_int LAPACKE_chgeqz_work( int matrix_order, char job, char compq, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldh_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); @@ -122,13 +122,13 @@ lapack_int LAPACKE_chgeqz_work( int matrix_order, char job, char compq, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, h, ldh, h_t, ldh_t ); - LAPACKE_cge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, n, n, h, ldh, h_t, ldh_t ); + LAPACKE_cge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_cge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_cge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_chgeqz( &job, &compq, &compz, &n, &ilo, &ihi, h_t, &ldh_t, t_t, diff --git a/lapacke/src/lapacke_chpcon.c b/lapacke/src/lapacke_chpcon.c index 32b7a2d9..798752dc 100644 --- a/lapacke/src/lapacke_chpcon.c +++ b/lapacke/src/lapacke_chpcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chpcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_int* ipiv, float anorm, float* rcond ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpcon", -1 ); return -1; } @@ -60,7 +60,7 @@ lapack_int LAPACKE_chpcon( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chpcon_work( matrix_order, uplo, n, ap, ipiv, anorm, rcond, + info = LAPACKE_chpcon_work( matrix_layout, uplo, n, ap, ipiv, anorm, rcond, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chpcon_work.c b/lapacke/src/lapacke_chpcon_work.c index 5a68adf1..302430d4 100644 --- a/lapacke/src/lapacke_chpcon_work.c +++ b/lapacke/src/lapacke_chpcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chpcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_int* ipiv, float anorm, float* rcond, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpcon( &uplo, &n, ap, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_chpcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chpcon( &uplo, &n, ap_t, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chpev.c b/lapacke/src/lapacke_chpev.c index 5ae87d9b..c5bfdb6b 100644 --- a/lapacke/src/lapacke_chpev.c +++ b/lapacke/src/lapacke_chpev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_chpev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, float* w, lapack_complex_float* z, lapack_int ldz ) { lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpev", -1 ); return -1; } @@ -63,7 +63,7 @@ lapack_int LAPACKE_chpev( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chpev_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, work, + info = LAPACKE_chpev_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chpev_work.c b/lapacke/src/lapacke_chpev_work.c index 05144c93..f3eeb53f 100644 --- a/lapacke/src/lapacke_chpev_work.c +++ b/lapacke/src/lapacke_chpev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_chpev_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, float* w, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpev( &jobz, &uplo, &n, ap, w, z, &ldz, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; lapack_complex_float* ap_t = NULL; @@ -73,7 +73,7 @@ lapack_int LAPACKE_chpev_work( int matrix_order, char jobz, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chpev( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, rwork, &info ); diff --git a/lapacke/src/lapacke_chpevd.c b/lapacke/src/lapacke_chpevd.c index 9458d5e3..90c380b4 100644 --- a/lapacke/src/lapacke_chpevd.c +++ b/lapacke/src/lapacke_chpevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_chpevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, float* w, lapack_complex_float* z, lapack_int ldz ) { @@ -47,7 +47,7 @@ lapack_int LAPACKE_chpevd( int matrix_order, char jobz, char uplo, lapack_int n, lapack_int iwork_query; float rwork_query; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpevd", -1 ); return -1; } @@ -58,7 +58,7 @@ lapack_int LAPACKE_chpevd( int matrix_order, char jobz, char uplo, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_chpevd_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_chpevd_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, &work_query, lwork, &rwork_query, lrwork, &iwork_query, liwork ); if( info != 0 ) { @@ -85,7 +85,7 @@ lapack_int LAPACKE_chpevd( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_chpevd_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_chpevd_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chpevd_work.c b/lapacke/src/lapacke_chpevd_work.c index 467c8aeb..d601a66f 100644 --- a/lapacke/src/lapacke_chpevd_work.c +++ b/lapacke/src/lapacke_chpevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_chpevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, float* w, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, @@ -42,14 +42,14 @@ lapack_int LAPACKE_chpevd_work( int matrix_order, char jobz, char uplo, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpevd( &jobz, &uplo, &n, ap, w, z, &ldz, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; lapack_complex_float* ap_t = NULL; @@ -83,7 +83,7 @@ lapack_int LAPACKE_chpevd_work( int matrix_order, char jobz, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chpevd( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_chpevx.c b/lapacke/src/lapacke_chpevx.c index f2f78104..8a8c1cf1 100644 --- a/lapacke/src/lapacke_chpevx.c +++ b/lapacke/src/lapacke_chpevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_chpevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* ap, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, lapack_complex_float* z, @@ -43,7 +43,7 @@ lapack_int LAPACKE_chpevx( int matrix_order, char jobz, char range, char uplo, lapack_int* iwork = NULL; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpevx", -1 ); return -1; } @@ -84,7 +84,7 @@ lapack_int LAPACKE_chpevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_chpevx_work( matrix_order, jobz, range, uplo, n, ap, vl, vu, + info = LAPACKE_chpevx_work( matrix_layout, jobz, range, uplo, n, ap, vl, vu, il, iu, abstol, m, w, z, ldz, work, rwork, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_chpevx_work.c b/lapacke/src/lapacke_chpevx_work.c index 066d30e4..00d70f82 100644 --- a/lapacke/src/lapacke_chpevx_work.c +++ b/lapacke/src/lapacke_chpevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_chpevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* ap, float vl, float vu, lapack_int il, lapack_int iu, float abstol, @@ -43,7 +43,7 @@ lapack_int LAPACKE_chpevx_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpevx( &jobz, &range, &uplo, &n, ap, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, rwork, iwork, ifail, @@ -51,7 +51,7 @@ lapack_int LAPACKE_chpevx_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -82,7 +82,7 @@ lapack_int LAPACKE_chpevx_work( int matrix_order, char jobz, char range, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chpevx( &jobz, &range, &uplo, &n, ap_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, rwork, iwork, ifail, diff --git a/lapacke/src/lapacke_chpgst.c b/lapacke/src/lapacke_chpgst.c index 6091e4f3..a74b215e 100644 --- a/lapacke/src/lapacke_chpgst.c +++ b/lapacke/src/lapacke_chpgst.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpgst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_chpgst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_complex_float* bp ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpgst", -1 ); return -1; } @@ -50,5 +50,5 @@ lapack_int LAPACKE_chpgst( int matrix_order, lapack_int itype, char uplo, return -6; } #endif - return LAPACKE_chpgst_work( matrix_order, itype, uplo, n, ap, bp ); + return LAPACKE_chpgst_work( matrix_layout, itype, uplo, n, ap, bp ); } diff --git a/lapacke/src/lapacke_chpgst_work.c b/lapacke/src/lapacke_chpgst_work.c index d5b3997d..43389f67 100644 --- a/lapacke/src/lapacke_chpgst_work.c +++ b/lapacke/src/lapacke_chpgst_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpgst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_chpgst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_complex_float* bp ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpgst( &itype, &uplo, &n, ap, bp, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; lapack_complex_float* bp_t = NULL; /* Allocate memory for temporary array(s) */ @@ -63,8 +63,8 @@ lapack_int LAPACKE_chpgst_work( int matrix_order, lapack_int itype, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_chpgst( &itype, &uplo, &n, ap_t, bp_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chpgv.c b/lapacke/src/lapacke_chpgv.c index 3701fbfb..a809f9c8 100644 --- a/lapacke/src/lapacke_chpgv.c +++ b/lapacke/src/lapacke_chpgv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpgv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float* w, lapack_complex_float* z, lapack_int ldz ) @@ -41,7 +41,7 @@ lapack_int LAPACKE_chpgv( int matrix_order, lapack_int itype, char jobz, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpgv", -1 ); return -1; } @@ -67,7 +67,7 @@ lapack_int LAPACKE_chpgv( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chpgv_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, z, + info = LAPACKE_chpgv_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chpgv_work.c b/lapacke/src/lapacke_chpgv_work.c index e4975cdd..2c74af48 100644 --- a/lapacke/src/lapacke_chpgv_work.c +++ b/lapacke/src/lapacke_chpgv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float* w, @@ -41,14 +41,14 @@ lapack_int LAPACKE_chpgv_work( int matrix_order, lapack_int itype, char jobz, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpgv( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; lapack_complex_float* ap_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_chpgv_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_chpgv( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, rwork, &info ); diff --git a/lapacke/src/lapacke_chpgvd.c b/lapacke/src/lapacke_chpgvd.c index f67f735e..f825466c 100644 --- a/lapacke/src/lapacke_chpgvd.c +++ b/lapacke/src/lapacke_chpgvd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpgvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float* w, lapack_complex_float* z, lapack_int ldz ) @@ -48,7 +48,7 @@ lapack_int LAPACKE_chpgvd( int matrix_order, lapack_int itype, char jobz, lapack_int iwork_query; float rwork_query; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpgvd", -1 ); return -1; } @@ -62,7 +62,7 @@ lapack_int LAPACKE_chpgvd( int matrix_order, lapack_int itype, char jobz, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_chpgvd_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, + info = LAPACKE_chpgvd_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, &work_query, lwork, &rwork_query, lrwork, &iwork_query, liwork ); if( info != 0 ) { @@ -89,7 +89,7 @@ lapack_int LAPACKE_chpgvd( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_chpgvd_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, + info = LAPACKE_chpgvd_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_chpgvd_work.c b/lapacke/src/lapacke_chpgvd_work.c index 70fc69d6..3b3833e5 100644 --- a/lapacke/src/lapacke_chpgvd_work.c +++ b/lapacke/src/lapacke_chpgvd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpgvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float* w, @@ -43,14 +43,14 @@ lapack_int LAPACKE_chpgvd_work( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpgvd( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; lapack_complex_float* ap_t = NULL; @@ -92,8 +92,8 @@ lapack_int LAPACKE_chpgvd_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_chpgvd( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_chpgvx.c b/lapacke/src/lapacke_chpgvx.c index 537fe7ad..8f39f81b 100644 --- a/lapacke/src/lapacke_chpgvx.c +++ b/lapacke/src/lapacke_chpgvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpgvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float vl, float vu, lapack_int il, lapack_int iu, @@ -45,7 +45,7 @@ lapack_int LAPACKE_chpgvx( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork = NULL; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpgvx", -1 ); return -1; } @@ -89,7 +89,7 @@ lapack_int LAPACKE_chpgvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_chpgvx_work( matrix_order, itype, jobz, range, uplo, n, ap, + info = LAPACKE_chpgvx_work( matrix_layout, itype, jobz, range, uplo, n, ap, bp, vl, vu, il, iu, abstol, m, w, z, ldz, work, rwork, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_chpgvx_work.c b/lapacke/src/lapacke_chpgvx_work.c index 983d8bca..7ada7820 100644 --- a/lapacke/src/lapacke_chpgvx_work.c +++ b/lapacke/src/lapacke_chpgvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpgvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_chpgvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_float* ap, lapack_complex_float* bp, float vl, float vu, @@ -44,7 +44,7 @@ lapack_int LAPACKE_chpgvx_work( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpgvx( &itype, &jobz, &range, &uplo, &n, ap, bp, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, rwork, iwork, ifail, @@ -52,7 +52,7 @@ lapack_int LAPACKE_chpgvx_work( int matrix_order, lapack_int itype, char jobz, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -91,8 +91,8 @@ lapack_int LAPACKE_chpgvx_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_chpgvx( &itype, &jobz, &range, &uplo, &n, ap_t, bp_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, rwork, iwork, diff --git a/lapacke/src/lapacke_chprfs.c b/lapacke/src/lapacke_chprfs.c index 04613d23..4d43361f 100644 --- a/lapacke/src/lapacke_chprfs.c +++ b/lapacke/src/lapacke_chprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_int* ipiv, @@ -44,7 +44,7 @@ lapack_int LAPACKE_chprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chprfs", -1 ); return -1; } @@ -56,10 +56,10 @@ lapack_int LAPACKE_chprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_chp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_chprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chprfs_work( matrix_order, uplo, n, nrhs, ap, afp, ipiv, b, + info = LAPACKE_chprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chprfs_work.c b/lapacke/src/lapacke_chprfs_work.c index f1cacd1b..8b3f77d2 100644 --- a/lapacke/src/lapacke_chprfs_work.c +++ b/lapacke/src/lapacke_chprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_chprfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chprfs( &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -98,10 +98,10 @@ lapack_int LAPACKE_chprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_chprfs( &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_chpsv.c b/lapacke/src/lapacke_chpsv.c index d1f6ebb1..2aa98e4c 100644 --- a/lapacke/src/lapacke_chpsv.c +++ b/lapacke/src/lapacke_chpsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chpsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpsv", -1 ); return -1; } @@ -47,9 +47,9 @@ lapack_int LAPACKE_chpsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_chp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_chpsv_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_chpsv_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_chpsv_work.c b/lapacke/src/lapacke_chpsv_work.c index 2a446f9e..1952b438 100644 --- a/lapacke/src/lapacke_chpsv_work.c +++ b/lapacke/src/lapacke_chpsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chpsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpsv( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; lapack_complex_float* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_chpsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chpsv( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chpsvx.c b/lapacke/src/lapacke_chpsvx.c index 3f877cc2..c63293e5 100644 --- a/lapacke/src/lapacke_chpsvx.c +++ b/lapacke/src/lapacke_chpsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_chpsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* afp, lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_chpsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chpsvx", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_chpsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_chp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_chpsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chpsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_chpsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_chpsvx_work.c b/lapacke/src/lapacke_chpsvx_work.c index 9bd79648..4fcde4b3 100644 --- a/lapacke/src/lapacke_chpsvx_work.c +++ b/lapacke/src/lapacke_chpsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chpsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_chpsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* afp, lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_chpsvx_work( int matrix_order, char fact, char uplo, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chpsvx( &fact, &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -98,10 +98,10 @@ lapack_int LAPACKE_chpsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_chp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_chpsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_chptrd.c b/lapacke/src/lapacke_chptrd.c index de763164..a09f3240 100644 --- a/lapacke/src/lapacke_chptrd.c +++ b/lapacke/src/lapacke_chptrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chptrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrd( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, float* d, float* e, lapack_complex_float* tau ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chptrd", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_chptrd( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_chptrd_work( matrix_order, uplo, n, ap, d, e, tau ); + return LAPACKE_chptrd_work( matrix_layout, uplo, n, ap, d, e, tau ); } diff --git a/lapacke/src/lapacke_chptrd_work.c b/lapacke/src/lapacke_chptrd_work.c index c7426ebe..13489995 100644 --- a/lapacke/src/lapacke_chptrd_work.c +++ b/lapacke/src/lapacke_chptrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chptrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrd_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, float* d, float* e, lapack_complex_float* tau ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chptrd( &uplo, &n, ap, d, e, tau, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -55,7 +55,7 @@ lapack_int LAPACKE_chptrd_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chptrd( &uplo, &n, ap_t, d, e, tau, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chptrf.c b/lapacke/src/lapacke_chptrf.c index db6ef458..f51b1105 100644 --- a/lapacke/src/lapacke_chptrf.c +++ b/lapacke/src/lapacke_chptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_chptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_chptrf_work( matrix_order, uplo, n, ap, ipiv ); + return LAPACKE_chptrf_work( matrix_layout, uplo, n, ap, ipiv ); } diff --git a/lapacke/src/lapacke_chptrf_work.c b/lapacke/src/lapacke_chptrf_work.c index c3a03479..9899fc59 100644 --- a/lapacke/src/lapacke_chptrf_work.c +++ b/lapacke/src/lapacke_chptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chptrf( &uplo, &n, ap, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_chptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chptrf( &uplo, &n, ap_t, ipiv, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chptri.c b/lapacke/src/lapacke_chptri.c index 35a64fc7..9e39f29e 100644 --- a/lapacke/src/lapacke_chptri.c +++ b/lapacke/src/lapacke_chptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chptri", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_chptri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chptri_work( matrix_order, uplo, n, ap, ipiv, work ); + info = LAPACKE_chptri_work( matrix_layout, uplo, n, ap, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_chptri_work.c b/lapacke/src/lapacke_chptri_work.c index 0038cb2a..7394a1b1 100644 --- a/lapacke/src/lapacke_chptri_work.c +++ b/lapacke/src/lapacke_chptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chptri( &uplo, &n, ap, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_chptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chptri( &uplo, &n, ap_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chptrs.c b/lapacke/src/lapacke_chptrs.c index 32b04ea5..447d85a7 100644 --- a/lapacke/src/lapacke_chptrs.c +++ b/lapacke/src/lapacke_chptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chptrs", -1 ); return -1; } @@ -47,9 +47,9 @@ lapack_int LAPACKE_chptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_chp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_chptrs_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_chptrs_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_chptrs_work.c b/lapacke/src/lapacke_chptrs_work.c index c5027704..56eeecc3 100644 --- a/lapacke/src/lapacke_chptrs_work.c +++ b/lapacke/src/lapacke_chptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_chptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chptrs( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; lapack_complex_float* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_chptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_chp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_chp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_chptrs( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_chsein.c b/lapacke/src/lapacke_chsein.c index 8ba44e88..0e6eb773 100644 --- a/lapacke/src/lapacke_chsein.c +++ b/lapacke/src/lapacke_chsein.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chsein( int matrix_order, char job, char eigsrc, char initv, +lapack_int LAPACKE_chsein( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, lapack_complex_float* vl, @@ -44,22 +44,22 @@ lapack_int LAPACKE_chsein( int matrix_order, char job, char eigsrc, char initv, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chsein", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, h, ldh ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, h, ldh ) ) { return -7; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'l' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'r' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -80,7 +80,7 @@ lapack_int LAPACKE_chsein( int matrix_order, char job, char eigsrc, char initv, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_chsein_work( matrix_order, job, eigsrc, initv, select, n, h, + info = LAPACKE_chsein_work( matrix_layout, job, eigsrc, initv, select, n, h, ldh, w, vl, ldvl, vr, ldvr, mm, m, work, rwork, ifaill, ifailr ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_chsein_work.c b/lapacke/src/lapacke_chsein_work.c index 8bb628ae..0d38a6af 100644 --- a/lapacke/src/lapacke_chsein_work.c +++ b/lapacke/src/lapacke_chsein_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chsein_work( int matrix_order, char job, char eigsrc, +lapack_int LAPACKE_chsein_work( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, @@ -44,14 +44,14 @@ lapack_int LAPACKE_chsein_work( int matrix_order, char job, char eigsrc, lapack_int* ifaill, lapack_int* ifailr ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chsein( &job, &eigsrc, &initv, select, &n, h, &ldh, w, vl, &ldvl, vr, &ldvr, &mm, m, work, rwork, ifaill, ifailr, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldh_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -100,14 +100,14 @@ lapack_int LAPACKE_chsein_work( int matrix_order, char job, char eigsrc, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, h, ldh, h_t, ldh_t ); + LAPACKE_cge_trans( matrix_layout, n, n, h, ldh, h_t, ldh_t ); if( ( LAPACKE_lsame( job, 'l' ) || LAPACKE_lsame( job, 'b' ) ) && LAPACKE_lsame( initv, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( job, 'r' ) || LAPACKE_lsame( job, 'b' ) ) && LAPACKE_lsame( initv, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_chsein( &job, &eigsrc, &initv, select, &n, h_t, &ldh_t, w, vl_t, diff --git a/lapacke/src/lapacke_chseqr.c b/lapacke/src/lapacke_chseqr.c index 19cbd0bf..bed01087 100644 --- a/lapacke/src/lapacke_chseqr.c +++ b/lapacke/src/lapacke_chseqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chseqr( int matrix_order, char job, char compz, lapack_int n, +lapack_int LAPACKE_chseqr( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, lapack_complex_float* z, @@ -43,23 +43,23 @@ lapack_int LAPACKE_chseqr( int matrix_order, char job, char compz, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_chseqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, h, ldh ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, h, ldh ) ) { return -7; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -10; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_chseqr_work( matrix_order, job, compz, n, ilo, ihi, h, ldh, + info = LAPACKE_chseqr_work( matrix_layout, job, compz, n, ilo, ihi, h, ldh, w, z, ldz, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -73,7 +73,7 @@ lapack_int LAPACKE_chseqr( int matrix_order, char job, char compz, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_chseqr_work( matrix_order, job, compz, n, ilo, ihi, h, ldh, + info = LAPACKE_chseqr_work( matrix_layout, job, compz, n, ilo, ihi, h, ldh, w, z, ldz, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_chseqr_work.c b/lapacke/src/lapacke_chseqr_work.c index 734210e6..e5c33b4f 100644 --- a/lapacke/src/lapacke_chseqr_work.c +++ b/lapacke/src/lapacke_chseqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_chseqr_work( int matrix_order, char job, char compz, +lapack_int LAPACKE_chseqr_work( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* h, lapack_int ldh, lapack_complex_float* w, @@ -41,14 +41,14 @@ lapack_int LAPACKE_chseqr_work( int matrix_order, char job, char compz, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_chseqr( &job, &compz, &n, &ilo, &ihi, h, &ldh, w, z, &ldz, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldh_t = MAX(1,n); lapack_int ldz_t = MAX(1,n); lapack_complex_float* h_t = NULL; @@ -87,9 +87,9 @@ lapack_int LAPACKE_chseqr_work( int matrix_order, char job, char compz, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, h, ldh, h_t, ldh_t ); + LAPACKE_cge_trans( matrix_layout, n, n, h, ldh, h_t, ldh_t ); if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_cge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_chseqr( &job, &compz, &n, &ilo, &ihi, h_t, &ldh_t, w, z_t, diff --git a/lapacke/src/lapacke_clacp2.c b/lapacke/src/lapacke_clacp2.c index fa7e825f..0878e624 100644 --- a/lapacke/src/lapacke_clacp2.c +++ b/lapacke/src/lapacke_clacp2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clacp2( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_clacp2( int matrix_layout, char uplo, lapack_int m, lapack_int n, const float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clacp2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif - return LAPACKE_clacp2_work( matrix_order, uplo, m, n, a, lda, b, ldb ); + return LAPACKE_clacp2_work( matrix_layout, uplo, m, n, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_clacp2_work.c b/lapacke/src/lapacke_clacp2_work.c index 479fd9c2..69ba290a 100644 --- a/lapacke/src/lapacke_clacp2_work.c +++ b/lapacke/src/lapacke_clacp2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,18 +34,18 @@ #include "lapacke.h" #include "lapacke_utils.h" -lapack_int LAPACKE_clacp2_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_clacp2_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clacp2( &uplo, &m, &n, a, &lda, b, &ldb ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,m); float* a_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_clacp2_work( int matrix_order, char uplo, lapack_int m, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_clacp2( &uplo, &m, &n, a_t, &lda_t, b_t, &ldb_t ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_clacpy.c b/lapacke/src/lapacke_clacpy.c index 976dc46b..bfc34dfa 100644 --- a/lapacke/src/lapacke_clacpy.c +++ b/lapacke/src/lapacke_clacpy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clacpy( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_clacpy( int matrix_layout, char uplo, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clacpy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif - return LAPACKE_clacpy_work( matrix_order, uplo, m, n, a, lda, b, ldb ); + return LAPACKE_clacpy_work( matrix_layout, uplo, m, n, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_clacpy_work.c b/lapacke/src/lapacke_clacpy_work.c index d7a79f73..f5e58984 100644 --- a/lapacke/src/lapacke_clacpy_work.c +++ b/lapacke/src/lapacke_clacpy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clacpy_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_clacpy_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + 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_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,m); lapack_complex_float* a_t = NULL; @@ -75,7 +75,7 @@ lapack_int LAPACKE_clacpy_work( int matrix_order, char uplo, lapack_int m, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_clacpy( &uplo, &m, &n, a_t, &lda_t, b_t, &ldb_t ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_clag2z.c b/lapacke/src/lapacke_clag2z.c index fbfe596b..05961868 100644 --- a/lapacke/src/lapacke_clag2z.c +++ b/lapacke/src/lapacke_clag2z.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clag2z( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clag2z( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* sa, lapack_int ldsa, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clag2z", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, sa, ldsa ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, sa, ldsa ) ) { return -4; } #endif - return LAPACKE_clag2z_work( matrix_order, m, n, sa, ldsa, a, lda ); + return LAPACKE_clag2z_work( matrix_layout, m, n, sa, ldsa, a, lda ); } diff --git a/lapacke/src/lapacke_clag2z_work.c b/lapacke/src/lapacke_clag2z_work.c index 4dfe9556..1a95d285 100644 --- a/lapacke/src/lapacke_clag2z_work.c +++ b/lapacke/src/lapacke_clag2z_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clag2z_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clag2z_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* sa, lapack_int ldsa, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clag2z( &m, &n, sa, &ldsa, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldsa_t = MAX(1,m); lapack_complex_float* sa_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_clag2z_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, sa, ldsa, sa_t, ldsa_t ); + LAPACKE_cge_trans( matrix_layout, m, n, sa, ldsa, sa_t, ldsa_t ); /* Call LAPACK function and adjust info */ LAPACK_clag2z( &m, &n, sa_t, &ldsa_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_clagge.c b/lapacke/src/lapacke_clagge.c index d894eca7..ee12cad7 100644 --- a/lapacke/src/lapacke_clagge.c +++ b/lapacke/src/lapacke_clagge.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clagge( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clagge( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clagge", -1 ); return -1; } @@ -58,7 +58,7 @@ lapack_int LAPACKE_clagge( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_clagge_work( matrix_order, m, n, kl, ku, d, a, lda, iseed, + info = LAPACKE_clagge_work( matrix_layout, m, n, kl, ku, d, a, lda, iseed, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_clagge_work.c b/lapacke/src/lapacke_clagge_work.c index 1c71f8ef..3ed58872 100644 --- a/lapacke/src/lapacke_clagge_work.c +++ b/lapacke/src/lapacke_clagge_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clagge_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clagge_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clagge( &m, &n, &kl, &ku, d, a, &lda, iseed, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_claghe.c b/lapacke/src/lapacke_claghe.c index 06cad1d0..10241125 100644 --- a/lapacke/src/lapacke_claghe.c +++ b/lapacke/src/lapacke_claghe.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_claghe( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_claghe( int matrix_layout, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_claghe", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_claghe( int matrix_order, lapack_int n, lapack_int k, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_claghe_work( matrix_order, n, k, d, a, lda, iseed, work ); + info = LAPACKE_claghe_work( matrix_layout, n, k, d, a, lda, iseed, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_claghe_work.c b/lapacke/src/lapacke_claghe_work.c index b200fa6e..1de49fc1 100644 --- a/lapacke/src/lapacke_claghe_work.c +++ b/lapacke/src/lapacke_claghe_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_claghe_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_claghe_work( int matrix_layout, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_claghe( &n, &k, d, a, &lda, iseed, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_clagsy.c b/lapacke/src/lapacke_clagsy.c index c59c9f9d..0260f10f 100644 --- a/lapacke/src/lapacke_clagsy.c +++ b/lapacke/src/lapacke_clagsy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clagsy( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_clagsy( int matrix_layout, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clagsy", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_clagsy( int matrix_order, lapack_int n, lapack_int k, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_clagsy_work( matrix_order, n, k, d, a, lda, iseed, work ); + info = LAPACKE_clagsy_work( matrix_layout, n, k, d, a, lda, iseed, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_clagsy_work.c b/lapacke/src/lapacke_clagsy_work.c index 0071cf02..6e730d6b 100644 --- a/lapacke/src/lapacke_clagsy_work.c +++ b/lapacke/src/lapacke_clagsy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clagsy_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_clagsy_work( int matrix_layout, lapack_int n, lapack_int k, const float* d, lapack_complex_float* a, lapack_int lda, lapack_int* iseed, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clagsy( &n, &k, d, a, &lda, iseed, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_clange.c b/lapacke/src/lapacke_clange.c index 0d78d6e5..0bc3c968 100644 --- a/lapacke/src/lapacke_clange.c +++ b/lapacke/src/lapacke_clange.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -float LAPACKE_clange( int matrix_order, char norm, lapack_int m, +float LAPACKE_clange( int matrix_layout, char norm, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; float res = 0.; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clange", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -59,7 +59,7 @@ float LAPACKE_clange( int matrix_order, char norm, lapack_int m, } } /* Call middle-level interface */ - res = LAPACKE_clange_work( matrix_order, norm, m, n, a, lda, work ); + res = LAPACKE_clange_work( matrix_layout, norm, m, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) ) { LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_clange_work.c b/lapacke/src/lapacke_clange_work.c index 12162471..2133d6da 100644 --- a/lapacke/src/lapacke_clange_work.c +++ b/lapacke/src/lapacke_clange_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -float LAPACKE_clange_work( int matrix_order, char norm, lapack_int m, +float LAPACKE_clange_work( int matrix_layout, char norm, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* work ) { lapack_int info = 0; float res = 0.; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ res = LAPACK_clange( &norm, &m, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ float LAPACKE_clange_work( int matrix_order, char norm, lapack_int m, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ res = LAPACK_clange( &norm, &m, &n, a_t, &lda_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_clanhe.c b/lapacke/src/lapacke_clanhe.c index 0a5117f9..fdbbf40c 100644 --- a/lapacke/src/lapacke_clanhe.c +++ b/lapacke/src/lapacke_clanhe.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -float LAPACKE_clanhe( int matrix_order, char norm, char uplo, lapack_int n, +float LAPACKE_clanhe( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; float res = 0.; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clanhe", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } #endif @@ -59,7 +59,7 @@ float LAPACKE_clanhe( int matrix_order, char norm, char uplo, lapack_int n, } } /* Call middle-level interface */ - res = LAPACKE_clanhe_work( matrix_order, norm, uplo, n, a, lda, work ); + res = LAPACKE_clanhe_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || LAPACKE_lsame( norm, '0' ) ) { diff --git a/lapacke/src/lapacke_clanhe_work.c b/lapacke/src/lapacke_clanhe_work.c index dbe9ffda..588d8395 100644 --- a/lapacke/src/lapacke_clanhe_work.c +++ b/lapacke/src/lapacke_clanhe_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -float LAPACKE_clanhe_work( int matrix_order, char norm, char uplo, +float LAPACKE_clanhe_work( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* work ) { lapack_int info = 0; float res = 0.; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ res = LAPACK_clanhe( &norm, &uplo, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ float LAPACKE_clanhe_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_che_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ res = LAPACK_clanhe( &norm, &uplo, &n, a_t, &lda_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_clansy.c b/lapacke/src/lapacke_clansy.c index 84a9d965..da31363f 100644 --- a/lapacke/src/lapacke_clansy.c +++ b/lapacke/src/lapacke_clansy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -float LAPACKE_clansy( int matrix_order, char norm, char uplo, lapack_int n, +float LAPACKE_clansy( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; float res = 0.; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clansy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } #endif @@ -59,7 +59,7 @@ float LAPACKE_clansy( int matrix_order, char norm, char uplo, lapack_int n, } } /* Call middle-level interface */ - res = LAPACKE_clansy_work( matrix_order, norm, uplo, n, a, lda, work ); + res = LAPACKE_clansy_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || LAPACKE_lsame( norm, '0' ) ) { diff --git a/lapacke/src/lapacke_clansy_work.c b/lapacke/src/lapacke_clansy_work.c index 8d6ff94d..5e7acead 100644 --- a/lapacke/src/lapacke_clansy_work.c +++ b/lapacke/src/lapacke_clansy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -float LAPACKE_clansy_work( int matrix_order, char norm, char uplo, +float LAPACKE_clansy_work( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* work ) { lapack_int info = 0; float res = 0.; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ res = LAPACK_clansy( &norm, &uplo, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ float LAPACKE_clansy_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ res = LAPACK_clansy( &norm, &uplo, &n, a_t, &lda_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_clantr.c b/lapacke/src/lapacke_clantr.c index 77743f2d..185bfe25 100644 --- a/lapacke/src/lapacke_clantr.c +++ b/lapacke/src/lapacke_clantr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -float LAPACKE_clantr( int matrix_order, char norm, char uplo, char diag, +float LAPACKE_clantr( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; float res = 0.; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clantr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ctr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } #endif @@ -60,7 +60,7 @@ float LAPACKE_clantr( int matrix_order, char norm, char uplo, char diag, } } /* Call middle-level interface */ - res = LAPACKE_clantr_work( matrix_order, norm, uplo, diag, m, n, a, lda, + res = LAPACKE_clantr_work( matrix_layout, norm, uplo, diag, m, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || diff --git a/lapacke/src/lapacke_clantr_work.c b/lapacke/src/lapacke_clantr_work.c index cb253a11..2ac7e88c 100644 --- a/lapacke/src/lapacke_clantr_work.c +++ b/lapacke/src/lapacke_clantr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -float LAPACKE_clantr_work( int matrix_order, char norm, char uplo, +float LAPACKE_clantr_work( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* work ) { lapack_int info = 0; float res = 0.; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ res = LAPACK_clantr( &norm, &uplo, &diag, &m, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ float LAPACKE_clantr_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ctr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_ctr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ res = LAPACK_clantr( &norm, &uplo, &diag, &m, &n, a_t, &lda_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_clapmr.c b/lapacke/src/lapacke_clapmr.c index ac7768a8..9f7fad4d 100644 --- a/lapacke/src/lapacke_clapmr.c +++ b/lapacke/src/lapacke_clapmr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clapmr( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_clapmr( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, lapack_complex_float* x, lapack_int ldx, lapack_int* k ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clapmr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, x, ldx ) ) { return -5; } #endif - return LAPACKE_clapmr_work( matrix_order, forwrd, m, n, x, ldx, k ); + return LAPACKE_clapmr_work( matrix_layout, forwrd, m, n, x, ldx, k ); } diff --git a/lapacke/src/lapacke_clapmr_work.c b/lapacke/src/lapacke_clapmr_work.c index 17a10d61..565a1abb 100644 --- a/lapacke/src/lapacke_clapmr_work.c +++ b/lapacke/src/lapacke_clapmr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clapmr_work( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_clapmr_work( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, lapack_complex_float* x, lapack_int ldx, lapack_int* k ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clapmr( &forwrd, &m, &n, x, &ldx, k ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldx_t = MAX(1,m); lapack_complex_float* x_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_clapmr_work( int matrix_order, lapack_logical forwrd, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, x, ldx, x_t, ldx_t ); + LAPACKE_cge_trans( matrix_layout, m, n, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_clapmr( &forwrd, &m, &n, x_t, &ldx_t, k ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_clarfb.c b/lapacke/src/lapacke_clarfb.c index 75442bf4..e0bc5f69 100644 --- a/lapacke/src/lapacke_clarfb.c +++ b/lapacke/src/lapacke_clarfb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_clarfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, @@ -44,7 +44,7 @@ lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct, lapack_int ldwork = ( side=='l')?n:(( side=='r')?m:1); lapack_complex_float* work = NULL; lapack_int ncols_v, nrows_v; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clarfb", -1 ); return -1; } @@ -60,16 +60,16 @@ lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct, ( ( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( side, 'r' ) ) ? n : ( LAPACKE_lsame( storev, 'r' ) ? k : 1) ); - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -13; } - if( LAPACKE_cge_nancheck( matrix_order, k, k, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, k, k, t, ldt ) ) { return -11; } if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'f' ) ) { - if( LAPACKE_ctr_nancheck( matrix_order, 'l', 'u', k, v, ldv ) ) + if( LAPACKE_ctr_nancheck( matrix_layout, 'l', 'u', k, v, ldv ) ) return -9; - if( LAPACKE_cge_nancheck( matrix_order, nrows_v-k, ncols_v, &v[k*ldv], + if( LAPACKE_cge_nancheck( matrix_layout, nrows_v-k, ncols_v, &v[k*ldv], ldv ) ) return -9; } else if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'b' ) ) { @@ -77,15 +77,15 @@ lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct, LAPACKE_xerbla( "LAPACKE_clarfb", -8 ); return -8; } - if( LAPACKE_ctr_nancheck( matrix_order, 'u', 'u', k, + if( LAPACKE_ctr_nancheck( matrix_layout, 'u', 'u', k, &v[(nrows_v-k)*ldv], ldv ) ) return -9; - if( LAPACKE_cge_nancheck( matrix_order, nrows_v-k, ncols_v, v, ldv ) ) + if( LAPACKE_cge_nancheck( matrix_layout, nrows_v-k, ncols_v, v, ldv ) ) return -9; } else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) { - if( LAPACKE_ctr_nancheck( matrix_order, 'u', 'u', k, v, ldv ) ) + if( LAPACKE_ctr_nancheck( matrix_layout, 'u', 'u', k, v, ldv ) ) return -9; - if( LAPACKE_cge_nancheck( matrix_order, nrows_v, ncols_v-k, &v[k], + if( LAPACKE_cge_nancheck( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv ) ) return -9; } else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) { @@ -93,10 +93,10 @@ lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct, LAPACKE_xerbla( "LAPACKE_clarfb", -8 ); return -8; } - if( LAPACKE_ctr_nancheck( matrix_order, 'l', 'u', k, &v[ncols_v-k], + if( LAPACKE_ctr_nancheck( matrix_layout, 'l', 'u', k, &v[ncols_v-k], ldv ) ) return -9; - if( LAPACKE_cge_nancheck( matrix_order, nrows_v, ncols_v-k, v, ldv ) ) + if( LAPACKE_cge_nancheck( matrix_layout, nrows_v, ncols_v-k, v, ldv ) ) return -9; } #endif @@ -108,7 +108,7 @@ lapack_int LAPACKE_clarfb( int matrix_order, char side, char trans, char direct, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_clarfb_work( matrix_order, side, trans, direct, storev, m, n, + info = LAPACKE_clarfb_work( matrix_layout, side, trans, direct, storev, m, n, k, v, ldv, t, ldt, c, ldc, work, ldwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_clarfb_work.c b/lapacke/src/lapacke_clarfb_work.c index f4750a45..193337d1 100644 --- a/lapacke/src/lapacke_clarfb_work.c +++ b/lapacke/src/lapacke_clarfb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* v, lapack_int ldv, @@ -45,14 +45,14 @@ lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans, lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; lapack_complex_float *v_t = NULL, *t_t = NULL, *c_t = NULL; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, &ldt, c, &ldc, work, &ldwork ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { nrows_v = ( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( side, 'l' ) ) ? m : ( ( LAPACKE_lsame( storev, 'c' ) && @@ -104,8 +104,8 @@ lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans, } /* Transpose input matrices */ if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'f' ) ) { - LAPACKE_ctr_trans( matrix_order, 'l', 'u', k, v, ldv, v_t, ldv_t ); - LAPACKE_cge_trans( matrix_order, nrows_v-k, ncols_v, &v[k*ldv], ldv, + LAPACKE_ctr_trans( matrix_layout, 'l', 'u', k, v, ldv, v_t, ldv_t ); + LAPACKE_cge_trans( matrix_layout, nrows_v-k, ncols_v, &v[k*ldv], ldv, &v_t[k], ldv_t ); } else if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'b' ) ) { @@ -113,14 +113,14 @@ lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans, LAPACKE_xerbla( "LAPACKE_clarfb_work", -8 ); return -8; } - LAPACKE_ctr_trans( matrix_order, 'u', 'u', k, &v[(nrows_v-k)*ldv], + LAPACKE_ctr_trans( matrix_layout, 'u', 'u', k, &v[(nrows_v-k)*ldv], ldv, &v_t[nrows_v-k], ldv_t ); - LAPACKE_cge_trans( matrix_order, nrows_v-k, ncols_v, v, ldv, v_t, + LAPACKE_cge_trans( matrix_layout, nrows_v-k, ncols_v, v, ldv, v_t, ldv_t ); } else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) { - LAPACKE_ctr_trans( matrix_order, 'u', 'u', k, v, ldv, v_t, ldv_t ); - LAPACKE_cge_trans( matrix_order, nrows_v, ncols_v-k, &v[k], ldv, + LAPACKE_ctr_trans( matrix_layout, 'u', 'u', k, v, ldv, v_t, ldv_t ); + LAPACKE_cge_trans( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv, &v_t[k*ldv_t], ldv_t ); } else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) { @@ -128,13 +128,13 @@ lapack_int LAPACKE_clarfb_work( int matrix_order, char side, char trans, LAPACKE_xerbla( "LAPACKE_clarfb_work", -8 ); return -8; } - LAPACKE_ctr_trans( matrix_order, 'l', 'u', k, &v[ncols_v-k], ldv, + LAPACKE_ctr_trans( matrix_layout, 'l', 'u', k, &v[ncols_v-k], ldv, &v_t[(ncols_v-k)*ldv_t], ldv_t ); - LAPACKE_cge_trans( matrix_order, nrows_v, ncols_v-k, v, ldv, v_t, + LAPACKE_cge_trans( matrix_layout, nrows_v, ncols_v-k, v, ldv, v_t, ldv_t ); } - LAPACKE_cge_trans( matrix_order, k, k, t, ldt, t_t, ldt_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, k, k, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_clarfb( &side, &trans, &direct, &storev, &m, &n, &k, v_t, &ldv_t, t_t, &ldt_t, c_t, &ldc_t, work, &ldwork ); diff --git a/lapacke/src/lapacke_clarft.c b/lapacke/src/lapacke_clarft.c index 83b91b88..e84f9f31 100644 --- a/lapacke/src/lapacke_clarft.c +++ b/lapacke/src/lapacke_clarft.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clarft( int matrix_order, char direct, char storev, +lapack_int LAPACKE_clarft( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* tau, lapack_complex_float* t, lapack_int ldt ) { lapack_int ncols_v, nrows_v; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clarft", -1 ); return -1; } @@ -53,10 +53,10 @@ lapack_int LAPACKE_clarft( int matrix_order, char direct, char storev, if( LAPACKE_c_nancheck( k, tau, 1 ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, nrows_v, ncols_v, v, ldv ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_v, ncols_v, v, ldv ) ) { return -6; } #endif - return LAPACKE_clarft_work( matrix_order, direct, storev, n, k, v, ldv, tau, + return LAPACKE_clarft_work( matrix_layout, direct, storev, n, k, v, ldv, tau, t, ldt ); } diff --git a/lapacke/src/lapacke_clarft_work.c b/lapacke/src/lapacke_clarft_work.c index da0a0d29..975b90b6 100644 --- a/lapacke/src/lapacke_clarft_work.c +++ b/lapacke/src/lapacke_clarft_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clarft_work( int matrix_order, char direct, char storev, +lapack_int LAPACKE_clarft_work( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* tau, @@ -43,13 +43,13 @@ lapack_int LAPACKE_clarft_work( int matrix_order, char direct, char storev, lapack_int nrows_v, ncols_v; lapack_int ldt_t, ldv_t; lapack_complex_float *v_t= NULL, *t_t= NULL; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clarft( &direct, &storev, &n, &k, v, &ldv, tau, t, &ldt ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { nrows_v = LAPACKE_lsame( storev, 'c' ) ? n : ( LAPACKE_lsame( storev, 'r' ) ? k : 1); ncols_v = LAPACKE_lsame( storev, 'c' ) ? k : @@ -82,7 +82,7 @@ lapack_int LAPACKE_clarft_work( int matrix_order, char direct, char storev, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, nrows_v, ncols_v, v, ldv, v_t, ldv_t ); + LAPACKE_cge_trans( matrix_layout, nrows_v, ncols_v, v, ldv, v_t, ldv_t ); /* Call LAPACK function and adjust info */ LAPACK_clarft( &direct, &storev, &n, &k, v_t, &ldv_t, tau, t_t, &ldt_t ); diff --git a/lapacke/src/lapacke_clarfx.c b/lapacke/src/lapacke_clarfx.c index a3864c6a..bf6e887d 100644 --- a/lapacke/src/lapacke_clarfx.c +++ b/lapacke/src/lapacke_clarfx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clarfx( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_clarfx( int matrix_layout, char side, lapack_int m, lapack_int n, const lapack_complex_float* v, lapack_complex_float tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clarfx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -7; } if( LAPACKE_c_nancheck( 1, &tau, 1 ) ) { @@ -54,6 +54,6 @@ lapack_int LAPACKE_clarfx( int matrix_order, char side, lapack_int m, return -5; } #endif - return LAPACKE_clarfx_work( matrix_order, side, m, n, v, tau, c, ldc, + return LAPACKE_clarfx_work( matrix_layout, side, m, n, v, tau, c, ldc, work ); } diff --git a/lapacke/src/lapacke_clarfx_work.c b/lapacke/src/lapacke_clarfx_work.c index 2329b766..3bf74346 100644 --- a/lapacke/src/lapacke_clarfx_work.c +++ b/lapacke/src/lapacke_clarfx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clarfx_work( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_clarfx_work( int matrix_layout, char side, lapack_int m, lapack_int n, const lapack_complex_float* v, lapack_complex_float tau, lapack_complex_float* c, lapack_int ldc, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clarfx( &side, &m, &n, v, &tau, c, &ldc, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,m); lapack_complex_float* c_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_clarfx_work( int matrix_order, char side, lapack_int m, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_clarfx( &side, &m, &n, v, &tau, c_t, &ldc_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_claset.c b/lapacke/src/lapacke_claset.c index 69b431e5..2dfaf671 100644 --- a/lapacke/src/lapacke_claset.c +++ b/lapacke/src/lapacke_claset.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_claset( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_claset( int matrix_layout, char uplo, lapack_int m, lapack_int n, lapack_complex_float alpha, lapack_complex_float beta, lapack_complex_float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_claset", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -7; } if( LAPACKE_c_nancheck( 1, &alpha, 1 ) ) { @@ -54,5 +54,5 @@ lapack_int LAPACKE_claset( int matrix_order, char uplo, lapack_int m, return -6; } #endif - return LAPACKE_claset_work( matrix_order, uplo, m, n, alpha, beta, a, lda ); + return LAPACKE_claset_work( matrix_layout, uplo, m, n, alpha, beta, a, lda ); } diff --git a/lapacke/src/lapacke_claset_work.c b/lapacke/src/lapacke_claset_work.c index 9e3ab3a1..8d75fc5b 100644 --- a/lapacke/src/lapacke_claset_work.c +++ b/lapacke/src/lapacke_claset_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_claset_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_claset_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, lapack_complex_float alpha, lapack_complex_float beta, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + 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_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_claset_work( int matrix_order, char uplo, lapack_int m, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_claset( &uplo, &m, &n, &alpha, &beta, a_t, &lda_t ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_claswp.c b/lapacke/src/lapacke_claswp.c index d36a4210..173a7bf2 100644 --- a/lapacke/src/lapacke_claswp.c +++ b/lapacke/src/lapacke_claswp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_claswp( int matrix_order, lapack_int n, +lapack_int LAPACKE_claswp( int matrix_layout, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_claswp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, lda, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, lda, n, a, lda ) ) { return -3; } #endif - return LAPACKE_claswp_work( matrix_order, n, a, lda, k1, k2, ipiv, incx ); + return LAPACKE_claswp_work( matrix_layout, n, a, lda, k1, k2, ipiv, incx ); } diff --git a/lapacke/src/lapacke_claswp_work.c b/lapacke/src/lapacke_claswp_work.c index 72c6c80c..b02753f3 100644 --- a/lapacke/src/lapacke_claswp_work.c +++ b/lapacke/src/lapacke_claswp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_claswp_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_claswp_work( int matrix_layout, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_claswp( &n, a, &lda, &k1, &k2, ipiv, &incx ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,lda); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_claswp_work( int matrix_order, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, lda, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, lda, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_claswp( &n, a_t, &lda_t, &k1, &k2, ipiv, &incx ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_clatms.c b/lapacke/src/lapacke_clatms.c index 40c8c495..96415ca0 100644 --- a/lapacke/src/lapacke_clatms.c +++ b/lapacke/src/lapacke_clatms.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clatms( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clatms( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, float* d, lapack_int mode, float cond, float dmax, lapack_int kl, lapack_int ku, char pack, @@ -41,13 +41,13 @@ lapack_int LAPACKE_clatms( int matrix_order, lapack_int m, lapack_int n, { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clatms", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -14; } if( LAPACKE_s_nancheck( 1, &cond, 1 ) ) { @@ -68,7 +68,7 @@ lapack_int LAPACKE_clatms( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_clatms_work( matrix_order, m, n, dist, iseed, sym, d, mode, + info = LAPACKE_clatms_work( matrix_layout, m, n, dist, iseed, sym, d, mode, cond, dmax, kl, ku, pack, a, lda, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_clatms_work.c b/lapacke/src/lapacke_clatms_work.c index afde4786..1ee0c130 100644 --- a/lapacke/src/lapacke_clatms_work.c +++ b/lapacke/src/lapacke_clatms_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clatms_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_clatms_work( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, float* d, lapack_int mode, float cond, float dmax, lapack_int kl, lapack_int ku, @@ -41,14 +41,14 @@ lapack_int LAPACKE_clatms_work( int matrix_order, lapack_int m, lapack_int n, lapack_int lda, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clatms( &m, &n, &dist, iseed, &sym, d, &mode, &cond, &dmax, &kl, &ku, &pack, a, &lda, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_clatms_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_clatms( &m, &n, &dist, iseed, &sym, d, &mode, &cond, &dmax, &kl, &ku, &pack, a_t, &lda_t, work, &info ); diff --git a/lapacke/src/lapacke_clauum.c b/lapacke/src/lapacke_clauum.c index 51fb2a06..6fdf192c 100644 --- a/lapacke/src/lapacke_clauum.c +++ b/lapacke/src/lapacke_clauum.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clauum( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_clauum( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_clauum", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_clauum_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_clauum_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_clauum_work.c b/lapacke/src/lapacke_clauum_work.c index 290facb1..ba837afd 100644 --- a/lapacke/src/lapacke_clauum_work.c +++ b/lapacke/src/lapacke_clauum_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_clauum_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_clauum_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_clauum( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_clauum_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_clauum( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpbcon.c b/lapacke/src/lapacke_cpbcon.c index f7d04fe5..70ad234e 100644 --- a/lapacke/src/lapacke_cpbcon.c +++ b/lapacke/src/lapacke_cpbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbcon( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float anorm, float* rcond ) { lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -5; } if( LAPACKE_s_nancheck( 1, &anorm, 1 ) ) { @@ -66,7 +66,7 @@ lapack_int LAPACKE_cpbcon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cpbcon_work( matrix_order, uplo, n, kd, ab, ldab, anorm, + info = LAPACKE_cpbcon_work( matrix_layout, uplo, n, kd, ab, ldab, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cpbcon_work.c b/lapacke/src/lapacke_cpbcon_work.c index 2d750ec8..6c749a3a 100644 --- a/lapacke/src/lapacke_cpbcon_work.c +++ b/lapacke/src/lapacke_cpbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbcon_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float anorm, float* rcond, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpbcon( &uplo, &n, &kd, ab, &ldab, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_complex_float* ab_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_cpbcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_cpbcon( &uplo, &n, &kd, ab_t, &ldab_t, &anorm, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cpbequ.c b/lapacke/src/lapacke_cpbequ.c index ea4905e6..33231d66 100644 --- a/lapacke/src/lapacke_cpbequ.c +++ b/lapacke/src/lapacke_cpbequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbequ( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float* s, float* scond, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpbequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -5; } #endif - return LAPACKE_cpbequ_work( matrix_order, uplo, n, kd, ab, ldab, s, scond, + return LAPACKE_cpbequ_work( matrix_layout, uplo, n, kd, ab, ldab, s, scond, amax ); } diff --git a/lapacke/src/lapacke_cpbequ_work.c b/lapacke/src/lapacke_cpbequ_work.c index cfb3def6..49229c7d 100644 --- a/lapacke/src/lapacke_cpbequ_work.c +++ b/lapacke/src/lapacke_cpbequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbequ_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float* s, float* scond, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpbequ( &uplo, &n, &kd, ab, &ldab, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_complex_float* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cpbequ_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_cpbequ( &uplo, &n, &kd, ab_t, &ldab_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpbrfs.c b/lapacke/src/lapacke_cpbrfs.c index 4edbbbde..51e2c80b 100644 --- a/lapacke/src/lapacke_cpbrfs.c +++ b/lapacke/src/lapacke_cpbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbrfs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, lapack_int ldafb, @@ -44,22 +44,22 @@ lapack_int LAPACKE_cpbrfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, afb, ldafb ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, afb, ldafb ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_cpbrfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cpbrfs_work( matrix_order, uplo, n, kd, nrhs, ab, ldab, afb, + info = LAPACKE_cpbrfs_work( matrix_layout, uplo, n, kd, nrhs, ab, ldab, afb, ldafb, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cpbrfs_work.c b/lapacke/src/lapacke_cpbrfs_work.c index c7083d3d..6c25ecb0 100644 --- a/lapacke/src/lapacke_cpbrfs_work.c +++ b/lapacke/src/lapacke_cpbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* afb, @@ -43,14 +43,14 @@ lapack_int LAPACKE_cpbrfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpbrfs( &uplo, &n, &kd, &nrhs, ab, &ldab, afb, &ldafb, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldafb_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); @@ -108,11 +108,11 @@ lapack_int LAPACKE_cpbrfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, afb, ldafb, afb_t, + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cpbrfs( &uplo, &n, &kd, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, diff --git a/lapacke/src/lapacke_cpbstf.c b/lapacke/src/lapacke_cpbstf.c index 3d84181a..d4de2de6 100644 --- a/lapacke/src/lapacke_cpbstf.c +++ b/lapacke/src/lapacke_cpbstf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbstf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbstf( int matrix_layout, char uplo, lapack_int n, lapack_int kb, lapack_complex_float* bb, lapack_int ldbb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpbstf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -5; } #endif - return LAPACKE_cpbstf_work( matrix_order, uplo, n, kb, bb, ldbb ); + return LAPACKE_cpbstf_work( matrix_layout, uplo, n, kb, bb, ldbb ); } diff --git a/lapacke/src/lapacke_cpbstf_work.c b/lapacke/src/lapacke_cpbstf_work.c index 922e78da..bcc700b5 100644 --- a/lapacke/src/lapacke_cpbstf_work.c +++ b/lapacke/src/lapacke_cpbstf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbstf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbstf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kb, lapack_complex_float* bb, lapack_int ldbb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpbstf( &uplo, &n, &kb, bb, &ldbb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldbb_t = MAX(1,kb+1); lapack_complex_float* bb_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_cpbstf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_cpb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_cpbstf( &uplo, &n, &kb, bb_t, &ldbb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpbsv.c b/lapacke/src/lapacke_cpbsv.c index b5a622bf..2a9ff4eb 100644 --- a/lapacke/src/lapacke_cpbsv.c +++ b/lapacke/src/lapacke_cpbsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbsv( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpbsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_cpbsv_work( matrix_order, uplo, n, kd, nrhs, ab, ldab, b, + return LAPACKE_cpbsv_work( matrix_layout, uplo, n, kd, nrhs, ab, ldab, b, ldb ); } diff --git a/lapacke/src/lapacke_cpbsv_work.c b/lapacke/src/lapacke_cpbsv_work.c index 83d83c18..5800b759 100644 --- a/lapacke/src/lapacke_cpbsv_work.c +++ b/lapacke/src/lapacke_cpbsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpbsv( &uplo, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_complex_float* ab_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_cpbsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cpbsv( &uplo, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_cpbsvx.c b/lapacke/src/lapacke_cpbsvx.c index 007431dd..15e7934f 100644 --- a/lapacke/src/lapacke_cpbsvx.c +++ b/lapacke/src/lapacke_cpbsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_cpbsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, lapack_int ldafb, @@ -45,21 +45,21 @@ lapack_int LAPACKE_cpbsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpbsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -7; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, afb, ldafb ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, afb, ldafb ) ) { return -9; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -81,7 +81,7 @@ lapack_int LAPACKE_cpbsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cpbsvx_work( matrix_order, fact, uplo, n, kd, nrhs, ab, ldab, + info = LAPACKE_cpbsvx_work( matrix_layout, fact, uplo, n, kd, nrhs, ab, ldab, afb, ldafb, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cpbsvx_work.c b/lapacke/src/lapacke_cpbsvx_work.c index c7cfb3b1..6cdb4cba 100644 --- a/lapacke/src/lapacke_cpbsvx_work.c +++ b/lapacke/src/lapacke_cpbsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cpbsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* afb, lapack_int ldafb, @@ -44,7 +44,7 @@ lapack_int LAPACKE_cpbsvx_work( int matrix_order, char fact, char uplo, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpbsvx( &fact, &uplo, &n, &kd, &nrhs, ab, &ldab, afb, &ldafb, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, @@ -52,7 +52,7 @@ lapack_int LAPACKE_cpbsvx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldafb_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); @@ -110,12 +110,12 @@ lapack_int LAPACKE_cpbsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, afb, ldafb, afb_t, + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cpbsvx( &fact, &uplo, &n, &kd, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, diff --git a/lapacke/src/lapacke_cpbtrf.c b/lapacke/src/lapacke_cpbtrf.c index 6849e22e..a70e897b 100644 --- a/lapacke/src/lapacke_cpbtrf.c +++ b/lapacke/src/lapacke_cpbtrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbtrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbtrf( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpbtrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -5; } #endif - return LAPACKE_cpbtrf_work( matrix_order, uplo, n, kd, ab, ldab ); + return LAPACKE_cpbtrf_work( matrix_layout, uplo, n, kd, ab, ldab ); } diff --git a/lapacke/src/lapacke_cpbtrf_work.c b/lapacke/src/lapacke_cpbtrf_work.c index d2649230..0332c6ac 100644 --- a/lapacke/src/lapacke_cpbtrf_work.c +++ b/lapacke/src/lapacke_cpbtrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbtrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbtrf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_complex_float* ab, lapack_int ldab ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpbtrf( &uplo, &n, &kd, ab, &ldab, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_complex_float* ab_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_cpbtrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_cpbtrf( &uplo, &n, &kd, ab_t, &ldab_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpbtrs.c b/lapacke/src/lapacke_cpbtrs.c index 74b637ce..41e14703 100644 --- a/lapacke/src/lapacke_cpbtrs.c +++ b/lapacke/src/lapacke_cpbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbtrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbtrs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_cpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_cpbtrs_work( matrix_order, uplo, n, kd, nrhs, ab, ldab, b, + return LAPACKE_cpbtrs_work( matrix_layout, uplo, n, kd, nrhs, ab, ldab, b, ldb ); } diff --git a/lapacke/src/lapacke_cpbtrs_work.c b/lapacke/src/lapacke_cpbtrs_work.c index c8f2d4f5..78c61d8f 100644 --- a/lapacke/src/lapacke_cpbtrs_work.c +++ b/lapacke/src/lapacke_cpbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpbtrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpbtrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpbtrs( &uplo, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_complex_float* ab_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_cpbtrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cpbtrs( &uplo, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_cpftrf.c b/lapacke/src/lapacke_cpftrf.c index f04d7dfd..fae7c220 100644 --- a/lapacke/src/lapacke_cpftrf.c +++ b/lapacke/src/lapacke_cpftrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpftrf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftrf( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_float* a ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpftrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_cpftrf( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_cpftrf_work( matrix_order, transr, uplo, n, a ); + return LAPACKE_cpftrf_work( matrix_layout, transr, uplo, n, a ); } diff --git a/lapacke/src/lapacke_cpftrf_work.c b/lapacke/src/lapacke_cpftrf_work.c index ca5fbede..c98f541e 100644 --- a/lapacke/src/lapacke_cpftrf_work.c +++ b/lapacke/src/lapacke_cpftrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpftrf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftrf_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_float* a ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpftrf( &transr, &uplo, &n, a, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_cpftrf_work( int matrix_order, char transr, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpf_trans( matrix_order, transr, uplo, n, a, a_t ); + LAPACKE_cpf_trans( matrix_layout, transr, uplo, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_cpftrf( &transr, &uplo, &n, a_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpftri.c b/lapacke/src/lapacke_cpftri.c index a99383b5..b58f95c0 100644 --- a/lapacke/src/lapacke_cpftri.c +++ b/lapacke/src/lapacke_cpftri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpftri( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftri( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_float* a ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpftri", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_cpftri( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_cpftri_work( matrix_order, transr, uplo, n, a ); + return LAPACKE_cpftri_work( matrix_layout, transr, uplo, n, a ); } diff --git a/lapacke/src/lapacke_cpftri_work.c b/lapacke/src/lapacke_cpftri_work.c index c733bd27..b0578253 100644 --- a/lapacke/src/lapacke_cpftri_work.c +++ b/lapacke/src/lapacke_cpftri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftri_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_float* a ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpftri( &transr, &uplo, &n, a, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_cpftri_work( int matrix_order, char transr, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpf_trans( matrix_order, transr, uplo, n, a, a_t ); + LAPACKE_cpf_trans( matrix_layout, transr, uplo, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_cpftri( &transr, &uplo, &n, a_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpftrs.c b/lapacke/src/lapacke_cpftrs.c index 601917a7..e0b672b3 100644 --- a/lapacke/src/lapacke_cpftrs.c +++ b/lapacke/src/lapacke_cpftrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpftrs( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftrs( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpftrs", -1 ); return -1; } @@ -47,10 +47,10 @@ lapack_int LAPACKE_cpftrs( int matrix_order, char transr, char uplo, if( LAPACKE_cpf_nancheck( n, a ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_cpftrs_work( matrix_order, transr, uplo, n, nrhs, a, b, + return LAPACKE_cpftrs_work( matrix_layout, transr, uplo, n, nrhs, a, b, ldb ); } diff --git a/lapacke/src/lapacke_cpftrs_work.c b/lapacke/src/lapacke_cpftrs_work.c index befa29cf..7a5f299b 100644 --- a/lapacke/src/lapacke_cpftrs_work.c +++ b/lapacke/src/lapacke_cpftrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpftrs_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_cpftrs_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpftrs( &transr, &uplo, &n, &nrhs, a, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; lapack_complex_float* a_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_cpftrs_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cpf_trans( matrix_order, transr, uplo, n, a, a_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cpf_trans( matrix_layout, transr, uplo, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_cpftrs( &transr, &uplo, &n, &nrhs, a_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpocon.c b/lapacke/src/lapacke_cpocon.c index 6fba6ed7..725947db 100644 --- a/lapacke/src/lapacke_cpocon.c +++ b/lapacke/src/lapacke_cpocon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpocon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpocon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float anorm, float* rcond ) { lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpocon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_s_nancheck( 1, &anorm, 1 ) ) { @@ -66,7 +66,7 @@ lapack_int LAPACKE_cpocon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cpocon_work( matrix_order, uplo, n, a, lda, anorm, rcond, + info = LAPACKE_cpocon_work( matrix_layout, uplo, n, a, lda, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cpocon_work.c b/lapacke/src/lapacke_cpocon_work.c index 3d0b83e4..9e12c53f 100644 --- a/lapacke/src/lapacke_cpocon_work.c +++ b/lapacke/src/lapacke_cpocon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpocon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpocon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float anorm, float* rcond, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpocon( &uplo, &n, a, &lda, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cpocon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cpocon( &uplo, &n, a_t, &lda_t, &anorm, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cpoequ.c b/lapacke/src/lapacke_cpoequ.c index 5559a59d..1309572b 100644 --- a/lapacke/src/lapacke_cpoequ.c +++ b/lapacke/src/lapacke_cpoequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpoequ( int matrix_order, lapack_int n, +lapack_int LAPACKE_cpoequ( int matrix_layout, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpoequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -3; } #endif - return LAPACKE_cpoequ_work( matrix_order, n, a, lda, s, scond, amax ); + return LAPACKE_cpoequ_work( matrix_layout, n, a, lda, s, scond, amax ); } diff --git a/lapacke/src/lapacke_cpoequ_work.c b/lapacke/src/lapacke_cpoequ_work.c index 13991fb0..e5810182 100644 --- a/lapacke/src/lapacke_cpoequ_work.c +++ b/lapacke/src/lapacke_cpoequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpoequ_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_cpoequ_work( int matrix_layout, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpoequ( &n, a, &lda, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_cpoequ_work( int matrix_order, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cpoequ( &n, a_t, &lda_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpoequb.c b/lapacke/src/lapacke_cpoequb.c index d97f6c13..d9778fa5 100644 --- a/lapacke/src/lapacke_cpoequb.c +++ b/lapacke/src/lapacke_cpoequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpoequb( int matrix_order, lapack_int n, +lapack_int LAPACKE_cpoequb( int matrix_layout, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpoequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -3; } #endif - return LAPACKE_cpoequb_work( matrix_order, n, a, lda, s, scond, amax ); + return LAPACKE_cpoequb_work( matrix_layout, n, a, lda, s, scond, amax ); } diff --git a/lapacke/src/lapacke_cpoequb_work.c b/lapacke/src/lapacke_cpoequb_work.c index 6f3cb295..e7e3ff42 100644 --- a/lapacke/src/lapacke_cpoequb_work.c +++ b/lapacke/src/lapacke_cpoequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpoequb_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_cpoequb_work( int matrix_layout, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpoequb( &n, a, &lda, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_cpoequb_work( int matrix_order, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cpoequb( &n, a_t, &lda_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cporfs.c b/lapacke/src/lapacke_cporfs.c index da4fc7e9..1c8e5824 100644 --- a/lapacke/src/lapacke_cporfs.c +++ b/lapacke/src/lapacke_cporfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cporfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cporfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_complex_float* b, @@ -43,22 +43,22 @@ lapack_int LAPACKE_cporfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cporfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -11; } #endif @@ -75,7 +75,7 @@ lapack_int LAPACKE_cporfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cporfs_work( matrix_order, uplo, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_cporfs_work( matrix_layout, uplo, n, nrhs, a, lda, af, ldaf, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cporfs_work.c b/lapacke/src/lapacke_cporfs_work.c index da8ce410..2cc186c3 100644 --- a/lapacke/src/lapacke_cporfs_work.c +++ b/lapacke/src/lapacke_cporfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cporfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cporfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_complex_float* b, @@ -42,14 +42,14 @@ lapack_int LAPACKE_cporfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cporfs( &uplo, &n, &nrhs, a, &lda, af, &ldaf, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -107,10 +107,10 @@ lapack_int LAPACKE_cporfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cporfs( &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cporfsx.c b/lapacke/src/lapacke_cporfsx.c index 39efc1c0..bff3543d 100644 --- a/lapacke/src/lapacke_cporfsx.c +++ b/lapacke/src/lapacke_cporfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cporfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_cporfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, @@ -47,19 +47,19 @@ lapack_int LAPACKE_cporfsx( int matrix_order, char uplo, char equed, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cporfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -11; } if( nparams>0 ) { @@ -72,7 +72,7 @@ lapack_int LAPACKE_cporfsx( int matrix_order, char uplo, char equed, return -10; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -13; } #endif @@ -89,7 +89,7 @@ lapack_int LAPACKE_cporfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cporfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_cporfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_cporfsx_work.c b/lapacke/src/lapacke_cporfsx_work.c index d3889949..f48f6f7f 100644 --- a/lapacke/src/lapacke_cporfsx_work.c +++ b/lapacke/src/lapacke_cporfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cporfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_cporfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, @@ -47,7 +47,7 @@ lapack_int LAPACKE_cporfsx_work( int matrix_order, char uplo, char equed, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cporfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, err_bnds_norm, @@ -55,7 +55,7 @@ lapack_int LAPACKE_cporfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -127,10 +127,10 @@ lapack_int LAPACKE_cporfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_csy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cporfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, &n_err_bnds, diff --git a/lapacke/src/lapacke_cposv.c b/lapacke/src/lapacke_cposv.c index cbadad17..afe2b444 100644 --- a/lapacke/src/lapacke_cposv.c +++ b/lapacke/src/lapacke_cposv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cposv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_cposv_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb ); + return LAPACKE_cposv_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_cposv_work.c b/lapacke/src/lapacke_cposv_work.c index d63e7068..885bf4e3 100644 --- a/lapacke/src/lapacke_cposv_work.c +++ b/lapacke/src/lapacke_cposv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cposv( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_cposv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cposv( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cposvx.c b/lapacke/src/lapacke_cposvx.c index 695f6a24..157244ca 100644 --- a/lapacke/src/lapacke_cposvx.c +++ b/lapacke/src/lapacke_cposvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cposvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_cposvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, char* equed, float* s, @@ -44,21 +44,21 @@ lapack_int LAPACKE_cposvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cposvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -80,7 +80,7 @@ lapack_int LAPACKE_cposvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cposvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_cposvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cposvx_work.c b/lapacke/src/lapacke_cposvx_work.c index 125066e8..22acef9f 100644 --- a/lapacke/src/lapacke_cposvx_work.c +++ b/lapacke/src/lapacke_cposvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cposvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cposvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -44,14 +44,14 @@ lapack_int LAPACKE_cposvx_work( int matrix_order, char fact, char uplo, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cposvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -109,11 +109,11 @@ lapack_int LAPACKE_cposvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_cpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cposvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, diff --git a/lapacke/src/lapacke_cposvxx.c b/lapacke/src/lapacke_cposvxx.c index cf8ed182..7e500bd8 100644 --- a/lapacke/src/lapacke_cposvxx.c +++ b/lapacke/src/lapacke_cposvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cposvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cposvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -47,21 +47,21 @@ lapack_int LAPACKE_cposvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cposvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( nparams>0 ) { @@ -88,7 +88,7 @@ lapack_int LAPACKE_cposvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cposvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_cposvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_cposvxx_work.c b/lapacke/src/lapacke_cposvxx_work.c index a25275f8..9ef5ae92 100644 --- a/lapacke/src/lapacke_cposvxx_work.c +++ b/lapacke/src/lapacke_cposvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -46,7 +46,7 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cposvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, &n_err_bnds, @@ -55,7 +55,7 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -127,11 +127,11 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_cpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cposvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, berr, @@ -151,9 +151,9 @@ lapack_int LAPACKE_cposvxx_work( int matrix_order, char fact, char uplo, LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_cpotrf.c b/lapacke/src/lapacke_cpotrf.c index 76c297ff..a063e940 100644 --- a/lapacke/src/lapacke_cpotrf.c +++ b/lapacke/src/lapacke_cpotrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpotrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpotrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_cpotrf_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_cpotrf_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_cpotrf_work.c b/lapacke/src/lapacke_cpotrf_work.c index 2ef747b7..61b6b071 100644 --- a/lapacke/src/lapacke_cpotrf_work.c +++ b/lapacke/src/lapacke_cpotrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpotrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpotrf( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_cpotrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cpotrf( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpotri.c b/lapacke/src/lapacke_cpotri.c index 4d269414..c10500f6 100644 --- a/lapacke/src/lapacke_cpotri.c +++ b/lapacke/src/lapacke_cpotri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpotri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpotri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_cpotri_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_cpotri_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_cpotri_work.c b/lapacke/src/lapacke_cpotri_work.c index 8fc07e9d..3eb879b0 100644 --- a/lapacke/src/lapacke_cpotri_work.c +++ b/lapacke/src/lapacke_cpotri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpotri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpotri( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_cpotri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cpotri( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpotrs.c b/lapacke/src/lapacke_cpotrs.c index 36833c22..3b8a4319 100644 --- a/lapacke/src/lapacke_cpotrs.c +++ b/lapacke/src/lapacke_cpotrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpotrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpotrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_cpotrs_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb ); + return LAPACKE_cpotrs_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_cpotrs_work.c b/lapacke/src/lapacke_cpotrs_work.c index b262d76c..e2567159 100644 --- a/lapacke/src/lapacke_cpotrs_work.c +++ b/lapacke/src/lapacke_cpotrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpotrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpotrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpotrs( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_cpotrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cpotrs( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cppcon.c b/lapacke/src/lapacke_cppcon.c index 6ffb9dc7..0125c0af 100644 --- a/lapacke/src/lapacke_cppcon.c +++ b/lapacke/src/lapacke_cppcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cppcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, float anorm, float* rcond ) { lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cppcon", -1 ); return -1; } @@ -66,7 +66,7 @@ lapack_int LAPACKE_cppcon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cppcon_work( matrix_order, uplo, n, ap, anorm, rcond, work, + info = LAPACKE_cppcon_work( matrix_layout, uplo, n, ap, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cppcon_work.c b/lapacke/src/lapacke_cppcon_work.c index 864b1a3c..c1b67791 100644 --- a/lapacke/src/lapacke_cppcon_work.c +++ b/lapacke/src/lapacke_cppcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cppcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, float anorm, float* rcond, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cppcon( &uplo, &n, ap, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_cppcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cppcon( &uplo, &n, ap_t, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cppequ.c b/lapacke/src/lapacke_cppequ.c index bb5de872..1e6e4350 100644 --- a/lapacke/src/lapacke_cppequ.c +++ b/lapacke/src/lapacke_cppequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cppequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppequ( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, float* s, float* scond, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cppequ", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_cppequ( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_cppequ_work( matrix_order, uplo, n, ap, s, scond, amax ); + return LAPACKE_cppequ_work( matrix_layout, uplo, n, ap, s, scond, amax ); } diff --git a/lapacke/src/lapacke_cppequ_work.c b/lapacke/src/lapacke_cppequ_work.c index 01dc2b41..4ba5ab67 100644 --- a/lapacke/src/lapacke_cppequ_work.c +++ b/lapacke/src/lapacke_cppequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cppequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppequ_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, float* s, float* scond, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cppequ( &uplo, &n, ap, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -55,7 +55,7 @@ lapack_int LAPACKE_cppequ_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cppequ( &uplo, &n, ap_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpprfs.c b/lapacke/src/lapacke_cpprfs.c index 003c49c1..09289815 100644 --- a/lapacke/src/lapacke_cpprfs.c +++ b/lapacke/src/lapacke_cpprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_complex_float* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_cpprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpprfs", -1 ); return -1; } @@ -55,10 +55,10 @@ lapack_int LAPACKE_cpprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_cpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -9; } #endif @@ -75,7 +75,7 @@ lapack_int LAPACKE_cpprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cpprfs_work( matrix_order, uplo, n, nrhs, ap, afp, b, ldb, x, + info = LAPACKE_cpprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cpprfs_work.c b/lapacke/src/lapacke_cpprfs_work.c index c767178b..b2db31f1 100644 --- a/lapacke/src/lapacke_cpprfs_work.c +++ b/lapacke/src/lapacke_cpprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_complex_float* b, lapack_int ldb, @@ -42,14 +42,14 @@ lapack_int LAPACKE_cpprfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpprfs( &uplo, &n, &nrhs, ap, afp, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -97,10 +97,10 @@ lapack_int LAPACKE_cpprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_cpp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_cpprfs( &uplo, &n, &nrhs, ap_t, afp_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cppsv.c b/lapacke/src/lapacke_cppsv.c index 4d68bd16..b0afaba4 100644 --- a/lapacke/src/lapacke_cppsv.c +++ b/lapacke/src/lapacke_cppsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cppsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cppsv", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_cppsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_cpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } #endif - return LAPACKE_cppsv_work( matrix_order, uplo, n, nrhs, ap, b, ldb ); + return LAPACKE_cppsv_work( matrix_layout, uplo, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_cppsv_work.c b/lapacke/src/lapacke_cppsv_work.c index c2b86e1d..a7de8fdc 100644 --- a/lapacke/src/lapacke_cppsv_work.c +++ b/lapacke/src/lapacke_cppsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cppsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cppsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cppsv( &uplo, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; lapack_complex_float* ap_t = NULL; @@ -70,8 +70,8 @@ lapack_int LAPACKE_cppsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cppsv( &uplo, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cppsvx.c b/lapacke/src/lapacke_cppsvx.c index 0bdda68c..d72f0194 100644 --- a/lapacke/src/lapacke_cppsvx.c +++ b/lapacke/src/lapacke_cppsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cppsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_cppsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_complex_float* afp, char* equed, float* s, lapack_complex_float* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_cppsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cppsvx", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_cppsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_cpp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -79,7 +79,7 @@ lapack_int LAPACKE_cppsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cppsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_cppsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cppsvx_work.c b/lapacke/src/lapacke_cppsvx_work.c index e3bf311f..327859e2 100644 --- a/lapacke/src/lapacke_cppsvx_work.c +++ b/lapacke/src/lapacke_cppsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cppsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cppsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_complex_float* afp, char* equed, @@ -44,14 +44,14 @@ lapack_int LAPACKE_cppsvx_work( int matrix_order, char fact, char uplo, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cppsvx( &fact, &uplo, &n, &nrhs, ap, afp, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -99,10 +99,10 @@ lapack_int LAPACKE_cppsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_cpp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_cppsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, equed, s, b_t, diff --git a/lapacke/src/lapacke_cpptrf.c b/lapacke/src/lapacke_cpptrf.c index 0aa09449..d2046daf 100644 --- a/lapacke/src/lapacke_cpptrf.c +++ b/lapacke/src/lapacke_cpptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_cpptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_cpptrf_work( matrix_order, uplo, n, ap ); + return LAPACKE_cpptrf_work( matrix_layout, uplo, n, ap ); } diff --git a/lapacke/src/lapacke_cpptrf_work.c b/lapacke/src/lapacke_cpptrf_work.c index c92523e3..618aa739 100644 --- a/lapacke/src/lapacke_cpptrf_work.c +++ b/lapacke/src/lapacke_cpptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpptrf( &uplo, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_cpptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cpptrf( &uplo, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpptri.c b/lapacke/src/lapacke_cpptri.c index 8a796e51..114e643f 100644 --- a/lapacke/src/lapacke_cpptri.c +++ b/lapacke/src/lapacke_cpptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpptri", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_cpptri( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_cpptri_work( matrix_order, uplo, n, ap ); + return LAPACKE_cpptri_work( matrix_layout, uplo, n, ap ); } diff --git a/lapacke/src/lapacke_cpptri_work.c b/lapacke/src/lapacke_cpptri_work.c index a29ba3d7..77547e74 100644 --- a/lapacke/src/lapacke_cpptri_work.c +++ b/lapacke/src/lapacke_cpptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpptri( &uplo, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_cpptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cpptri( &uplo, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpptrs.c b/lapacke/src/lapacke_cpptrs.c index 4972062a..ed710057 100644 --- a/lapacke/src/lapacke_cpptrs.c +++ b/lapacke/src/lapacke_cpptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpptrs", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_cpptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_cpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } #endif - return LAPACKE_cpptrs_work( matrix_order, uplo, n, nrhs, ap, b, ldb ); + return LAPACKE_cpptrs_work( matrix_layout, uplo, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_cpptrs_work.c b/lapacke/src/lapacke_cpptrs_work.c index e0f396cb..92860c94 100644 --- a/lapacke/src/lapacke_cpptrs_work.c +++ b/lapacke/src/lapacke_cpptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpptrs( &uplo, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; lapack_complex_float* ap_t = NULL; @@ -70,8 +70,8 @@ lapack_int LAPACKE_cpptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cpptrs( &uplo, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpstrf.c b/lapacke/src/lapacke_cpstrf.c index 398a514e..3a4f5fc8 100644 --- a/lapacke/src/lapacke_cpstrf.c +++ b/lapacke/src/lapacke_cpstrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpstrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpstrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* piv, lapack_int* rank, float tol ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpstrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_cpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_s_nancheck( 1, &tol, 1 ) ) { @@ -59,7 +59,7 @@ lapack_int LAPACKE_cpstrf( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cpstrf_work( matrix_order, uplo, n, a, lda, piv, rank, tol, + info = LAPACKE_cpstrf_work( matrix_layout, uplo, n, a, lda, piv, rank, tol, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cpstrf_work.c b/lapacke/src/lapacke_cpstrf_work.c index 772d0ec1..dbb8fd40 100644 --- a/lapacke/src/lapacke_cpstrf_work.c +++ b/lapacke/src/lapacke_cpstrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpstrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpstrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* piv, lapack_int* rank, float tol, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpstrf( &uplo, &n, a, &lda, piv, rank, &tol, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cpstrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cpstrf( &uplo, &n, a_t, &lda_t, piv, rank, &tol, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cpteqr.c b/lapacke/src/lapacke_cpteqr.c index 4c3d827a..8a4b6b13 100644 --- a/lapacke/src/lapacke_cpteqr.c +++ b/lapacke/src/lapacke_cpteqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpteqr( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_cpteqr( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz ) { lapack_int info = 0; /* Additional scalars declarations for work arrays */ lapack_int lwork; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpteqr", -1 ); return -1; } @@ -53,7 +53,7 @@ lapack_int LAPACKE_cpteqr( int matrix_order, char compz, lapack_int n, float* d, return -5; } if( LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } @@ -71,7 +71,7 @@ lapack_int LAPACKE_cpteqr( int matrix_order, char compz, lapack_int n, float* d, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cpteqr_work( matrix_order, compz, n, d, e, z, ldz, work ); + info = LAPACKE_cpteqr_work( matrix_layout, compz, n, d, e, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cpteqr_work.c b/lapacke/src/lapacke_cpteqr_work.c index 66fd850b..5cef639f 100644 --- a/lapacke/src/lapacke_cpteqr_work.c +++ b/lapacke/src/lapacke_cpteqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_cpteqr_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpteqr( &compz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cpteqr_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_cge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_cpteqr( &compz, &n, d, e, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_cptrfs.c b/lapacke/src/lapacke_cptrfs.c index 5efef258..7b7a1693 100644 --- a/lapacke/src/lapacke_cptrfs.c +++ b/lapacke/src/lapacke_cptrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cptrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cptrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, const float* df, const lapack_complex_float* ef, @@ -44,13 +44,13 @@ lapack_int LAPACKE_cptrfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cptrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } if( LAPACKE_s_nancheck( n, d, 1 ) ) { @@ -65,7 +65,7 @@ lapack_int LAPACKE_cptrfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_c_nancheck( n-1, ef, 1 ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -11; } #endif @@ -82,7 +82,7 @@ lapack_int LAPACKE_cptrfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cptrfs_work( matrix_order, uplo, n, nrhs, d, e, df, ef, b, + info = LAPACKE_cptrfs_work( matrix_layout, uplo, n, nrhs, d, e, df, ef, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cptrfs_work.c b/lapacke/src/lapacke_cptrfs_work.c index d60d85a2..8b76e01d 100644 --- a/lapacke/src/lapacke_cptrfs_work.c +++ b/lapacke/src/lapacke_cptrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cptrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cptrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, const float* df, const lapack_complex_float* ef, @@ -43,14 +43,14 @@ lapack_int LAPACKE_cptrfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cptrfs( &uplo, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -82,8 +82,8 @@ lapack_int LAPACKE_cptrfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_cptrfs( &uplo, &n, &nrhs, d, e, df, ef, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cptsv.c b/lapacke/src/lapacke_cptsv.c index c5411278..c56f0530 100644 --- a/lapacke/src/lapacke_cptsv.c +++ b/lapacke/src/lapacke_cptsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cptsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_cptsv( int matrix_layout, lapack_int n, lapack_int nrhs, float* d, lapack_complex_float* e, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cptsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } if( LAPACKE_s_nancheck( n, d, 1 ) ) { @@ -53,5 +53,5 @@ lapack_int LAPACKE_cptsv( int matrix_order, lapack_int n, lapack_int nrhs, return -5; } #endif - return LAPACKE_cptsv_work( matrix_order, n, nrhs, d, e, b, ldb ); + return LAPACKE_cptsv_work( matrix_layout, n, nrhs, d, e, b, ldb ); } diff --git a/lapacke/src/lapacke_cptsv_work.c b/lapacke/src/lapacke_cptsv_work.c index 94d2673e..802f509b 100644 --- a/lapacke/src/lapacke_cptsv_work.c +++ b/lapacke/src/lapacke_cptsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_cptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, float* d, lapack_complex_float* e, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cptsv( &n, &nrhs, d, e, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_cptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cptsv( &n, &nrhs, d, e, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cptsvx.c b/lapacke/src/lapacke_cptsvx.c index d3b3ce4e..a4465228 100644 --- a/lapacke/src/lapacke_cptsvx.c +++ b/lapacke/src/lapacke_cptsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cptsvx( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_cptsvx( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, float* df, lapack_complex_float* ef, @@ -44,13 +44,13 @@ lapack_int LAPACKE_cptsvx( int matrix_order, char fact, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cptsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } if( LAPACKE_s_nancheck( n, d, 1 ) ) { @@ -83,7 +83,7 @@ lapack_int LAPACKE_cptsvx( int matrix_order, char fact, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cptsvx_work( matrix_order, fact, n, nrhs, d, e, df, ef, b, + info = LAPACKE_cptsvx_work( matrix_layout, fact, n, nrhs, d, e, df, ef, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cptsvx_work.c b/lapacke/src/lapacke_cptsvx_work.c index 1914b104..5ff8593d 100644 --- a/lapacke/src/lapacke_cptsvx_work.c +++ b/lapacke/src/lapacke_cptsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cptsvx_work( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_cptsvx_work( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, float* df, lapack_complex_float* ef, @@ -43,14 +43,14 @@ lapack_int LAPACKE_cptsvx_work( int matrix_order, char fact, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cptsvx( &fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -82,7 +82,7 @@ lapack_int LAPACKE_cptsvx_work( int matrix_order, char fact, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cptsvx( &fact, &n, &nrhs, d, e, df, ef, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cpttrs.c b/lapacke/src/lapacke_cpttrs.c index ecc3db3f..f7ed9aab 100644 --- a/lapacke/src/lapacke_cpttrs.c +++ b/lapacke/src/lapacke_cpttrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpttrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpttrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cpttrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } if( LAPACKE_s_nancheck( n, d, 1 ) ) { @@ -54,5 +54,5 @@ lapack_int LAPACKE_cpttrs( int matrix_order, char uplo, lapack_int n, return -6; } #endif - return LAPACKE_cpttrs_work( matrix_order, uplo, n, nrhs, d, e, b, ldb ); + return LAPACKE_cpttrs_work( matrix_layout, uplo, n, nrhs, d, e, b, ldb ); } diff --git a/lapacke/src/lapacke_cpttrs_work.c b/lapacke/src/lapacke_cpttrs_work.c index d0938b40..9b24d4be 100644 --- a/lapacke/src/lapacke_cpttrs_work.c +++ b/lapacke/src/lapacke_cpttrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cpttrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cpttrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* d, const lapack_complex_float* e, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cpttrs( &uplo, &n, &nrhs, d, e, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_cpttrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_cpttrs( &uplo, &n, &nrhs, d, e, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cspcon.c b/lapacke/src/lapacke_cspcon.c index 7f93572f..7baead51 100644 --- a/lapacke/src/lapacke_cspcon.c +++ b/lapacke/src/lapacke_cspcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cspcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cspcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_int* ipiv, float anorm, float* rcond ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cspcon", -1 ); return -1; } @@ -60,7 +60,7 @@ lapack_int LAPACKE_cspcon( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cspcon_work( matrix_order, uplo, n, ap, ipiv, anorm, rcond, + info = LAPACKE_cspcon_work( matrix_layout, uplo, n, ap, ipiv, anorm, rcond, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cspcon_work.c b/lapacke/src/lapacke_cspcon_work.c index 59dde03e..488dfba1 100644 --- a/lapacke/src/lapacke_cspcon_work.c +++ b/lapacke/src/lapacke_cspcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cspcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cspcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_int* ipiv, float anorm, float* rcond, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cspcon( &uplo, &n, ap, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_cspcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cspcon( &uplo, &n, ap_t, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csprfs.c b/lapacke/src/lapacke_csprfs.c index 3369a3c9..650ac397 100644 --- a/lapacke/src/lapacke_csprfs.c +++ b/lapacke/src/lapacke_csprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_int* ipiv, @@ -44,7 +44,7 @@ lapack_int LAPACKE_csprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csprfs", -1 ); return -1; } @@ -56,10 +56,10 @@ lapack_int LAPACKE_csprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_csp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_csprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_csprfs_work( matrix_order, uplo, n, nrhs, ap, afp, ipiv, b, + info = LAPACKE_csprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csprfs_work.c b/lapacke/src/lapacke_csprfs_work.c index da2ab372..d84df95e 100644 --- a/lapacke/src/lapacke_csprfs_work.c +++ b/lapacke/src/lapacke_csprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* afp, const lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_csprfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csprfs( &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -98,10 +98,10 @@ lapack_int LAPACKE_csprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_csp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_csp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_csprfs( &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_cspsv.c b/lapacke/src/lapacke_cspsv.c index 90ba7734..585d53cd 100644 --- a/lapacke/src/lapacke_cspsv.c +++ b/lapacke/src/lapacke_cspsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cspsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cspsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cspsv", -1 ); return -1; } @@ -47,9 +47,9 @@ lapack_int LAPACKE_cspsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_csp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_cspsv_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_cspsv_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_cspsv_work.c b/lapacke/src/lapacke_cspsv_work.c index 74313e02..6b82825d 100644 --- a/lapacke/src/lapacke_cspsv_work.c +++ b/lapacke/src/lapacke_cspsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cspsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cspsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* ap, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cspsv( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; lapack_complex_float* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_cspsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_csp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cspsv( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cspsvx.c b/lapacke/src/lapacke_cspsvx.c index 5de165fb..07e8efc9 100644 --- a/lapacke/src/lapacke_cspsvx.c +++ b/lapacke/src/lapacke_cspsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cspsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_cspsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* afp, lapack_int* ipiv, const lapack_complex_float* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_cspsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cspsvx", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_cspsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_csp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_cspsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cspsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_cspsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cspsvx_work.c b/lapacke/src/lapacke_cspsvx_work.c index ffe3880c..cd282416 100644 --- a/lapacke/src/lapacke_cspsvx_work.c +++ b/lapacke/src/lapacke_cspsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cspsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_cspsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* afp, lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_cspsvx_work( int matrix_order, char fact, char uplo, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cspsvx( &fact, &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -98,10 +98,10 @@ lapack_int LAPACKE_cspsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_csp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_csp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_cspsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_csptrf.c b/lapacke/src/lapacke_csptrf.c index b7a80d3a..8a2e35ab 100644 --- a/lapacke/src/lapacke_csptrf.c +++ b/lapacke/src/lapacke_csptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_csptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_csptrf_work( matrix_order, uplo, n, ap, ipiv ); + return LAPACKE_csptrf_work( matrix_layout, uplo, n, ap, ipiv ); } diff --git a/lapacke/src/lapacke_csptrf_work.c b/lapacke/src/lapacke_csptrf_work.c index 217b3483..17d71161 100644 --- a/lapacke/src/lapacke_csptrf_work.c +++ b/lapacke/src/lapacke_csptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csptrf( &uplo, &n, ap, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_csptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_csptrf( &uplo, &n, ap_t, ipiv, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csptri.c b/lapacke/src/lapacke_csptri.c index 10b7c8d0..0e6bff4c 100644 --- a/lapacke/src/lapacke_csptri.c +++ b/lapacke/src/lapacke_csptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csptri", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_csptri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csptri_work( matrix_order, uplo, n, ap, ipiv, work ); + info = LAPACKE_csptri_work( matrix_layout, uplo, n, ap, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_csptri_work.c b/lapacke/src/lapacke_csptri_work.c index 3c2be087..b72d7285 100644 --- a/lapacke/src/lapacke_csptri_work.c +++ b/lapacke/src/lapacke_csptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csptri( &uplo, &n, ap, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_csptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_csptri( &uplo, &n, ap_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csptrs.c b/lapacke/src/lapacke_csptrs.c index 76276f60..f87d239e 100644 --- a/lapacke/src/lapacke_csptrs.c +++ b/lapacke/src/lapacke_csptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csptrs", -1 ); return -1; } @@ -47,9 +47,9 @@ lapack_int LAPACKE_csptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_csp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_csptrs_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_csptrs_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_csptrs_work.c b/lapacke/src/lapacke_csptrs_work.c index 447f4868..633c58fc 100644 --- a/lapacke/src/lapacke_csptrs_work.c +++ b/lapacke/src/lapacke_csptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csptrs( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; lapack_complex_float* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_csptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_csp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_csp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_csptrs( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cstedc.c b/lapacke/src/lapacke_cstedc.c index d99bc969..aaab04cf 100644 --- a/lapacke/src/lapacke_cstedc.c +++ b/lapacke/src/lapacke_cstedc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cstedc( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_cstedc( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz ) { lapack_int info = 0; @@ -46,7 +46,7 @@ lapack_int LAPACKE_cstedc( int matrix_order, char compz, lapack_int n, float* d, lapack_int iwork_query; float rwork_query; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cstedc", -1 ); return -1; } @@ -59,13 +59,13 @@ lapack_int LAPACKE_cstedc( int matrix_order, char compz, lapack_int n, float* d, return -5; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cstedc_work( matrix_order, compz, n, d, e, z, ldz, + info = LAPACKE_cstedc_work( matrix_layout, compz, n, d, e, z, ldz, &work_query, lwork, &rwork_query, lrwork, &iwork_query, liwork ); if( info != 0 ) { @@ -92,7 +92,7 @@ lapack_int LAPACKE_cstedc( int matrix_order, char compz, lapack_int n, float* d, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cstedc_work( matrix_order, compz, n, d, e, z, ldz, work, + info = LAPACKE_cstedc_work( matrix_layout, compz, n, d, e, z, ldz, work, lwork, rwork, lrwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cstedc_work.c b/lapacke/src/lapacke_cstedc_work.c index 1d5fb467..3db2b5a1 100644 --- a/lapacke/src/lapacke_cstedc_work.c +++ b/lapacke/src/lapacke_cstedc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cstedc_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_cstedc_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz, lapack_complex_float* work, lapack_int lwork, float* rwork, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cstedc_work( int matrix_order, char compz, lapack_int n, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cstedc( &compz, &n, d, e, z, &ldz, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; /* Check leading dimension(s) */ @@ -75,7 +75,7 @@ lapack_int LAPACKE_cstedc_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_cge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_cstedc( &compz, &n, d, e, z_t, &ldz_t, work, &lwork, rwork, diff --git a/lapacke/src/lapacke_cstegr.c b/lapacke/src/lapacke_cstegr.c index f2e61199..c29f5599 100644 --- a/lapacke/src/lapacke_cstegr.c +++ b/lapacke/src/lapacke_cstegr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cstegr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cstegr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, lapack_complex_float* z, @@ -46,7 +46,7 @@ lapack_int LAPACKE_cstegr( int matrix_order, char jobz, char range, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cstegr", -1 ); return -1; } @@ -73,7 +73,7 @@ lapack_int LAPACKE_cstegr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cstegr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_cstegr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -93,7 +93,7 @@ lapack_int LAPACKE_cstegr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cstegr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_cstegr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cstegr_work.c b/lapacke/src/lapacke_cstegr_work.c index a7ede3a4..82074eba 100644 --- a/lapacke/src/lapacke_cstegr_work.c +++ b/lapacke/src/lapacke_cstegr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cstegr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cstegr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, @@ -43,7 +43,7 @@ lapack_int LAPACKE_cstegr_work( int matrix_order, char jobz, char range, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cstegr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, isuppz, work, &lwork, iwork, &liwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_cstegr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_cstein.c b/lapacke/src/lapacke_cstein.c index c4703c8c..fd0eac25 100644 --- a/lapacke/src/lapacke_cstein.c +++ b/lapacke/src/lapacke_cstein.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cstein( int matrix_order, lapack_int n, const float* d, +lapack_int LAPACKE_cstein( int matrix_layout, lapack_int n, const float* d, const float* e, lapack_int m, const float* w, const lapack_int* iblock, const lapack_int* isplit, lapack_complex_float* z, lapack_int ldz, @@ -42,7 +42,7 @@ lapack_int LAPACKE_cstein( int matrix_order, lapack_int n, const float* d, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cstein", -1 ); return -1; } @@ -70,7 +70,7 @@ lapack_int LAPACKE_cstein( int matrix_order, lapack_int n, const float* d, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cstein_work( matrix_order, n, d, e, m, w, iblock, isplit, z, + info = LAPACKE_cstein_work( matrix_layout, n, d, e, m, w, iblock, isplit, z, ldz, work, iwork, ifailv ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cstein_work.c b/lapacke/src/lapacke_cstein_work.c index 3af0e537..e5c89752 100644 --- a/lapacke/src/lapacke_cstein_work.c +++ b/lapacke/src/lapacke_cstein_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cstein_work( int matrix_order, lapack_int n, const float* d, +lapack_int LAPACKE_cstein_work( int matrix_layout, lapack_int n, const float* d, const float* e, lapack_int m, const float* w, const lapack_int* iblock, const lapack_int* isplit, @@ -42,14 +42,14 @@ lapack_int LAPACKE_cstein_work( int matrix_order, lapack_int n, const float* d, lapack_int* ifailv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cstein( &n, d, e, &m, w, iblock, isplit, z, &ldz, work, iwork, ifailv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_cstemr.c b/lapacke/src/lapacke_cstemr.c index 1393f63b..ff075690 100644 --- a/lapacke/src/lapacke_cstemr.c +++ b/lapacke/src/lapacke_cstemr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cstemr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cstemr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* m, float* w, lapack_complex_float* z, lapack_int ldz, @@ -47,7 +47,7 @@ lapack_int LAPACKE_cstemr( int matrix_order, char jobz, char range, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cstemr", -1 ); return -1; } @@ -67,7 +67,7 @@ lapack_int LAPACKE_cstemr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cstemr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_cstemr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, m, w, z, ldz, nzc, isuppz, tryrac, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -87,7 +87,7 @@ lapack_int LAPACKE_cstemr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_cstemr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_cstemr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, m, w, z, ldz, nzc, isuppz, tryrac, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cstemr_work.c b/lapacke/src/lapacke_cstemr_work.c index a5193654..e20a551d 100644 --- a/lapacke/src/lapacke_cstemr_work.c +++ b/lapacke/src/lapacke_cstemr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cstemr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_cstemr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* m, float* w, @@ -44,7 +44,7 @@ lapack_int LAPACKE_cstemr_work( int matrix_order, char jobz, char range, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cstemr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, m, w, z, &ldz, &nzc, isuppz, tryrac, work, &lwork, iwork, &liwork, @@ -52,7 +52,7 @@ lapack_int LAPACKE_cstemr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_csteqr.c b/lapacke/src/lapacke_csteqr.c index 42f0075e..026f38b6 100644 --- a/lapacke/src/lapacke_csteqr.c +++ b/lapacke/src/lapacke_csteqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csteqr( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_csteqr( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz ) { lapack_int info = 0; /* Additional scalars declarations for work arrays */ lapack_int lwork; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csteqr", -1 ); return -1; } @@ -53,7 +53,7 @@ lapack_int LAPACKE_csteqr( int matrix_order, char compz, lapack_int n, float* d, return -5; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } @@ -71,7 +71,7 @@ lapack_int LAPACKE_csteqr( int matrix_order, char compz, lapack_int n, float* d, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csteqr_work( matrix_order, compz, n, d, e, z, ldz, work ); + info = LAPACKE_csteqr_work( matrix_layout, compz, n, d, e, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_csteqr_work.c b/lapacke/src/lapacke_csteqr_work.c index 47dc2643..6cc3a349 100644 --- a/lapacke/src/lapacke_csteqr_work.c +++ b/lapacke/src/lapacke_csteqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_csteqr_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, lapack_complex_float* z, lapack_int ldz, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csteqr( &compz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_float* z_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_csteqr_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_cge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_csteqr( &compz, &n, d, e, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_csycon.c b/lapacke/src/lapacke_csycon.c index 7151cc56..094a2b65 100644 --- a/lapacke/src/lapacke_csycon.c +++ b/lapacke/src/lapacke_csycon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csycon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csycon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csycon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_s_nancheck( 1, &anorm, 1 ) ) { @@ -60,7 +60,7 @@ lapack_int LAPACKE_csycon( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csycon_work( matrix_order, uplo, n, a, lda, ipiv, anorm, + info = LAPACKE_csycon_work( matrix_layout, uplo, n, a, lda, ipiv, anorm, rcond, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csycon_work.c b/lapacke/src/lapacke_csycon_work.c index d41ef7bd..c6d924b6 100644 --- a/lapacke/src/lapacke_csycon_work.c +++ b/lapacke/src/lapacke_csycon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csycon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csycon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csycon( &uplo, &n, a, &lda, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_csycon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_csycon( &uplo, &n, a_t, &lda_t, ipiv, &anorm, rcond, work, &info ); diff --git a/lapacke/src/lapacke_csyconv.c b/lapacke/src/lapacke_csyconv.c index 6f7b4617..d937ef29 100644 --- a/lapacke/src/lapacke_csyconv.c +++ b/lapacke/src/lapacke_csyconv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyconv( int matrix_order, char uplo, char way, lapack_int n, +lapack_int LAPACKE_csyconv( int matrix_layout, char uplo, char way, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csyconv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, lda, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, lda, n, a, lda ) ) { return -5; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_csyconv( int matrix_order, char uplo, char way, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csyconv_work( matrix_order, uplo, way, n, a, lda, ipiv, + info = LAPACKE_csyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csyconv_work.c b/lapacke/src/lapacke_csyconv_work.c index bf5ee5cb..d02d9b94 100644 --- a/lapacke/src/lapacke_csyconv_work.c +++ b/lapacke/src/lapacke_csyconv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyconv_work( int matrix_order, char uplo, char way, +lapack_int LAPACKE_csyconv_work( int matrix_layout, char uplo, char way, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csyconv( &uplo, &way, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,lda); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_csyconv_work( int matrix_order, char uplo, char way, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, lda, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, lda, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_csyconv( &uplo, &way, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csyequb.c b/lapacke/src/lapacke_csyequb.c index 8a98b7d3..5a278e7f 100644 --- a/lapacke/src/lapacke_csyequb.c +++ b/lapacke/src/lapacke_csyequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyequb( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csyequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_csyequb( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csyequb_work( matrix_order, uplo, n, a, lda, s, scond, amax, + info = LAPACKE_csyequb_work( matrix_layout, uplo, n, a, lda, s, scond, amax, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csyequb_work.c b/lapacke/src/lapacke_csyequb_work.c index b37cd01e..df95e115 100644 --- a/lapacke/src/lapacke_csyequb_work.c +++ b/lapacke/src/lapacke_csyequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyequb_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* s, float* scond, float* amax, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csyequb( &uplo, &n, a, &lda, s, scond, amax, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_csyequb_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_csyequb( &uplo, &n, a_t, &lda_t, s, scond, amax, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csyr.c b/lapacke/src/lapacke_csyr.c index ceba5df1..7dbb3328 100644 --- a/lapacke/src/lapacke_csyr.c +++ b/lapacke/src/lapacke_csyr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyr( int matrix_layout, char uplo, lapack_int n, lapack_complex_float alpha, const lapack_complex_float* x, lapack_int incx, lapack_complex_float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csyr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -7; } if( LAPACKE_c_nancheck( 1, &alpha, 1 ) ) { @@ -54,6 +54,6 @@ lapack_int LAPACKE_csyr( int matrix_order, char uplo, lapack_int n, return -5; } #endif - return LAPACKE_csyr_work( matrix_order, uplo, n, alpha, x, incx, a, + return LAPACKE_csyr_work( matrix_layout, uplo, n, alpha, x, incx, a, lda ); } diff --git a/lapacke/src/lapacke_csyr_work.c b/lapacke/src/lapacke_csyr_work.c index 9f106f8f..c988efb0 100644 --- a/lapacke/src/lapacke_csyr_work.c +++ b/lapacke/src/lapacke_csyr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float alpha, const lapack_complex_float* x, lapack_int incx, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csyr( &uplo, &n, &alpha, x, &incx, a, &lda ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_csyr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_csyr( &uplo, &n, &alpha, x, &incx, a_t, &lda_t ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_csyrfs.c b/lapacke/src/lapacke_csyrfs.c index 31b1ea7f..8e80cdb7 100644 --- a/lapacke/src/lapacke_csyrfs.c +++ b/lapacke/src/lapacke_csyrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -44,22 +44,22 @@ lapack_int LAPACKE_csyrfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csyrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_csyrfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_csyrfs_work( matrix_order, uplo, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_csyrfs_work( matrix_layout, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csyrfs_work.c b/lapacke/src/lapacke_csyrfs_work.c index 9a16a6fd..7ef06fdc 100644 --- a/lapacke/src/lapacke_csyrfs_work.c +++ b/lapacke/src/lapacke_csyrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_csyrfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csyrfs( &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -108,10 +108,10 @@ lapack_int LAPACKE_csyrfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_csy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_csyrfs( &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_csyrfsx.c b/lapacke/src/lapacke_csyrfsx.c index 39bd0908..3cc7a91f 100644 --- a/lapacke/src/lapacke_csyrfsx.c +++ b/lapacke/src/lapacke_csyrfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyrfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_csyrfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, lapack_int ldaf, @@ -47,19 +47,19 @@ lapack_int LAPACKE_csyrfsx( int matrix_order, char uplo, char equed, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csyrfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( nparams>0 ) { @@ -72,7 +72,7 @@ lapack_int LAPACKE_csyrfsx( int matrix_order, char uplo, char equed, return -11; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -89,7 +89,7 @@ lapack_int LAPACKE_csyrfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_csyrfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_csyrfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, ipiv, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_csyrfsx_work.c b/lapacke/src/lapacke_csyrfsx_work.c index afc3bbc2..d5beea0b 100644 --- a/lapacke/src/lapacke_csyrfsx_work.c +++ b/lapacke/src/lapacke_csyrfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyrfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_csyrfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* af, @@ -47,7 +47,7 @@ lapack_int LAPACKE_csyrfsx_work( int matrix_order, char uplo, char equed, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csyrfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -56,7 +56,7 @@ lapack_int LAPACKE_csyrfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -128,10 +128,10 @@ lapack_int LAPACKE_csyrfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_csy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_csyrfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_csysv.c b/lapacke/src/lapacke_csysv.c index 93860e3e..cb4e4623 100644 --- a/lapacke/src/lapacke_csysv.c +++ b/lapacke/src/lapacke_csysv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csysv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) @@ -42,21 +42,21 @@ lapack_int LAPACKE_csysv( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csysv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_csysv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_csysv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -70,7 +70,7 @@ lapack_int LAPACKE_csysv( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csysv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_csysv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csysv_rook.c b/lapacke/src/lapacke_csysv_rook.c index e67768ca..1038efa2 100644 --- a/lapacke/src/lapacke_csysv_rook.c +++ b/lapacke/src/lapacke_csysv_rook.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csysv_rook( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) @@ -42,21 +42,21 @@ lapack_int LAPACKE_csysv_rook( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csysv_rook", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_csysv_rook_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, + info = LAPACKE_csysv_rook_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -70,7 +70,7 @@ lapack_int LAPACKE_csysv_rook( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csysv_rook_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, + info = LAPACKE_csysv_rook_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csysv_rook_work.c b/lapacke/src/lapacke_csysv_rook_work.c index 5c173187..39034a15 100644 --- a/lapacke/src/lapacke_csysv_rook_work.c +++ b/lapacke/src/lapacke_csysv_rook_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_csysv_rook_work( int matrix_order, char uplo, lapack_int n, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csysv_rook( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_csysv_rook_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_csysv_rook( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_csysv_work.c b/lapacke/src/lapacke_csysv_work.c index 90135c5b..30aa1d35 100644 --- a/lapacke/src/lapacke_csysv_work.c +++ b/lapacke/src/lapacke_csysv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csysv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csysv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csysv( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_csysv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_csysv( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_csysvx.c b/lapacke/src/lapacke_csysvx.c index 5965dc7a..a96331a6 100644 --- a/lapacke/src/lapacke_csysvx.c +++ b/lapacke/src/lapacke_csysvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csysvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_csysvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, lapack_int* ipiv, @@ -46,21 +46,21 @@ lapack_int LAPACKE_csysvx( int matrix_order, char fact, char uplo, lapack_int n, float* rwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csysvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -11; } #endif @@ -71,7 +71,7 @@ lapack_int LAPACKE_csysvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_csysvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_csysvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, &work_query, lwork, rwork ); if( info != 0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_csysvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_csysvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_csysvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, lwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_csysvx_work.c b/lapacke/src/lapacke_csysvx_work.c index b7fa7b2e..2319d0fc 100644 --- a/lapacke/src/lapacke_csysvx_work.c +++ b/lapacke/src/lapacke_csysvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csysvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_csysvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -44,7 +44,7 @@ lapack_int LAPACKE_csysvx_work( int matrix_order, char fact, char uplo, lapack_int lwork, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csysvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, &lwork, rwork, @@ -52,7 +52,7 @@ lapack_int LAPACKE_csysvx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -117,11 +117,11 @@ lapack_int LAPACKE_csysvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_csy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_csysvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, diff --git a/lapacke/src/lapacke_csysvxx.c b/lapacke/src/lapacke_csysvxx.c index f1db27aa..cf885c8e 100644 --- a/lapacke/src/lapacke_csysvxx.c +++ b/lapacke/src/lapacke_csysvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csysvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_csysvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -48,21 +48,21 @@ lapack_int LAPACKE_csysvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csysvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( nparams>0 ) { @@ -89,7 +89,7 @@ lapack_int LAPACKE_csysvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_csysvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_csysvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_csysvxx_work.c b/lapacke/src/lapacke_csysvxx_work.c index 4d97c2b1..f37925d1 100644 --- a/lapacke/src/lapacke_csysvxx_work.c +++ b/lapacke/src/lapacke_csysvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_csysvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_float* a, lapack_int lda, lapack_complex_float* af, lapack_int ldaf, @@ -47,7 +47,7 @@ lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csysvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, @@ -56,7 +56,7 @@ lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -128,11 +128,11 @@ lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_csy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_csysvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, @@ -154,9 +154,9 @@ lapack_int LAPACKE_csysvxx_work( int matrix_order, char fact, char uplo, } LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_csyswapr.c b/lapacke/src/lapacke_csyswapr.c index 62800795..c1486663 100644 --- a/lapacke/src/lapacke_csyswapr.c +++ b/lapacke/src/lapacke_csyswapr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyswapr( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int i1, lapack_int i2 ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csyswapr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, n ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, n ) ) { return -4; } #endif - return LAPACKE_csyswapr_work( matrix_order, uplo, n, a, i1, i2 ); + return LAPACKE_csyswapr_work( matrix_layout, uplo, n, a, i1, i2 ); } diff --git a/lapacke/src/lapacke_csyswapr_work.c b/lapacke/src/lapacke_csyswapr_work.c index 7bdc269c..eab18085 100644 --- a/lapacke/src/lapacke_csyswapr_work.c +++ b/lapacke/src/lapacke_csyswapr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csyswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csyswapr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int i1, lapack_int i2 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csyswapr( &uplo, &n, a, &i1, &i2 ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_csyswapr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, n, a_t, n ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, n, a_t, n ); /* Call LAPACK function and adjust info */ LAPACK_csyswapr( &uplo, &n, a_t, &i1, &i2 ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_csytrf.c b/lapacke/src/lapacke_csytrf.c index 0b1ebc93..3ee79606 100644 --- a/lapacke/src/lapacke_csytrf.c +++ b/lapacke/src/lapacke_csytrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_csytrf( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csytrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_csytrf_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_csytrf_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_csytrf( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csytrf_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_csytrf_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csytrf_work.c b/lapacke/src/lapacke_csytrf_work.c index c59ae5b2..53a28da1 100644 --- a/lapacke/src/lapacke_csytrf_work.c +++ b/lapacke/src/lapacke_csytrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csytrf( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_csytrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_csytrf( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csytri.c b/lapacke/src/lapacke_csytri.c index 6f39d58d..0d002df9 100644 --- a/lapacke/src/lapacke_csytri.c +++ b/lapacke/src/lapacke_csytri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csytri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_csytri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csytri_work( matrix_order, uplo, n, a, lda, ipiv, work ); + info = LAPACKE_csytri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_csytri2.c b/lapacke/src/lapacke_csytri2.c index 51de0c77..d663a2f2 100644 --- a/lapacke/src/lapacke_csytri2.c +++ b/lapacke/src/lapacke_csytri2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri2( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_csytri2( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csytri2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_csytri2_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_csytri2_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_csytri2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csytri2_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_csytri2_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csytri2_work.c b/lapacke/src/lapacke_csytri2_work.c index d334b145..3bdc6048 100644 --- a/lapacke/src/lapacke_csytri2_work.c +++ b/lapacke/src/lapacke_csytri2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri2_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csytri2( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_csytri2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_csytri2( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csytri2x.c b/lapacke/src/lapacke_csytri2x.c index 697003bf..40c1deed 100644 --- a/lapacke/src/lapacke_csytri2x.c +++ b/lapacke/src/lapacke_csytri2x.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri2x( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csytri2x", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_csytri2x( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csytri2x_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_csytri2x_work( matrix_layout, uplo, n, a, lda, ipiv, work, nb ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csytri2x_work.c b/lapacke/src/lapacke_csytri2x_work.c index e9e9dbbf..d7b6e667 100644 --- a/lapacke/src/lapacke_csytri2x_work.c +++ b/lapacke/src/lapacke_csytri2x_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri2x_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int nb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csytri2x( &uplo, &n, a, &lda, ipiv, work, &nb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_csytri2x_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_csytri2x( &uplo, &n, a_t, &lda_t, ipiv, work, &nb, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csytri_work.c b/lapacke/src/lapacke_csytri_work.c index eb64d1bd..36f81d1b 100644 --- a/lapacke/src/lapacke_csytri_work.c +++ b/lapacke/src/lapacke_csytri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csytri( &uplo, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_csytri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_csytri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_csytrs.c b/lapacke/src/lapacke_csytrs.c index 36f95ce2..fe94c11d 100644 --- a/lapacke/src/lapacke_csytrs.c +++ b/lapacke/src/lapacke_csytrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csytrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_csytrs_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + return LAPACKE_csytrs_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_csytrs2.c b/lapacke/src/lapacke_csytrs2.c index 5b01cd46..42a99ed2 100644 --- a/lapacke/src/lapacke_csytrs2.c +++ b/lapacke/src/lapacke_csytrs2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrs2( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_csytrs2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_csytrs2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_csytrs2_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_csytrs2_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_csytrs2_work.c b/lapacke/src/lapacke_csytrs2_work.c index 62c776d9..1e5d26c4 100644 --- a/lapacke/src/lapacke_csytrs2_work.c +++ b/lapacke/src/lapacke_csytrs2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytrs2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrs2_work( int matrix_layout, char uplo, lapack_int n, 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 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csytrs2( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -77,8 +77,8 @@ lapack_int LAPACKE_csytrs2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_csytrs2( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_csytrs_work.c b/lapacke/src/lapacke_csytrs_work.c index 50da23be..542b70b7 100644 --- a/lapacke/src/lapacke_csytrs_work.c +++ b/lapacke/src/lapacke_csytrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_csytrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_csytrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_csytrs( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_csytrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_csytrs( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_ctbcon.c b/lapacke/src/lapacke_ctbcon.c index a52a28c1..43faf5dd 100644 --- a/lapacke/src/lapacke_ctbcon.c +++ b/lapacke/src/lapacke_ctbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctbcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ctbcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float* rcond ) @@ -41,13 +41,13 @@ lapack_int LAPACKE_ctbcon( int matrix_order, char norm, char uplo, char diag, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_ctb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -7; } #endif @@ -64,7 +64,7 @@ lapack_int LAPACKE_ctbcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctbcon_work( matrix_order, norm, uplo, diag, n, kd, ab, ldab, + info = LAPACKE_ctbcon_work( matrix_layout, norm, uplo, diag, n, kd, ab, ldab, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctbcon_work.c b/lapacke/src/lapacke_ctbcon_work.c index 0e787ecd..61d5bf61 100644 --- a/lapacke/src/lapacke_ctbcon_work.c +++ b/lapacke/src/lapacke_ctbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctbcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ctbcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab, float* rcond, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctbcon( &norm, &uplo, &diag, &n, &kd, ab, &ldab, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_complex_float* ab_t = NULL; /* Check leading dimension(s) */ @@ -64,7 +64,7 @@ lapack_int LAPACKE_ctbcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ctb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_ctb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_ctbcon( &norm, &uplo, &diag, &n, &kd, ab_t, &ldab_t, rcond, work, diff --git a/lapacke/src/lapacke_ctbrfs.c b/lapacke/src/lapacke_ctbrfs.c index 42e3e24b..bbecffc7 100644 --- a/lapacke/src/lapacke_ctbrfs.c +++ b/lapacke/src/lapacke_ctbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* b, lapack_int ldb, @@ -43,19 +43,19 @@ lapack_int LAPACKE_ctbrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_ctb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_ctbrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctbrfs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + info = LAPACKE_ctbrfs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ctbrfs_work.c b/lapacke/src/lapacke_ctbrfs_work.c index 1069d766..801cb795 100644 --- a/lapacke/src/lapacke_ctbrfs_work.c +++ b/lapacke/src/lapacke_ctbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctbrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctbrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, const lapack_complex_float* b, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ctbrfs_work( int matrix_order, char uplo, char trans, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctbrfs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -94,10 +94,10 @@ lapack_int LAPACKE_ctbrfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_ctb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_ctb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_ctbrfs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ctbtrs.c b/lapacke/src/lapacke_ctbtrs.c index 3a4495aa..e5273b80 100644 --- a/lapacke/src/lapacke_ctbtrs.c +++ b/lapacke/src/lapacke_ctbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctbtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctbtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_ctb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } #endif - return LAPACKE_ctbtrs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + return LAPACKE_ctbtrs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb ); } diff --git a/lapacke/src/lapacke_ctbtrs_work.c b/lapacke/src/lapacke_ctbtrs_work.c index 5660ab2a..c4846278 100644 --- a/lapacke/src/lapacke_ctbtrs_work.c +++ b/lapacke/src/lapacke_ctbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctbtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctbtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_float* ab, lapack_int ldab, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctbtrs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_complex_float* ab_t = NULL; @@ -78,9 +78,9 @@ lapack_int LAPACKE_ctbtrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ctb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_ctb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ctbtrs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_ctfsm.c b/lapacke/src/lapacke_ctfsm.c index 3b3bdcd2..742fe650 100644 --- a/lapacke/src/lapacke_ctfsm.c +++ b/lapacke/src/lapacke_ctfsm.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_ctfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_float alpha, const lapack_complex_float* a, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctfsm", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( IS_C_NONZERO(alpha) ) { - if( LAPACKE_ctf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_ctf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -10; } } @@ -54,11 +54,11 @@ lapack_int LAPACKE_ctfsm( int matrix_order, char transr, char side, char uplo, return -9; } if( IS_C_NONZERO(alpha) ) { - if( LAPACKE_cge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -11; } } #endif - return LAPACKE_ctfsm_work( matrix_order, transr, side, uplo, trans, diag, m, + return LAPACKE_ctfsm_work( matrix_layout, transr, side, uplo, trans, diag, m, n, alpha, a, b, ldb ); } diff --git a/lapacke/src/lapacke_ctfsm_work.c b/lapacke/src/lapacke_ctfsm_work.c index d5c1f7dc..88d4b63e 100644 --- a/lapacke/src/lapacke_ctfsm_work.c +++ b/lapacke/src/lapacke_ctfsm_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctfsm_work( int matrix_order, char transr, char side, +lapack_int LAPACKE_ctfsm_work( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_float alpha, const lapack_complex_float* a, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctfsm( &transr, &side, &uplo, &trans, &diag, &m, &n, &alpha, a, b, &ldb ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,m); lapack_complex_float* b_t = NULL; lapack_complex_float* a_t = NULL; @@ -75,10 +75,10 @@ lapack_int LAPACKE_ctfsm_work( int matrix_order, char transr, char side, } /* Transpose input matrices */ if( IS_C_NONZERO(alpha) ) { - LAPACKE_cge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); } if( IS_C_NONZERO(alpha) ) { - LAPACKE_ctf_trans( matrix_order, transr, uplo, diag, n, a, a_t ); + LAPACKE_ctf_trans( matrix_layout, transr, uplo, diag, n, a, a_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctfsm( &transr, &side, &uplo, &trans, &diag, &m, &n, &alpha, a_t, diff --git a/lapacke/src/lapacke_ctftri.c b/lapacke/src/lapacke_ctftri.c index c75d3349..74c3081d 100644 --- a/lapacke/src/lapacke_ctftri.c +++ b/lapacke/src/lapacke_ctftri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctftri( int matrix_order, char transr, char uplo, char diag, +lapack_int LAPACKE_ctftri( int matrix_layout, char transr, char uplo, char diag, lapack_int n, lapack_complex_float* a ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctftri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_ctf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -6; } #endif - return LAPACKE_ctftri_work( matrix_order, transr, uplo, diag, n, a ); + return LAPACKE_ctftri_work( matrix_layout, transr, uplo, diag, n, a ); } diff --git a/lapacke/src/lapacke_ctftri_work.c b/lapacke/src/lapacke_ctftri_work.c index 78f6cb2c..bf09c957 100644 --- a/lapacke/src/lapacke_ctftri_work.c +++ b/lapacke/src/lapacke_ctftri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctftri_work( int matrix_layout, char transr, char uplo, char diag, lapack_int n, lapack_complex_float* a ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctftri( &transr, &uplo, &diag, &n, a, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_float*) @@ -55,7 +55,7 @@ lapack_int LAPACKE_ctftri_work( int matrix_order, char transr, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ctf_trans( matrix_order, transr, uplo, diag, n, a, a_t ); + LAPACKE_ctf_trans( matrix_layout, transr, uplo, diag, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_ctftri( &transr, &uplo, &diag, &n, a_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctfttp.c b/lapacke/src/lapacke_ctfttp.c index c5a9467b..e34aef62 100644 --- a/lapacke/src/lapacke_ctfttp.c +++ b/lapacke/src/lapacke_ctfttp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctfttp( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctfttp( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* arf, lapack_complex_float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctfttp", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_ctfttp( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_ctfttp_work( matrix_order, transr, uplo, n, arf, ap ); + return LAPACKE_ctfttp_work( matrix_layout, transr, uplo, n, arf, ap ); } diff --git a/lapacke/src/lapacke_ctfttp_work.c b/lapacke/src/lapacke_ctfttp_work.c index 65a7dd4b..20879757 100644 --- a/lapacke/src/lapacke_ctfttp_work.c +++ b/lapacke/src/lapacke_ctfttp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctfttp_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctfttp_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* arf, lapack_complex_float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctfttp( &transr, &uplo, &n, arf, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; lapack_complex_float* arf_t = NULL; /* Allocate memory for temporary array(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_ctfttp_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpf_trans( matrix_order, transr, uplo, n, arf, arf_t ); + LAPACKE_cpf_trans( matrix_layout, transr, uplo, n, arf, arf_t ); /* Call LAPACK function and adjust info */ LAPACK_ctfttp( &transr, &uplo, &n, arf_t, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctfttr.c b/lapacke/src/lapacke_ctfttr.c index 0fb2b1e9..b2566d1d 100644 --- a/lapacke/src/lapacke_ctfttr.c +++ b/lapacke/src/lapacke_ctfttr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctfttr( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctfttr( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* arf, lapack_complex_float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctfttr", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_ctfttr( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_ctfttr_work( matrix_order, transr, uplo, n, arf, a, lda ); + return LAPACKE_ctfttr_work( matrix_layout, transr, uplo, n, arf, a, lda ); } diff --git a/lapacke/src/lapacke_ctfttr_work.c b/lapacke/src/lapacke_ctfttr_work.c index 47e4d039..cda49c5f 100644 --- a/lapacke/src/lapacke_ctfttr_work.c +++ b/lapacke/src/lapacke_ctfttr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctfttr_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctfttr_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* arf, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctfttr( &transr, &uplo, &n, arf, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; lapack_complex_float* arf_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_ctfttr_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpf_trans( matrix_order, transr, uplo, n, arf, arf_t ); + LAPACKE_cpf_trans( matrix_layout, transr, uplo, n, arf, arf_t ); /* Call LAPACK function and adjust info */ LAPACK_ctfttr( &transr, &uplo, &n, arf_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctgevc.c b/lapacke/src/lapacke_ctgevc.c index 0891fd85..31418e6e 100644 --- a/lapacke/src/lapacke_ctgevc.c +++ b/lapacke/src/lapacke_ctgevc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ctgevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* s, lapack_int lds, const lapack_complex_float* p, lapack_int ldp, @@ -44,25 +44,25 @@ lapack_int LAPACKE_ctgevc( int matrix_order, char side, char howmny, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctgevc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, p, ldp ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, p, ldp ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, s, lds ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, s, lds ) ) { return -6; } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'l' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'r' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -80,7 +80,7 @@ lapack_int LAPACKE_ctgevc( int matrix_order, char side, char howmny, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctgevc_work( matrix_order, side, howmny, select, n, s, lds, + info = LAPACKE_ctgevc_work( matrix_layout, side, howmny, select, n, s, lds, p, ldp, vl, ldvl, vr, ldvr, mm, m, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ctgevc_work.c b/lapacke/src/lapacke_ctgevc_work.c index c586a9f9..012cede7 100644 --- a/lapacke/src/lapacke_ctgevc_work.c +++ b/lapacke/src/lapacke_ctgevc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ctgevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* s, lapack_int lds, const lapack_complex_float* p, lapack_int ldp, @@ -43,14 +43,14 @@ lapack_int LAPACKE_ctgevc_work( int matrix_order, char side, char howmny, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctgevc( &side, &howmny, select, &n, s, &lds, p, &ldp, vl, &ldvl, vr, &ldvr, &mm, m, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldp_t = MAX(1,n); lapack_int lds_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); @@ -112,15 +112,15 @@ lapack_int LAPACKE_ctgevc_work( int matrix_order, char side, char howmny, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, s, lds, s_t, lds_t ); - LAPACKE_cge_trans( matrix_order, n, n, p, ldp, p_t, ldp_t ); + LAPACKE_cge_trans( matrix_layout, n, n, s, lds, s_t, lds_t ); + LAPACKE_cge_trans( matrix_layout, n, n, p, ldp, p_t, ldp_t ); if( ( LAPACKE_lsame( side, 'l' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( side, 'r' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctgevc( &side, &howmny, select, &n, s_t, &lds_t, p_t, &ldp_t, diff --git a/lapacke/src/lapacke_ctgexc.c b/lapacke/src/lapacke_ctgexc.c index afc4dc70..795f8c0e 100644 --- a/lapacke/src/lapacke_ctgexc.c +++ b/lapacke/src/lapacke_ctgexc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgexc( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_ctgexc( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -41,29 +41,29 @@ lapack_int LAPACKE_ctgexc( int matrix_order, lapack_logical wantq, lapack_complex_float* z, lapack_int ldz, lapack_int ifst, lapack_int ilst ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctgexc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -7; } if( wantq ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -9; } } if( wantz ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -11; } } #endif - return LAPACKE_ctgexc_work( matrix_order, wantq, wantz, n, a, lda, b, ldb, + return LAPACKE_ctgexc_work( matrix_layout, wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, ifst, ilst ); } diff --git a/lapacke/src/lapacke_ctgexc_work.c b/lapacke/src/lapacke_ctgexc_work.c index f9f40b2e..fdb22746 100644 --- a/lapacke/src/lapacke_ctgexc_work.c +++ b/lapacke/src/lapacke_ctgexc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgexc_work( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_ctgexc_work( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ctgexc_work( int matrix_order, lapack_logical wantq, lapack_int ifst, lapack_int ilst ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctgexc( &wantq, &wantz, &n, a, &lda, b, &ldb, q, &ldq, z, &ldz, &ifst, &ilst, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -111,13 +111,13 @@ lapack_int LAPACKE_ctgexc_work( int matrix_order, lapack_logical wantq, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( wantq ) { - LAPACKE_cge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_cge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( wantz ) { - LAPACKE_cge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_cge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctgexc( &wantq, &wantz, &n, a_t, &lda_t, b_t, &ldb_t, q_t, diff --git a/lapacke/src/lapacke_ctgsen.c b/lapacke/src/lapacke_ctgsen.c index a82b823b..956dbc61 100644 --- a/lapacke/src/lapacke_ctgsen.c +++ b/lapacke/src/lapacke_ctgsen.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgsen( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_ctgsen( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, lapack_complex_float* a, lapack_int lda, @@ -51,31 +51,31 @@ lapack_int LAPACKE_ctgsen( int matrix_order, lapack_int ijob, lapack_complex_float* work = NULL; lapack_int iwork_query; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctgsen", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } if( wantq ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -13; } } if( wantz ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -15; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ctgsen_work( matrix_order, ijob, wantq, wantz, select, n, a, + info = LAPACKE_ctgsen_work( matrix_layout, ijob, wantq, wantz, select, n, a, lda, b, ldb, alpha, beta, q, ldq, z, ldz, m, pl, pr, dif, &work_query, lwork, &iwork_query, liwork ); @@ -99,7 +99,7 @@ lapack_int LAPACKE_ctgsen( int matrix_order, lapack_int ijob, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctgsen_work( matrix_order, ijob, wantq, wantz, select, n, a, + info = LAPACKE_ctgsen_work( matrix_layout, ijob, wantq, wantz, select, n, a, lda, b, ldb, alpha, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ctgsen_work.c b/lapacke/src/lapacke_ctgsen_work.c index 1abd5e14..590e430e 100644 --- a/lapacke/src/lapacke_ctgsen_work.c +++ b/lapacke/src/lapacke_ctgsen_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgsen_work( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_ctgsen_work( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, lapack_complex_float* a, lapack_int lda, @@ -47,7 +47,7 @@ lapack_int LAPACKE_ctgsen_work( int matrix_order, lapack_int ijob, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctgsen( &ijob, &wantq, &wantz, select, &n, a, &lda, b, &ldb, alpha, beta, q, &ldq, z, &ldz, m, pl, pr, dif, work, @@ -55,7 +55,7 @@ lapack_int LAPACKE_ctgsen_work( int matrix_order, lapack_int ijob, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -124,13 +124,13 @@ lapack_int LAPACKE_ctgsen_work( int matrix_order, lapack_int ijob, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( wantq ) { - LAPACKE_cge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_cge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( wantz ) { - LAPACKE_cge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_cge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctgsen( &ijob, &wantq, &wantz, select, &n, a_t, &lda_t, b_t, diff --git a/lapacke/src/lapacke_ctgsja.c b/lapacke/src/lapacke_ctgsja.c index d13f77e1..d197c630 100644 --- a/lapacke/src/lapacke_ctgsja.c +++ b/lapacke/src/lapacke_ctgsja.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgsja( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_ctgsja( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, @@ -45,20 +45,20 @@ lapack_int LAPACKE_ctgsja( int matrix_order, char jobu, char jobv, char jobq, { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctgsja", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -10; } - if( LAPACKE_cge_nancheck( matrix_order, p, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, p, n, b, ldb ) ) { return -12; } if( LAPACKE_lsame( jobq, 'i' ) || LAPACKE_lsame( jobq, 'q' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -22; } } @@ -69,12 +69,12 @@ lapack_int LAPACKE_ctgsja( int matrix_order, char jobu, char jobv, char jobq, return -15; } if( LAPACKE_lsame( jobu, 'i' ) || LAPACKE_lsame( jobu, 'u' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, m, m, u, ldu ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, m, u, ldu ) ) { return -18; } } if( LAPACKE_lsame( jobv, 'i' ) || LAPACKE_lsame( jobv, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, p, p, v, ldv ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, p, p, v, ldv ) ) { return -20; } } @@ -87,7 +87,7 @@ lapack_int LAPACKE_ctgsja( int matrix_order, char jobu, char jobv, char jobq, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ctgsja_work( matrix_order, jobu, jobv, jobq, m, p, n, k, l, + info = LAPACKE_ctgsja_work( matrix_layout, jobu, jobv, jobq, m, p, n, k, l, a, lda, b, ldb, tola, tolb, alpha, beta, u, ldu, v, ldv, q, ldq, work, ncycle ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ctgsja_work.c b/lapacke/src/lapacke_ctgsja_work.c index 33543a11..b477d159 100644 --- a/lapacke/src/lapacke_ctgsja_work.c +++ b/lapacke/src/lapacke_ctgsja_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgsja_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_ctgsja_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, lapack_complex_float* a, lapack_int lda, @@ -46,7 +46,7 @@ lapack_int LAPACKE_ctgsja_work( int matrix_order, char jobu, char jobv, lapack_int* ncycle ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctgsja( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a, &lda, b, &ldb, &tola, &tolb, alpha, beta, u, &ldu, v, &ldv, q, @@ -54,7 +54,7 @@ lapack_int LAPACKE_ctgsja_work( int matrix_order, char jobu, char jobv, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,p); lapack_int ldq_t = MAX(1,n); @@ -132,16 +132,16 @@ lapack_int LAPACKE_ctgsja_work( int matrix_order, char jobu, char jobv, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, p, n, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, p, n, b, ldb, b_t, ldb_t ); if( LAPACKE_lsame( jobu, 'u' ) ) { - LAPACKE_cge_trans( matrix_order, m, m, u, ldu, u_t, ldu_t ); + LAPACKE_cge_trans( matrix_layout, m, m, u, ldu, u_t, ldu_t ); } if( LAPACKE_lsame( jobv, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, p, p, v, ldv, v_t, ldv_t ); + LAPACKE_cge_trans( matrix_layout, p, p, v, ldv, v_t, ldv_t ); } if( LAPACKE_lsame( jobq, 'q' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_cge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctgsja( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a_t, &lda_t, diff --git a/lapacke/src/lapacke_ctgsna.c b/lapacke/src/lapacke_ctgsna.c index 25095ed3..b9018998 100644 --- a/lapacke/src/lapacke_ctgsna.c +++ b/lapacke/src/lapacke_ctgsna.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ctgsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -46,25 +46,25 @@ lapack_int LAPACKE_ctgsna( int matrix_order, char job, char howmny, lapack_int* iwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctgsna", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -78,7 +78,7 @@ lapack_int LAPACKE_ctgsna( int matrix_order, char job, char howmny, } } /* Query optimal working array(s) size */ - info = LAPACKE_ctgsna_work( matrix_order, job, howmny, select, n, a, lda, b, + info = LAPACKE_ctgsna_work( matrix_layout, job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, &work_query, lwork, iwork ); if( info != 0 ) { @@ -95,7 +95,7 @@ lapack_int LAPACKE_ctgsna( int matrix_order, char job, char howmny, } } /* Call middle-level interface */ - info = LAPACKE_ctgsna_work( matrix_order, job, howmny, select, n, a, lda, b, + info = LAPACKE_ctgsna_work( matrix_layout, job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ctgsna_work.c b/lapacke/src/lapacke_ctgsna_work.c index e142ddda..b6c54aea 100644 --- a/lapacke/src/lapacke_ctgsna_work.c +++ b/lapacke/src/lapacke_ctgsna_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ctgsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -44,14 +44,14 @@ lapack_int LAPACKE_ctgsna_work( int matrix_order, char job, char howmny, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctgsna( &job, &howmny, select, &n, a, &lda, b, &ldb, vl, &ldvl, vr, &ldvr, s, dif, &mm, m, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); @@ -120,13 +120,13 @@ lapack_int LAPACKE_ctgsna_work( int matrix_order, char job, char howmny, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctgsna( &job, &howmny, select, &n, a_t, &lda_t, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_ctgsyl.c b/lapacke/src/lapacke_ctgsyl.c index 636c1d7b..8db60fc1 100644 --- a/lapacke/src/lapacke_ctgsyl.c +++ b/lapacke/src/lapacke_ctgsyl.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgsyl( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_ctgsyl( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -48,28 +48,28 @@ lapack_int LAPACKE_ctgsyl( int matrix_order, char trans, lapack_int ijob, lapack_int* iwork = NULL; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctgsyl", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, m, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, m, a, lda ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } - if( LAPACKE_cge_nancheck( matrix_order, m, m, d, ldd ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, m, d, ldd ) ) { return -12; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, e, lde ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, e, lde ) ) { return -14; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, f, ldf ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, f, ldf ) ) { return -16; } #endif @@ -80,7 +80,7 @@ lapack_int LAPACKE_ctgsyl( int matrix_order, char trans, lapack_int ijob, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_ctgsyl_work( matrix_order, trans, ijob, m, n, a, lda, b, ldb, + info = LAPACKE_ctgsyl_work( matrix_layout, trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, &work_query, lwork, iwork ); if( info != 0 ) { @@ -95,7 +95,7 @@ lapack_int LAPACKE_ctgsyl( int matrix_order, char trans, lapack_int ijob, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctgsyl_work( matrix_order, trans, ijob, m, n, a, lda, b, ldb, + info = LAPACKE_ctgsyl_work( matrix_layout, trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ctgsyl_work.c b/lapacke/src/lapacke_ctgsyl_work.c index a2cb5a48..6846a35b 100644 --- a/lapacke/src/lapacke_ctgsyl_work.c +++ b/lapacke/src/lapacke_ctgsyl_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctgsyl_work( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_ctgsyl_work( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -46,7 +46,7 @@ lapack_int LAPACKE_ctgsyl_work( int matrix_order, char trans, lapack_int ijob, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctgsyl( &trans, &ijob, &m, &n, a, &lda, b, &ldb, c, &ldc, d, &ldd, e, &lde, f, &ldf, scale, dif, work, &lwork, iwork, @@ -54,7 +54,7 @@ lapack_int LAPACKE_ctgsyl_work( int matrix_order, char trans, lapack_int ijob, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,n); lapack_int ldc_t = MAX(1,m); @@ -143,12 +143,12 @@ lapack_int LAPACKE_ctgsyl_work( int matrix_order, char trans, lapack_int ijob, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, m, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); - LAPACKE_cge_trans( matrix_order, m, m, d, ldd, d_t, ldd_t ); - LAPACKE_cge_trans( matrix_order, n, n, e, lde, e_t, lde_t ); - LAPACKE_cge_trans( matrix_order, m, n, f, ldf, f_t, ldf_t ); + LAPACKE_cge_trans( matrix_layout, m, m, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, m, m, d, ldd, d_t, ldd_t ); + LAPACKE_cge_trans( matrix_layout, n, n, e, lde, e_t, lde_t ); + LAPACKE_cge_trans( matrix_layout, m, n, f, ldf, f_t, ldf_t ); /* Call LAPACK function and adjust info */ LAPACK_ctgsyl( &trans, &ijob, &m, &n, a_t, &lda_t, b_t, &ldb_t, c_t, &ldc_t, d_t, &ldd_t, e_t, &lde_t, f_t, &ldf_t, scale, diff --git a/lapacke/src/lapacke_ctpcon.c b/lapacke/src/lapacke_ctpcon.c index 6f9fd8c6..3b618014 100644 --- a/lapacke/src/lapacke_ctpcon.c +++ b/lapacke/src/lapacke_ctpcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ctpcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_float* ap, float* rcond ) { lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctpcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_ctp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -6; } #endif @@ -63,7 +63,7 @@ lapack_int LAPACKE_ctpcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctpcon_work( matrix_order, norm, uplo, diag, n, ap, rcond, + info = LAPACKE_ctpcon_work( matrix_layout, norm, uplo, diag, n, ap, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctpcon_work.c b/lapacke/src/lapacke_ctpcon_work.c index 2223eeff..d1c62900 100644 --- a/lapacke/src/lapacke_ctpcon_work.c +++ b/lapacke/src/lapacke_ctpcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ctpcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_float* ap, float* rcond, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctpcon( &norm, &uplo, &diag, &n, ap, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_ctpcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ctp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_ctp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ctpcon( &norm, &uplo, &diag, &n, ap_t, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ctpmqrt.c b/lapacke/src/lapacke_ctpmqrt.c index 37ea75bb..5ae8687f 100644 --- a/lapacke/src/lapacke_ctpmqrt.c +++ b/lapacke/src/lapacke_ctpmqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpmqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_ctpmqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const lapack_complex_float* v, lapack_int ldv, @@ -43,22 +43,22 @@ lapack_int LAPACKE_ctpmqrt( int matrix_order, char side, char trans, { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctpmqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, k, m, a, lda ) ) { return -13; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -15; } - if( LAPACKE_cge_nancheck( matrix_order, ldt, nb, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, ldt, nb, t, ldt ) ) { return -11; } - if( LAPACKE_cge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -9; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_ctpmqrt( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ctpmqrt_work( matrix_order, side, trans, m, n, k, l, nb, v, + info = LAPACKE_ctpmqrt_work( matrix_layout, side, trans, m, n, k, l, nb, v, ldv, t, ldt, a, lda, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctpmqrt_work.c b/lapacke/src/lapacke_ctpmqrt_work.c index b76c1dc0..4a69f519 100644 --- a/lapacke/src/lapacke_ctpmqrt_work.c +++ b/lapacke/src/lapacke_ctpmqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpmqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_ctpmqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const lapack_complex_float* v, lapack_int ldv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_ctpmqrt_work( int matrix_order, char side, char trans, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctpmqrt( &side, &trans, &m, &n, &k, &l, &nb, v, &ldv, t, &ldt, a, &lda, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k; lapack_int lda_t = MAX(1,k); lapack_int ldb_t = MAX(1,m); @@ -107,10 +107,10 @@ lapack_int LAPACKE_ctpmqrt_work( int matrix_order, char side, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_cge_trans( matrix_order, ldt, nb, t, ldt, t_t, ldt_t ); - LAPACKE_cge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_cge_trans( matrix_layout, ldt, nb, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ctpmqrt( &side, &trans, &m, &n, &k, &l, &nb, v_t, &ldv_t, t_t, &ldt_t, a_t, &lda_t, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_ctpqrt.c b/lapacke/src/lapacke_ctpqrt.c index db5a87be..15c58cf3 100644 --- a/lapacke/src/lapacke_ctpqrt.c +++ b/lapacke/src/lapacke_ctpqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ctpqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -41,16 +41,16 @@ lapack_int LAPACKE_ctpqrt( int matrix_order, lapack_int m, lapack_int n, { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctpqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -9; } #endif @@ -62,7 +62,7 @@ lapack_int LAPACKE_ctpqrt( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ctpqrt_work( matrix_order, m, n, l, nb, a, lda, b, ldb, + info = LAPACKE_ctpqrt_work( matrix_layout, m, n, l, nb, a, lda, b, ldb, t, ldt, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctpqrt2.c b/lapacke/src/lapacke_ctpqrt2.c index 607ebf46..8934a802 100644 --- a/lapacke/src/lapacke_ctpqrt2.c +++ b/lapacke/src/lapacke_ctpqrt2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpqrt2( int matrix_order, +lapack_int LAPACKE_ctpqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctpqrt2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -6; } #endif - return LAPACKE_ctpqrt2_work( matrix_order, m, n, l, a, lda, b, ldb, t, ldt ); + return LAPACKE_ctpqrt2_work( matrix_layout, m, n, l, a, lda, b, ldb, t, ldt ); } diff --git a/lapacke/src/lapacke_ctpqrt2_work.c b/lapacke/src/lapacke_ctpqrt2_work.c index 7ea0801e..6fca3875 100644 --- a/lapacke/src/lapacke_ctpqrt2_work.c +++ b/lapacke/src/lapacke_ctpqrt2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpqrt2_work( int matrix_order, +lapack_int LAPACKE_ctpqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, lapack_complex_float* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctpqrt2( &m, &n, &l, a, &lda, b, &ldb, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); @@ -89,8 +89,8 @@ lapack_int LAPACKE_ctpqrt2_work( int matrix_order, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ctpqrt2( &m, &n, &l, a_t, &lda_t, b_t, &ldb_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctpqrt_work.c b/lapacke/src/lapacke_ctpqrt_work.c index d5c3e617..c943afef 100644 --- a/lapacke/src/lapacke_ctpqrt_work.c +++ b/lapacke/src/lapacke_ctpqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ctpqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_ctpqrt_work( int matrix_order, lapack_int m, lapack_int n, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctpqrt( &m, &n, &l, &nb, a, &lda, b, &ldb, t, &ldt, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,m); lapack_int ldt_t = MAX(1,nb); @@ -91,8 +91,8 @@ lapack_int LAPACKE_ctpqrt_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ctpqrt( &m, &n, &l, &nb, a_t, &lda_t, b_t, &ldb_t, t_t, &ldt_t, work, &info ); diff --git a/lapacke/src/lapacke_ctprfb.c b/lapacke/src/lapacke_ctprfb.c index 08cf3c06..37457a05 100644 --- a/lapacke/src/lapacke_ctprfb.c +++ b/lapacke/src/lapacke_ctprfb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctprfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_ctprfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_float* v, lapack_int ldv, @@ -44,23 +44,23 @@ lapack_int LAPACKE_ctprfb( int matrix_order, char side, char trans, char direct, lapack_int info = 0; lapack_int ldwork; lapack_int work_size; - float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + lapack_complex_float* work = NULL; + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctprfb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, k, m, a, lda ) ) { return -14; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -16; } - if( LAPACKE_cge_nancheck( matrix_order, ldt, k, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, ldt, k, t, ldt ) ) { return -12; } - if( LAPACKE_cge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -10; } #endif @@ -73,14 +73,14 @@ lapack_int LAPACKE_ctprfb( int matrix_order, char side, char trans, char direct, work_size = MAX(1,ldwork) * MAX(1,k); } /* Allocate memory for working array(s) */ - work = (float*) - LAPACKE_malloc( sizeof(float) * MAX(1,ldwork) * MAX(n,k) ); + work = (lapack_complex_float*) + LAPACKE_malloc( sizeof(lapack_complex_float) * work_size ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ctprfb_work( matrix_order, side, trans, direct, storev, m, n, + info = LAPACKE_ctprfb_work( matrix_layout, side, trans, direct, storev, m, n, k, l, v, ldv, t, ldt, a, lda, b, ldb, work, ldwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ctprfb_work.c b/lapacke/src/lapacke_ctprfb_work.c index a78c5e2a..8ae2d34f 100644 --- a/lapacke/src/lapacke_ctprfb_work.c +++ b/lapacke/src/lapacke_ctprfb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctprfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_ctprfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_float* v, lapack_int ldv, const lapack_complex_float* t, lapack_int ldt, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, - const float* work, lapack_int ldwork ) + lapack_complex_float* work, lapack_int ldwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctprfb( &side, &trans, &direct, &storev, &m, &n, &k, &l, v, &ldv, t, &ldt, a, &lda, b, &ldb, work, &ldwork ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k; lapack_int lda_t = MAX(1,k); lapack_int ldb_t = MAX(1,m); @@ -107,10 +107,10 @@ lapack_int LAPACKE_ctprfb_work( int matrix_order, char side, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_cge_trans( matrix_order, ldt, k, t, ldt, t_t, ldt_t ); - LAPACKE_cge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_cge_trans( matrix_layout, ldt, k, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ctprfb( &side, &trans, &direct, &storev, &m, &n, &k, &l, v_t, &ldv_t, t_t, &ldt_t, a_t, &lda_t, b_t, &ldb_t, work, diff --git a/lapacke/src/lapacke_ctprfs.c b/lapacke/src/lapacke_ctprfs.c index 8d68bd10..07a249cf 100644 --- a/lapacke/src/lapacke_ctprfs.c +++ b/lapacke/src/lapacke_ctprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctprfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctprfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* b, lapack_int ldb, @@ -43,19 +43,19 @@ lapack_int LAPACKE_ctprfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctprfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_ctp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_ctprfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctprfs_work( matrix_order, uplo, trans, diag, n, nrhs, ap, b, + info = LAPACKE_ctprfs_work( matrix_layout, uplo, trans, diag, n, nrhs, ap, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctprfs_work.c b/lapacke/src/lapacke_ctprfs_work.c index ce96b579..fa383c8a 100644 --- a/lapacke/src/lapacke_ctprfs_work.c +++ b/lapacke/src/lapacke_ctprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctprfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctprfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, const lapack_complex_float* b, lapack_int ldb, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ctprfs_work( int matrix_order, char uplo, char trans, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctprfs( &uplo, &trans, &diag, &n, &nrhs, ap, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_float* b_t = NULL; @@ -89,9 +89,9 @@ lapack_int LAPACKE_ctprfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_ctp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_ctp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ctprfs( &uplo, &trans, &diag, &n, &nrhs, ap_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ctptri.c b/lapacke/src/lapacke_ctptri.c index 25b300de..acf4dedc 100644 --- a/lapacke/src/lapacke_ctptri.c +++ b/lapacke/src/lapacke_ctptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctptri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_ctptri( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctptri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_ctp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -5; } #endif - return LAPACKE_ctptri_work( matrix_order, uplo, diag, n, ap ); + return LAPACKE_ctptri_work( matrix_layout, uplo, diag, n, ap ); } diff --git a/lapacke/src/lapacke_ctptri_work.c b/lapacke/src/lapacke_ctptri_work.c index 06e7e1e1..13f0267c 100644 --- a/lapacke/src/lapacke_ctptri_work.c +++ b/lapacke/src/lapacke_ctptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctptri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_ctptri_work( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctptri( &uplo, &diag, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_ctptri_work( int matrix_order, char uplo, char diag, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ctp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_ctp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ctptri( &uplo, &diag, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctptrs.c b/lapacke/src/lapacke_ctptrs.c index 74905b4d..ab9cc74f 100644 --- a/lapacke/src/lapacke_ctptrs.c +++ b/lapacke/src/lapacke_ctptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctptrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctptrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctptrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_ctp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_ctptrs_work( matrix_order, uplo, trans, diag, n, nrhs, ap, b, + return LAPACKE_ctptrs_work( matrix_layout, uplo, trans, diag, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_ctptrs_work.c b/lapacke/src/lapacke_ctptrs_work.c index a48b723d..43c12c1f 100644 --- a/lapacke/src/lapacke_ctptrs_work.c +++ b/lapacke/src/lapacke_ctptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctptrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctptrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* ap, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctptrs( &uplo, &trans, &diag, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_float* b_t = NULL; lapack_complex_float* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_ctptrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_ctp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ctp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ctptrs( &uplo, &trans, &diag, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_ctpttf.c b/lapacke/src/lapacke_ctpttf.c index 73b81a85..207283f0 100644 --- a/lapacke/src/lapacke_ctpttf.c +++ b/lapacke/src/lapacke_ctpttf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctpttf( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* ap, lapack_complex_float* arf ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctpttf", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_ctpttf( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_ctpttf_work( matrix_order, transr, uplo, n, ap, arf ); + return LAPACKE_ctpttf_work( matrix_layout, transr, uplo, n, ap, arf ); } diff --git a/lapacke/src/lapacke_ctpttf_work.c b/lapacke/src/lapacke_ctpttf_work.c index 6845019e..c9f8ecc9 100644 --- a/lapacke/src/lapacke_ctpttf_work.c +++ b/lapacke/src/lapacke_ctpttf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctpttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* ap, lapack_complex_float* arf ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctpttf( &transr, &uplo, &n, ap, arf, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_float* ap_t = NULL; lapack_complex_float* arf_t = NULL; /* Allocate memory for temporary array(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_ctpttf_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ctpttf( &transr, &uplo, &n, ap_t, arf_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctpttr.c b/lapacke/src/lapacke_ctpttr.c index 66666586..d039cedf 100644 --- a/lapacke/src/lapacke_ctpttr.c +++ b/lapacke/src/lapacke_ctpttr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpttr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ctpttr( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, lapack_complex_float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctpttr", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_ctpttr( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_ctpttr_work( matrix_order, uplo, n, ap, a, lda ); + return LAPACKE_ctpttr_work( matrix_layout, uplo, n, ap, a, lda ); } diff --git a/lapacke/src/lapacke_ctpttr_work.c b/lapacke/src/lapacke_ctpttr_work.c index 42454d84..1e10e67d 100644 --- a/lapacke/src/lapacke_ctpttr_work.c +++ b/lapacke/src/lapacke_ctpttr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctpttr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ctpttr_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctpttr( &uplo, &n, ap, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; lapack_complex_float* ap_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_ctpttr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ctpttr( &uplo, &n, ap_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctrcon.c b/lapacke/src/lapacke_ctrcon.c index 65f78480..7bfe19d6 100644 --- a/lapacke/src/lapacke_ctrcon.c +++ b/lapacke/src/lapacke_ctrcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ctrcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* rcond ) { lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ctr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -6; } #endif @@ -63,7 +63,7 @@ lapack_int LAPACKE_ctrcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctrcon_work( matrix_order, norm, uplo, diag, n, a, lda, + info = LAPACKE_ctrcon_work( matrix_layout, norm, uplo, diag, n, a, lda, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctrcon_work.c b/lapacke/src/lapacke_ctrcon_work.c index 84d46e66..ca7db9d3 100644 --- a/lapacke/src/lapacke_ctrcon_work.c +++ b/lapacke/src/lapacke_ctrcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ctrcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_float* a, lapack_int lda, float* rcond, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrcon( &norm, &uplo, &diag, &n, a, &lda, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -64,7 +64,7 @@ lapack_int LAPACKE_ctrcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ctr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_ctr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ctrcon( &norm, &uplo, &diag, &n, a_t, &lda_t, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ctrevc.c b/lapacke/src/lapacke_ctrevc.c index 7f802885..69c1cd04 100644 --- a/lapacke/src/lapacke_ctrevc.c +++ b/lapacke/src/lapacke_ctrevc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ctrevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* vl, lapack_int ldvl, @@ -43,22 +43,22 @@ lapack_int LAPACKE_ctrevc( int matrix_order, char side, char howmny, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrevc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'l' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -8; } } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'r' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -10; } } @@ -76,7 +76,7 @@ lapack_int LAPACKE_ctrevc( int matrix_order, char side, char howmny, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctrevc_work( matrix_order, side, howmny, select, n, t, ldt, + info = LAPACKE_ctrevc_work( matrix_layout, side, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, mm, m, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctrevc_work.c b/lapacke/src/lapacke_ctrevc_work.c index afd12899..00fbfced 100644 --- a/lapacke/src/lapacke_ctrevc_work.c +++ b/lapacke/src/lapacke_ctrevc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ctrevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* vl, lapack_int ldvl, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ctrevc_work( int matrix_order, char side, char howmny, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrevc( &side, &howmny, select, &n, t, &ldt, vl, &ldvl, vr, &ldvr, &mm, m, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldt_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -98,14 +98,14 @@ lapack_int LAPACKE_ctrevc_work( int matrix_order, char side, char howmny, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( ( LAPACKE_lsame( side, 'l' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( side, 'r' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctrevc( &side, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t, diff --git a/lapacke/src/lapacke_ctrexc.c b/lapacke/src/lapacke_ctrexc.c index 35092e80..5f677a85 100644 --- a/lapacke/src/lapacke_ctrexc.c +++ b/lapacke/src/lapacke_ctrexc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,26 +33,26 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrexc( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_ctrexc( int matrix_layout, char compq, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* q, lapack_int ldq, lapack_int ifst, lapack_int ilst ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrexc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -6; } } - if( LAPACKE_cge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -4; } #endif - return LAPACKE_ctrexc_work( matrix_order, compq, n, t, ldt, q, ldq, ifst, + return LAPACKE_ctrexc_work( matrix_layout, compq, n, t, ldt, q, ldq, ifst, ilst ); } diff --git a/lapacke/src/lapacke_ctrexc_work.c b/lapacke/src/lapacke_ctrexc_work.c index ae25cb7f..fa9f3ba4 100644 --- a/lapacke/src/lapacke_ctrexc_work.c +++ b/lapacke/src/lapacke_ctrexc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrexc_work( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_ctrexc_work( int matrix_layout, char compq, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* q, lapack_int ldq, lapack_int ifst, lapack_int ilst ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrexc( &compq, &n, t, &ldt, q, &ldq, &ifst, &ilst, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); lapack_complex_float* t_t = NULL; @@ -78,9 +78,9 @@ lapack_int LAPACKE_ctrexc_work( int matrix_order, char compq, lapack_int n, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_cge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctrexc( &compq, &n, t_t, &ldt_t, q_t, &ldq_t, &ifst, &ilst, diff --git a/lapacke/src/lapacke_ctrrfs.c b/lapacke/src/lapacke_ctrrfs.c index 4a99ece9..d83a8917 100644 --- a/lapacke/src/lapacke_ctrrfs.c +++ b/lapacke/src/lapacke_ctrrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctrrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -43,19 +43,19 @@ lapack_int LAPACKE_ctrrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ctr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -11; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_ctrrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ctrrfs_work( matrix_order, uplo, trans, diag, n, nrhs, a, + info = LAPACKE_ctrrfs_work( matrix_layout, uplo, trans, diag, n, nrhs, a, lda, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctrrfs_work.c b/lapacke/src/lapacke_ctrrfs_work.c index c970690c..dbfaf7b5 100644 --- a/lapacke/src/lapacke_ctrrfs_work.c +++ b/lapacke/src/lapacke_ctrrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctrrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ctrrfs_work( int matrix_order, char uplo, char trans, lapack_complex_float* work, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrrfs( &uplo, &trans, &diag, &n, &nrhs, a, &lda, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -94,9 +94,9 @@ lapack_int LAPACKE_ctrrfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_ctr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_ctr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_ctrrfs( &uplo, &trans, &diag, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ctrsen.c b/lapacke/src/lapacke_ctrsen.c index b9c100e0..e61de443 100644 --- a/lapacke/src/lapacke_ctrsen.c +++ b/lapacke/src/lapacke_ctrsen.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrsen( int matrix_order, char job, char compq, +lapack_int LAPACKE_ctrsen( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* q, lapack_int ldq, @@ -44,23 +44,23 @@ lapack_int LAPACKE_ctrsen( int matrix_order, char job, char compq, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrsen", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -8; } } - if( LAPACKE_cge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ctrsen_work( matrix_order, job, compq, select, n, t, ldt, q, + info = LAPACKE_ctrsen_work( matrix_layout, job, compq, select, n, t, ldt, q, ldq, w, m, s, sep, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_ctrsen( int matrix_order, char job, char compq, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ctrsen_work( matrix_order, job, compq, select, n, t, ldt, q, + info = LAPACKE_ctrsen_work( matrix_layout, job, compq, select, n, t, ldt, q, ldq, w, m, s, sep, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ctrsen_work.c b/lapacke/src/lapacke_ctrsen_work.c index b9758241..48195004 100644 --- a/lapacke/src/lapacke_ctrsen_work.c +++ b/lapacke/src/lapacke_ctrsen_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrsen_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_ctrsen_work( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, lapack_complex_float* t, lapack_int ldt, lapack_complex_float* q, lapack_int ldq, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ctrsen_work( int matrix_order, char job, char compq, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrsen( &job, &compq, select, &n, t, &ldt, q, &ldq, w, m, s, sep, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); lapack_complex_float* t_t = NULL; @@ -88,9 +88,9 @@ lapack_int LAPACKE_ctrsen_work( int matrix_order, char job, char compq, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_cge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_cge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctrsen( &job, &compq, select, &n, t_t, &ldt_t, q_t, &ldq_t, w, m, diff --git a/lapacke/src/lapacke_ctrsna.c b/lapacke/src/lapacke_ctrsna.c index bb609f49..b27ea4af 100644 --- a/lapacke/src/lapacke_ctrsna.c +++ b/lapacke/src/lapacke_ctrsna.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ctrsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* t, lapack_int ldt, const lapack_complex_float* vl, lapack_int ldvl, @@ -44,22 +44,22 @@ lapack_int LAPACKE_ctrsna( int matrix_order, char job, char howmny, lapack_int ldwork = LAPACKE_lsame( job, 'e' ) ? 1 : MAX(1,n) ; float* rwork = NULL; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrsna", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -8; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_cge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -10; } } @@ -82,7 +82,7 @@ lapack_int LAPACKE_ctrsna( int matrix_order, char job, char howmny, } } /* Call middle-level interface */ - info = LAPACKE_ctrsna_work( matrix_order, job, howmny, select, n, t, ldt, + info = LAPACKE_ctrsna_work( matrix_layout, job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ctrsna_work.c b/lapacke/src/lapacke_ctrsna_work.c index 8de1bcfe..e9e88846 100644 --- a/lapacke/src/lapacke_ctrsna_work.c +++ b/lapacke/src/lapacke_ctrsna_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ctrsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_float* t, lapack_int ldt, const lapack_complex_float* vl, lapack_int ldvl, @@ -43,14 +43,14 @@ lapack_int LAPACKE_ctrsna_work( int matrix_order, char job, char howmny, lapack_int ldwork, float* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrsna( &job, &howmny, select, &n, t, &ldt, vl, &ldvl, vr, &ldvr, s, sep, &mm, m, work, &ldwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldt_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -99,12 +99,12 @@ lapack_int LAPACKE_ctrsna_work( int matrix_order, char job, char howmny, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_cge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_cge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_cge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_ctrsna( &job, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t, diff --git a/lapacke/src/lapacke_ctrsyl.c b/lapacke/src/lapacke_ctrsyl.c index 0754ca17..f91a1517 100644 --- a/lapacke/src/lapacke_ctrsyl.c +++ b/lapacke/src/lapacke_ctrsyl.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,29 +33,29 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrsyl( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_ctrsyl( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, lapack_complex_float* c, lapack_int ldc, float* scale ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrsyl", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, m, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, m, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } #endif - return LAPACKE_ctrsyl_work( matrix_order, trana, tranb, isgn, m, n, a, lda, + return LAPACKE_ctrsyl_work( matrix_layout, trana, tranb, isgn, m, n, a, lda, b, ldb, c, ldc, scale ); } diff --git a/lapacke/src/lapacke_ctrsyl_work.c b/lapacke/src/lapacke_ctrsyl_work.c index cb9683b0..64fcec52 100644 --- a/lapacke/src/lapacke_ctrsyl_work.c +++ b/lapacke/src/lapacke_ctrsyl_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrsyl_work( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_ctrsyl_work( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_ctrsyl_work( int matrix_order, char trana, char tranb, float* scale ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrsyl( &trana, &tranb, &isgn, &m, &n, a, &lda, b, &ldb, c, &ldc, scale, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,n); lapack_int ldc_t = MAX(1,m); @@ -91,9 +91,9 @@ lapack_int LAPACKE_ctrsyl_work( int matrix_order, char trana, char tranb, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, m, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, m, m, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_ctrsyl( &trana, &tranb, &isgn, &m, &n, a_t, &lda_t, b_t, &ldb_t, c_t, &ldc_t, scale, &info ); diff --git a/lapacke/src/lapacke_ctrtri.c b/lapacke/src/lapacke_ctrtri.c index 361fba98..6dcb9ba1 100644 --- a/lapacke/src/lapacke_ctrtri.c +++ b/lapacke/src/lapacke_ctrtri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrtri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_ctrtri( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrtri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ctr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -5; } #endif - return LAPACKE_ctrtri_work( matrix_order, uplo, diag, n, a, lda ); + return LAPACKE_ctrtri_work( matrix_layout, uplo, diag, n, a, lda ); } diff --git a/lapacke/src/lapacke_ctrtri_work.c b/lapacke/src/lapacke_ctrtri_work.c index f0fef797..a450ae08 100644 --- a/lapacke/src/lapacke_ctrtri_work.c +++ b/lapacke/src/lapacke_ctrtri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrtri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_ctrtri_work( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrtri( &uplo, &diag, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_ctrtri_work( int matrix_order, char uplo, char diag, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ctr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_ctr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ctrtri( &uplo, &diag, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctrtrs.c b/lapacke/src/lapacke_ctrtrs.c index 067f55aa..9b686e5d 100644 --- a/lapacke/src/lapacke_ctrtrs.c +++ b/lapacke/src/lapacke_ctrtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ctrtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ctr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ctr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif - return LAPACKE_ctrtrs_work( matrix_order, uplo, trans, diag, n, nrhs, a, + return LAPACKE_ctrtrs_work( matrix_layout, uplo, trans, diag, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_ctrtrs_work.c b/lapacke/src/lapacke_ctrtrs_work.c index 6ba32d9b..3e5a74f0 100644 --- a/lapacke/src/lapacke_ctrtrs_work.c +++ b/lapacke/src/lapacke_ctrtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ctrtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrtrs( &uplo, &trans, &diag, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_float* a_t = NULL; @@ -77,8 +77,8 @@ lapack_int LAPACKE_ctrtrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ctr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ctr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ctrtrs( &uplo, &trans, &diag, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_ctrttf.c b/lapacke/src/lapacke_ctrttf.c index a8d2cb2c..a8619cf1 100644 --- a/lapacke/src/lapacke_ctrttf.c +++ b/lapacke/src/lapacke_ctrttf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctrttf( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* arf ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrttf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif - return LAPACKE_ctrttf_work( matrix_order, transr, uplo, n, a, lda, arf ); + return LAPACKE_ctrttf_work( matrix_layout, transr, uplo, n, a, lda, arf ); } diff --git a/lapacke/src/lapacke_ctrttf_work.c b/lapacke/src/lapacke_ctrttf_work.c index e51c9aa0..b067e492 100644 --- a/lapacke/src/lapacke_ctrttf_work.c +++ b/lapacke/src/lapacke_ctrttf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ctrttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* arf ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrttf( &transr, &uplo, &n, a, &lda, arf, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; lapack_complex_float* arf_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_ctrttf_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ctrttf( &transr, &uplo, &n, a_t, &lda_t, arf_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctrttp.c b/lapacke/src/lapacke_ctrttp.c index 19ac66e9..2853e891 100644 --- a/lapacke/src/lapacke_ctrttp.c +++ b/lapacke/src/lapacke_ctrttp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrttp( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ctrttp( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctrttp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } #endif - return LAPACKE_ctrttp_work( matrix_order, uplo, n, a, lda, ap ); + return LAPACKE_ctrttp_work( matrix_layout, uplo, n, a, lda, ap ); } diff --git a/lapacke/src/lapacke_ctrttp_work.c b/lapacke/src/lapacke_ctrttp_work.c index 5fa2ef06..04b97bcd 100644 --- a/lapacke/src/lapacke_ctrttp_work.c +++ b/lapacke/src/lapacke_ctrttp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctrttp_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ctrttp_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* a, lapack_int lda, lapack_complex_float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctrttp( &uplo, &n, a, &lda, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; lapack_complex_float* ap_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_ctrttp_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ctrttp( &uplo, &n, a_t, &lda_t, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ctzrzf.c b/lapacke/src/lapacke_ctzrzf.c index a921a7ab..a73dce9a 100644 --- a/lapacke/src/lapacke_ctzrzf.c +++ b/lapacke/src/lapacke_ctzrzf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctzrzf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ctzrzf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_ctzrzf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ctzrzf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ctzrzf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_ctzrzf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_ctzrzf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ctzrzf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_ctzrzf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_ctzrzf_work.c b/lapacke/src/lapacke_ctzrzf_work.c index 7a6bd35e..3b01dd3a 100644 --- a/lapacke/src/lapacke_ctzrzf_work.c +++ b/lapacke/src/lapacke_ctzrzf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ctzrzf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ctzrzf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ctzrzf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_ctzrzf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ctzrzf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cunbdb.c b/lapacke/src/lapacke_cunbdb.c index d183c2b0..3f32427d 100644 --- a/lapacke/src/lapacke_cunbdb.c +++ b/lapacke/src/lapacke_cunbdb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunbdb( int matrix_order, char trans, char signs, +lapack_int LAPACKE_cunbdb( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_float* x11, lapack_int ldx11, lapack_complex_float* x12, lapack_int ldx12, @@ -50,7 +50,7 @@ lapack_int LAPACKE_cunbdb( int matrix_order, char trans, char signs, lapack_complex_float* work = NULL; lapack_complex_float work_query; lapack_int nrows_x11, nrows_x12, nrows_x21, nrows_x22; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunbdb", -1 ); return -1; } @@ -60,21 +60,21 @@ lapack_int LAPACKE_cunbdb( int matrix_order, char trans, char signs, nrows_x12 = ( LAPACKE_lsame( trans, 'n' ) ? p : m-q); nrows_x21 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : q); nrows_x22 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : m-q); - if( LAPACKE_cge_nancheck( matrix_order, nrows_x11, q, x11, ldx11 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_x11, q, x11, ldx11 ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, nrows_x12, m-q, x12, ldx12 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_x12, m-q, x12, ldx12 ) ) { return -9; } - if( LAPACKE_cge_nancheck( matrix_order, nrows_x21, q, x21, ldx21 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_x21, q, x21, ldx21 ) ) { return -11; } - if( LAPACKE_cge_nancheck( matrix_order, nrows_x22, m-q, x22, ldx22 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_x22, m-q, x22, ldx22 ) ) { return -13; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunbdb_work( matrix_order, trans, signs, m, p, q, x11, ldx11, + info = LAPACKE_cunbdb_work( matrix_layout, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, phi, taup1, taup2, tauq1, tauq2, &work_query, lwork ); @@ -90,7 +90,7 @@ lapack_int LAPACKE_cunbdb( int matrix_order, char trans, char signs, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunbdb_work( matrix_order, trans, signs, m, p, q, x11, ldx11, + info = LAPACKE_cunbdb_work( matrix_layout, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, phi, taup1, taup2, tauq1, tauq2, work, lwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_cunbdb_work.c b/lapacke/src/lapacke_cunbdb_work.c index 6fb49e98..b6c8f638 100644 --- a/lapacke/src/lapacke_cunbdb_work.c +++ b/lapacke/src/lapacke_cunbdb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunbdb_work( int matrix_order, char trans, char signs, +lapack_int LAPACKE_cunbdb_work( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_float* x11, lapack_int ldx11, lapack_complex_float* x12, lapack_int ldx12, @@ -47,7 +47,7 @@ lapack_int LAPACKE_cunbdb_work( int matrix_order, char trans, char signs, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunbdb( &trans, &signs, &m, &p, &q, x11, &ldx11, x12, &ldx12, x21, &ldx21, x22, &ldx22, theta, phi, taup1, taup2, @@ -55,7 +55,7 @@ lapack_int LAPACKE_cunbdb_work( int matrix_order, char trans, char signs, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_x11 = ( LAPACKE_lsame( trans, 'n' ) ? p : q); lapack_int nrows_x12 = ( LAPACKE_lsame( trans, 'n' ) ? p : m-q); lapack_int nrows_x21 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : q); @@ -124,13 +124,13 @@ lapack_int LAPACKE_cunbdb_work( int matrix_order, char trans, char signs, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, nrows_x11, q, x11, ldx11, x11_t, + LAPACKE_cge_trans( matrix_layout, nrows_x11, q, x11, ldx11, x11_t, ldx11_t ); - LAPACKE_cge_trans( matrix_order, nrows_x12, m-q, x12, ldx12, x12_t, + LAPACKE_cge_trans( matrix_layout, nrows_x12, m-q, x12, ldx12, x12_t, ldx12_t ); - LAPACKE_cge_trans( matrix_order, nrows_x21, q, x21, ldx21, x21_t, + LAPACKE_cge_trans( matrix_layout, nrows_x21, q, x21, ldx21, x21_t, ldx21_t ); - LAPACKE_cge_trans( matrix_order, nrows_x22, m-q, x22, ldx22, x22_t, + LAPACKE_cge_trans( matrix_layout, nrows_x22, m-q, x22, ldx22, x22_t, ldx22_t ); /* Call LAPACK function and adjust info */ LAPACK_cunbdb( &trans, &signs, &m, &p, &q, x11_t, &ldx11_t, x12_t, diff --git a/lapacke/src/lapacke_cuncsd.c b/lapacke/src/lapacke_cuncsd.c index 4f886518..eab8ea1a 100644 --- a/lapacke/src/lapacke_cuncsd.c +++ b/lapacke/src/lapacke_cuncsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cuncsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_cuncsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_float* x11, lapack_int ldx11, @@ -55,7 +55,7 @@ lapack_int LAPACKE_cuncsd( int matrix_order, char jobu1, char jobu2, float rwork_query; lapack_complex_float work_query; lapack_int nrows_x11, nrows_x12, nrows_x21, nrows_x22; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cuncsd", -1 ); return -1; } @@ -65,27 +65,27 @@ lapack_int LAPACKE_cuncsd( int matrix_order, char jobu1, char jobu2, nrows_x12 = ( LAPACKE_lsame( trans, 'n' ) ? p : m-q); nrows_x21 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : q); nrows_x22 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : m-q); - if( LAPACKE_cge_nancheck( matrix_order, nrows_x11, q, x11, ldx11 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_x11, q, x11, ldx11 ) ) { return -11; } - if( LAPACKE_cge_nancheck( matrix_order, nrows_x12, m-q, x12, ldx12 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_x12, m-q, x12, ldx12 ) ) { return -13; } - if( LAPACKE_cge_nancheck( matrix_order, nrows_x21, q, x21, ldx21 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_x21, q, x21, ldx21 ) ) { return -15; } - if( LAPACKE_cge_nancheck( matrix_order, nrows_x22, m-q, x22, ldx22 ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, nrows_x22, m-q, x22, ldx22 ) ) { return -17; } #endif /* Allocate memory for working array(s) */ - iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * MAX(1,m-q) ); + iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * MAX(1,m-MIN(MIN(p,m-p),MIN(q,m-q))) ); if( iwork == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_cuncsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_cuncsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, &work_query, @@ -108,7 +108,7 @@ lapack_int LAPACKE_cuncsd( int matrix_order, char jobu1, char jobu2, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_cuncsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_cuncsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, work, lwork, diff --git a/lapacke/src/lapacke_cuncsd_work.c b/lapacke/src/lapacke_cuncsd_work.c index 8af0f540..c0cc7fae 100644 --- a/lapacke/src/lapacke_cuncsd_work.c +++ b/lapacke/src/lapacke_cuncsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cuncsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_cuncsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_float* x11, @@ -50,7 +50,7 @@ lapack_int LAPACKE_cuncsd_work( int matrix_order, char jobu1, char jobu2, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cuncsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m, &p, &q, x11, &ldx11, x12, &ldx12, x21, &ldx21, x22, &ldx22, @@ -59,7 +59,7 @@ lapack_int LAPACKE_cuncsd_work( int matrix_order, char jobu1, char jobu2, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_x11 = ( LAPACKE_lsame( trans, 'n' ) ? p : q); lapack_int nrows_x12 = ( LAPACKE_lsame( trans, 'n' ) ? p : m-q); lapack_int nrows_x21 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : q); @@ -198,13 +198,13 @@ lapack_int LAPACKE_cuncsd_work( int matrix_order, char jobu1, char jobu2, } } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, nrows_x11, q, x11, ldx11, x11_t, + LAPACKE_cge_trans( matrix_layout, nrows_x11, q, x11, ldx11, x11_t, ldx11_t ); - LAPACKE_cge_trans( matrix_order, nrows_x12, m-q, x12, ldx12, x12_t, + LAPACKE_cge_trans( matrix_layout, nrows_x12, m-q, x12, ldx12, x12_t, ldx12_t ); - LAPACKE_cge_trans( matrix_order, nrows_x21, q, x21, ldx21, x21_t, + LAPACKE_cge_trans( matrix_layout, nrows_x21, q, x21, ldx21, x21_t, ldx21_t ); - LAPACKE_cge_trans( matrix_order, nrows_x22, m-q, x22, ldx22, x22_t, + LAPACKE_cge_trans( matrix_layout, nrows_x22, m-q, x22, ldx22, x22_t, ldx22_t ); /* Call LAPACK function and adjust info */ LAPACK_cuncsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m, &p, diff --git a/lapacke/src/lapacke_cungbr.c b/lapacke/src/lapacke_cungbr.c index f99b2150..dfc8ea7a 100644 --- a/lapacke/src/lapacke_cungbr.c +++ b/lapacke/src/lapacke_cungbr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungbr( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_cungbr( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_cungbr( int matrix_order, char vect, lapack_int m, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cungbr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -6; } if( LAPACKE_c_nancheck( MIN(m,k), tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_cungbr( int matrix_order, char vect, lapack_int m, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cungbr_work( matrix_order, vect, m, n, k, a, lda, tau, + info = LAPACKE_cungbr_work( matrix_layout, vect, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_cungbr( int matrix_order, char vect, lapack_int m, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cungbr_work( matrix_order, vect, m, n, k, a, lda, tau, work, + info = LAPACKE_cungbr_work( matrix_layout, vect, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cungbr_work.c b/lapacke/src/lapacke_cungbr_work.c index f7f972a5..d4ec61cb 100644 --- a/lapacke/src/lapacke_cungbr_work.c +++ b/lapacke/src/lapacke_cungbr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungbr_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_cungbr_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cungbr( &vect, &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -69,7 +69,7 @@ lapack_int LAPACKE_cungbr_work( int matrix_order, char vect, lapack_int m, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cungbr( &vect, &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cunghr.c b/lapacke/src/lapacke_cunghr.c index f13fe5df..70d76179 100644 --- a/lapacke/src/lapacke_cunghr.c +++ b/lapacke/src/lapacke_cunghr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunghr( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_cunghr( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_cunghr( int matrix_order, lapack_int n, lapack_int ilo, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunghr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } if( LAPACKE_c_nancheck( n-1, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_cunghr( int matrix_order, lapack_int n, lapack_int ilo, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunghr_work( matrix_order, n, ilo, ihi, a, lda, tau, + info = LAPACKE_cunghr_work( matrix_layout, n, ilo, ihi, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_cunghr( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunghr_work( matrix_order, n, ilo, ihi, a, lda, tau, work, + info = LAPACKE_cunghr_work( matrix_layout, n, ilo, ihi, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunghr_work.c b/lapacke/src/lapacke_cunghr_work.c index 93dab7be..abf5fed7 100644 --- a/lapacke/src/lapacke_cunghr_work.c +++ b/lapacke/src/lapacke_cunghr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunghr_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_cunghr_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunghr( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_cunghr_work( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cunghr( &n, &ilo, &ihi, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cunglq.c b/lapacke/src/lapacke_cunglq.c index 3db9fe48..040ff5f3 100644 --- a/lapacke/src/lapacke_cunglq.c +++ b/lapacke/src/lapacke_cunglq.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunglq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cunglq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_cunglq( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunglq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_cunglq( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunglq_work( matrix_order, m, n, k, a, lda, tau, &work_query, + info = LAPACKE_cunglq_work( matrix_layout, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_cunglq( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunglq_work( matrix_order, m, n, k, a, lda, tau, work, + info = LAPACKE_cunglq_work( matrix_layout, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunglq_work.c b/lapacke/src/lapacke_cunglq_work.c index 7b55b448..52b7efdd 100644 --- a/lapacke/src/lapacke_cunglq_work.c +++ b/lapacke/src/lapacke_cunglq_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunglq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cunglq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunglq( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cunglq_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cunglq( &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cungql.c b/lapacke/src/lapacke_cungql.c index 475b0016..9ba546e9 100644 --- a/lapacke/src/lapacke_cungql.c +++ b/lapacke/src/lapacke_cungql.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungql( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungql( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_cungql( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cungql", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_cungql( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cungql_work( matrix_order, m, n, k, a, lda, tau, &work_query, + info = LAPACKE_cungql_work( matrix_layout, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_cungql( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cungql_work( matrix_order, m, n, k, a, lda, tau, work, + info = LAPACKE_cungql_work( matrix_layout, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cungql_work.c b/lapacke/src/lapacke_cungql_work.c index 27ecb526..4072e102 100644 --- a/lapacke/src/lapacke_cungql_work.c +++ b/lapacke/src/lapacke_cungql_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungql_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungql_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cungql( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cungql_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cungql( &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cungqr.c b/lapacke/src/lapacke_cungqr.c index 96e0cc63..fcf0ef79 100644 --- a/lapacke/src/lapacke_cungqr.c +++ b/lapacke/src/lapacke_cungqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungqr( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungqr( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_cungqr( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cungqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_cungqr( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cungqr_work( matrix_order, m, n, k, a, lda, tau, &work_query, + info = LAPACKE_cungqr_work( matrix_layout, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_cungqr( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cungqr_work( matrix_order, m, n, k, a, lda, tau, work, + info = LAPACKE_cungqr_work( matrix_layout, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cungqr_work.c b/lapacke/src/lapacke_cungqr_work.c index 25877fc6..07d41c4b 100644 --- a/lapacke/src/lapacke_cungqr_work.c +++ b/lapacke/src/lapacke_cungqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungqr_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungqr_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cungqr( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cungqr_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cungqr( &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cungrq.c b/lapacke/src/lapacke_cungrq.c index 36167afb..2edd3adb 100644 --- a/lapacke/src/lapacke_cungrq.c +++ b/lapacke/src/lapacke_cungrq.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungrq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungrq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_cungrq( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cungrq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_cungrq( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cungrq_work( matrix_order, m, n, k, a, lda, tau, &work_query, + info = LAPACKE_cungrq_work( matrix_layout, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_cungrq( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cungrq_work( matrix_order, m, n, k, a, lda, tau, work, + info = LAPACKE_cungrq_work( matrix_layout, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cungrq_work.c b/lapacke/src/lapacke_cungrq_work.c index 09073880..662985be 100644 --- a/lapacke/src/lapacke_cungrq_work.c +++ b/lapacke/src/lapacke_cungrq_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungrq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_cungrq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cungrq( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cungrq_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cungrq( &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cungtr.c b/lapacke/src/lapacke_cungtr.c index 53455650..e1e1e874 100644 --- a/lapacke/src/lapacke_cungtr.c +++ b/lapacke/src/lapacke_cungtr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cungtr( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_cungtr( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cungtr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } if( LAPACKE_c_nancheck( n-1, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_cungtr( int matrix_order, char uplo, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cungtr_work( matrix_order, uplo, n, a, lda, tau, &work_query, + info = LAPACKE_cungtr_work( matrix_layout, uplo, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_cungtr( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cungtr_work( matrix_order, uplo, n, a, lda, tau, work, + info = LAPACKE_cungtr_work( matrix_layout, uplo, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cungtr_work.c b/lapacke/src/lapacke_cungtr_work.c index 42f760f3..61dac0c5 100644 --- a/lapacke/src/lapacke_cungtr_work.c +++ b/lapacke/src/lapacke_cungtr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cungtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cungtr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cungtr( &uplo, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_cungtr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_cungtr( &uplo, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cunmbr.c b/lapacke/src/lapacke_cunmbr.c index 7615550e..0ca06bf8 100644 --- a/lapacke/src/lapacke_cunmbr.c +++ b/lapacke/src/lapacke_cunmbr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmbr( int matrix_order, char vect, char side, char trans, +lapack_int LAPACKE_cunmbr( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -44,7 +44,7 @@ lapack_int LAPACKE_cunmbr( int matrix_order, char vect, char side, char trans, lapack_complex_float* work = NULL; lapack_complex_float work_query; lapack_int nq, r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunmbr", -1 ); return -1; } @@ -52,10 +52,10 @@ lapack_int LAPACKE_cunmbr( int matrix_order, char vect, char side, char trans, /* Optionally check input matrices for NaNs */ nq = LAPACKE_lsame( side, 'l' ) ? m : n; r = LAPACKE_lsame( vect, 'q' ) ? nq : MIN(nq,k); - if( LAPACKE_cge_nancheck( matrix_order, r, MIN(nq,k), a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, r, MIN(nq,k), a, lda ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } if( LAPACKE_c_nancheck( MIN(nq,k), tau, 1 ) ) { @@ -63,7 +63,7 @@ lapack_int LAPACKE_cunmbr( int matrix_order, char vect, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunmbr_work( matrix_order, vect, side, trans, m, n, k, a, + info = LAPACKE_cunmbr_work( matrix_layout, vect, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -77,7 +77,7 @@ lapack_int LAPACKE_cunmbr( int matrix_order, char vect, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunmbr_work( matrix_order, vect, side, trans, m, n, k, a, + info = LAPACKE_cunmbr_work( matrix_layout, vect, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunmbr_work.c b/lapacke/src/lapacke_cunmbr_work.c index 43160234..98bc4400 100644 --- a/lapacke/src/lapacke_cunmbr_work.c +++ b/lapacke/src/lapacke_cunmbr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmbr_work( int matrix_order, char vect, char side, +lapack_int LAPACKE_cunmbr_work( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cunmbr_work( int matrix_order, char vect, char side, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunmbr( &vect, &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nq = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int r = LAPACKE_lsame( vect, 'q' ) ? nq : MIN(nq,k); lapack_int lda_t = MAX(1,r); @@ -87,8 +87,8 @@ lapack_int LAPACKE_cunmbr_work( int matrix_order, char vect, char side, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, r, MIN(nq,k), a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, r, MIN(nq,k), a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cunmbr( &vect, &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cunmhr.c b/lapacke/src/lapacke_cunmhr.c index 69021281..7e7d40e9 100644 --- a/lapacke/src/lapacke_cunmhr.c +++ b/lapacke/src/lapacke_cunmhr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmhr( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmhr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -44,17 +44,17 @@ lapack_int LAPACKE_cunmhr( int matrix_order, char side, char trans, lapack_complex_float* work = NULL; lapack_complex_float work_query; lapack_int r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunmhr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_cge_nancheck( matrix_order, r, r, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, r, r, a, lda ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } if( LAPACKE_c_nancheck( m-1, tau, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_cunmhr( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunmhr_work( matrix_order, side, trans, m, n, ilo, ihi, a, + info = LAPACKE_cunmhr_work( matrix_layout, side, trans, m, n, ilo, ihi, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_cunmhr( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunmhr_work( matrix_order, side, trans, m, n, ilo, ihi, a, + info = LAPACKE_cunmhr_work( matrix_layout, side, trans, m, n, ilo, ihi, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunmhr_work.c b/lapacke/src/lapacke_cunmhr_work.c index 763228d0..f540ecb0 100644 --- a/lapacke/src/lapacke_cunmhr_work.c +++ b/lapacke/src/lapacke_cunmhr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmhr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmhr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cunmhr_work( int matrix_order, char side, char trans, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunmhr( &side, &trans, &m, &n, &ilo, &ihi, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int lda_t = MAX(1,r); lapack_int ldc_t = MAX(1,m); @@ -85,8 +85,8 @@ lapack_int LAPACKE_cunmhr_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, r, r, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, r, r, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cunmhr( &side, &trans, &m, &n, &ilo, &ihi, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cunmlq.c b/lapacke/src/lapacke_cunmlq.c index 1d6b7f4e..e97a484e 100644 --- a/lapacke/src/lapacke_cunmlq.c +++ b/lapacke/src/lapacke_cunmlq.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmlq( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmlq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -43,16 +43,16 @@ lapack_int LAPACKE_cunmlq( int matrix_order, char side, char trans, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunmlq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, k, m, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -60,7 +60,7 @@ lapack_int LAPACKE_cunmlq( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunmlq_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_cunmlq_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_cunmlq( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunmlq_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_cunmlq_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunmlq_work.c b/lapacke/src/lapacke_cunmlq_work.c index 1cd20e1c..e8fcf23a 100644 --- a/lapacke/src/lapacke_cunmlq_work.c +++ b/lapacke/src/lapacke_cunmlq_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmlq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmlq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cunmlq_work( int matrix_order, char side, char trans, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunmlq( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,k); lapack_int ldc_t = MAX(1,m); lapack_complex_float* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_cunmlq_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cunmlq( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cunmql.c b/lapacke/src/lapacke_cunmql.c index e61609ed..78e7cf6f 100644 --- a/lapacke/src/lapacke_cunmql.c +++ b/lapacke/src/lapacke_cunmql.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmql( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmql( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -44,17 +44,17 @@ lapack_int LAPACKE_cunmql( int matrix_order, char side, char trans, lapack_complex_float* work = NULL; lapack_complex_float work_query; lapack_int r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunmql", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_cge_nancheck( matrix_order, r, k, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, r, k, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_cunmql( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunmql_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_cunmql_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_cunmql( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunmql_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_cunmql_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunmql_work.c b/lapacke/src/lapacke_cunmql_work.c index a37e494f..146b46eb 100644 --- a/lapacke/src/lapacke_cunmql_work.c +++ b/lapacke/src/lapacke_cunmql_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmql_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmql_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cunmql_work( int matrix_order, char side, char trans, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunmql( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int lda_t = MAX(1,r); lapack_int ldc_t = MAX(1,m); @@ -85,8 +85,8 @@ lapack_int LAPACKE_cunmql_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, r, k, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, r, k, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cunmql( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cunmqr.c b/lapacke/src/lapacke_cunmqr.c index d16b23bc..937b67b7 100644 --- a/lapacke/src/lapacke_cunmqr.c +++ b/lapacke/src/lapacke_cunmqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmqr( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmqr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -44,17 +44,17 @@ lapack_int LAPACKE_cunmqr( int matrix_order, char side, char trans, lapack_complex_float* work = NULL; lapack_complex_float work_query; lapack_int r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunmqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_cge_nancheck( matrix_order, r, k, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, r, k, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_cunmqr( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunmqr_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_cunmqr_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_cunmqr( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunmqr_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_cunmqr_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunmqr_work.c b/lapacke/src/lapacke_cunmqr_work.c index f0e53444..75e48611 100644 --- a/lapacke/src/lapacke_cunmqr_work.c +++ b/lapacke/src/lapacke_cunmqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmqr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmqr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cunmqr_work( int matrix_order, char side, char trans, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunmqr( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int lda_t = MAX(1,r); lapack_int ldc_t = MAX(1,m); @@ -85,8 +85,8 @@ lapack_int LAPACKE_cunmqr_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, r, k, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, r, k, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cunmqr( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cunmrq.c b/lapacke/src/lapacke_cunmrq.c index 284d18e3..d10992c4 100644 --- a/lapacke/src/lapacke_cunmrq.c +++ b/lapacke/src/lapacke_cunmrq.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmrq( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmrq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -43,16 +43,16 @@ lapack_int LAPACKE_cunmrq( int matrix_order, char side, char trans, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunmrq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, k, m, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -60,7 +60,7 @@ lapack_int LAPACKE_cunmrq( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunmrq_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_cunmrq_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_cunmrq( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunmrq_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_cunmrq_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunmrq_work.c b/lapacke/src/lapacke_cunmrq_work.c index 204e452a..0b3251b8 100644 --- a/lapacke/src/lapacke_cunmrq_work.c +++ b/lapacke/src/lapacke_cunmrq_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmrq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmrq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cunmrq_work( int matrix_order, char side, char trans, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunmrq( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,k); lapack_int ldc_t = MAX(1,m); lapack_complex_float* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_cunmrq_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cunmrq( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cunmrz.c b/lapacke/src/lapacke_cunmrz.c index 796b8339..bd55c450 100644 --- a/lapacke/src/lapacke_cunmrz.c +++ b/lapacke/src/lapacke_cunmrz.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmrz( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmrz( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -43,16 +43,16 @@ lapack_int LAPACKE_cunmrz( int matrix_order, char side, char trans, lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunmrz", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_cge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, k, m, a, lda ) ) { return -8; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } if( LAPACKE_c_nancheck( k, tau, 1 ) ) { @@ -60,7 +60,7 @@ lapack_int LAPACKE_cunmrz( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunmrz_work( matrix_order, side, trans, m, n, k, l, a, lda, + info = LAPACKE_cunmrz_work( matrix_layout, side, trans, m, n, k, l, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_cunmrz( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunmrz_work( matrix_order, side, trans, m, n, k, l, a, lda, + info = LAPACKE_cunmrz_work( matrix_layout, side, trans, m, n, k, l, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunmrz_work.c b/lapacke/src/lapacke_cunmrz_work.c index 92aaefd7..a5cb7cbf 100644 --- a/lapacke/src/lapacke_cunmrz_work.c +++ b/lapacke/src/lapacke_cunmrz_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmrz_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_cunmrz_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cunmrz_work( int matrix_order, char side, char trans, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunmrz( &side, &trans, &m, &n, &k, &l, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,k); lapack_int ldc_t = MAX(1,m); lapack_complex_float* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_cunmrz_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cunmrz( &side, &trans, &m, &n, &k, &l, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cunmtr.c b/lapacke/src/lapacke_cunmtr.c index dae6238f..902568c7 100644 --- a/lapacke/src/lapacke_cunmtr.c +++ b/lapacke/src/lapacke_cunmtr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_cunmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -44,17 +44,17 @@ lapack_int LAPACKE_cunmtr( int matrix_order, char side, char uplo, char trans, lapack_complex_float* work = NULL; lapack_complex_float work_query; lapack_int r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cunmtr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_cge_nancheck( matrix_order, r, r, a, lda ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, r, r, a, lda ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_c_nancheck( m-1, tau, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_cunmtr( int matrix_order, char side, char uplo, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_cunmtr_work( matrix_order, side, uplo, trans, m, n, a, lda, + info = LAPACKE_cunmtr_work( matrix_layout, side, uplo, trans, m, n, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_cunmtr( int matrix_order, char side, char uplo, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cunmtr_work( matrix_order, side, uplo, trans, m, n, a, lda, + info = LAPACKE_cunmtr_work( matrix_layout, side, uplo, trans, m, n, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cunmtr_work.c b/lapacke/src/lapacke_cunmtr_work.c index 86c9f35c..b2586adf 100644 --- a/lapacke/src/lapacke_cunmtr_work.c +++ b/lapacke/src/lapacke_cunmtr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cunmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_cunmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_float* a, lapack_int lda, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cunmtr_work( int matrix_order, char side, char uplo, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cunmtr( &side, &uplo, &trans, &m, &n, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int lda_t = MAX(1,r); lapack_int ldc_t = MAX(1,m); @@ -85,8 +85,8 @@ lapack_int LAPACKE_cunmtr_work( int matrix_order, char side, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, r, r, a, lda, a_t, lda_t ); - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cge_trans( matrix_layout, r, r, a, lda, a_t, lda_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_cunmtr( &side, &uplo, &trans, &m, &n, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_cupgtr.c b/lapacke/src/lapacke_cupgtr.c index 905c3603..5b80def1 100644 --- a/lapacke/src/lapacke_cupgtr.c +++ b/lapacke/src/lapacke_cupgtr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cupgtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cupgtr( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_complex_float* tau, lapack_complex_float* q, lapack_int ldq ) { lapack_int info = 0; lapack_complex_float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cupgtr", -1 ); return -1; } @@ -61,7 +61,7 @@ lapack_int LAPACKE_cupgtr( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cupgtr_work( matrix_order, uplo, n, ap, tau, q, ldq, work ); + info = LAPACKE_cupgtr_work( matrix_layout, uplo, n, ap, tau, q, ldq, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_cupgtr_work.c b/lapacke/src/lapacke_cupgtr_work.c index 51e35c10..975b3b49 100644 --- a/lapacke/src/lapacke_cupgtr_work.c +++ b/lapacke/src/lapacke_cupgtr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cupgtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_cupgtr_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float* ap, const lapack_complex_float* tau, lapack_complex_float* q, lapack_int ldq, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cupgtr( &uplo, &n, ap, tau, q, &ldq, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_complex_float* q_t = NULL; lapack_complex_float* ap_t = NULL; @@ -71,7 +71,7 @@ lapack_int LAPACKE_cupgtr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cupgtr( &uplo, &n, ap_t, tau, q_t, &ldq_t, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_cupmtr.c b/lapacke/src/lapacke_cupmtr.c index 121fcb8f..5db9bdde 100644 --- a/lapacke/src/lapacke_cupmtr.c +++ b/lapacke/src/lapacke_cupmtr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cupmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_cupmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_float* ap, const lapack_complex_float* tau, @@ -44,7 +44,7 @@ lapack_int LAPACKE_cupmtr( int matrix_order, char side, char uplo, char trans, lapack_int lwork; lapack_complex_float* work = NULL; lapack_int r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cupmtr", -1 ); return -1; } @@ -54,7 +54,7 @@ lapack_int LAPACKE_cupmtr( int matrix_order, char side, char uplo, char trans, if( LAPACKE_cpp_nancheck( r, ap ) ) { return -7; } - if( LAPACKE_cge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -9; } if( LAPACKE_c_nancheck( m-1, tau, 1 ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_cupmtr( int matrix_order, char side, char uplo, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_cupmtr_work( matrix_order, side, uplo, trans, m, n, ap, tau, + info = LAPACKE_cupmtr_work( matrix_layout, side, uplo, trans, m, n, ap, tau, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_cupmtr_work.c b/lapacke/src/lapacke_cupmtr_work.c index b2612d8b..af94adf3 100644 --- a/lapacke/src/lapacke_cupmtr_work.c +++ b/lapacke/src/lapacke_cupmtr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_cupmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_cupmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_float* ap, const lapack_complex_float* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_cupmtr_work( int matrix_order, char side, char uplo, lapack_complex_float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_cupmtr( &side, &uplo, &trans, &m, &n, ap, tau, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int ldc_t = MAX(1,m); lapack_complex_float* c_t = NULL; @@ -74,8 +74,8 @@ lapack_int LAPACKE_cupmtr_work( int matrix_order, char side, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_cge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); - LAPACKE_cpp_trans( matrix_order, uplo, r, ap, ap_t ); + LAPACKE_cge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_cpp_trans( matrix_layout, uplo, r, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_cupmtr( &side, &uplo, &trans, &m, &n, ap_t, tau, c_t, &ldc_t, work, &info ); diff --git a/lapacke/src/lapacke_dbbcsd.c b/lapacke/src/lapacke_dbbcsd.c index 9afb8bbd..3abdd2b8 100644 --- a/lapacke/src/lapacke_dbbcsd.c +++ b/lapacke/src/lapacke_dbbcsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dbbcsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_dbbcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, double* theta, double* phi, double* u1, lapack_int ldu1, double* u2, @@ -48,7 +48,7 @@ lapack_int LAPACKE_dbbcsd( int matrix_order, char jobu1, char jobu2, double* work = NULL; double work_query; lapack_int nrows_u1, nrows_u2, nrows_v1t, nrows_v2t; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dbbcsd", -1 ); return -1; } @@ -65,28 +65,28 @@ lapack_int LAPACKE_dbbcsd( int matrix_order, char jobu1, char jobu2, return -10; } if( LAPACKE_lsame( jobu1, 'y' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, nrows_u1, p, u1, ldu1 ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, nrows_u1, p, u1, ldu1 ) ) { return -12; } } if( LAPACKE_lsame( jobu2, 'y' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, nrows_u2, m-p, u2, ldu2 ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, nrows_u2, m-p, u2, ldu2 ) ) { return -14; } } if( LAPACKE_lsame( jobv1t, 'y' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, nrows_v1t, q, v1t, ldv1t ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, nrows_v1t, q, v1t, ldv1t ) ) { return -16; } } if( LAPACKE_lsame( jobv2t, 'y' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, nrows_v2t, m-q, v2t, ldv2t ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, nrows_v2t, m-q, v2t, ldv2t ) ) { return -18; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dbbcsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_dbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e, &work_query, lwork ); @@ -101,7 +101,7 @@ lapack_int LAPACKE_dbbcsd( int matrix_order, char jobu1, char jobu2, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dbbcsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_dbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e, work, lwork ); diff --git a/lapacke/src/lapacke_dbbcsd_work.c b/lapacke/src/lapacke_dbbcsd_work.c index 21d58799..288fe714 100644 --- a/lapacke/src/lapacke_dbbcsd_work.c +++ b/lapacke/src/lapacke_dbbcsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dbbcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_dbbcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, double* theta, double* phi, double* u1, @@ -45,7 +45,7 @@ lapack_int LAPACKE_dbbcsd_work( int matrix_order, char jobu1, char jobu2, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dbbcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &m, &p, &q, theta, phi, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, v2t, @@ -54,7 +54,7 @@ lapack_int LAPACKE_dbbcsd_work( int matrix_order, char jobu1, char jobu2, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_u1 = ( LAPACKE_lsame( jobu1, 'y' ) ? p : 1); lapack_int nrows_u2 = ( LAPACKE_lsame( jobu2, 'y' ) ? m-p : 1); lapack_int nrows_v1t = ( LAPACKE_lsame( jobv1t, 'y' ) ? q : 1); @@ -131,19 +131,19 @@ lapack_int LAPACKE_dbbcsd_work( int matrix_order, char jobu1, char jobu2, } /* Transpose input matrices */ if( LAPACKE_lsame( jobu1, 'y' ) ) { - LAPACKE_dge_trans( matrix_order, nrows_u1, p, u1, ldu1, u1_t, + LAPACKE_dge_trans( matrix_layout, nrows_u1, p, u1, ldu1, u1_t, ldu1_t ); } if( LAPACKE_lsame( jobu2, 'y' ) ) { - LAPACKE_dge_trans( matrix_order, nrows_u2, m-p, u2, ldu2, u2_t, + LAPACKE_dge_trans( matrix_layout, nrows_u2, m-p, u2, ldu2, u2_t, ldu2_t ); } if( LAPACKE_lsame( jobv1t, 'y' ) ) { - LAPACKE_dge_trans( matrix_order, nrows_v1t, q, v1t, ldv1t, v1t_t, + LAPACKE_dge_trans( matrix_layout, nrows_v1t, q, v1t, ldv1t, v1t_t, ldv1t_t ); } if( LAPACKE_lsame( jobv2t, 'y' ) ) { - LAPACKE_dge_trans( matrix_order, nrows_v2t, m-q, v2t, ldv2t, v2t_t, + LAPACKE_dge_trans( matrix_layout, nrows_v2t, m-q, v2t, ldv2t, v2t_t, ldv2t_t ); } /* Call LAPACK function and adjust info */ diff --git a/lapacke/src/lapacke_dbdsdc.c b/lapacke/src/lapacke_dbdsdc.c index 717ba3c2..9ed71f87 100644 --- a/lapacke/src/lapacke_dbdsdc.c +++ b/lapacke/src/lapacke_dbdsdc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dbdsdc( int matrix_order, char uplo, char compq, +lapack_int LAPACKE_dbdsdc( int matrix_layout, char uplo, char compq, lapack_int n, double* d, double* e, double* u, lapack_int ldu, double* vt, lapack_int ldvt, double* q, lapack_int* iq ) @@ -43,7 +43,7 @@ lapack_int LAPACKE_dbdsdc( int matrix_order, char uplo, char compq, size_t lwork; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dbdsdc", -1 ); return -1; } @@ -78,7 +78,7 @@ lapack_int LAPACKE_dbdsdc( int matrix_order, char uplo, char compq, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dbdsdc_work( matrix_order, uplo, compq, n, d, e, u, ldu, vt, + info = LAPACKE_dbdsdc_work( matrix_layout, uplo, compq, n, d, e, u, ldu, vt, ldvt, q, iq, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dbdsdc_work.c b/lapacke/src/lapacke_dbdsdc_work.c index b1b84f00..e90e81a0 100644 --- a/lapacke/src/lapacke_dbdsdc_work.c +++ b/lapacke/src/lapacke_dbdsdc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dbdsdc_work( int matrix_order, char uplo, char compq, +lapack_int LAPACKE_dbdsdc_work( int matrix_layout, char uplo, char compq, lapack_int n, double* d, double* e, double* u, lapack_int ldu, double* vt, lapack_int ldvt, double* q, lapack_int* iq, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dbdsdc( &uplo, &compq, &n, d, e, u, &ldu, vt, &ldvt, q, iq, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldu_t = MAX(1,n); lapack_int ldvt_t = MAX(1,n); double* u_t = NULL; diff --git a/lapacke/src/lapacke_dbdsqr.c b/lapacke/src/lapacke_dbdsqr.c index 7f1714d4..ad93bcd4 100644 --- a/lapacke/src/lapacke_dbdsqr.c +++ b/lapacke/src/lapacke_dbdsqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dbdsqr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, double* d, double* e, double* vt, lapack_int ldvt, double* u, lapack_int ldu, double* c, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dbdsqr( int matrix_order, char uplo, lapack_int n, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dbdsqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( ncc != 0 ) { - if( LAPACKE_dge_nancheck( matrix_order, n, ncc, c, ldc ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, ncc, c, ldc ) ) { return -13; } } @@ -59,12 +59,12 @@ lapack_int LAPACKE_dbdsqr( int matrix_order, char uplo, lapack_int n, return -8; } if( nru != 0 ) { - if( LAPACKE_dge_nancheck( matrix_order, nru, n, u, ldu ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, nru, n, u, ldu ) ) { return -11; } } if( ncvt != 0 ) { - if( LAPACKE_dge_nancheck( matrix_order, n, ncvt, vt, ldvt ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, ncvt, vt, ldvt ) ) { return -9; } } @@ -76,7 +76,7 @@ lapack_int LAPACKE_dbdsqr( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dbdsqr_work( matrix_order, uplo, n, ncvt, nru, ncc, d, e, vt, + info = LAPACKE_dbdsqr_work( matrix_layout, uplo, n, ncvt, nru, ncc, d, e, vt, ldvt, u, ldu, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dbdsqr_work.c b/lapacke/src/lapacke_dbdsqr_work.c index a3de068d..885c4a07 100644 --- a/lapacke/src/lapacke_dbdsqr_work.c +++ b/lapacke/src/lapacke_dbdsqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dbdsqr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dbdsqr_work( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, double* d, double* e, double* vt, lapack_int ldvt, double* u, lapack_int ldu, double* c, lapack_int ldc, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dbdsqr( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt, &ldvt, u, &ldu, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,n); lapack_int ldu_t = MAX(1,nru); lapack_int ldvt_t = MAX(1,n); @@ -96,13 +96,13 @@ lapack_int LAPACKE_dbdsqr_work( int matrix_order, char uplo, lapack_int n, } /* Transpose input matrices */ if( ncvt != 0 ) { - LAPACKE_dge_trans( matrix_order, n, ncvt, vt, ldvt, vt_t, ldvt_t ); + LAPACKE_dge_trans( matrix_layout, n, ncvt, vt, ldvt, vt_t, ldvt_t ); } if( nru != 0 ) { - LAPACKE_dge_trans( matrix_order, nru, n, u, ldu, u_t, ldu_t ); + LAPACKE_dge_trans( matrix_layout, nru, n, u, ldu, u_t, ldu_t ); } if( ncc != 0 ) { - LAPACKE_dge_trans( matrix_order, n, ncc, c, ldc, c_t, ldc_t ); + LAPACKE_dge_trans( matrix_layout, n, ncc, c, ldc, c_t, ldc_t ); } /* Call LAPACK function and adjust info */ LAPACK_dbdsqr( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt_t, &ldvt_t, u_t, diff --git a/lapacke/src/lapacke_dgbbrd.c b/lapacke/src/lapacke_dgbbrd.c index 73018042..c1467f3f 100644 --- a/lapacke/src/lapacke_dgbbrd.c +++ b/lapacke/src/lapacke_dgbbrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbbrd( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_dgbbrd( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq, @@ -42,17 +42,17 @@ lapack_int LAPACKE_dgbbrd( int matrix_order, char vect, lapack_int m, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbbrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -8; } if( ncc != 0 ) { - if( LAPACKE_dge_nancheck( matrix_order, m, ncc, c, ldc ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, ncc, c, ldc ) ) { return -16; } } @@ -64,7 +64,7 @@ lapack_int LAPACKE_dgbbrd( int matrix_order, char vect, lapack_int m, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgbbrd_work( matrix_order, vect, m, n, ncc, kl, ku, ab, ldab, + info = LAPACKE_dgbbrd_work( matrix_layout, vect, m, n, ncc, kl, ku, ab, ldab, d, e, q, ldq, pt, ldpt, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgbbrd_work.c b/lapacke/src/lapacke_dgbbrd_work.c index 77800d54..1e66b879 100644 --- a/lapacke/src/lapacke_dgbbrd_work.c +++ b/lapacke/src/lapacke_dgbbrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbbrd_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_dgbbrd_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dgbbrd_work( int matrix_order, char vect, lapack_int m, lapack_int ldc, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbbrd( &vect, &m, &n, &ncc, &kl, &ku, ab, &ldab, d, e, q, &ldq, pt, &ldpt, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldc_t = MAX(1,m); lapack_int ldpt_t = MAX(1,n); @@ -108,9 +108,9 @@ lapack_int LAPACKE_dgbbrd_work( int matrix_order, char vect, lapack_int m, } } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_dgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( ncc != 0 ) { - LAPACKE_dge_trans( matrix_order, m, ncc, c, ldc, c_t, ldc_t ); + LAPACKE_dge_trans( matrix_layout, m, ncc, c, ldc, c_t, ldc_t ); } /* Call LAPACK function and adjust info */ LAPACK_dgbbrd( &vect, &m, &n, &ncc, &kl, &ku, ab_t, &ldab_t, d, e, q_t, diff --git a/lapacke/src/lapacke_dgbcon.c b/lapacke/src/lapacke_dgbcon.c index 3cbb425d..8dfe6202 100644 --- a/lapacke/src/lapacke_dgbcon.c +++ b/lapacke/src/lapacke_dgbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbcon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_dgbcon( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, const lapack_int* ipiv, double anorm, double* rcond ) @@ -41,13 +41,13 @@ lapack_int LAPACKE_dgbcon( int matrix_order, char norm, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -6; } if( LAPACKE_d_nancheck( 1, &anorm, 1 ) ) { @@ -66,7 +66,7 @@ lapack_int LAPACKE_dgbcon( int matrix_order, char norm, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgbcon_work( matrix_order, norm, n, kl, ku, ab, ldab, ipiv, + info = LAPACKE_dgbcon_work( matrix_layout, norm, n, kl, ku, ab, ldab, ipiv, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgbcon_work.c b/lapacke/src/lapacke_dgbcon_work.c index 0c89b0db..57719d63 100644 --- a/lapacke/src/lapacke_dgbcon_work.c +++ b/lapacke/src/lapacke_dgbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbcon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_dgbcon_work( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, const lapack_int* ipiv, double anorm, double* rcond, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbcon( &norm, &n, &kl, &ku, ab, &ldab, ipiv, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); double* ab_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_dgbcon_work( int matrix_order, char norm, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_dgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbcon( &norm, &n, &kl, &ku, ab_t, &ldab_t, ipiv, &anorm, rcond, diff --git a/lapacke/src/lapacke_dgbequ.c b/lapacke/src/lapacke_dgbequ.c index ecc94304..4a460261 100644 --- a/lapacke/src/lapacke_dgbequ.c +++ b/lapacke/src/lapacke_dgbequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbequ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_dgbequ_work( matrix_order, m, n, kl, ku, ab, ldab, r, c, + return LAPACKE_dgbequ_work( matrix_layout, m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_dgbequ_work.c b/lapacke/src/lapacke_dgbequ_work.c index b9127db3..ab5ff719 100644 --- a/lapacke/src/lapacke_dgbequ_work.c +++ b/lapacke/src/lapacke_dgbequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbequ_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbequ( &m, &n, &kl, &ku, ab, &ldab, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); double* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_dgbequ_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_dgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbequ( &m, &n, &kl, &ku, ab_t, &ldab_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_dgbequb.c b/lapacke/src/lapacke_dgbequb.c index 9df3f658..a67532b5 100644 --- a/lapacke/src/lapacke_dgbequb.c +++ b/lapacke/src/lapacke_dgbequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbequb( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_dgbequb_work( matrix_order, m, n, kl, ku, ab, ldab, r, c, + return LAPACKE_dgbequb_work( matrix_layout, m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_dgbequb_work.c b/lapacke/src/lapacke_dgbequb_work.c index 7b6b65f6..b87be707 100644 --- a/lapacke/src/lapacke_dgbequb_work.c +++ b/lapacke/src/lapacke_dgbequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbequb_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbequb( &m, &n, &kl, &ku, ab, &ldab, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); double* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_dgbequb_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_dgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbequb( &m, &n, &kl, &ku, ab_t, &ldab_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_dgbrfs.c b/lapacke/src/lapacke_dgbrfs.c index ba60da4a..c9e6de79 100644 --- a/lapacke/src/lapacke_dgbrfs.c +++ b/lapacke/src/lapacke_dgbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgbrfs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, lapack_int ldafb, const lapack_int* ipiv, @@ -43,22 +43,22 @@ lapack_int LAPACKE_dgbrfs( int matrix_order, char trans, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -7; } - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, ldafb ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -9; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_dgbrfs( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgbrfs_work( matrix_order, trans, n, kl, ku, nrhs, ab, ldab, + info = LAPACKE_dgbrfs_work( matrix_layout, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dgbrfs_work.c b/lapacke/src/lapacke_dgbrfs_work.c index 1baca5cd..ee7c3b26 100644 --- a/lapacke/src/lapacke_dgbrfs_work.c +++ b/lapacke/src/lapacke_dgbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgbrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, lapack_int ldafb, @@ -43,14 +43,14 @@ lapack_int LAPACKE_dgbrfs_work( int matrix_order, char trans, lapack_int n, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbrfs( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -102,11 +102,11 @@ lapack_int LAPACKE_dgbrfs_work( int matrix_order, char trans, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_dgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_dgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_dgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbrfs( &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, diff --git a/lapacke/src/lapacke_dgbrfsx.c b/lapacke/src/lapacke_dgbrfsx.c index fb53f730..965b2104 100644 --- a/lapacke/src/lapacke_dgbrfsx.c +++ b/lapacke/src/lapacke_dgbrfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbrfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_dgbrfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, lapack_int ldafb, @@ -47,19 +47,19 @@ lapack_int LAPACKE_dgbrfsx( int matrix_order, char trans, char equed, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbrfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, ldafb ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -15; } if( LAPACKE_lsame( equed, 'b' ) || LAPACKE_lsame( equed, 'c' ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_dgbrfsx( int matrix_order, char trans, char equed, return -13; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -17; } #endif @@ -93,7 +93,7 @@ lapack_int LAPACKE_dgbrfsx( int matrix_order, char trans, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgbrfsx_work( matrix_order, trans, equed, n, kl, ku, nrhs, + info = LAPACKE_dgbrfsx_work( matrix_layout, trans, equed, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, r, c, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_dgbrfsx_work.c b/lapacke/src/lapacke_dgbrfsx_work.c index 6209fd71..e12855ae 100644 --- a/lapacke/src/lapacke_dgbrfsx_work.c +++ b/lapacke/src/lapacke_dgbrfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbrfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_dgbrfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const double* afb, @@ -47,7 +47,7 @@ lapack_int LAPACKE_dgbrfsx_work( int matrix_order, char trans, char equed, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbrfsx( &trans, &equed, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, r, c, b, &ldb, x, &ldx, rcond, berr, @@ -56,7 +56,7 @@ lapack_int LAPACKE_dgbrfsx_work( int matrix_order, char trans, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -122,11 +122,11 @@ lapack_int LAPACKE_dgbrfsx_work( int matrix_order, char trans, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_dgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_dgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_dgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbrfsx( &trans, &equed, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, r, c, b_t, &ldb_t, x_t, &ldx_t, diff --git a/lapacke/src/lapacke_dgbsv.c b/lapacke/src/lapacke_dgbsv.c index 14833799..5a015c5b 100644 --- a/lapacke/src/lapacke_dgbsv.c +++ b/lapacke/src/lapacke_dgbsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbsv( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_dgbsv( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, lapack_int* ipiv, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif - return LAPACKE_dgbsv_work( matrix_order, n, kl, ku, nrhs, ab, ldab, ipiv, b, + return LAPACKE_dgbsv_work( matrix_layout, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_dgbsv_work.c b/lapacke/src/lapacke_dgbsv_work.c index b39ea822..8b2f2ddf 100644 --- a/lapacke/src/lapacke_dgbsv_work.c +++ b/lapacke/src/lapacke_dgbsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_dgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, lapack_int* ipiv, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbsv( &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); double* ab_t = NULL; @@ -73,9 +73,9 @@ lapack_int LAPACKE_dgbsv_work( int matrix_order, lapack_int n, lapack_int kl, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_dgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbsv( &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_dgbsvx.c b/lapacke/src/lapacke_dgbsvx.c index f315d6b0..878458cd 100644 --- a/lapacke/src/lapacke_dgbsvx.c +++ b/lapacke/src/lapacke_dgbsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgbsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, lapack_int* ipiv, @@ -45,22 +45,22 @@ lapack_int LAPACKE_dgbsvx( int matrix_order, char fact, char trans, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -16; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -88,7 +88,7 @@ lapack_int LAPACKE_dgbsvx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgbsvx_work( matrix_order, fact, trans, n, kl, ku, nrhs, ab, + info = LAPACKE_dgbsvx_work( matrix_layout, fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Backup significant data from working array(s) */ diff --git a/lapacke/src/lapacke_dgbsvx_work.c b/lapacke/src/lapacke_dgbsvx_work.c index 26b8dc07..2bca9243 100644 --- a/lapacke/src/lapacke_dgbsvx_work.c +++ b/lapacke/src/lapacke_dgbsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgbsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, lapack_int* ipiv, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dgbsvx_work( int matrix_order, char fact, char trans, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbsvx( &fact, &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, equed, r, c, b, &ldb, x, &ldx, rcond, ferr, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dgbsvx_work( int matrix_order, char fact, char trans, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -103,12 +103,12 @@ lapack_int LAPACKE_dgbsvx_work( int matrix_order, char fact, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_dgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_dgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_dgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbsvx( &fact, &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, equed, r, c, b_t, &ldb_t, x_t, &ldx_t, diff --git a/lapacke/src/lapacke_dgbsvxx.c b/lapacke/src/lapacke_dgbsvxx.c index 742f3cd5..ecc5eb72 100644 --- a/lapacke/src/lapacke_dgbsvxx.c +++ b/lapacke/src/lapacke_dgbsvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbsvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgbsvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, lapack_int* ipiv, @@ -47,22 +47,22 @@ lapack_int LAPACKE_dgbsvxx( int matrix_order, char fact, char trans, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbsvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -16; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -95,7 +95,7 @@ lapack_int LAPACKE_dgbsvxx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgbsvxx_work( matrix_order, fact, trans, n, kl, ku, nrhs, ab, + info = LAPACKE_dgbsvxx_work( matrix_layout, fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, diff --git a/lapacke/src/lapacke_dgbsvxx_work.c b/lapacke/src/lapacke_dgbsvxx_work.c index d1cb40c2..bd2a2140 100644 --- a/lapacke/src/lapacke_dgbsvxx_work.c +++ b/lapacke/src/lapacke_dgbsvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_dgbsvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, double* ab, lapack_int ldab, double* afb, lapack_int ldafb, @@ -47,7 +47,7 @@ lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbsvxx( &fact, &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, equed, r, c, b, &ldb, x, &ldx, rcond, @@ -56,7 +56,7 @@ lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -122,12 +122,12 @@ lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_dgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_dgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_dgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbsvxx( &fact, &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, equed, r, c, b_t, &ldb_t, x_t, @@ -153,9 +153,9 @@ lapack_int LAPACKE_dgbsvxx_work( int matrix_order, char fact, char trans, } LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_dgbtrf.c b/lapacke/src/lapacke_dgbtrf.c index fc367954..6c8944a7 100644 --- a/lapacke/src/lapacke_dgbtrf.c +++ b/lapacke/src/lapacke_dgbtrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbtrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbtrf( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, double* ab, lapack_int ldab, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbtrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, m, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, m, n, kl, kl+ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_dgbtrf_work( matrix_order, m, n, kl, ku, ab, ldab, ipiv ); + return LAPACKE_dgbtrf_work( matrix_layout, m, n, kl, ku, ab, ldab, ipiv ); } diff --git a/lapacke/src/lapacke_dgbtrf_work.c b/lapacke/src/lapacke_dgbtrf_work.c index 4500307b..97bd03a9 100644 --- a/lapacke/src/lapacke_dgbtrf_work.c +++ b/lapacke/src/lapacke_dgbtrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbtrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, double* ab, lapack_int ldab, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbtrf( &m, &n, &kl, &ku, ab, &ldab, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); double* ab_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dgbtrf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, m, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_dgb_trans( matrix_layout, m, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbtrf( &m, &n, &kl, &ku, ab_t, &ldab_t, ipiv, &info ); diff --git a/lapacke/src/lapacke_dgbtrs.c b/lapacke/src/lapacke_dgbtrs.c index 8ed1b9d8..3dc0dd5e 100644 --- a/lapacke/src/lapacke_dgbtrs.c +++ b/lapacke/src/lapacke_dgbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbtrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgbtrs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const lapack_int* ipiv, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_dgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } #endif - return LAPACKE_dgbtrs_work( matrix_order, trans, n, kl, ku, nrhs, ab, ldab, + return LAPACKE_dgbtrs_work( matrix_layout, trans, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_dgbtrs_work.c b/lapacke/src/lapacke_dgbtrs_work.c index a8b1bdae..6b7f5d8d 100644 --- a/lapacke/src/lapacke_dgbtrs_work.c +++ b/lapacke/src/lapacke_dgbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgbtrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgbtrs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const double* ab, lapack_int ldab, const lapack_int* ipiv, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgbtrs( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); double* ab_t = NULL; @@ -75,9 +75,9 @@ lapack_int LAPACKE_dgbtrs_work( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_dgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgbtrs( &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_dgebak.c b/lapacke/src/lapacke_dgebak.c index ff3fca78..0e7ce2be 100644 --- a/lapacke/src/lapacke_dgebak.c +++ b/lapacke/src/lapacke_dgebak.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgebak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_dgebak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* scale, lapack_int m, double* v, lapack_int ldv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgebak", -1 ); return -1; } @@ -46,10 +46,10 @@ lapack_int LAPACKE_dgebak( int matrix_order, char job, char side, lapack_int n, if( LAPACKE_d_nancheck( n, scale, 1 ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, m, v, ldv ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, m, v, ldv ) ) { return -9; } #endif - return LAPACKE_dgebak_work( matrix_order, job, side, n, ilo, ihi, scale, m, + return LAPACKE_dgebak_work( matrix_layout, job, side, n, ilo, ihi, scale, m, v, ldv ); } diff --git a/lapacke/src/lapacke_dgebak_work.c b/lapacke/src/lapacke_dgebak_work.c index 4d7c8894..7fbb13cd 100644 --- a/lapacke/src/lapacke_dgebak_work.c +++ b/lapacke/src/lapacke_dgebak_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgebak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_dgebak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* scale, lapack_int m, double* v, lapack_int ldv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgebak( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldv_t = MAX(1,n); double* v_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_dgebak_work( int matrix_order, char job, char side, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, m, v, ldv, v_t, ldv_t ); + LAPACKE_dge_trans( matrix_layout, n, m, v, ldv, v_t, ldv_t ); /* Call LAPACK function and adjust info */ LAPACK_dgebak( &job, &side, &n, &ilo, &ihi, scale, &m, v_t, &ldv_t, &info ); diff --git a/lapacke/src/lapacke_dgebal.c b/lapacke/src/lapacke_dgebal.c index d1fd12a6..8a77473b 100644 --- a/lapacke/src/lapacke_dgebal.c +++ b/lapacke/src/lapacke_dgebal.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgebal( int matrix_order, char job, lapack_int n, double* a, +lapack_int LAPACKE_dgebal( int matrix_layout, char job, lapack_int n, double* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, double* scale ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgebal", -1 ); return -1; } @@ -45,10 +45,10 @@ lapack_int LAPACKE_dgebal( int matrix_order, char job, lapack_int n, double* a, /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'p' ) || LAPACKE_lsame( job, 's' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } } #endif - return LAPACKE_dgebal_work( matrix_order, job, n, a, lda, ilo, ihi, scale ); + return LAPACKE_dgebal_work( matrix_layout, job, n, a, lda, ilo, ihi, scale ); } diff --git a/lapacke/src/lapacke_dgebal_work.c b/lapacke/src/lapacke_dgebal_work.c index 411ccab9..c51ecd79 100644 --- a/lapacke/src/lapacke_dgebal_work.c +++ b/lapacke/src/lapacke_dgebal_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgebal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_dgebal_work( int matrix_layout, char job, lapack_int n, double* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, double* scale ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgebal( &job, &n, a, &lda, ilo, ihi, scale, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgebal_work( int matrix_order, char job, lapack_int n, /* Transpose input matrices */ if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'p' ) || LAPACKE_lsame( job, 's' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); } /* Call LAPACK function and adjust info */ LAPACK_dgebal( &job, &n, a_t, &lda_t, ilo, ihi, scale, &info ); diff --git a/lapacke/src/lapacke_dgebrd.c b/lapacke/src/lapacke_dgebrd.c index 27659daa..12b3a3c5 100644 --- a/lapacke/src/lapacke_dgebrd.c +++ b/lapacke/src/lapacke_dgebrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgebrd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgebrd( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* d, double* e, double* tauq, double* taup ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_dgebrd( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgebrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgebrd_work( matrix_order, m, n, a, lda, d, e, tauq, taup, + info = LAPACKE_dgebrd_work( matrix_layout, m, n, a, lda, d, e, tauq, taup, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgebrd( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgebrd_work( matrix_order, m, n, a, lda, d, e, tauq, taup, + info = LAPACKE_dgebrd_work( matrix_layout, m, n, a, lda, d, e, tauq, taup, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgebrd_work.c b/lapacke/src/lapacke_dgebrd_work.c index b55911da..8512b9d2 100644 --- a/lapacke/src/lapacke_dgebrd_work.c +++ b/lapacke/src/lapacke_dgebrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgebrd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgebrd_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* d, double* e, double* tauq, double* taup, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgebrd( &m, &n, a, &lda, d, e, tauq, taup, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_dgebrd_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgebrd( &m, &n, a_t, &lda_t, d, e, tauq, taup, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_dgecon.c b/lapacke/src/lapacke_dgecon.c index 8a76d540..9623ee80 100644 --- a/lapacke/src/lapacke_dgecon.c +++ b/lapacke/src/lapacke_dgecon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgecon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_dgecon( int matrix_layout, char norm, lapack_int n, const double* a, lapack_int lda, double anorm, double* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgecon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } if( LAPACKE_d_nancheck( 1, &anorm, 1 ) ) { @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgecon( int matrix_order, char norm, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgecon_work( matrix_order, norm, n, a, lda, anorm, rcond, + info = LAPACKE_dgecon_work( matrix_layout, norm, n, a, lda, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgecon_work.c b/lapacke/src/lapacke_dgecon_work.c index 33525c6e..f3d72444 100644 --- a/lapacke/src/lapacke_dgecon_work.c +++ b/lapacke/src/lapacke_dgecon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgecon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_dgecon_work( int matrix_layout, char norm, lapack_int n, const double* a, lapack_int lda, double anorm, double* rcond, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgecon( &norm, &n, a, &lda, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dgecon_work( int matrix_order, char norm, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgecon( &norm, &n, a_t, &lda_t, &anorm, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dgeequ.c b/lapacke/src/lapacke_dgeequ.c index 33a4fb16..ee456801 100644 --- a/lapacke/src/lapacke_dgeequ.c +++ b/lapacke/src/lapacke_dgeequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeequ( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_dgeequ_work( matrix_order, m, n, a, lda, r, c, rowcnd, + return LAPACKE_dgeequ_work( matrix_layout, m, n, a, lda, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_dgeequ_work.c b/lapacke/src/lapacke_dgeequ_work.c index 684ba93e..a33d8ac1 100644 --- a/lapacke/src/lapacke_dgeequ_work.c +++ b/lapacke/src/lapacke_dgeequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeequ_work( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeequ( &m, &n, a, &lda, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_dgeequ_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeequ( &m, &n, a_t, &lda_t, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeequb.c b/lapacke/src/lapacke_dgeequb.c index 853e2005..0183f4e1 100644 --- a/lapacke/src/lapacke_dgeequb.c +++ b/lapacke/src/lapacke_dgeequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeequb( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_dgeequb_work( matrix_order, m, n, a, lda, r, c, rowcnd, + return LAPACKE_dgeequb_work( matrix_layout, m, n, a, lda, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_dgeequb_work.c b/lapacke/src/lapacke_dgeequb_work.c index ffe29ac4..bd02b485 100644 --- a/lapacke/src/lapacke_dgeequb_work.c +++ b/lapacke/src/lapacke_dgeequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeequb_work( int matrix_layout, lapack_int m, lapack_int n, const double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeequb( &m, &n, a, &lda, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_dgeequb_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeequb( &m, &n, a_t, &lda_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_dgees.c b/lapacke/src/lapacke_dgees.c index 09be6a4f..ee22a3c4 100644 --- a/lapacke/src/lapacke_dgees.c +++ b/lapacke/src/lapacke_dgees.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgees( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_dgees( int matrix_layout, char jobvs, char sort, LAPACK_D_SELECT2 select, lapack_int n, double* a, lapack_int lda, lapack_int* sdim, double* wr, double* wi, double* vs, lapack_int ldvs ) @@ -43,13 +43,13 @@ lapack_int LAPACKE_dgees( int matrix_order, char jobvs, char sort, lapack_logical* bwork = NULL; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgees", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } #endif @@ -63,7 +63,7 @@ lapack_int LAPACKE_dgees( int matrix_order, char jobvs, char sort, } } /* Query optimal working array(s) size */ - info = LAPACKE_dgees_work( matrix_order, jobvs, sort, select, n, a, lda, + info = LAPACKE_dgees_work( matrix_layout, jobvs, sort, select, n, a, lda, sdim, wr, wi, vs, ldvs, &work_query, lwork, bwork ); if( info != 0 ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_dgees( int matrix_order, char jobvs, char sort, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgees_work( matrix_order, jobvs, sort, select, n, a, lda, + info = LAPACKE_dgees_work( matrix_layout, jobvs, sort, select, n, a, lda, sdim, wr, wi, vs, ldvs, work, lwork, bwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgees_work.c b/lapacke/src/lapacke_dgees_work.c index 6c8e27e7..e7b36683 100644 --- a/lapacke/src/lapacke_dgees_work.c +++ b/lapacke/src/lapacke_dgees_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgees_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_dgees_work( int matrix_layout, char jobvs, char sort, LAPACK_D_SELECT2 select, lapack_int n, double* a, lapack_int lda, lapack_int* sdim, double* wr, double* wi, double* vs, lapack_int ldvs, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dgees_work( int matrix_order, char jobvs, char sort, lapack_logical* bwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgees( &jobvs, &sort, select, &n, a, &lda, sdim, wr, wi, vs, &ldvs, work, &lwork, bwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvs_t = MAX(1,n); double* a_t = NULL; @@ -85,7 +85,7 @@ lapack_int LAPACKE_dgees_work( int matrix_order, char jobvs, char sort, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgees( &jobvs, &sort, select, &n, a_t, &lda_t, sdim, wr, wi, vs_t, &ldvs_t, work, &lwork, bwork, &info ); diff --git a/lapacke/src/lapacke_dgeesx.c b/lapacke/src/lapacke_dgeesx.c index 55fd78f4..5ba111ac 100644 --- a/lapacke/src/lapacke_dgeesx.c +++ b/lapacke/src/lapacke_dgeesx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeesx( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_dgeesx( int matrix_layout, char jobvs, char sort, LAPACK_D_SELECT2 select, char sense, lapack_int n, double* a, lapack_int lda, lapack_int* sdim, double* wr, double* wi, double* vs, lapack_int ldvs, @@ -47,13 +47,13 @@ lapack_int LAPACKE_dgeesx( int matrix_order, char jobvs, char sort, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeesx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } #endif @@ -67,7 +67,7 @@ lapack_int LAPACKE_dgeesx( int matrix_order, char jobvs, char sort, } } /* Query optimal working array(s) size */ - info = LAPACKE_dgeesx_work( matrix_order, jobvs, sort, select, sense, n, a, + info = LAPACKE_dgeesx_work( matrix_layout, jobvs, sort, select, sense, n, a, lda, sdim, wr, wi, vs, ldvs, rconde, rcondv, &work_query, lwork, &iwork_query, liwork, bwork ); @@ -90,7 +90,7 @@ lapack_int LAPACKE_dgeesx( int matrix_order, char jobvs, char sort, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_dgeesx_work( matrix_order, jobvs, sort, select, sense, n, a, + info = LAPACKE_dgeesx_work( matrix_layout, jobvs, sort, select, sense, n, a, lda, sdim, wr, wi, vs, ldvs, rconde, rcondv, work, lwork, iwork, liwork, bwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dgeesx_work.c b/lapacke/src/lapacke_dgeesx_work.c index 731801d0..5204bfeb 100644 --- a/lapacke/src/lapacke_dgeesx_work.c +++ b/lapacke/src/lapacke_dgeesx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeesx_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_dgeesx_work( int matrix_layout, char jobvs, char sort, LAPACK_D_SELECT2 select, char sense, lapack_int n, double* a, lapack_int lda, lapack_int* sdim, double* wr, double* wi, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dgeesx_work( int matrix_order, char jobvs, char sort, lapack_logical* bwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeesx( &jobvs, &sort, select, &sense, &n, a, &lda, sdim, wr, wi, vs, &ldvs, rconde, rcondv, work, &lwork, iwork, &liwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dgeesx_work( int matrix_order, char jobvs, char sort, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvs_t = MAX(1,n); double* a_t = NULL; @@ -89,7 +89,7 @@ lapack_int LAPACKE_dgeesx_work( int matrix_order, char jobvs, char sort, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeesx( &jobvs, &sort, select, &sense, &n, a_t, &lda_t, sdim, wr, wi, vs_t, &ldvs_t, rconde, rcondv, work, &lwork, iwork, diff --git a/lapacke/src/lapacke_dgeev.c b/lapacke/src/lapacke_dgeev.c index b92e1ff3..44c8197c 100644 --- a/lapacke/src/lapacke_dgeev.c +++ b/lapacke/src/lapacke_dgeev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_dgeev( int matrix_layout, char jobvl, char jobvr, lapack_int n, double* a, lapack_int lda, double* wr, double* wi, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr ) @@ -42,18 +42,18 @@ lapack_int LAPACKE_dgeev( int matrix_order, char jobvl, char jobvr, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeev", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgeev_work( matrix_order, jobvl, jobvr, n, a, lda, wr, wi, + info = LAPACKE_dgeev_work( matrix_layout, jobvl, jobvr, n, a, lda, wr, wi, vl, ldvl, vr, ldvr, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_dgeev( int matrix_order, char jobvl, char jobvr, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgeev_work( matrix_order, jobvl, jobvr, n, a, lda, wr, wi, + info = LAPACKE_dgeev_work( matrix_layout, jobvl, jobvr, n, a, lda, wr, wi, vl, ldvl, vr, ldvr, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgeev_work.c b/lapacke/src/lapacke_dgeev_work.c index 0510d00f..97db5e75 100644 --- a/lapacke/src/lapacke_dgeev_work.c +++ b/lapacke/src/lapacke_dgeev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_dgeev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, double* a, lapack_int lda, double* wr, double* wi, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeev( &jobvl, &jobvr, &n, a, &lda, wr, wi, vl, &ldvl, vr, &ldvr, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -99,7 +99,7 @@ lapack_int LAPACKE_dgeev_work( int matrix_order, char jobvl, char jobvr, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeev( &jobvl, &jobvr, &n, a_t, &lda_t, wr, wi, vl_t, &ldvl_t, vr_t, &ldvr_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_dgeevx.c b/lapacke/src/lapacke_dgeevx.c index e0473b21..c14a7746 100644 --- a/lapacke/src/lapacke_dgeevx.c +++ b/lapacke/src/lapacke_dgeevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_dgeevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, double* a, lapack_int lda, double* wr, double* wi, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, @@ -45,13 +45,13 @@ lapack_int LAPACKE_dgeevx( int matrix_order, char balanc, char jobvl, lapack_int* iwork = NULL; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeevx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } #endif @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgeevx( int matrix_order, char balanc, char jobvl, } } /* Query optimal working array(s) size */ - info = LAPACKE_dgeevx_work( matrix_order, balanc, jobvl, jobvr, sense, n, a, + info = LAPACKE_dgeevx_work( matrix_layout, balanc, jobvl, jobvr, sense, n, a, lda, wr, wi, vl, ldvl, vr, ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, &work_query, lwork, iwork ); @@ -80,7 +80,7 @@ lapack_int LAPACKE_dgeevx( int matrix_order, char balanc, char jobvl, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgeevx_work( matrix_order, balanc, jobvl, jobvr, sense, n, a, + info = LAPACKE_dgeevx_work( matrix_layout, balanc, jobvl, jobvr, sense, n, a, lda, wr, wi, vl, ldvl, vr, ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, work, lwork, iwork ); diff --git a/lapacke/src/lapacke_dgeevx_work.c b/lapacke/src/lapacke_dgeevx_work.c index 8a714301..d461f863 100644 --- a/lapacke/src/lapacke_dgeevx_work.c +++ b/lapacke/src/lapacke_dgeevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_dgeevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, double* a, lapack_int lda, double* wr, double* wi, double* vl, lapack_int ldvl, double* vr, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dgeevx_work( int matrix_order, char balanc, char jobvl, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, wr, wi, vl, &ldvl, vr, &ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dgeevx_work( int matrix_order, char balanc, char jobvl, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -104,7 +104,7 @@ lapack_int LAPACKE_dgeevx_work( int matrix_order, char balanc, char jobvl, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeevx( &balanc, &jobvl, &jobvr, &sense, &n, a_t, &lda_t, wr, wi, vl_t, &ldvl_t, vr_t, &ldvr_t, ilo, ihi, scale, abnrm, diff --git a/lapacke/src/lapacke_dgehrd.c b/lapacke/src/lapacke_dgehrd.c index ffefe3f9..c42f347f 100644 --- a/lapacke/src/lapacke_dgehrd.c +++ b/lapacke/src/lapacke_dgehrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgehrd( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_dgehrd( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, double* a, lapack_int lda, double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_dgehrd( int matrix_order, lapack_int n, lapack_int ilo, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgehrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgehrd_work( matrix_order, n, ilo, ihi, a, lda, tau, + info = LAPACKE_dgehrd_work( matrix_layout, n, ilo, ihi, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgehrd( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgehrd_work( matrix_order, n, ilo, ihi, a, lda, tau, work, + info = LAPACKE_dgehrd_work( matrix_layout, n, ilo, ihi, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgehrd_work.c b/lapacke/src/lapacke_dgehrd_work.c index 35f20d26..2281c1bc 100644 --- a/lapacke/src/lapacke_dgehrd_work.c +++ b/lapacke/src/lapacke_dgehrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_dgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgehrd( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -66,7 +66,7 @@ lapack_int LAPACKE_dgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgehrd( &n, &ilo, &ihi, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgejsv.c b/lapacke/src/lapacke_dgejsv.c index 2ac3db1e..cb29a1f6 100644 --- a/lapacke/src/lapacke_dgejsv.c +++ b/lapacke/src/lapacke_dgejsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgejsv( int matrix_order, char joba, char jobu, char jobv, +lapack_int LAPACKE_dgejsv( int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, double* a, lapack_int lda, double* sva, double* u, lapack_int ldu, double* v, lapack_int ldv, @@ -75,7 +75,7 @@ lapack_int LAPACKE_dgejsv( int matrix_order, char joba, char jobu, char jobv, double* work = NULL; lapack_int i; lapack_int nu, nv; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgejsv", -1 ); return -1; } @@ -83,18 +83,18 @@ lapack_int LAPACKE_dgejsv( int matrix_order, char joba, char jobu, char jobv, /* Optionally check input matrices for NaNs */ nu = LAPACKE_lsame( jobu, 'n' ) ? 1 : m; nv = LAPACKE_lsame( jobv, 'n' ) ? 1 : n; - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -10; } if( LAPACKE_lsame( jobu, 'f' ) || LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'w' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, nu, n, u, ldu ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, nu, n, u, ldu ) ) { return -13; } } if( LAPACKE_lsame( jobv, 'j' ) || LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'w' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, nv, n, v, ldv ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, nv, n, v, ldv ) ) { return -15; } } @@ -111,7 +111,7 @@ lapack_int LAPACKE_dgejsv( int matrix_order, char joba, char jobu, char jobv, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgejsv_work( matrix_order, joba, jobu, jobv, jobr, jobt, + info = LAPACKE_dgejsv_work( matrix_layout, joba, jobu, jobv, jobr, jobt, jobp, m, n, a, lda, sva, u, ldu, v, ldv, work, lwork, iwork ); /* Backup significant data from working array(s) */ diff --git a/lapacke/src/lapacke_dgejsv_work.c b/lapacke/src/lapacke_dgejsv_work.c index ee5f40e0..a882a3d7 100644 --- a/lapacke/src/lapacke_dgejsv_work.c +++ b/lapacke/src/lapacke_dgejsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgejsv_work( int matrix_order, char joba, char jobu, +lapack_int LAPACKE_dgejsv_work( int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, double* a, lapack_int lda, double* sva, double* u, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dgejsv_work( int matrix_order, char joba, char jobu, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgejsv( &joba, &jobu, &jobv, &jobr, &jobt, &jobp, &m, &n, a, &lda, sva, u, &ldu, v, &ldv, work, &lwork, iwork, @@ -50,7 +50,7 @@ lapack_int LAPACKE_dgejsv_work( int matrix_order, char joba, char jobu, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nu = LAPACKE_lsame( jobu, 'n' ) ? 1 : m; lapack_int nv = LAPACKE_lsame( jobv, 'n' ) ? 1 : n; lapack_int lda_t = MAX(1,m); @@ -98,14 +98,14 @@ lapack_int LAPACKE_dgejsv_work( int matrix_order, char joba, char jobu, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( jobu, 'f' ) || LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'w' ) ) { - LAPACKE_dge_trans( matrix_order, nu, n, u, ldu, u_t, ldu_t ); + LAPACKE_dge_trans( matrix_layout, nu, n, u, ldu, u_t, ldu_t ); } if( LAPACKE_lsame( jobv, 'j' ) || LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'w' ) ) { - LAPACKE_dge_trans( matrix_order, nv, n, v, ldv, v_t, ldv_t ); + LAPACKE_dge_trans( matrix_layout, nv, n, v, ldv, v_t, ldv_t ); } /* Call LAPACK function and adjust info */ LAPACK_dgejsv( &joba, &jobu, &jobv, &jobr, &jobt, &jobp, &m, &n, a_t, diff --git a/lapacke/src/lapacke_dgelq2.c b/lapacke/src/lapacke_dgelq2.c index 2388d9da..34ed35b1 100644 --- a/lapacke/src/lapacke_dgelq2.c +++ b/lapacke/src/lapacke_dgelq2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelq2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelq2( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgelq2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -55,7 +55,7 @@ lapack_int LAPACKE_dgelq2( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgelq2_work( matrix_order, m, n, a, lda, tau, work ); + info = LAPACKE_dgelq2_work( matrix_layout, m, n, a, lda, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgelq2_work.c b/lapacke/src/lapacke_dgelq2_work.c index bf54be29..28e9dce4 100644 --- a/lapacke/src/lapacke_dgelq2_work.c +++ b/lapacke/src/lapacke_dgelq2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelq2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelq2_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgelq2( &m, &n, a, &lda, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dgelq2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgelq2( &m, &n, a_t, &lda_t, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgelqf.c b/lapacke/src/lapacke_dgelqf.c index 4d283d80..a8dae2b7 100644 --- a/lapacke/src/lapacke_dgelqf.c +++ b/lapacke/src/lapacke_dgelqf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelqf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgelqf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgelqf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_dgelqf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dgelqf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgelqf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_dgelqf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgelqf_work.c b/lapacke/src/lapacke_dgelqf_work.c index e37f2de6..8bc39e78 100644 --- a/lapacke/src/lapacke_dgelqf_work.c +++ b/lapacke/src/lapacke_dgelqf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelqf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgelqf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgelqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgelqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgels.c b/lapacke/src/lapacke_dgels.c index 6db4ac26..72980157 100644 --- a/lapacke/src/lapacke_dgels.c +++ b/lapacke/src/lapacke_dgels.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgels( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_dgels( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb ) { @@ -41,21 +41,21 @@ lapack_int LAPACKE_dgels( int matrix_order, char trans, lapack_int m, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgels", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgels_work( matrix_order, trans, m, n, nrhs, a, lda, b, ldb, + info = LAPACKE_dgels_work( matrix_layout, trans, m, n, nrhs, a, lda, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,7 +68,7 @@ lapack_int LAPACKE_dgels( int matrix_order, char trans, lapack_int m, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgels_work( matrix_order, trans, m, n, nrhs, a, lda, b, ldb, + info = LAPACKE_dgels_work( matrix_layout, trans, m, n, nrhs, a, lda, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgels_work.c b/lapacke/src/lapacke_dgels_work.c index 526692b3..ed2923e8 100644 --- a/lapacke/src/lapacke_dgels_work.c +++ b/lapacke/src/lapacke_dgels_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgels_work( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_dgels_work( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgels( &trans, &m, &n, &nrhs, a, &lda, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); double* a_t = NULL; @@ -80,8 +80,8 @@ lapack_int LAPACKE_dgels_work( int matrix_order, char trans, lapack_int m, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgels( &trans, &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_dgelsd.c b/lapacke/src/lapacke_dgelsd.c index baee6214..98bd3a0e 100644 --- a/lapacke/src/lapacke_dgelsd.c +++ b/lapacke/src/lapacke_dgelsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelsd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelsd( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank ) @@ -46,16 +46,16 @@ lapack_int LAPACKE_dgelsd( int matrix_order, lapack_int m, lapack_int n, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgelsd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_d_nancheck( 1, &rcond, 1 ) ) { @@ -63,7 +63,7 @@ lapack_int LAPACKE_dgelsd( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgelsd_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_dgelsd_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, &work_query, lwork, &iwork_query ); if( info != 0 ) { goto exit_level_0; @@ -82,7 +82,7 @@ lapack_int LAPACKE_dgelsd( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgelsd_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_dgelsd_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgelsd_work.c b/lapacke/src/lapacke_dgelsd_work.c index a586236a..0a29fc3f 100644 --- a/lapacke/src/lapacke_dgelsd_work.c +++ b/lapacke/src/lapacke_dgelsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelsd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelsd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank, double* work, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgelsd( &m, &n, &nrhs, a, &lda, b, &ldb, s, &rcond, rank, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); double* a_t = NULL; @@ -81,8 +81,8 @@ lapack_int LAPACKE_dgelsd_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgelsd( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, s, &rcond, rank, work, &lwork, iwork, &info ); diff --git a/lapacke/src/lapacke_dgelss.c b/lapacke/src/lapacke_dgelss.c index 550a1d92..228b5d01 100644 --- a/lapacke/src/lapacke_dgelss.c +++ b/lapacke/src/lapacke_dgelss.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelss( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelss( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank ) @@ -42,16 +42,16 @@ lapack_int LAPACKE_dgelss( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgelss", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_d_nancheck( 1, &rcond, 1 ) ) { @@ -59,7 +59,7 @@ lapack_int LAPACKE_dgelss( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgelss_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_dgelss_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -72,7 +72,7 @@ lapack_int LAPACKE_dgelss( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgelss_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_dgelss_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgelss_work.c b/lapacke/src/lapacke_dgelss_work.c index 35f363d8..3fc8f2ea 100644 --- a/lapacke/src/lapacke_dgelss_work.c +++ b/lapacke/src/lapacke_dgelss_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelss_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelss_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* s, double rcond, lapack_int* rank, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgelss( &m, &n, &nrhs, a, &lda, b, &ldb, s, &rcond, rank, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); double* a_t = NULL; @@ -81,8 +81,8 @@ lapack_int LAPACKE_dgelss_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgelss( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, s, &rcond, rank, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_dgelsy.c b/lapacke/src/lapacke_dgelsy.c index ed5751b4..ba66b4d7 100644 --- a/lapacke/src/lapacke_dgelsy.c +++ b/lapacke/src/lapacke_dgelsy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelsy( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelsy( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* jpvt, double rcond, lapack_int* rank ) @@ -42,16 +42,16 @@ lapack_int LAPACKE_dgelsy( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgelsy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_d_nancheck( 1, &rcond, 1 ) ) { @@ -59,7 +59,7 @@ lapack_int LAPACKE_dgelsy( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgelsy_work( matrix_order, m, n, nrhs, a, lda, b, ldb, jpvt, + info = LAPACKE_dgelsy_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -72,7 +72,7 @@ lapack_int LAPACKE_dgelsy( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgelsy_work( matrix_order, m, n, nrhs, a, lda, b, ldb, jpvt, + info = LAPACKE_dgelsy_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgelsy_work.c b/lapacke/src/lapacke_dgelsy_work.c index 6fdf94ce..a99243bc 100644 --- a/lapacke/src/lapacke_dgelsy_work.c +++ b/lapacke/src/lapacke_dgelsy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgelsy_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgelsy_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, lapack_int* jpvt, double rcond, lapack_int* rank, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgelsy( &m, &n, &nrhs, a, &lda, b, &ldb, jpvt, &rcond, rank, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); double* a_t = NULL; @@ -81,8 +81,8 @@ lapack_int LAPACKE_dgelsy_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dgelsy( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, jpvt, &rcond, rank, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_dgemqrt.c b/lapacke/src/lapacke_dgemqrt.c index f3e55ac7..a49656cf 100644 --- a/lapacke/src/lapacke_dgemqrt.c +++ b/lapacke/src/lapacke_dgemqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgemqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_dgemqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* c, @@ -41,19 +41,19 @@ lapack_int LAPACKE_dgemqrt( int matrix_order, char side, char trans, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgemqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -12; } - if( LAPACKE_dge_nancheck( matrix_order, ldt, nb, t, ldt ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, ldt, nb, t, ldt ) ) { return -10; } - if( LAPACKE_dge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -8; } #endif @@ -64,7 +64,7 @@ lapack_int LAPACKE_dgemqrt( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgemqrt_work( matrix_order, side, trans, m, n, k, nb, v, ldv, + info = LAPACKE_dgemqrt_work( matrix_layout, side, trans, m, n, k, nb, v, ldv, t, ldt, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgemqrt_work.c b/lapacke/src/lapacke_dgemqrt_work.c index 80e0ff20..fe826793 100644 --- a/lapacke/src/lapacke_dgemqrt_work.c +++ b/lapacke/src/lapacke_dgemqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgemqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dgemqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const double* v, lapack_int ldv, const double* t, lapack_int ldt, double* c, lapack_int ldc, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgemqrt( &side, &trans, &m, &n, &k, &nb, v, &ldv, t, &ldt, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,m); lapack_int ldt_t = MAX(1,ldt); lapack_int ldv_t = MAX(1,ldv); @@ -87,9 +87,9 @@ lapack_int LAPACKE_dgemqrt_work( int matrix_order, char side, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_dge_trans( matrix_order, ldt, nb, t, ldt, t_t, ldt_t ); - LAPACKE_dge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_dge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_dge_trans( matrix_layout, ldt, nb, t, ldt, t_t, ldt_t ); + LAPACKE_dge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_dgemqrt( &side, &trans, &m, &n, &k, &nb, v_t, &ldv_t, t_t, &ldt_t, c_t, &ldc_t, work, &info ); diff --git a/lapacke/src/lapacke_dgeqlf.c b/lapacke/src/lapacke_dgeqlf.c index 4e3e3d1e..e6637c92 100644 --- a/lapacke/src/lapacke_dgeqlf.c +++ b/lapacke/src/lapacke_dgeqlf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqlf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqlf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqlf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgeqlf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_dgeqlf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dgeqlf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgeqlf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_dgeqlf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgeqlf_work.c b/lapacke/src/lapacke_dgeqlf_work.c index 7ff8f16f..3e07384a 100644 --- a/lapacke/src/lapacke_dgeqlf_work.c +++ b/lapacke/src/lapacke_dgeqlf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqlf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqlf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgeqlf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqlf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeqp3.c b/lapacke/src/lapacke_dgeqp3.c index 3be5af0d..1c682a7a 100644 --- a/lapacke/src/lapacke_dgeqp3.c +++ b/lapacke/src/lapacke_dgeqp3.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqp3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqp3( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* jpvt, double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_dgeqp3( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqp3", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgeqp3_work( matrix_order, m, n, a, lda, jpvt, tau, + info = LAPACKE_dgeqp3_work( matrix_layout, m, n, a, lda, jpvt, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgeqp3( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgeqp3_work( matrix_order, m, n, a, lda, jpvt, tau, work, + info = LAPACKE_dgeqp3_work( matrix_layout, m, n, a, lda, jpvt, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgeqp3_work.c b/lapacke/src/lapacke_dgeqp3_work.c index 8d25db20..3d0259fe 100644 --- a/lapacke/src/lapacke_dgeqp3_work.c +++ b/lapacke/src/lapacke_dgeqp3_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqp3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* jpvt, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqp3( &m, &n, a, &lda, jpvt, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgeqp3_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqp3( &m, &n, a_t, &lda_t, jpvt, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeqpf.c b/lapacke/src/lapacke_dgeqpf.c index 3acecbcb..bf6f888f 100644 --- a/lapacke/src/lapacke_dgeqpf.c +++ b/lapacke/src/lapacke_dgeqpf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqpf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqpf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* jpvt, double* tau ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqpf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_dgeqpf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgeqpf_work( matrix_order, m, n, a, lda, jpvt, tau, work ); + info = LAPACKE_dgeqpf_work( matrix_layout, m, n, a, lda, jpvt, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgeqpf_work.c b/lapacke/src/lapacke_dgeqpf_work.c index 12707ae6..ff0efb40 100644 --- a/lapacke/src/lapacke_dgeqpf_work.c +++ b/lapacke/src/lapacke_dgeqpf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqpf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, lapack_int* jpvt, double* tau, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqpf( &m, &n, a, &lda, jpvt, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dgeqpf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqpf( &m, &n, a_t, &lda_t, jpvt, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeqr2.c b/lapacke/src/lapacke_dgeqr2.c index ba427beb..23ad4829 100644 --- a/lapacke/src/lapacke_dgeqr2.c +++ b/lapacke/src/lapacke_dgeqr2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqr2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqr2( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqr2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -55,7 +55,7 @@ lapack_int LAPACKE_dgeqr2( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgeqr2_work( matrix_order, m, n, a, lda, tau, work ); + info = LAPACKE_dgeqr2_work( matrix_layout, m, n, a, lda, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgeqr2_work.c b/lapacke/src/lapacke_dgeqr2_work.c index faa6aae2..bbe14459 100644 --- a/lapacke/src/lapacke_dgeqr2_work.c +++ b/lapacke/src/lapacke_dgeqr2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqr2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqr2( &m, &n, a, &lda, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dgeqr2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqr2( &m, &n, a_t, &lda_t, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeqrf.c b/lapacke/src/lapacke_dgeqrf.c index e41778a5..43377440 100644 --- a/lapacke/src/lapacke_dgeqrf.c +++ b/lapacke/src/lapacke_dgeqrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgeqrf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_dgeqrf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dgeqrf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgeqrf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_dgeqrf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgeqrf_work.c b/lapacke/src/lapacke_dgeqrf_work.c index 0b10a813..3c466223 100644 --- a/lapacke/src/lapacke_dgeqrf_work.c +++ b/lapacke/src/lapacke_dgeqrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqrf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgeqrf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqrf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeqrfp.c b/lapacke/src/lapacke_dgeqrfp.c index c5d0a473..1d341286 100644 --- a/lapacke/src/lapacke_dgeqrfp.c +++ b/lapacke/src/lapacke_dgeqrfp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrfp( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrfp( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqrfp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgeqrfp_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_dgeqrfp_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dgeqrfp( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgeqrfp_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_dgeqrfp_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgeqrfp_work.c b/lapacke/src/lapacke_dgeqrfp_work.c index 6284c321..5882ff3c 100644 --- a/lapacke/src/lapacke_dgeqrfp_work.c +++ b/lapacke/src/lapacke_dgeqrfp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqrfp( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqrfp( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeqrt.c b/lapacke/src/lapacke_dgeqrt.c index e80ce29e..38703f16 100644 --- a/lapacke/src/lapacke_dgeqrt.c +++ b/lapacke/src/lapacke_dgeqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, double* a, lapack_int lda, double* t, lapack_int ldt ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_dgeqrt( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgeqrt_work( matrix_order, m, n, nb, a, lda, t, ldt, work ); + info = LAPACKE_dgeqrt_work( matrix_layout, m, n, nb, a, lda, t, ldt, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgeqrt2.c b/lapacke/src/lapacke_dgeqrt2.c index 64f8a310..2f1e61ac 100644 --- a/lapacke/src/lapacke_dgeqrt2.c +++ b/lapacke/src/lapacke_dgeqrt2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrt2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt2( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqrt2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_dgeqrt2_work( matrix_order, m, n, a, lda, t, ldt ); + return LAPACKE_dgeqrt2_work( matrix_layout, m, n, a, lda, t, ldt ); } diff --git a/lapacke/src/lapacke_dgeqrt2_work.c b/lapacke/src/lapacke_dgeqrt2_work.c index 1712a4af..2be42fe0 100644 --- a/lapacke/src/lapacke_dgeqrt2_work.c +++ b/lapacke/src/lapacke_dgeqrt2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqrt2( &m, &n, a, &lda, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); double* a_t = NULL; @@ -72,7 +72,7 @@ lapack_int LAPACKE_dgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqrt2( &m, &n, a_t, &lda_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeqrt3.c b/lapacke/src/lapacke_dgeqrt3.c index 4ffe27fd..643edc8f 100644 --- a/lapacke/src/lapacke_dgeqrt3.c +++ b/lapacke/src/lapacke_dgeqrt3.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrt3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt3( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgeqrt3", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_dgeqrt3_work( matrix_order, m, n, a, lda, t, ldt ); + return LAPACKE_dgeqrt3_work( matrix_layout, m, n, a, lda, t, ldt ); } diff --git a/lapacke/src/lapacke_dgeqrt3_work.c b/lapacke/src/lapacke_dgeqrt3_work.c index 32b9f1a1..6b15bcdf 100644 --- a/lapacke/src/lapacke_dgeqrt3_work.c +++ b/lapacke/src/lapacke_dgeqrt3_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqrt3( &m, &n, a, &lda, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); double* a_t = NULL; @@ -72,7 +72,7 @@ lapack_int LAPACKE_dgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqrt3( &m, &n, a_t, &lda_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgeqrt_work.c b/lapacke/src/lapacke_dgeqrt_work.c index 37988414..d0585f90 100644 --- a/lapacke/src/lapacke_dgeqrt_work.c +++ b/lapacke/src/lapacke_dgeqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgeqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, double* a, lapack_int lda, double* t, lapack_int ldt, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgeqrt( &m, &n, &nb, a, &lda, t, &ldt, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,ldt); double* a_t = NULL; @@ -73,7 +73,7 @@ lapack_int LAPACKE_dgeqrt_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgerfs.c b/lapacke/src/lapacke_dgerfs.c index 9a34333b..17d0b63a 100644 --- a/lapacke/src/lapacke_dgerfs.c +++ b/lapacke/src/lapacke_dgerfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgerfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgerfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* b, @@ -43,22 +43,22 @@ lapack_int LAPACKE_dgerfs( int matrix_order, char trans, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgerfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_dgerfs( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgerfs_work( matrix_order, trans, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_dgerfs_work( matrix_layout, trans, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgerfs_work.c b/lapacke/src/lapacke_dgerfs_work.c index 9907c22e..8da86c9d 100644 --- a/lapacke/src/lapacke_dgerfs_work.c +++ b/lapacke/src/lapacke_dgerfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgerfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_dgerfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -42,14 +42,14 @@ lapack_int LAPACKE_dgerfs_work( int matrix_order, char trans, lapack_int n, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgerfs( &trans, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -101,10 +101,10 @@ lapack_int LAPACKE_dgerfs_work( int matrix_order, char trans, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dgerfs( &trans, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dgerfsx.c b/lapacke/src/lapacke_dgerfsx.c index db9c310d..606054c7 100644 --- a/lapacke/src/lapacke_dgerfsx.c +++ b/lapacke/src/lapacke_dgerfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgerfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_dgerfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* r, @@ -46,19 +46,19 @@ lapack_int LAPACKE_dgerfsx( int matrix_order, char trans, char equed, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgerfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -8; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( LAPACKE_lsame( equed, 'b' ) || LAPACKE_lsame( equed, 'c' ) ) { @@ -76,7 +76,7 @@ lapack_int LAPACKE_dgerfsx( int matrix_order, char trans, char equed, return -11; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -15; } #endif @@ -92,7 +92,7 @@ lapack_int LAPACKE_dgerfsx( int matrix_order, char trans, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgerfsx_work( matrix_order, trans, equed, n, nrhs, a, lda, + info = LAPACKE_dgerfsx_work( matrix_layout, trans, equed, n, nrhs, a, lda, af, ldaf, ipiv, r, c, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_dgerfsx_work.c b/lapacke/src/lapacke_dgerfsx_work.c index 3070b9a1..6fc38084 100644 --- a/lapacke/src/lapacke_dgerfsx_work.c +++ b/lapacke/src/lapacke_dgerfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgerfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_dgerfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -46,7 +46,7 @@ lapack_int LAPACKE_dgerfsx_work( int matrix_order, char trans, char equed, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgerfsx( &trans, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, r, c, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -55,7 +55,7 @@ lapack_int LAPACKE_dgerfsx_work( int matrix_order, char trans, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -121,10 +121,10 @@ lapack_int LAPACKE_dgerfsx_work( int matrix_order, char trans, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dgerfsx( &trans, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, r, c, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_dgerqf.c b/lapacke/src/lapacke_dgerqf.c index ca33b328..0f1d7af2 100644 --- a/lapacke/src/lapacke_dgerqf.c +++ b/lapacke/src/lapacke_dgerqf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgerqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgerqf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgerqf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dgerqf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_dgerqf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dgerqf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dgerqf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_dgerqf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dgerqf_work.c b/lapacke/src/lapacke_dgerqf_work.c index 063d0bdb..7ea9512e 100644 --- a/lapacke/src/lapacke_dgerqf_work.c +++ b/lapacke/src/lapacke_dgerqf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dgerqf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgerqf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dgerqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dgerqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dgesdd.c b/lapacke/src/lapacke_dgesdd.c index b198b91a..b9df1fde 100644 --- a/lapacke/src/lapacke_dgesdd.c +++ b/lapacke/src/lapacke_dgesdd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_dgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, double* a, lapack_int lda, double* s, double* u, lapack_int ldu, double* vt, lapack_int ldvt ) @@ -43,13 +43,13 @@ lapack_int LAPACKE_dgesdd( int matrix_order, char jobz, lapack_int m, lapack_int* iwork = NULL; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dgesdd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_dgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_dgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_dgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, &work_query, lwork, iwork ); if( info != 0 ) { goto exit_level_1; @@ -74,7 +74,7 @@ lapack_int LAPACKE_dgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_dgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dgesdd_work.c b/lapacke/src/lapacke_dgesdd_work.c index 60b8fd5f..1fb7e75c 100644 --- a/lapacke/src/lapacke_dgesdd_work.c +++ b/lapacke/src/lapacke_dgesdd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dgesdd_work( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_dgesdd_work( int matrix_layout, char jobz, lapack_int m, lapack_int n, double* a, lapack_int lda, double* s, double* u, lapack_int ldu, double* vt, lapack_int ldvt, double* work, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dgesdd( &jobz, &m, &n, a, &lda, s, u, &ldu, vt, &ldvt, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_u = ( LAPACKE_lsame( jobz, 'a' ) || LAPACKE_lsame( jobz, 's' ) || ( LAPACKE_lsame( jobz, 'o' ) && m0 ) { @@ -70,7 +70,7 @@ lapack_int LAPACKE_dporfsx( int matrix_order, char uplo, char equed, return -10; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -13; } #endif @@ -86,7 +86,7 @@ lapack_int LAPACKE_dporfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dporfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_dporfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_dporfsx_work.c b/lapacke/src/lapacke_dporfsx_work.c index ec69cd18..9d28ae7f 100644 --- a/lapacke/src/lapacke_dporfsx_work.c +++ b/lapacke/src/lapacke_dporfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dporfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_dporfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const double* s, @@ -45,7 +45,7 @@ lapack_int LAPACKE_dporfsx_work( int matrix_order, char uplo, char equed, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dporfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, err_bnds_norm, @@ -53,7 +53,7 @@ lapack_int LAPACKE_dporfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -119,10 +119,10 @@ lapack_int LAPACKE_dporfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dporfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, &n_err_bnds, diff --git a/lapacke/src/lapacke_dposv.c b/lapacke/src/lapacke_dposv.c index 284c1741..2ac4ed6f 100644 --- a/lapacke/src/lapacke_dposv.c +++ b/lapacke/src/lapacke_dposv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dposv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_dposv_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb ); + return LAPACKE_dposv_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_dposv_work.c b/lapacke/src/lapacke_dposv_work.c index 51eedd2e..2ae7cc9d 100644 --- a/lapacke/src/lapacke_dposv_work.c +++ b/lapacke/src/lapacke_dposv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dposv( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -72,8 +72,8 @@ lapack_int LAPACKE_dposv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dposv( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dposvx.c b/lapacke/src/lapacke_dposvx.c index f446d491..24b03467 100644 --- a/lapacke/src/lapacke_dposvx.c +++ b/lapacke/src/lapacke_dposvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dposvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dposvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, @@ -42,21 +42,21 @@ lapack_int LAPACKE_dposvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dposvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_dposvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dposvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_dposvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dposvx_work.c b/lapacke/src/lapacke_dposvx_work.c index 5da1ea5e..35c41f3b 100644 --- a/lapacke/src/lapacke_dposvx_work.c +++ b/lapacke/src/lapacke_dposvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dposvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dposvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, char* equed, double* s, double* b, @@ -42,14 +42,14 @@ lapack_int LAPACKE_dposvx_work( int matrix_order, char fact, char uplo, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dposvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -101,11 +101,11 @@ lapack_int LAPACKE_dposvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_dpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dposvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, diff --git a/lapacke/src/lapacke_dposvxx.c b/lapacke/src/lapacke_dposvxx.c index ec5f5fc8..1bff772d 100644 --- a/lapacke/src/lapacke_dposvxx.c +++ b/lapacke/src/lapacke_dposvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dposvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dposvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, char* equed, double* s, double* b, lapack_int ldb, @@ -45,21 +45,21 @@ lapack_int LAPACKE_dposvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dposvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( nparams>0 ) { @@ -85,7 +85,7 @@ lapack_int LAPACKE_dposvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dposvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_dposvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_dposvxx_work.c b/lapacke/src/lapacke_dposvxx_work.c index 918cda68..e765019f 100644 --- a/lapacke/src/lapacke_dposvxx_work.c +++ b/lapacke/src/lapacke_dposvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, char* equed, double* s, double* b, @@ -45,7 +45,7 @@ lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dposvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, &n_err_bnds, @@ -54,7 +54,7 @@ lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -120,11 +120,11 @@ lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_dpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_dpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dposvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, berr, @@ -144,9 +144,9 @@ lapack_int LAPACKE_dposvxx_work( int matrix_order, char fact, char uplo, LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_dpotrf.c b/lapacke/src/lapacke_dpotrf.c index c59a66b2..2bf5ed8e 100644 --- a/lapacke/src/lapacke_dpotrf.c +++ b/lapacke/src/lapacke_dpotrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpotrf( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dpotrf( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpotrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_dpotrf_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_dpotrf_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_dpotrf_work.c b/lapacke/src/lapacke_dpotrf_work.c index 00bdde2b..4d8e4a67 100644 --- a/lapacke/src/lapacke_dpotrf_work.c +++ b/lapacke/src/lapacke_dpotrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpotrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpotrf_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpotrf( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -59,7 +59,7 @@ lapack_int LAPACKE_dpotrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dpotrf( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dpotri.c b/lapacke/src/lapacke_dpotri.c index d2c93654..7b066b0f 100644 --- a/lapacke/src/lapacke_dpotri.c +++ b/lapacke/src/lapacke_dpotri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpotri( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dpotri( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpotri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_dpotri_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_dpotri_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_dpotri_work.c b/lapacke/src/lapacke_dpotri_work.c index 70720003..8b8629f9 100644 --- a/lapacke/src/lapacke_dpotri_work.c +++ b/lapacke/src/lapacke_dpotri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpotri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpotri_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpotri( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -59,7 +59,7 @@ lapack_int LAPACKE_dpotri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dpotri( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dpotrs.c b/lapacke/src/lapacke_dpotrs.c index 4a20aab6..6c43bfe8 100644 --- a/lapacke/src/lapacke_dpotrs.c +++ b/lapacke/src/lapacke_dpotrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpotrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpotrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpotrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_dpotrs_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb ); + return LAPACKE_dpotrs_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_dpotrs_work.c b/lapacke/src/lapacke_dpotrs_work.c index 3378f43a..db499a1f 100644 --- a/lapacke/src/lapacke_dpotrs_work.c +++ b/lapacke/src/lapacke_dpotrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpotrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpotrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpotrs( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -72,8 +72,8 @@ lapack_int LAPACKE_dpotrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dpotrs( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dppcon.c b/lapacke/src/lapacke_dppcon.c index bc7f0661..1f450d0a 100644 --- a/lapacke/src/lapacke_dppcon.c +++ b/lapacke/src/lapacke_dppcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dppcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppcon( int matrix_layout, char uplo, lapack_int n, const double* ap, double anorm, double* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dppcon", -1 ); return -1; } @@ -64,7 +64,7 @@ lapack_int LAPACKE_dppcon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dppcon_work( matrix_order, uplo, n, ap, anorm, rcond, work, + info = LAPACKE_dppcon_work( matrix_layout, uplo, n, ap, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dppcon_work.c b/lapacke/src/lapacke_dppcon_work.c index c19ac3f2..5f4a13f0 100644 --- a/lapacke/src/lapacke_dppcon_work.c +++ b/lapacke/src/lapacke_dppcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dppcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppcon_work( int matrix_layout, char uplo, lapack_int n, const double* ap, double anorm, double* rcond, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dppcon( &uplo, &n, ap, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_dppcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dppcon( &uplo, &n, ap_t, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dppequ.c b/lapacke/src/lapacke_dppequ.c index c47f3351..a096b7e1 100644 --- a/lapacke/src/lapacke_dppequ.c +++ b/lapacke/src/lapacke_dppequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dppequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppequ( int matrix_layout, char uplo, lapack_int n, const double* ap, double* s, double* scond, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dppequ", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_dppequ( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_dppequ_work( matrix_order, uplo, n, ap, s, scond, amax ); + return LAPACKE_dppequ_work( matrix_layout, uplo, n, ap, s, scond, amax ); } diff --git a/lapacke/src/lapacke_dppequ_work.c b/lapacke/src/lapacke_dppequ_work.c index 34882156..bbf7edbc 100644 --- a/lapacke/src/lapacke_dppequ_work.c +++ b/lapacke/src/lapacke_dppequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dppequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppequ_work( int matrix_layout, char uplo, lapack_int n, const double* ap, double* s, double* scond, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dppequ( &uplo, &n, ap, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_dppequ_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dppequ( &uplo, &n, ap_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dpprfs.c b/lapacke/src/lapacke_dpprfs.c index ab2bf622..d48c39c5 100644 --- a/lapacke/src/lapacke_dpprfs.c +++ b/lapacke/src/lapacke_dpprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const double* afp, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, double* berr ) @@ -41,7 +41,7 @@ lapack_int LAPACKE_dpprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpprfs", -1 ); return -1; } @@ -53,10 +53,10 @@ lapack_int LAPACKE_dpprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_dpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -9; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_dpprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dpprfs_work( matrix_order, uplo, n, nrhs, ap, afp, b, ldb, x, + info = LAPACKE_dpprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dpprfs_work.c b/lapacke/src/lapacke_dpprfs_work.c index 38d012b6..b3bf21de 100644 --- a/lapacke/src/lapacke_dpprfs_work.c +++ b/lapacke/src/lapacke_dpprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const double* afp, const double* b, lapack_int ldb, double* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dpprfs_work( int matrix_order, char uplo, lapack_int n, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpprfs( &uplo, &n, &nrhs, ap, afp, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); double* b_t = NULL; @@ -90,10 +90,10 @@ lapack_int LAPACKE_dpprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_dpp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_dpprfs( &uplo, &n, &nrhs, ap_t, afp_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dppsv.c b/lapacke/src/lapacke_dppsv.c index 215d7a81..f2097790 100644 --- a/lapacke/src/lapacke_dppsv.c +++ b/lapacke/src/lapacke_dppsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dppsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* ap, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dppsv", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_dppsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_dpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } #endif - return LAPACKE_dppsv_work( matrix_order, uplo, n, nrhs, ap, b, ldb ); + return LAPACKE_dppsv_work( matrix_layout, uplo, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_dppsv_work.c b/lapacke/src/lapacke_dppsv_work.c index fa38f9c3..100a793b 100644 --- a/lapacke/src/lapacke_dppsv_work.c +++ b/lapacke/src/lapacke_dppsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dppsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dppsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* ap, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dppsv( &uplo, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); double* b_t = NULL; double* ap_t = NULL; @@ -67,8 +67,8 @@ lapack_int LAPACKE_dppsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dppsv( &uplo, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dppsvx.c b/lapacke/src/lapacke_dppsvx.c index ce2b7b0e..645263db 100644 --- a/lapacke/src/lapacke_dppsvx.c +++ b/lapacke/src/lapacke_dppsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dppsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dppsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* ap, double* afp, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dppsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dppsvx", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_dppsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_dpp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_dppsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dppsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_dppsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dppsvx_work.c b/lapacke/src/lapacke_dppsvx_work.c index cba95e83..68613950 100644 --- a/lapacke/src/lapacke_dppsvx_work.c +++ b/lapacke/src/lapacke_dppsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dppsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dppsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* ap, double* afp, char* equed, double* s, double* b, lapack_int ldb, double* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dppsvx_work( int matrix_order, char fact, char uplo, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dppsvx( &fact, &uplo, &n, &nrhs, ap, afp, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); double* b_t = NULL; @@ -90,10 +90,10 @@ lapack_int LAPACKE_dppsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_dpp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_dppsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, equed, s, b_t, diff --git a/lapacke/src/lapacke_dpptrf.c b/lapacke/src/lapacke_dpptrf.c index 1c8e1b6b..0d66497f 100644 --- a/lapacke/src/lapacke_dpptrf.c +++ b/lapacke/src/lapacke_dpptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptrf( int matrix_layout, char uplo, lapack_int n, double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_dpptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_dpptrf_work( matrix_order, uplo, n, ap ); + return LAPACKE_dpptrf_work( matrix_layout, uplo, n, ap ); } diff --git a/lapacke/src/lapacke_dpptrf_work.c b/lapacke/src/lapacke_dpptrf_work.c index 17885599..508cdaeb 100644 --- a/lapacke/src/lapacke_dpptrf_work.c +++ b/lapacke/src/lapacke_dpptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptrf_work( int matrix_layout, char uplo, lapack_int n, double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpptrf( &uplo, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_dpptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dpptrf( &uplo, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dpptri.c b/lapacke/src/lapacke_dpptri.c index 2c97cf5c..15d79513 100644 --- a/lapacke/src/lapacke_dpptri.c +++ b/lapacke/src/lapacke_dpptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptri( int matrix_layout, char uplo, lapack_int n, double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpptri", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_dpptri( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_dpptri_work( matrix_order, uplo, n, ap ); + return LAPACKE_dpptri_work( matrix_layout, uplo, n, ap ); } diff --git a/lapacke/src/lapacke_dpptri_work.c b/lapacke/src/lapacke_dpptri_work.c index dd3b7d21..9468e564 100644 --- a/lapacke/src/lapacke_dpptri_work.c +++ b/lapacke/src/lapacke_dpptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptri_work( int matrix_layout, char uplo, lapack_int n, double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpptri( &uplo, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_dpptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dpptri( &uplo, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dpptrs.c b/lapacke/src/lapacke_dpptrs.c index 2cfb3d2a..99aab706 100644 --- a/lapacke/src/lapacke_dpptrs.c +++ b/lapacke/src/lapacke_dpptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpptrs", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_dpptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_dpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } #endif - return LAPACKE_dpptrs_work( matrix_order, uplo, n, nrhs, ap, b, ldb ); + return LAPACKE_dpptrs_work( matrix_layout, uplo, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_dpptrs_work.c b/lapacke/src/lapacke_dpptrs_work.c index c8d0a209..0e225bb8 100644 --- a/lapacke/src/lapacke_dpptrs_work.c +++ b/lapacke/src/lapacke_dpptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpptrs( &uplo, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); double* b_t = NULL; double* ap_t = NULL; @@ -67,8 +67,8 @@ lapack_int LAPACKE_dpptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dpptrs( &uplo, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dpstrf.c b/lapacke/src/lapacke_dpstrf.c index 74d30e1e..78187265 100644 --- a/lapacke/src/lapacke_dpstrf.c +++ b/lapacke/src/lapacke_dpstrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpstrf( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dpstrf( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, lapack_int* piv, lapack_int* rank, double tol ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpstrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_d_nancheck( 1, &tol, 1 ) ) { @@ -59,7 +59,7 @@ lapack_int LAPACKE_dpstrf( int matrix_order, char uplo, lapack_int n, double* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dpstrf_work( matrix_order, uplo, n, a, lda, piv, rank, tol, + info = LAPACKE_dpstrf_work( matrix_layout, uplo, n, a, lda, piv, rank, tol, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dpstrf_work.c b/lapacke/src/lapacke_dpstrf_work.c index 995cc1da..a8e875c6 100644 --- a/lapacke/src/lapacke_dpstrf_work.c +++ b/lapacke/src/lapacke_dpstrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpstrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dpstrf_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, lapack_int* piv, lapack_int* rank, double tol, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpstrf( &uplo, &n, a, &lda, piv, rank, &tol, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dpstrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dpstrf( &uplo, &n, a_t, &lda_t, piv, rank, &tol, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dpteqr.c b/lapacke/src/lapacke_dpteqr.c index d0318941..e491283f 100644 --- a/lapacke/src/lapacke_dpteqr.c +++ b/lapacke/src/lapacke_dpteqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpteqr( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dpteqr( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ) { lapack_int info = 0; /* Additional scalars declarations for work arrays */ lapack_int lwork; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpteqr", -1 ); return -1; } @@ -53,7 +53,7 @@ lapack_int LAPACKE_dpteqr( int matrix_order, char compz, lapack_int n, return -5; } if( LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } @@ -71,7 +71,7 @@ lapack_int LAPACKE_dpteqr( int matrix_order, char compz, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dpteqr_work( matrix_order, compz, n, d, e, z, ldz, work ); + info = LAPACKE_dpteqr_work( matrix_layout, compz, n, d, e, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dpteqr_work.c b/lapacke/src/lapacke_dpteqr_work.c index 8327ddc9..d9477fa8 100644 --- a/lapacke/src/lapacke_dpteqr_work.c +++ b/lapacke/src/lapacke_dpteqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dpteqr_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpteqr( &compz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_dpteqr_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_dge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_dpteqr( &compz, &n, d, e, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_dptrfs.c b/lapacke/src/lapacke_dptrfs.c index 54e2ffe6..53d55139 100644 --- a/lapacke/src/lapacke_dptrfs.c +++ b/lapacke/src/lapacke_dptrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dptrfs( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dptrfs( int matrix_layout, lapack_int n, lapack_int nrhs, const double* d, const double* e, const double* df, const double* ef, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* ferr, @@ -41,13 +41,13 @@ lapack_int LAPACKE_dptrfs( int matrix_order, lapack_int n, lapack_int nrhs, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dptrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } if( LAPACKE_d_nancheck( n, d, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_dptrfs( int matrix_order, lapack_int n, lapack_int nrhs, if( LAPACKE_d_nancheck( n-1, ef, 1 ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -73,7 +73,7 @@ lapack_int LAPACKE_dptrfs( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dptrfs_work( matrix_order, n, nrhs, d, e, df, ef, b, ldb, x, + info = LAPACKE_dptrfs_work( matrix_layout, n, nrhs, d, e, df, ef, b, ldb, x, ldx, ferr, berr, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dptrfs_work.c b/lapacke/src/lapacke_dptrfs_work.c index 64ff4efd..c3061239 100644 --- a/lapacke/src/lapacke_dptrfs_work.c +++ b/lapacke/src/lapacke_dptrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dptrfs_work( int matrix_layout, lapack_int n, lapack_int nrhs, const double* d, const double* e, const double* df, const double* ef, const double* b, lapack_int ldb, double* x, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dptrfs( &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, ferr, berr, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); double* b_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_dptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dptrfs( &n, &nrhs, d, e, df, ef, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, &info ); diff --git a/lapacke/src/lapacke_dptsv.c b/lapacke/src/lapacke_dptsv.c index 5e60c7a5..a3d9922a 100644 --- a/lapacke/src/lapacke_dptsv.c +++ b/lapacke/src/lapacke_dptsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,16 +33,16 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dptsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dptsv( int matrix_layout, lapack_int n, lapack_int nrhs, double* d, double* e, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dptsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } if( LAPACKE_d_nancheck( n, d, 1 ) ) { @@ -52,5 +52,5 @@ lapack_int LAPACKE_dptsv( int matrix_order, lapack_int n, lapack_int nrhs, return -5; } #endif - return LAPACKE_dptsv_work( matrix_order, n, nrhs, d, e, b, ldb ); + return LAPACKE_dptsv_work( matrix_layout, n, nrhs, d, e, b, ldb ); } diff --git a/lapacke/src/lapacke_dptsv_work.c b/lapacke/src/lapacke_dptsv_work.c index 4c755a1a..4c46a4f0 100644 --- a/lapacke/src/lapacke_dptsv_work.c +++ b/lapacke/src/lapacke_dptsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* d, double* e, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dptsv( &n, &nrhs, d, e, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); double* b_t = NULL; /* Check leading dimension(s) */ @@ -59,7 +59,7 @@ lapack_int LAPACKE_dptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dptsv( &n, &nrhs, d, e, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dptsvx.c b/lapacke/src/lapacke_dptsvx.c index c813359c..55bb0f74 100644 --- a/lapacke/src/lapacke_dptsvx.c +++ b/lapacke/src/lapacke_dptsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dptsvx( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_dptsvx( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const double* d, const double* e, double* df, double* ef, const double* b, lapack_int ldb, double* x, lapack_int ldx, @@ -41,13 +41,13 @@ lapack_int LAPACKE_dptsvx( int matrix_order, char fact, lapack_int n, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dptsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } if( LAPACKE_d_nancheck( n, d, 1 ) ) { @@ -74,7 +74,7 @@ lapack_int LAPACKE_dptsvx( int matrix_order, char fact, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dptsvx_work( matrix_order, fact, n, nrhs, d, e, df, ef, b, + info = LAPACKE_dptsvx_work( matrix_layout, fact, n, nrhs, d, e, df, ef, b, ldb, x, ldx, rcond, ferr, berr, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dptsvx_work.c b/lapacke/src/lapacke_dptsvx_work.c index e8f17473..9d2100ad 100644 --- a/lapacke/src/lapacke_dptsvx_work.c +++ b/lapacke/src/lapacke_dptsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dptsvx_work( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_dptsvx_work( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const double* d, const double* e, double* df, double* ef, const double* b, lapack_int ldb, double* x, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dptsvx_work( int matrix_order, char fact, lapack_int n, double* berr, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dptsvx( &fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, rcond, ferr, berr, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); double* b_t = NULL; @@ -76,7 +76,7 @@ lapack_int LAPACKE_dptsvx_work( int matrix_order, char fact, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dptsvx( &fact, &n, &nrhs, d, e, df, ef, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, &info ); diff --git a/lapacke/src/lapacke_dpttrs.c b/lapacke/src/lapacke_dpttrs.c index 5060496a..4c12af02 100644 --- a/lapacke/src/lapacke_dpttrs.c +++ b/lapacke/src/lapacke_dpttrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpttrs( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dpttrs( int matrix_layout, lapack_int n, lapack_int nrhs, const double* d, const double* e, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dpttrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } if( LAPACKE_d_nancheck( n, d, 1 ) ) { @@ -53,5 +53,5 @@ lapack_int LAPACKE_dpttrs( int matrix_order, lapack_int n, lapack_int nrhs, return -5; } #endif - return LAPACKE_dpttrs_work( matrix_order, n, nrhs, d, e, b, ldb ); + return LAPACKE_dpttrs_work( matrix_layout, n, nrhs, d, e, b, ldb ); } diff --git a/lapacke/src/lapacke_dpttrs_work.c b/lapacke/src/lapacke_dpttrs_work.c index cd09693c..c12700c2 100644 --- a/lapacke/src/lapacke_dpttrs_work.c +++ b/lapacke/src/lapacke_dpttrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dpttrs_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dpttrs_work( int matrix_layout, lapack_int n, lapack_int nrhs, const double* d, const double* e, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dpttrs( &n, &nrhs, d, e, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); double* b_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dpttrs_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dpttrs( &n, &nrhs, d, e, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsbev.c b/lapacke/src/lapacke_dsbev.c index b5003a28..927a5925 100644 --- a/lapacke/src/lapacke_dsbev.c +++ b/lapacke/src/lapacke_dsbev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsbev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* w, double* z, lapack_int ldz ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsbev", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_dsbev( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsbev_work( matrix_order, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_dsbev_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsbev_work.c b/lapacke/src/lapacke_dsbev_work.c index 28564860..71b0ec06 100644 --- a/lapacke/src/lapacke_dsbev_work.c +++ b/lapacke/src/lapacke_dsbev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbev_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* w, double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbev( &jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldz_t = MAX(1,n); double* ab_t = NULL; @@ -76,7 +76,7 @@ lapack_int LAPACKE_dsbev_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_dsbev( &jobz, &uplo, &n, &kd, ab_t, &ldab_t, w, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_dsbevd.c b/lapacke/src/lapacke_dsbevd.c index 3583f7fe..03aec545 100644 --- a/lapacke/src/lapacke_dsbevd.c +++ b/lapacke/src/lapacke_dsbevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsbevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* w, double* z, lapack_int ldz ) { @@ -44,18 +44,18 @@ lapack_int LAPACKE_dsbevd( int matrix_order, char jobz, char uplo, lapack_int n, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsbevd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsbevd_work( matrix_order, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_dsbevd_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_dsbevd( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsbevd_work( matrix_order, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_dsbevd_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsbevd_work.c b/lapacke/src/lapacke_dsbevd_work.c index afc1f920..c61cc533 100644 --- a/lapacke/src/lapacke_dsbevd_work.c +++ b/lapacke/src/lapacke_dsbevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* w, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbevd( &jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldz_t = MAX(1,n); double* ab_t = NULL; @@ -83,7 +83,7 @@ lapack_int LAPACKE_dsbevd_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_dsbevd( &jobz, &uplo, &n, &kd, ab_t, &ldab_t, w, z_t, &ldz_t, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_dsbevx.c b/lapacke/src/lapacke_dsbevx.c index 59241505..b79e1edf 100644 --- a/lapacke/src/lapacke_dsbevx.c +++ b/lapacke/src/lapacke_dsbevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dsbevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* q, lapack_int ldq, double vl, double vu, lapack_int il, lapack_int iu, @@ -43,13 +43,13 @@ lapack_int LAPACKE_dsbevx( int matrix_order, char jobz, char range, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsbevx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -7; } if( LAPACKE_d_nancheck( 1, &abstol, 1 ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_dsbevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsbevx_work( matrix_order, jobz, range, uplo, n, kd, ab, + info = LAPACKE_dsbevx_work( matrix_layout, jobz, range, uplo, n, kd, ab, ldab, q, ldq, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dsbevx_work.c b/lapacke/src/lapacke_dsbevx_work.c index b3e038c3..e3642cbe 100644 --- a/lapacke/src/lapacke_dsbevx_work.c +++ b/lapacke/src/lapacke_dsbevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dsbevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* q, lapack_int ldq, double vl, double vu, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dsbevx_work( int matrix_order, char jobz, char range, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbevx( &jobz, &range, &uplo, &n, &kd, ab, &ldab, q, &ldq, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, iwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dsbevx_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -99,7 +99,7 @@ lapack_int LAPACKE_dsbevx_work( int matrix_order, char jobz, char range, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_dsbevx( &jobz, &range, &uplo, &n, &kd, ab_t, &ldab_t, q_t, &ldq_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, diff --git a/lapacke/src/lapacke_dsbgst.c b/lapacke/src/lapacke_dsbgst.c index 8d21dd7d..e81fe25a 100644 --- a/lapacke/src/lapacke_dsbgst.c +++ b/lapacke/src/lapacke_dsbgst.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgst( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_dsbgst( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, const double* bb, lapack_int ldbb, double* x, lapack_int ldx ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsbgst", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, ka, ab, ldab ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) { return -7; } - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -9; } #endif @@ -60,7 +60,7 @@ lapack_int LAPACKE_dsbgst( int matrix_order, char vect, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsbgst_work( matrix_order, vect, uplo, n, ka, kb, ab, ldab, + info = LAPACKE_dsbgst_work( matrix_layout, vect, uplo, n, ka, kb, ab, ldab, bb, ldbb, x, ldx, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsbgst_work.c b/lapacke/src/lapacke_dsbgst_work.c index 5aabf4fb..248ab615 100644 --- a/lapacke/src/lapacke_dsbgst_work.c +++ b/lapacke/src/lapacke_dsbgst_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgst_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_dsbgst_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, const double* bb, lapack_int ldbb, double* x, lapack_int ldx, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbgst( &vect, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, x, &ldx, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldx_t = MAX(1,n); @@ -89,8 +89,8 @@ lapack_int LAPACKE_dsbgst_work( int matrix_order, char vect, char uplo, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_dsb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsbgst( &vect, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, x_t, &ldx_t, work, &info ); diff --git a/lapacke/src/lapacke_dsbgv.c b/lapacke/src/lapacke_dsbgv.c index 57029b4c..37ea55bb 100644 --- a/lapacke/src/lapacke_dsbgv.c +++ b/lapacke/src/lapacke_dsbgv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgv( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsbgv( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, lapack_int ldz ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsbgv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, ka, ab, ldab ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) { return -7; } - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -9; } #endif @@ -60,7 +60,7 @@ lapack_int LAPACKE_dsbgv( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsbgv_work( matrix_order, jobz, uplo, n, ka, kb, ab, ldab, + info = LAPACKE_dsbgv_work( matrix_layout, jobz, uplo, n, ka, kb, ab, ldab, bb, ldbb, w, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsbgv_work.c b/lapacke/src/lapacke_dsbgv_work.c index 549818b4..069650b2 100644 --- a/lapacke/src/lapacke_dsbgv_work.c +++ b/lapacke/src/lapacke_dsbgv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgv_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbgv_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbgv( &jobz, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, w, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldz_t = MAX(1,n); @@ -89,8 +89,8 @@ lapack_int LAPACKE_dsbgv_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_dsb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsbgv( &jobz, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, w, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_dsbgvd.c b/lapacke/src/lapacke_dsbgvd.c index 843a9e36..591e2b98 100644 --- a/lapacke/src/lapacke_dsbgvd.c +++ b/lapacke/src/lapacke_dsbgvd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgvd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, lapack_int ldz ) @@ -45,21 +45,21 @@ lapack_int LAPACKE_dsbgvd( int matrix_order, char jobz, char uplo, lapack_int n, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsbgvd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, ka, ab, ldab ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) { return -7; } - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -9; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsbgvd_work( matrix_order, jobz, uplo, n, ka, kb, ab, ldab, + info = LAPACKE_dsbgvd_work( matrix_layout, jobz, uplo, n, ka, kb, ab, ldab, bb, ldbb, w, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -79,7 +79,7 @@ lapack_int LAPACKE_dsbgvd( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsbgvd_work( matrix_order, jobz, uplo, n, ka, kb, ab, ldab, + info = LAPACKE_dsbgvd_work( matrix_layout, jobz, uplo, n, ka, kb, ab, ldab, bb, ldbb, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dsbgvd_work.c b/lapacke/src/lapacke_dsbgvd_work.c index acfe842b..4880a088 100644 --- a/lapacke/src/lapacke_dsbgvd_work.c +++ b/lapacke/src/lapacke_dsbgvd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgvd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsbgvd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* w, double* z, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dsbgvd_work( int matrix_order, char jobz, char uplo, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbgvd( &jobz, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldz_t = MAX(1,n); @@ -96,8 +96,8 @@ lapack_int LAPACKE_dsbgvd_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_dsb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsbgvd( &jobz, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, w, z_t, &ldz_t, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_dsbgvx.c b/lapacke/src/lapacke_dsbgvx.c index 5fc5cd95..8c122552 100644 --- a/lapacke/src/lapacke_dsbgvx.c +++ b/lapacke/src/lapacke_dsbgvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgvx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dsbgvx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* q, lapack_int ldq, @@ -44,19 +44,19 @@ lapack_int LAPACKE_dsbgvx( int matrix_order, char jobz, char range, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsbgvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, ka, ab, ldab ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) { return -8; } if( LAPACKE_d_nancheck( 1, &abstol, 1 ) ) { return -18; } - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -10; } if( LAPACKE_lsame( range, 'v' ) ) { @@ -82,7 +82,7 @@ lapack_int LAPACKE_dsbgvx( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsbgvx_work( matrix_order, jobz, range, uplo, n, ka, kb, ab, + info = LAPACKE_dsbgvx_work( matrix_layout, jobz, range, uplo, n, ka, kb, ab, ldab, bb, ldbb, q, ldq, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dsbgvx_work.c b/lapacke/src/lapacke_dsbgvx_work.c index 2716c629..8e6768f4 100644 --- a/lapacke/src/lapacke_dsbgvx_work.c +++ b/lapacke/src/lapacke_dsbgvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbgvx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dsbgvx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, double* ab, lapack_int ldab, double* bb, lapack_int ldbb, double* q, @@ -44,7 +44,7 @@ lapack_int LAPACKE_dsbgvx_work( int matrix_order, char jobz, char range, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbgvx( &jobz, &range, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, q, &ldq, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, @@ -52,7 +52,7 @@ lapack_int LAPACKE_dsbgvx_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldq_t = MAX(1,n); @@ -108,8 +108,8 @@ lapack_int LAPACKE_dsbgvx_work( int matrix_order, char jobz, char range, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_dsb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsbgvx( &jobz, &range, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, q_t, &ldq_t, &vl, &vu, &il, &iu, &abstol, m, w, diff --git a/lapacke/src/lapacke_dsbtrd.c b/lapacke/src/lapacke_dsbtrd.c index f7e76b62..33a89ad2 100644 --- a/lapacke/src/lapacke_dsbtrd.c +++ b/lapacke/src/lapacke_dsbtrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbtrd( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_dsbtrd( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsbtrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_dsb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -10; } } @@ -61,7 +61,7 @@ lapack_int LAPACKE_dsbtrd( int matrix_order, char vect, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsbtrd_work( matrix_order, vect, uplo, n, kd, ab, ldab, d, e, + info = LAPACKE_dsbtrd_work( matrix_layout, vect, uplo, n, kd, ab, ldab, d, e, q, ldq, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsbtrd_work.c b/lapacke/src/lapacke_dsbtrd_work.c index 2ae1ae28..b654545d 100644 --- a/lapacke/src/lapacke_dsbtrd_work.c +++ b/lapacke/src/lapacke_dsbtrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsbtrd_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_dsbtrd_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, double* ab, lapack_int ldab, double* d, double* e, double* q, lapack_int ldq, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsbtrd( &vect, &uplo, &n, &kd, ab, &ldab, d, e, q, &ldq, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldq_t = MAX(1,n); double* ab_t = NULL; @@ -76,9 +76,9 @@ lapack_int LAPACKE_dsbtrd_work( int matrix_order, char vect, char uplo, } } /* Transpose input matrices */ - LAPACKE_dsb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_dsb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_dge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_dsbtrd( &vect, &uplo, &n, &kd, ab_t, &ldab_t, d, e, q_t, &ldq_t, diff --git a/lapacke/src/lapacke_dsfrk.c b/lapacke/src/lapacke_dsfrk.c index 3b4092f0..850a9b86 100644 --- a/lapacke/src/lapacke_dsfrk.c +++ b/lapacke/src/lapacke_dsfrk.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_dsfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const double* a, lapack_int lda, double beta, double* c ) { lapack_int ka, na; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsfrk", -1 ); return -1; } @@ -47,7 +47,7 @@ lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans, /* Optionally check input matrices for NaNs */ ka = LAPACKE_lsame( trans, 'n' ) ? k : n; na = LAPACKE_lsame( trans, 'n' ) ? n : k; - if( LAPACKE_dge_nancheck( matrix_order, na, ka, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, na, ka, a, lda ) ) { return -8; } if( LAPACKE_d_nancheck( 1, &alpha, 1 ) ) { @@ -60,6 +60,6 @@ lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans, return -11; } #endif - return LAPACKE_dsfrk_work( matrix_order, transr, uplo, trans, n, k, alpha, + return LAPACKE_dsfrk_work( matrix_layout, transr, uplo, trans, n, k, alpha, a, lda, beta, c ); } diff --git a/lapacke/src/lapacke_dsfrk_work.c b/lapacke/src/lapacke_dsfrk_work.c index 6f44de08..c3ccd0a8 100644 --- a/lapacke/src/lapacke_dsfrk_work.c +++ b/lapacke/src/lapacke_dsfrk_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsfrk_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dsfrk_work( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const double* a, lapack_int lda, double beta, double* c ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsfrk( &transr, &uplo, &trans, &n, &k, &alpha, a, &lda, &beta, c ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int na = LAPACKE_lsame( trans, 'n' ) ? n : k; lapack_int ka = LAPACKE_lsame( trans, 'n' ) ? k : n; lapack_int lda_t = MAX(1,na); @@ -71,8 +71,8 @@ lapack_int LAPACKE_dsfrk_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, na, ka, a, lda, a_t, lda_t ); - LAPACKE_dpf_trans( matrix_order, transr, uplo, n, c, c_t ); + LAPACKE_dge_trans( matrix_layout, na, ka, a, lda, a_t, lda_t ); + LAPACKE_dpf_trans( matrix_layout, transr, uplo, n, c, c_t ); /* Call LAPACK function and adjust info */ LAPACK_dsfrk( &transr, &uplo, &trans, &n, &k, &alpha, a_t, &lda_t, &beta, c_t ); diff --git a/lapacke/src/lapacke_dsgesv.c b/lapacke/src/lapacke_dsgesv.c index 78888e12..546006e2 100644 --- a/lapacke/src/lapacke_dsgesv.c +++ b/lapacke/src/lapacke_dsgesv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsgesv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dsgesv( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* x, lapack_int ldx, lapack_int* iter ) @@ -41,16 +41,16 @@ lapack_int LAPACKE_dsgesv( int matrix_order, lapack_int n, lapack_int nrhs, lapack_int info = 0; float* swork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsgesv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif @@ -66,7 +66,7 @@ lapack_int LAPACKE_dsgesv( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsgesv_work( matrix_order, n, nrhs, a, lda, ipiv, b, ldb, x, + info = LAPACKE_dsgesv_work( matrix_layout, n, nrhs, a, lda, ipiv, b, ldb, x, ldx, work, swork, iter ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsgesv_work.c b/lapacke/src/lapacke_dsgesv_work.c index a2cc9591..f7791a5c 100644 --- a/lapacke/src/lapacke_dsgesv_work.c +++ b/lapacke/src/lapacke_dsgesv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_dsgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* x, lapack_int ldx, double* work, float* swork, lapack_int* iter ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsgesv( &n, &nrhs, a, &lda, ipiv, b, &ldb, x, &ldx, work, swork, iter, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -87,8 +87,8 @@ lapack_int LAPACKE_dsgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsgesv( &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, work, swork, iter, &info ); diff --git a/lapacke/src/lapacke_dspcon.c b/lapacke/src/lapacke_dspcon.c index 41048696..c80c8226 100644 --- a/lapacke/src/lapacke_dspcon.c +++ b/lapacke/src/lapacke_dspcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dspcon( int matrix_layout, char uplo, lapack_int n, const double* ap, const lapack_int* ipiv, double anorm, double* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspcon", -1 ); return -1; } @@ -65,7 +65,7 @@ lapack_int LAPACKE_dspcon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dspcon_work( matrix_order, uplo, n, ap, ipiv, anorm, rcond, + info = LAPACKE_dspcon_work( matrix_layout, uplo, n, ap, ipiv, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dspcon_work.c b/lapacke/src/lapacke_dspcon_work.c index 8973c1e2..2902521a 100644 --- a/lapacke/src/lapacke_dspcon_work.c +++ b/lapacke/src/lapacke_dspcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dspcon_work( int matrix_layout, char uplo, lapack_int n, const double* ap, const lapack_int* ipiv, double anorm, double* rcond, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspcon( &uplo, &n, ap, ipiv, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -55,7 +55,7 @@ lapack_int LAPACKE_dspcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dspcon( &uplo, &n, ap_t, ipiv, &anorm, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dspev.c b/lapacke/src/lapacke_dspev.c index 6c604cc8..82693a0f 100644 --- a/lapacke/src/lapacke_dspev.c +++ b/lapacke/src/lapacke_dspev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dspev( int matrix_layout, char jobz, char uplo, lapack_int n, double* ap, double* w, double* z, lapack_int ldz ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspev", -1 ); return -1; } @@ -55,7 +55,7 @@ lapack_int LAPACKE_dspev( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dspev_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_dspev_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dspev_work.c b/lapacke/src/lapacke_dspev_work.c index e8d840cb..3fbd4dba 100644 --- a/lapacke/src/lapacke_dspev_work.c +++ b/lapacke/src/lapacke_dspev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dspev_work( int matrix_layout, char jobz, char uplo, lapack_int n, double* ap, double* w, double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspev( &jobz, &uplo, &n, ap, w, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; double* ap_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_dspev_work( int matrix_order, char jobz, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dspev( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dspevd.c b/lapacke/src/lapacke_dspevd.c index 23eda54a..9a138d09 100644 --- a/lapacke/src/lapacke_dspevd.c +++ b/lapacke/src/lapacke_dspevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dspevd( int matrix_layout, char jobz, char uplo, lapack_int n, double* ap, double* w, double* z, lapack_int ldz ) { lapack_int info = 0; @@ -43,7 +43,7 @@ lapack_int LAPACKE_dspevd( int matrix_order, char jobz, char uplo, lapack_int n, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspevd", -1 ); return -1; } @@ -54,7 +54,7 @@ lapack_int LAPACKE_dspevd( int matrix_order, char jobz, char uplo, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dspevd_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_dspevd_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -73,7 +73,7 @@ lapack_int LAPACKE_dspevd( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dspevd_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_dspevd_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dspevd_work.c b/lapacke/src/lapacke_dspevd_work.c index b84c63dd..46f27c5b 100644 --- a/lapacke/src/lapacke_dspevd_work.c +++ b/lapacke/src/lapacke_dspevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dspevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, double* ap, double* w, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspevd( &jobz, &uplo, &n, ap, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; double* ap_t = NULL; @@ -77,7 +77,7 @@ lapack_int LAPACKE_dspevd_work( int matrix_order, char jobz, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dspevd( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_dspevx.c b/lapacke/src/lapacke_dspevx.c index 3dbc02ba..6fd72448 100644 --- a/lapacke/src/lapacke_dspevx.c +++ b/lapacke/src/lapacke_dspevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dspevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* ap, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, lapack_int ldz, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dspevx( int matrix_order, char jobz, char range, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspevx", -1 ); return -1; } @@ -77,7 +77,7 @@ lapack_int LAPACKE_dspevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dspevx_work( matrix_order, jobz, range, uplo, n, ap, vl, vu, + info = LAPACKE_dspevx_work( matrix_layout, jobz, range, uplo, n, ap, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dspevx_work.c b/lapacke/src/lapacke_dspevx_work.c index e7e241f7..06719b27 100644 --- a/lapacke/src/lapacke_dspevx_work.c +++ b/lapacke/src/lapacke_dspevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dspevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* ap, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dspevx_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspevx( &jobz, &range, &uplo, &n, ap, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, iwork, ifail, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -77,7 +77,7 @@ lapack_int LAPACKE_dspevx_work( int matrix_order, char jobz, char range, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dspevx( &jobz, &range, &uplo, &n, ap_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, iwork, ifail, &info ); diff --git a/lapacke/src/lapacke_dspgst.c b/lapacke/src/lapacke_dspgst.c index 609d5d77..8af877cd 100644 --- a/lapacke/src/lapacke_dspgst.c +++ b/lapacke/src/lapacke_dspgst.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspgst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_dspgst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, double* ap, const double* bp ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspgst", -1 ); return -1; } @@ -49,5 +49,5 @@ lapack_int LAPACKE_dspgst( int matrix_order, lapack_int itype, char uplo, return -6; } #endif - return LAPACKE_dspgst_work( matrix_order, itype, uplo, n, ap, bp ); + return LAPACKE_dspgst_work( matrix_layout, itype, uplo, n, ap, bp ); } diff --git a/lapacke/src/lapacke_dspgst_work.c b/lapacke/src/lapacke_dspgst_work.c index 65a25111..57c74b93 100644 --- a/lapacke/src/lapacke_dspgst_work.c +++ b/lapacke/src/lapacke_dspgst_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspgst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_dspgst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, double* ap, const double* bp ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspgst( &itype, &uplo, &n, ap, bp, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; double* bp_t = NULL; /* Allocate memory for temporary array(s) */ @@ -60,8 +60,8 @@ lapack_int LAPACKE_dspgst_work( int matrix_order, lapack_int itype, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_dspgst( &itype, &uplo, &n, ap_t, bp_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dspgv.c b/lapacke/src/lapacke_dspgv.c index 3d093834..16c99093 100644 --- a/lapacke/src/lapacke_dspgv.c +++ b/lapacke/src/lapacke_dspgv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspgv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* ap, double* bp, double* w, double* z, lapack_int ldz ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspgv", -1 ); return -1; } @@ -59,7 +59,7 @@ lapack_int LAPACKE_dspgv( int matrix_order, lapack_int itype, char jobz, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dspgv_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, z, + info = LAPACKE_dspgv_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dspgv_work.c b/lapacke/src/lapacke_dspgv_work.c index 3c0fc317..434c6bf9 100644 --- a/lapacke/src/lapacke_dspgv_work.c +++ b/lapacke/src/lapacke_dspgv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* ap, double* bp, double* w, double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspgv( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; double* ap_t = NULL; @@ -78,8 +78,8 @@ lapack_int LAPACKE_dspgv_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_dspgv( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_dspgvd.c b/lapacke/src/lapacke_dspgvd.c index 836e82c3..c554a6f6 100644 --- a/lapacke/src/lapacke_dspgvd.c +++ b/lapacke/src/lapacke_dspgvd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspgvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* ap, double* bp, double* w, double* z, lapack_int ldz ) { @@ -44,7 +44,7 @@ lapack_int LAPACKE_dspgvd( int matrix_order, lapack_int itype, char jobz, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspgvd", -1 ); return -1; } @@ -58,7 +58,7 @@ lapack_int LAPACKE_dspgvd( int matrix_order, lapack_int itype, char jobz, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dspgvd_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, + info = LAPACKE_dspgvd_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_dspgvd( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dspgvd_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, + info = LAPACKE_dspgvd_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dspgvd_work.c b/lapacke/src/lapacke_dspgvd_work.c index 1cbcd23b..125831cc 100644 --- a/lapacke/src/lapacke_dspgvd_work.c +++ b/lapacke/src/lapacke_dspgvd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspgvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* ap, double* bp, double* w, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspgvd( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; double* ap_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_dspgvd_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_dspgvd( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_dspgvx.c b/lapacke/src/lapacke_dspgvx.c index 8d1eb38b..76e2ae7d 100644 --- a/lapacke/src/lapacke_dspgvx.c +++ b/lapacke/src/lapacke_dspgvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspgvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, double* ap, double* bp, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dspgvx( int matrix_order, lapack_int itype, char jobz, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspgvx", -1 ); return -1; } @@ -81,7 +81,7 @@ lapack_int LAPACKE_dspgvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dspgvx_work( matrix_order, itype, jobz, range, uplo, n, ap, + info = LAPACKE_dspgvx_work( matrix_layout, itype, jobz, range, uplo, n, ap, bp, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dspgvx_work.c b/lapacke/src/lapacke_dspgvx_work.c index e9135749..bf967472 100644 --- a/lapacke/src/lapacke_dspgvx_work.c +++ b/lapacke/src/lapacke_dspgvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspgvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dspgvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, double* ap, double* bp, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, @@ -42,14 +42,14 @@ lapack_int LAPACKE_dspgvx_work( int matrix_order, lapack_int itype, char jobz, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspgvx( &itype, &jobz, &range, &uplo, &n, ap, bp, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, iwork, ifail, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -85,8 +85,8 @@ lapack_int LAPACKE_dspgvx_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_dspgvx( &itype, &jobz, &range, &uplo, &n, ap_t, bp_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, iwork, ifail, diff --git a/lapacke/src/lapacke_dsposv.c b/lapacke/src/lapacke_dsposv.c index 082806ed..688e89cd 100644 --- a/lapacke/src/lapacke_dsposv.c +++ b/lapacke/src/lapacke_dsposv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* x, lapack_int ldx, lapack_int* iter ) @@ -41,16 +41,16 @@ lapack_int LAPACKE_dsposv( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; float* swork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsposv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif @@ -66,7 +66,7 @@ lapack_int LAPACKE_dsposv( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsposv_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb, x, + info = LAPACKE_dsposv_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb, x, ldx, work, swork, iter ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsposv_work.c b/lapacke/src/lapacke_dsposv_work.c index 8592135b..53a127fd 100644 --- a/lapacke/src/lapacke_dsposv_work.c +++ b/lapacke/src/lapacke_dsposv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* b, lapack_int ldb, double* x, lapack_int ldx, double* work, float* swork, lapack_int* iter ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsposv( &uplo, &n, &nrhs, a, &lda, b, &ldb, x, &ldx, work, swork, iter, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -87,8 +87,8 @@ lapack_int LAPACKE_dsposv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsposv( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, x_t, &ldx_t, work, swork, iter, &info ); diff --git a/lapacke/src/lapacke_dsprfs.c b/lapacke/src/lapacke_dsprfs.c index 4421dba7..4559e6ed 100644 --- a/lapacke/src/lapacke_dsprfs.c +++ b/lapacke/src/lapacke_dsprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const double* afp, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dsprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsprfs", -1 ); return -1; } @@ -54,10 +54,10 @@ lapack_int LAPACKE_dsprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_dsp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -73,7 +73,7 @@ lapack_int LAPACKE_dsprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsprfs_work( matrix_order, uplo, n, nrhs, ap, afp, ipiv, b, + info = LAPACKE_dsprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsprfs_work.c b/lapacke/src/lapacke_dsprfs_work.c index 45e8bace..16f3c8b2 100644 --- a/lapacke/src/lapacke_dsprfs_work.c +++ b/lapacke/src/lapacke_dsprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const double* afp, const lapack_int* ipiv, const double* b, lapack_int ldb, double* x, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dsprfs_work( int matrix_order, char uplo, lapack_int n, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsprfs( &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); double* b_t = NULL; @@ -90,10 +90,10 @@ lapack_int LAPACKE_dsprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_dsprfs( &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dspsv.c b/lapacke/src/lapacke_dspsv.c index e4d432b0..9eadc601 100644 --- a/lapacke/src/lapacke_dspsv.c +++ b/lapacke/src/lapacke_dspsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dspsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* ap, lapack_int* ipiv, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspsv", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_dspsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_dsp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_dspsv_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_dspsv_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_dspsv_work.c b/lapacke/src/lapacke_dspsv_work.c index 5a4a40ea..e813bb39 100644 --- a/lapacke/src/lapacke_dspsv_work.c +++ b/lapacke/src/lapacke_dspsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dspsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* ap, lapack_int* ipiv, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspsv( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); double* b_t = NULL; double* ap_t = NULL; @@ -67,8 +67,8 @@ lapack_int LAPACKE_dspsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dspsv( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dspsvx.c b/lapacke/src/lapacke_dspsvx.c index 0cb51db2..68be0539 100644 --- a/lapacke/src/lapacke_dspsvx.c +++ b/lapacke/src/lapacke_dspsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dspsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const double* ap, double* afp, lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, double* rcond, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dspsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dspsvx", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_dspsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_dsp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_dspsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dspsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_dspsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dspsvx_work.c b/lapacke/src/lapacke_dspsvx_work.c index 3969b2ba..31db38ac 100644 --- a/lapacke/src/lapacke_dspsvx_work.c +++ b/lapacke/src/lapacke_dspsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dspsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dspsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const double* ap, double* afp, lapack_int* ipiv, const double* b, lapack_int ldb, double* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dspsvx_work( int matrix_order, char fact, char uplo, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dspsvx( &fact, &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); double* b_t = NULL; @@ -90,10 +90,10 @@ lapack_int LAPACKE_dspsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_dsp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_dspsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_dsptrd.c b/lapacke/src/lapacke_dsptrd.c index 1e21821b..9ac1a2a8 100644 --- a/lapacke/src/lapacke_dsptrd.c +++ b/lapacke/src/lapacke_dsptrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsptrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrd( int matrix_layout, char uplo, lapack_int n, double* ap, double* d, double* e, double* tau ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsptrd", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_dsptrd( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_dsptrd_work( matrix_order, uplo, n, ap, d, e, tau ); + return LAPACKE_dsptrd_work( matrix_layout, uplo, n, ap, d, e, tau ); } diff --git a/lapacke/src/lapacke_dsptrd_work.c b/lapacke/src/lapacke_dsptrd_work.c index 0a995041..0ed0e879 100644 --- a/lapacke/src/lapacke_dsptrd_work.c +++ b/lapacke/src/lapacke_dsptrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsptrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrd_work( int matrix_layout, char uplo, lapack_int n, double* ap, double* d, double* e, double* tau ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsptrd( &uplo, &n, ap, d, e, tau, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_dsptrd_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dsptrd( &uplo, &n, ap_t, d, e, tau, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsptrf.c b/lapacke/src/lapacke_dsptrf.c index c8f9e6fc..44981ece 100644 --- a/lapacke/src/lapacke_dsptrf.c +++ b/lapacke/src/lapacke_dsptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrf( int matrix_layout, char uplo, lapack_int n, double* ap, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_dsptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_dsptrf_work( matrix_order, uplo, n, ap, ipiv ); + return LAPACKE_dsptrf_work( matrix_layout, uplo, n, ap, ipiv ); } diff --git a/lapacke/src/lapacke_dsptrf_work.c b/lapacke/src/lapacke_dsptrf_work.c index 62e60985..36eb8efd 100644 --- a/lapacke/src/lapacke_dsptrf_work.c +++ b/lapacke/src/lapacke_dsptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrf_work( int matrix_layout, char uplo, lapack_int n, double* ap, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsptrf( &uplo, &n, ap, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_dsptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dsptrf( &uplo, &n, ap_t, ipiv, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsptri.c b/lapacke/src/lapacke_dsptri.c index 242d7531..c11d4aa9 100644 --- a/lapacke/src/lapacke_dsptri.c +++ b/lapacke/src/lapacke_dsptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptri( int matrix_layout, char uplo, lapack_int n, double* ap, const lapack_int* ipiv ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsptri", -1 ); return -1; } @@ -55,7 +55,7 @@ lapack_int LAPACKE_dsptri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsptri_work( matrix_order, uplo, n, ap, ipiv, work ); + info = LAPACKE_dsptri_work( matrix_layout, uplo, n, ap, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dsptri_work.c b/lapacke/src/lapacke_dsptri_work.c index d6bd097f..c8ad3ee2 100644 --- a/lapacke/src/lapacke_dsptri_work.c +++ b/lapacke/src/lapacke_dsptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptri_work( int matrix_layout, char uplo, lapack_int n, double* ap, const lapack_int* ipiv, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsptri( &uplo, &n, ap, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_dsptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dsptri( &uplo, &n, ap_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsptrs.c b/lapacke/src/lapacke_dsptrs.c index 03fd8b88..d56daf16 100644 --- a/lapacke/src/lapacke_dsptrs.c +++ b/lapacke/src/lapacke_dsptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const lapack_int* ipiv, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsptrs", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_dsptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_dsp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_dsptrs_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_dsptrs_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_dsptrs_work.c b/lapacke/src/lapacke_dsptrs_work.c index 5937f7d6..c1831673 100644 --- a/lapacke/src/lapacke_dsptrs_work.c +++ b/lapacke/src/lapacke_dsptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* ap, const lapack_int* ipiv, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsptrs( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); double* b_t = NULL; double* ap_t = NULL; @@ -68,8 +68,8 @@ lapack_int LAPACKE_dsptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dsptrs( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dstedc.c b/lapacke/src/lapacke_dstedc.c index b3850150..c9e1a0e1 100644 --- a/lapacke/src/lapacke_dstedc.c +++ b/lapacke/src/lapacke_dstedc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstedc( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dstedc( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ) { lapack_int info = 0; @@ -43,7 +43,7 @@ lapack_int LAPACKE_dstedc( int matrix_order, char compz, lapack_int n, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dstedc", -1 ); return -1; } @@ -56,13 +56,13 @@ lapack_int LAPACKE_dstedc( int matrix_order, char compz, lapack_int n, return -5; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dstedc_work( matrix_order, compz, n, d, e, z, ldz, + info = LAPACKE_dstedc_work( matrix_layout, compz, n, d, e, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -81,7 +81,7 @@ lapack_int LAPACKE_dstedc( int matrix_order, char compz, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dstedc_work( matrix_order, compz, n, d, e, z, ldz, work, + info = LAPACKE_dstedc_work( matrix_layout, compz, n, d, e, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dstedc_work.c b/lapacke/src/lapacke_dstedc_work.c index b6f528a6..951c3b09 100644 --- a/lapacke/src/lapacke_dstedc_work.c +++ b/lapacke/src/lapacke_dstedc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstedc_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dstedc_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dstedc( &compz, &n, d, e, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ @@ -71,7 +71,7 @@ lapack_int LAPACKE_dstedc_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_dge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_dstedc( &compz, &n, d, e, z_t, &ldz_t, work, &lwork, iwork, diff --git a/lapacke/src/lapacke_dstegr.c b/lapacke/src/lapacke_dstegr.c index aefa71e7..270fd9a9 100644 --- a/lapacke/src/lapacke_dstegr.c +++ b/lapacke/src/lapacke_dstegr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstegr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstegr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, @@ -46,7 +46,7 @@ lapack_int LAPACKE_dstegr( int matrix_order, char jobz, char range, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dstegr", -1 ); return -1; } @@ -73,7 +73,7 @@ lapack_int LAPACKE_dstegr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dstegr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_dstegr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -93,7 +93,7 @@ lapack_int LAPACKE_dstegr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dstegr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_dstegr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dstegr_work.c b/lapacke/src/lapacke_dstegr_work.c index 26ab31e5..2b462361 100644 --- a/lapacke/src/lapacke_dstegr_work.c +++ b/lapacke/src/lapacke_dstegr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstegr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstegr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dstegr_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dstegr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, isuppz, work, &lwork, iwork, &liwork, @@ -50,7 +50,7 @@ lapack_int LAPACKE_dstegr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_dstein.c b/lapacke/src/lapacke_dstein.c index 9cbabc18..4ef1a3c1 100644 --- a/lapacke/src/lapacke_dstein.c +++ b/lapacke/src/lapacke_dstein.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstein( int matrix_order, lapack_int n, const double* d, +lapack_int LAPACKE_dstein( int matrix_layout, lapack_int n, const double* d, const double* e, lapack_int m, const double* w, const lapack_int* iblock, const lapack_int* isplit, double* z, lapack_int ldz, lapack_int* ifailv ) @@ -41,7 +41,7 @@ lapack_int LAPACKE_dstein( int matrix_order, lapack_int n, const double* d, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dstein", -1 ); return -1; } @@ -69,7 +69,7 @@ lapack_int LAPACKE_dstein( int matrix_order, lapack_int n, const double* d, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dstein_work( matrix_order, n, d, e, m, w, iblock, isplit, z, + info = LAPACKE_dstein_work( matrix_layout, n, d, e, m, w, iblock, isplit, z, ldz, work, iwork, ifailv ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dstein_work.c b/lapacke/src/lapacke_dstein_work.c index b80d15f5..573b77f7 100644 --- a/lapacke/src/lapacke_dstein_work.c +++ b/lapacke/src/lapacke_dstein_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstein_work( int matrix_order, lapack_int n, const double* d, +lapack_int LAPACKE_dstein_work( int matrix_layout, lapack_int n, const double* d, const double* e, lapack_int m, const double* w, const lapack_int* iblock, const lapack_int* isplit, double* z, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dstein_work( int matrix_order, lapack_int n, const double* d, lapack_int* ifailv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dstein( &n, d, e, &m, w, iblock, isplit, z, &ldz, work, iwork, ifailv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_dstemr.c b/lapacke/src/lapacke_dstemr.c index 0ccf6232..01cbbd19 100644 --- a/lapacke/src/lapacke_dstemr.c +++ b/lapacke/src/lapacke_dstemr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstemr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstemr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* m, double* w, double* z, lapack_int ldz, @@ -47,7 +47,7 @@ lapack_int LAPACKE_dstemr( int matrix_order, char jobz, char range, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dstemr", -1 ); return -1; } @@ -67,7 +67,7 @@ lapack_int LAPACKE_dstemr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dstemr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_dstemr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, m, w, z, ldz, nzc, isuppz, tryrac, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -87,7 +87,7 @@ lapack_int LAPACKE_dstemr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dstemr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_dstemr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, m, w, z, ldz, nzc, isuppz, tryrac, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dstemr_work.c b/lapacke/src/lapacke_dstemr_work.c index 794807cc..7370ce8c 100644 --- a/lapacke/src/lapacke_dstemr_work.c +++ b/lapacke/src/lapacke_dstemr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstemr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstemr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* m, double* w, double* z, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dstemr_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dstemr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, m, w, z, &ldz, &nzc, isuppz, tryrac, work, &lwork, iwork, &liwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dstemr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_dsteqr.c b/lapacke/src/lapacke_dsteqr.c index 2a53c474..4e4d8492 100644 --- a/lapacke/src/lapacke_dsteqr.c +++ b/lapacke/src/lapacke_dsteqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsteqr( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dsteqr( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ) { lapack_int info = 0; /* Additional scalars declarations for work arrays */ lapack_int lwork; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsteqr", -1 ); return -1; } @@ -53,7 +53,7 @@ lapack_int LAPACKE_dsteqr( int matrix_order, char compz, lapack_int n, return -5; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } @@ -71,7 +71,7 @@ lapack_int LAPACKE_dsteqr( int matrix_order, char compz, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsteqr_work( matrix_order, compz, n, d, e, z, ldz, work ); + info = LAPACKE_dsteqr_work( matrix_layout, compz, n, d, e, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dsteqr_work.c b/lapacke/src/lapacke_dsteqr_work.c index 02e1d3b9..e29aa337 100644 --- a/lapacke/src/lapacke_dsteqr_work.c +++ b/lapacke/src/lapacke_dsteqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_dsteqr_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsteqr( &compz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_dsteqr_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_dge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_dsteqr( &compz, &n, d, e, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_dstev.c b/lapacke/src/lapacke_dstev.c index 3c4f76b0..b023a212 100644 --- a/lapacke/src/lapacke_dstev.c +++ b/lapacke/src/lapacke_dstev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstev( int matrix_order, char jobz, lapack_int n, double* d, +lapack_int LAPACKE_dstev( int matrix_layout, char jobz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dstev", -1 ); return -1; } @@ -60,7 +60,7 @@ lapack_int LAPACKE_dstev( int matrix_order, char jobz, lapack_int n, double* d, } } /* Call middle-level interface */ - info = LAPACKE_dstev_work( matrix_order, jobz, n, d, e, z, ldz, work ); + info = LAPACKE_dstev_work( matrix_layout, jobz, n, d, e, z, ldz, work ); /* Release memory and exit */ if( LAPACKE_lsame( jobz, 'v' ) ) { LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dstev_work.c b/lapacke/src/lapacke_dstev_work.c index 889ee9ac..ec6daec9 100644 --- a/lapacke/src/lapacke_dstev_work.c +++ b/lapacke/src/lapacke_dstev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstev_work( int matrix_order, char jobz, lapack_int n, +lapack_int LAPACKE_dstev_work( int matrix_layout, char jobz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dstev( &jobz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_dstevd.c b/lapacke/src/lapacke_dstevd.c index 74193d95..9f9a375c 100644 --- a/lapacke/src/lapacke_dstevd.c +++ b/lapacke/src/lapacke_dstevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstevd( int matrix_order, char jobz, lapack_int n, double* d, +lapack_int LAPACKE_dstevd( int matrix_layout, char jobz, lapack_int n, double* d, double* e, double* z, lapack_int ldz ) { lapack_int info = 0; @@ -43,7 +43,7 @@ lapack_int LAPACKE_dstevd( int matrix_order, char jobz, lapack_int n, double* d, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dstevd", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_dstevd( int matrix_order, char jobz, lapack_int n, double* d, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dstevd_work( matrix_order, jobz, n, d, e, z, ldz, + info = LAPACKE_dstevd_work( matrix_layout, jobz, n, d, e, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_dstevd( int matrix_order, char jobz, lapack_int n, double* d, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dstevd_work( matrix_order, jobz, n, d, e, z, ldz, work, + info = LAPACKE_dstevd_work( matrix_layout, jobz, n, d, e, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dstevd_work.c b/lapacke/src/lapacke_dstevd_work.c index c154e0b0..0d378f88 100644 --- a/lapacke/src/lapacke_dstevd_work.c +++ b/lapacke/src/lapacke_dstevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstevd_work( int matrix_order, char jobz, lapack_int n, +lapack_int LAPACKE_dstevd_work( int matrix_layout, char jobz, lapack_int n, double* d, double* e, double* z, lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dstevd( &jobz, &n, d, e, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); double* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_dstevr.c b/lapacke/src/lapacke_dstevr.c index 40e85538..8daa15f9 100644 --- a/lapacke/src/lapacke_dstevr.c +++ b/lapacke/src/lapacke_dstevr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstevr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstevr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, @@ -46,7 +46,7 @@ lapack_int LAPACKE_dstevr( int matrix_order, char jobz, char range, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dstevr", -1 ); return -1; } @@ -73,7 +73,7 @@ lapack_int LAPACKE_dstevr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dstevr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_dstevr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -93,7 +93,7 @@ lapack_int LAPACKE_dstevr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dstevr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_dstevr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dstevr_work.c b/lapacke/src/lapacke_dstevr_work.c index 1061a7a9..314318f7 100644 --- a/lapacke/src/lapacke_dstevr_work.c +++ b/lapacke/src/lapacke_dstevr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstevr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dstevr_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dstevr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, isuppz, work, &lwork, iwork, &liwork, @@ -50,7 +50,7 @@ lapack_int LAPACKE_dstevr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); diff --git a/lapacke/src/lapacke_dstevx.c b/lapacke/src/lapacke_dstevx.c index 08eebef8..50d2e77c 100644 --- a/lapacke/src/lapacke_dstevx.c +++ b/lapacke/src/lapacke_dstevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstevx( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstevx( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dstevx( int matrix_order, char jobz, char range, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dstevx", -1 ); return -1; } @@ -80,7 +80,7 @@ lapack_int LAPACKE_dstevx( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dstevx_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_dstevx_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dstevx_work.c b/lapacke/src/lapacke_dstevx_work.c index 513be20a..06767673 100644 --- a/lapacke/src/lapacke_dstevx_work.c +++ b/lapacke/src/lapacke_dstevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dstevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dstevx_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dstevx_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dstevx( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, iwork, ifail, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); diff --git a/lapacke/src/lapacke_dsycon.c b/lapacke/src/lapacke_dsycon.c index 46c0798c..2419d642 100644 --- a/lapacke/src/lapacke_dsycon.c +++ b/lapacke/src/lapacke_dsycon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsycon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsycon( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsycon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_d_nancheck( 1, &anorm, 1 ) ) { @@ -65,7 +65,7 @@ lapack_int LAPACKE_dsycon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsycon_work( matrix_order, uplo, n, a, lda, ipiv, anorm, + info = LAPACKE_dsycon_work( matrix_layout, uplo, n, a, lda, ipiv, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsycon_work.c b/lapacke/src/lapacke_dsycon_work.c index 2d9e229e..89843151 100644 --- a/lapacke/src/lapacke_dsycon_work.c +++ b/lapacke/src/lapacke_dsycon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsycon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsycon_work( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsycon( &uplo, &n, a, &lda, ipiv, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_dsycon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsycon( &uplo, &n, a_t, &lda_t, ipiv, &anorm, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dsyconv.c b/lapacke/src/lapacke_dsyconv.c index 885ba46a..ed841f20 100644 --- a/lapacke/src/lapacke_dsyconv.c +++ b/lapacke/src/lapacke_dsyconv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyconv( int matrix_order, char uplo, char way, lapack_int n, +lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyconv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, lda, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, lda, n, a, lda ) ) { return -5; } #endif @@ -55,7 +55,7 @@ lapack_int LAPACKE_dsyconv( int matrix_order, char uplo, char way, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsyconv_work( matrix_order, uplo, way, n, a, lda, ipiv, + info = LAPACKE_dsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsyconv_work.c b/lapacke/src/lapacke_dsyconv_work.c index c06fc995..cf70ead3 100644 --- a/lapacke/src/lapacke_dsyconv_work.c +++ b/lapacke/src/lapacke_dsyconv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyconv_work( int matrix_order, char uplo, char way, +lapack_int LAPACKE_dsyconv_work( int matrix_layout, char uplo, char way, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyconv( &uplo, &way, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,lda); double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dsyconv_work( int matrix_order, char uplo, char way, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, lda, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, lda, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsyconv( &uplo, &way, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsyequb.c b/lapacke/src/lapacke_dsyequb.c index f9ee6927..a75e0bc3 100644 --- a/lapacke/src/lapacke_dsyequb.c +++ b/lapacke/src/lapacke_dsyequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyequb( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double* s, double* scond, double* amax ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_dsyequb( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsyequb_work( matrix_order, uplo, n, a, lda, s, scond, amax, + info = LAPACKE_dsyequb_work( matrix_layout, uplo, n, a, lda, s, scond, amax, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsyequb_work.c b/lapacke/src/lapacke_dsyequb_work.c index d74e7803..a29a4ce1 100644 --- a/lapacke/src/lapacke_dsyequb_work.c +++ b/lapacke/src/lapacke_dsyequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyequb_work( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double* s, double* scond, double* amax, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyequb( &uplo, &n, a, &lda, s, scond, amax, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dsyequb_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsyequb( &uplo, &n, a_t, &lda_t, s, scond, amax, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsyev.c b/lapacke/src/lapacke_dsyev.c index 4aaec305..46cc0334 100644 --- a/lapacke/src/lapacke_dsyev.c +++ b/lapacke/src/lapacke_dsyev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsyev( int matrix_layout, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* w ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyev", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsyev_work( matrix_order, jobz, uplo, n, a, lda, w, + info = LAPACKE_dsyev_work( matrix_layout, jobz, uplo, n, a, lda, w, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dsyev( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsyev_work( matrix_order, jobz, uplo, n, a, lda, w, work, + info = LAPACKE_dsyev_work( matrix_layout, jobz, uplo, n, a, lda, w, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsyev_work.c b/lapacke/src/lapacke_dsyev_work.c index f0cc2664..39ed8f32 100644 --- a/lapacke/src/lapacke_dsyev_work.c +++ b/lapacke/src/lapacke_dsyev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsyev_work( int matrix_layout, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* w, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyev( &jobz, &uplo, &n, a, &lda, w, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dsyev_work( int matrix_order, char jobz, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsyev( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsyevd.c b/lapacke/src/lapacke_dsyevd.c index 23e3b507..515d32ff 100644 --- a/lapacke/src/lapacke_dsyevd.c +++ b/lapacke/src/lapacke_dsyevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_dsyevd( int matrix_layout, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* w ) { lapack_int info = 0; @@ -43,18 +43,18 @@ lapack_int LAPACKE_dsyevd( int matrix_order, char jobz, char uplo, lapack_int n, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyevd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsyevd_work( matrix_order, jobz, uplo, n, a, lda, w, + info = LAPACKE_dsyevd_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_dsyevd( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsyevd_work( matrix_order, jobz, uplo, n, a, lda, w, work, + info = LAPACKE_dsyevd_work( matrix_layout, jobz, uplo, n, a, lda, w, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsyevd_work.c b/lapacke/src/lapacke_dsyevd_work.c index 23b4ef1a..78336290 100644 --- a/lapacke/src/lapacke_dsyevd_work.c +++ b/lapacke/src/lapacke_dsyevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_dsyevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* w, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyevd( &jobz, &uplo, &n, a, &lda, w, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_dsyevd_work( int matrix_order, char jobz, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsyevd( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_dsyevr.c b/lapacke/src/lapacke_dsyevr.c index 5a1af918..2d371b9e 100644 --- a/lapacke/src/lapacke_dsyevr.c +++ b/lapacke/src/lapacke_dsyevr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyevr( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dsyevr( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, @@ -46,13 +46,13 @@ lapack_int LAPACKE_dsyevr( int matrix_order, char jobz, char range, char uplo, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyevr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_d_nancheck( 1, &abstol, 1 ) ) { @@ -70,7 +70,7 @@ lapack_int LAPACKE_dsyevr( int matrix_order, char jobz, char range, char uplo, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsyevr_work( matrix_order, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_dsyevr_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -90,7 +90,7 @@ lapack_int LAPACKE_dsyevr( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsyevr_work( matrix_order, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_dsyevr_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dsyevr_work.c b/lapacke/src/lapacke_dsyevr_work.c index 3d993915..681e70f4 100644 --- a/lapacke/src/lapacke_dsyevr_work.c +++ b/lapacke/src/lapacke_dsyevr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dsyevr_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dsyevr_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyevr( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, isuppz, work, &lwork, iwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dsyevr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -92,7 +92,7 @@ lapack_int LAPACKE_dsyevr_work( int matrix_order, char jobz, char range, } } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsyevr( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, isuppz, work, &lwork, diff --git a/lapacke/src/lapacke_dsyevx.c b/lapacke/src/lapacke_dsyevx.c index fc8e54f6..bad1f793 100644 --- a/lapacke/src/lapacke_dsyevx.c +++ b/lapacke/src/lapacke_dsyevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_dsyevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, double* z, @@ -44,13 +44,13 @@ lapack_int LAPACKE_dsyevx( int matrix_order, char jobz, char range, char uplo, lapack_int* iwork = NULL; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyevx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_d_nancheck( 1, &abstol, 1 ) ) { @@ -74,7 +74,7 @@ lapack_int LAPACKE_dsyevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_dsyevx_work( matrix_order, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_dsyevx_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_dsyevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsyevx_work( matrix_order, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_dsyevx_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 */ diff --git a/lapacke/src/lapacke_dsyevx_work.c b/lapacke/src/lapacke_dsyevx_work.c index 259c9ee9..e3d29f9c 100644 --- a/lapacke/src/lapacke_dsyevx_work.c +++ b/lapacke/src/lapacke_dsyevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_dsyevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double vl, double vu, lapack_int il, lapack_int iu, double abstol, @@ -42,7 +42,7 @@ lapack_int LAPACKE_dsyevx_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyevx( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, &lwork, iwork, ifail, @@ -50,7 +50,7 @@ lapack_int LAPACKE_dsyevx_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -91,7 +91,7 @@ lapack_int LAPACKE_dsyevx_work( int matrix_order, char jobz, char range, } } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsyevx( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, &lwork, iwork, diff --git a/lapacke/src/lapacke_dsygst.c b/lapacke/src/lapacke_dsygst.c index 892a9c8e..69a1db9b 100644 --- a/lapacke/src/lapacke_dsygst.c +++ b/lapacke/src/lapacke_dsygst.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsygst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_dsygst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, double* a, lapack_int lda, const double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsygst", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -7; } #endif - return LAPACKE_dsygst_work( matrix_order, itype, uplo, n, a, lda, b, ldb ); + return LAPACKE_dsygst_work( matrix_layout, itype, uplo, n, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_dsygst_work.c b/lapacke/src/lapacke_dsygst_work.c index 0237692a..77f64a47 100644 --- a/lapacke/src/lapacke_dsygst_work.c +++ b/lapacke/src/lapacke_dsygst_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsygst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_dsygst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, double* a, lapack_int lda, const double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsygst( &itype, &uplo, &n, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -72,8 +72,8 @@ lapack_int LAPACKE_dsygst_work( int matrix_order, lapack_int itype, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsygst( &itype, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsygv.c b/lapacke/src/lapacke_dsygv.c index dfbde799..c32902d5 100644 --- a/lapacke/src/lapacke_dsygv.c +++ b/lapacke/src/lapacke_dsygv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsygv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* w ) { @@ -41,21 +41,21 @@ lapack_int LAPACKE_dsygv( int matrix_order, lapack_int itype, char jobz, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsygv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsygv_work( matrix_order, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_dsygv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,7 +68,7 @@ lapack_int LAPACKE_dsygv( int matrix_order, lapack_int itype, char jobz, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsygv_work( matrix_order, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_dsygv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsygv_work.c b/lapacke/src/lapacke_dsygv_work.c index f04753e4..98b5185c 100644 --- a/lapacke/src/lapacke_dsygv_work.c +++ b/lapacke/src/lapacke_dsygv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsygv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* w, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsygv( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -80,8 +80,8 @@ lapack_int LAPACKE_dsygv_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsygv( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_dsygvd.c b/lapacke/src/lapacke_dsygvd.c index b3b46bfe..6e66c26d 100644 --- a/lapacke/src/lapacke_dsygvd.c +++ b/lapacke/src/lapacke_dsygvd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsygvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* w ) { @@ -44,21 +44,21 @@ lapack_int LAPACKE_dsygvd( int matrix_order, lapack_int itype, char jobz, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsygvd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsygvd_work( matrix_order, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_dsygvd_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_dsygvd( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsygvd_work( matrix_order, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_dsygvd_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsygvd_work.c b/lapacke/src/lapacke_dsygvd_work.c index 2dd7542f..98b19a57 100644 --- a/lapacke/src/lapacke_dsygvd_work.c +++ b/lapacke/src/lapacke_dsygvd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsygvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* w, double* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsygvd( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -81,8 +81,8 @@ lapack_int LAPACKE_dsygvd_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsygvd( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_dsygvx.c b/lapacke/src/lapacke_dsygvx.c index 8f88d28e..7306e0d5 100644 --- a/lapacke/src/lapacke_dsygvx.c +++ b/lapacke/src/lapacke_dsygvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsygvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double vl, double vu, lapack_int il, lapack_int iu, @@ -45,19 +45,19 @@ lapack_int LAPACKE_dsygvx( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork = NULL; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsygvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -7; } if( LAPACKE_d_nancheck( 1, &abstol, 1 ) ) { return -15; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } if( LAPACKE_lsame( range, 'v' ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_dsygvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_dsygvx_work( matrix_order, itype, jobz, range, uplo, n, a, + info = LAPACKE_dsygvx_work( matrix_layout, itype, jobz, range, uplo, n, a, lda, b, ldb, vl, vu, il, iu, abstol, m, w, z, ldz, &work_query, lwork, iwork, ifail ); if( info != 0 ) { @@ -92,7 +92,7 @@ lapack_int LAPACKE_dsygvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsygvx_work( matrix_order, itype, jobz, range, uplo, n, a, + info = LAPACKE_dsygvx_work( matrix_layout, itype, jobz, range, uplo, n, a, lda, b, ldb, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dsygvx_work.c b/lapacke/src/lapacke_dsygvx_work.c index 189ec959..88e7d5cf 100644 --- a/lapacke/src/lapacke_dsygvx_work.c +++ b/lapacke/src/lapacke_dsygvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsygvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_dsygvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double vl, double vu, lapack_int il, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dsygvx_work( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsygvx( &itype, &jobz, &range, &uplo, &n, a, &lda, b, &ldb, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, &lwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dsygvx_work( int matrix_order, lapack_int itype, char jobz, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -104,8 +104,8 @@ lapack_int LAPACKE_dsygvx_work( int matrix_order, lapack_int itype, char jobz, } } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsygvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, diff --git a/lapacke/src/lapacke_dsyrfs.c b/lapacke/src/lapacke_dsyrfs.c index 6e1ae09b..0870b2f7 100644 --- a/lapacke/src/lapacke_dsyrfs.c +++ b/lapacke/src/lapacke_dsyrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* b, @@ -43,22 +43,22 @@ lapack_int LAPACKE_dsyrfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_dsyrfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsyrfs_work( matrix_order, uplo, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_dsyrfs_work( matrix_layout, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsyrfs_work.c b/lapacke/src/lapacke_dsyrfs_work.c index dff75acb..dbbf095f 100644 --- a/lapacke/src/lapacke_dsyrfs_work.c +++ b/lapacke/src/lapacke_dsyrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -42,14 +42,14 @@ lapack_int LAPACKE_dsyrfs_work( int matrix_order, char uplo, lapack_int n, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyrfs( &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -101,10 +101,10 @@ lapack_int LAPACKE_dsyrfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dsyrfs( &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dsyrfsx.c b/lapacke/src/lapacke_dsyrfsx.c index fed36a05..119e94ed 100644 --- a/lapacke/src/lapacke_dsyrfsx.c +++ b/lapacke/src/lapacke_dsyrfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyrfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_dsyrfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, const double* s, @@ -46,19 +46,19 @@ lapack_int LAPACKE_dsyrfsx( int matrix_order, char uplo, char equed, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyrfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( nparams>0 ) { @@ -71,7 +71,7 @@ lapack_int LAPACKE_dsyrfsx( int matrix_order, char uplo, char equed, return -11; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -87,7 +87,7 @@ lapack_int LAPACKE_dsyrfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsyrfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_dsyrfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, ipiv, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_dsyrfsx_work.c b/lapacke/src/lapacke_dsyrfsx_work.c index 36f2807d..4deb89f4 100644 --- a/lapacke/src/lapacke_dsyrfsx_work.c +++ b/lapacke/src/lapacke_dsyrfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyrfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_dsyrfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -46,7 +46,7 @@ lapack_int LAPACKE_dsyrfsx_work( int matrix_order, char uplo, char equed, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyrfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -55,7 +55,7 @@ lapack_int LAPACKE_dsyrfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -121,10 +121,10 @@ lapack_int LAPACKE_dsyrfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dsyrfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_dsysv.c b/lapacke/src/lapacke_dsysv.c index e9fb172c..2e815f82 100644 --- a/lapacke/src/lapacke_dsysv.c +++ b/lapacke/src/lapacke_dsysv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsysv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb ) { @@ -41,21 +41,21 @@ lapack_int LAPACKE_dsysv( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsysv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsysv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_dsysv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,7 +68,7 @@ lapack_int LAPACKE_dsysv( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsysv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_dsysv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsysv_rook.c b/lapacke/src/lapacke_dsysv_rook.c index d6af2e4b..9c77733a 100644 --- a/lapacke/src/lapacke_dsysv_rook.c +++ b/lapacke/src/lapacke_dsysv_rook.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsysv_rook( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb ) { @@ -41,21 +41,21 @@ lapack_int LAPACKE_dsysv_rook( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsysv_rook", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsysv_rook_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, + info = LAPACKE_dsysv_rook_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,7 +68,7 @@ lapack_int LAPACKE_dsysv_rook( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsysv_rook_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, + info = LAPACKE_dsysv_rook_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsysv_rook_work.c b/lapacke/src/lapacke_dsysv_rook_work.c index 1932ec1d..4553e9dc 100644 --- a/lapacke/src/lapacke_dsysv_rook_work.c +++ b/lapacke/src/lapacke_dsysv_rook_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsysv_rook( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -80,8 +80,8 @@ lapack_int LAPACKE_dsysv_rook_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsysv_rook( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_dsysv_work.c b/lapacke/src/lapacke_dsysv_work.c index c362c195..d30914fd 100644 --- a/lapacke/src/lapacke_dsysv_work.c +++ b/lapacke/src/lapacke_dsysv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsysv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsysv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, lapack_int* ipiv, double* b, lapack_int ldb, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsysv( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -80,8 +80,8 @@ lapack_int LAPACKE_dsysv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsysv( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_dsysvx.c b/lapacke/src/lapacke_dsysvx.c index ef6aa9f9..06bdcf2b 100644 --- a/lapacke/src/lapacke_dsysvx.c +++ b/lapacke/src/lapacke_dsysvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsysvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_dsysvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, const double* b, lapack_int ldb, double* x, @@ -45,21 +45,21 @@ lapack_int LAPACKE_dsysvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int* iwork = NULL; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsysvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -11; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_dsysvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_dsysvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_dsysvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, &work_query, lwork, iwork ); if( info != 0 ) { @@ -84,7 +84,7 @@ lapack_int LAPACKE_dsysvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsysvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_dsysvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dsysvx_work.c b/lapacke/src/lapacke_dsysvx_work.c index 7f549a64..1e43e23a 100644 --- a/lapacke/src/lapacke_dsysvx_work.c +++ b/lapacke/src/lapacke_dsysvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsysvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dsysvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, const double* b, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dsysvx_work( int matrix_order, char fact, char uplo, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsysvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, &lwork, iwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dsysvx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -110,11 +110,11 @@ lapack_int LAPACKE_dsysvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_dsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsysvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, diff --git a/lapacke/src/lapacke_dsysvxx.c b/lapacke/src/lapacke_dsysvxx.c index b6108f2f..86a47037 100644 --- a/lapacke/src/lapacke_dsysvxx.c +++ b/lapacke/src/lapacke_dsysvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsysvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dsysvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* s, double* b, @@ -46,21 +46,21 @@ lapack_int LAPACKE_dsysvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsysvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( nparams>0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_dsysvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dsysvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_dsysvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_dsysvxx_work.c b/lapacke/src/lapacke_dsysvxx_work.c index cdf4dcca..53857765 100644 --- a/lapacke/src/lapacke_dsysvxx_work.c +++ b/lapacke/src/lapacke_dsysvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_dsysvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, double* a, lapack_int lda, double* af, lapack_int ldaf, lapack_int* ipiv, char* equed, double* s, @@ -45,7 +45,7 @@ lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsysvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, @@ -54,7 +54,7 @@ lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -120,11 +120,11 @@ lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_dsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsysvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, @@ -146,9 +146,9 @@ lapack_int LAPACKE_dsysvxx_work( int matrix_order, char fact, char uplo, } LAPACKE_dge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_dsyswapr.c b/lapacke/src/lapacke_dsyswapr.c index d2b10a9e..b41b9f40 100644 --- a/lapacke/src/lapacke_dsyswapr.c +++ b/lapacke/src/lapacke_dsyswapr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyswapr( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int i1, lapack_int i2 ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsyswapr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, n ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, n ) ) { return -4; } #endif - return LAPACKE_dsyswapr_work( matrix_order, uplo, n, a, i1, i2 ); + return LAPACKE_dsyswapr_work( matrix_layout, uplo, n, a, i1, i2 ); } diff --git a/lapacke/src/lapacke_dsyswapr_work.c b/lapacke/src/lapacke_dsyswapr_work.c index 87cafc86..32d51b5a 100644 --- a/lapacke/src/lapacke_dsyswapr_work.c +++ b/lapacke/src/lapacke_dsyswapr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsyswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsyswapr_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int i1, lapack_int i2 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsyswapr( &uplo, &n, a, &i1, &i2 ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (double*)LAPACKE_malloc( sizeof(double) * n * MAX(1,n) ); @@ -52,7 +52,7 @@ lapack_int LAPACKE_dsyswapr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, n, a_t, n ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, n, a_t, n ); /* Call LAPACK function and adjust info */ LAPACK_dsyswapr( &uplo, &n, a_t, &i1, &i2 ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_dsytrd.c b/lapacke/src/lapacke_dsytrd.c index 238d268e..1a40ebcc 100644 --- a/lapacke/src/lapacke_dsytrd.c +++ b/lapacke/src/lapacke_dsytrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytrd( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dsytrd( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, double* d, double* e, double* tau ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsytrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsytrd_work( matrix_order, uplo, n, a, lda, d, e, tau, + info = LAPACKE_dsytrd_work( matrix_layout, uplo, n, a, lda, d, e, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dsytrd( int matrix_order, char uplo, lapack_int n, double* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsytrd_work( matrix_order, uplo, n, a, lda, d, e, tau, work, + info = LAPACKE_dsytrd_work( matrix_layout, uplo, n, a, lda, d, e, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsytrd_work.c b/lapacke/src/lapacke_dsytrd_work.c index a3daa3fa..e2325be7 100644 --- a/lapacke/src/lapacke_dsytrd_work.c +++ b/lapacke/src/lapacke_dsytrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrd_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, double* d, double* e, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsytrd( &uplo, &n, a, &lda, d, e, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -66,7 +66,7 @@ lapack_int LAPACKE_dsytrd_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsytrd( &uplo, &n, a_t, &lda_t, d, e, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsytrf.c b/lapacke/src/lapacke_dsytrf.c index 08eca65a..47ae8277 100644 --- a/lapacke/src/lapacke_dsytrf.c +++ b/lapacke/src/lapacke_dsytrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytrf( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dsytrf( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, lapack_int* ipiv ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsytrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsytrf_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_dsytrf_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dsytrf( int matrix_order, char uplo, lapack_int n, double* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsytrf_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_dsytrf_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsytrf_work.c b/lapacke/src/lapacke_dsytrf_work.c index 147c3cf2..92396b71 100644 --- a/lapacke/src/lapacke_dsytrf_work.c +++ b/lapacke/src/lapacke_dsytrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrf_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, lapack_int* ipiv, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsytrf( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dsytrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsytrf( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsytri.c b/lapacke/src/lapacke_dsytri.c index 21127a85..225089d6 100644 --- a/lapacke/src/lapacke_dsytri.c +++ b/lapacke/src/lapacke_dsytri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytri( int matrix_order, char uplo, lapack_int n, double* a, +lapack_int LAPACKE_dsytri( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsytri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -55,7 +55,7 @@ lapack_int LAPACKE_dsytri( int matrix_order, char uplo, lapack_int n, double* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsytri_work( matrix_order, uplo, n, a, lda, ipiv, work ); + info = LAPACKE_dsytri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dsytri2.c b/lapacke/src/lapacke_dsytri2.c index a097ad5a..9c8ae062 100644 --- a/lapacke/src/lapacke_dsytri2.c +++ b/lapacke/src/lapacke_dsytri2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri2( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsytri2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dsytri2_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_dsytri2_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -65,7 +65,7 @@ lapack_int LAPACKE_dsytri2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsytri2_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_dsytri2_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsytri2_work.c b/lapacke/src/lapacke_dsytri2_work.c index 48e2689d..10135fde 100644 --- a/lapacke/src/lapacke_dsytri2_work.c +++ b/lapacke/src/lapacke_dsytri2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri2_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsytri2( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -66,7 +66,7 @@ lapack_int LAPACKE_dsytri2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsytri2( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsytri2x.c b/lapacke/src/lapacke_dsytri2x.c index 5438b78f..e84e6b9e 100644 --- a/lapacke/src/lapacke_dsytri2x.c +++ b/lapacke/src/lapacke_dsytri2x.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri2x( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsytri2x", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_dsytri2x( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsytri2x_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_dsytri2x_work( matrix_layout, uplo, n, a, lda, ipiv, work, nb ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsytri2x_work.c b/lapacke/src/lapacke_dsytri2x_work.c index 0a7bfe62..433619a6 100644 --- a/lapacke/src/lapacke_dsytri2x_work.c +++ b/lapacke/src/lapacke_dsytri2x_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri2x_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, double* work, lapack_int nb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsytri2x( &uplo, &n, a, &lda, ipiv, work, &nb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_dsytri2x_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsytri2x( &uplo, &n, a_t, &lda_t, ipiv, work, &nb, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsytri_work.c b/lapacke/src/lapacke_dsytri_work.c index 39f257c2..b7e197f3 100644 --- a/lapacke/src/lapacke_dsytri_work.c +++ b/lapacke/src/lapacke_dsytri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytri_work( int matrix_layout, char uplo, lapack_int n, double* a, lapack_int lda, const lapack_int* ipiv, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsytri( &uplo, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dsytri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dsytri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dsytrs.c b/lapacke/src/lapacke_dsytrs.c index 2e3c2378..c022822c 100644 --- a/lapacke/src/lapacke_dsytrs.c +++ b/lapacke/src/lapacke_dsytrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsytrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_dsytrs_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + return LAPACKE_dsytrs_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_dsytrs2.c b/lapacke/src/lapacke_dsytrs2.c index 3c08407d..4f48e57a 100644 --- a/lapacke/src/lapacke_dsytrs2.c +++ b/lapacke/src/lapacke_dsytrs2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrs2( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsytrs2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif @@ -59,7 +59,7 @@ lapack_int LAPACKE_dsytrs2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dsytrs2_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_dsytrs2_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dsytrs2_work.c b/lapacke/src/lapacke_dsytrs2_work.c index d74e4dfb..d651972e 100644 --- a/lapacke/src/lapacke_dsytrs2_work.c +++ b/lapacke/src/lapacke_dsytrs2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytrs2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrs2_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsytrs2( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -73,8 +73,8 @@ lapack_int LAPACKE_dsytrs2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsytrs2( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_dsytrs_work.c b/lapacke/src/lapacke_dsytrs_work.c index 25ceaf05..7afe6584 100644 --- a/lapacke/src/lapacke_dsytrs_work.c +++ b/lapacke/src/lapacke_dsytrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsytrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dsytrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const lapack_int* ipiv, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dsytrs( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -73,8 +73,8 @@ lapack_int LAPACKE_dsytrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dsytrs( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_dtbcon.c b/lapacke/src/lapacke_dtbcon.c index c0645101..b2d8af80 100644 --- a/lapacke/src/lapacke_dtbcon.c +++ b/lapacke/src/lapacke_dtbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtbcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_dtbcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab, double* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_dtb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -7; } #endif @@ -62,7 +62,7 @@ lapack_int LAPACKE_dtbcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtbcon_work( matrix_order, norm, uplo, diag, n, kd, ab, ldab, + info = LAPACKE_dtbcon_work( matrix_layout, norm, uplo, diag, n, kd, ab, ldab, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtbcon_work.c b/lapacke/src/lapacke_dtbcon_work.c index eb1bfead..b0d9755c 100644 --- a/lapacke/src/lapacke_dtbcon_work.c +++ b/lapacke/src/lapacke_dtbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtbcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_dtbcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab, double* rcond, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtbcon( &norm, &uplo, &diag, &n, &kd, ab, &ldab, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); double* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_dtbcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dtb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_dtb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_dtbcon( &norm, &uplo, &diag, &n, &kd, ab_t, &ldab_t, rcond, work, diff --git a/lapacke/src/lapacke_dtbrfs.c b/lapacke/src/lapacke_dtbrfs.c index 301c67fe..3a928b10 100644 --- a/lapacke/src/lapacke_dtbrfs.c +++ b/lapacke/src/lapacke_dtbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, const double* b, lapack_int ldb, const double* x, lapack_int ldx, @@ -42,19 +42,19 @@ lapack_int LAPACKE_dtbrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_dtb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_dtbrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtbrfs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + info = LAPACKE_dtbrfs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dtbrfs_work.c b/lapacke/src/lapacke_dtbrfs_work.c index fbc59082..a5c95568 100644 --- a/lapacke/src/lapacke_dtbrfs_work.c +++ b/lapacke/src/lapacke_dtbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtbrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtbrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, const double* b, @@ -42,14 +42,14 @@ lapack_int LAPACKE_dtbrfs_work( int matrix_order, char uplo, char trans, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtbrfs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -89,10 +89,10 @@ lapack_int LAPACKE_dtbrfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dtb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_dtb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dtbrfs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dtbtrs.c b/lapacke/src/lapacke_dtbtrs.c index 7138d04c..1e09dd1f 100644 --- a/lapacke/src/lapacke_dtbtrs.c +++ b/lapacke/src/lapacke_dtbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtbtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtbtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_dtb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } #endif - return LAPACKE_dtbtrs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + return LAPACKE_dtbtrs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb ); } diff --git a/lapacke/src/lapacke_dtbtrs_work.c b/lapacke/src/lapacke_dtbtrs_work.c index e6356efc..fec68894 100644 --- a/lapacke/src/lapacke_dtbtrs_work.c +++ b/lapacke/src/lapacke_dtbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtbtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtbtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const double* ab, lapack_int ldab, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtbtrs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); double* ab_t = NULL; @@ -74,9 +74,9 @@ lapack_int LAPACKE_dtbtrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dtb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_dtb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dtbtrs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_dtfsm.c b/lapacke/src/lapacke_dtfsm.c index 9c852d11..840e45ae 100644 --- a/lapacke/src/lapacke_dtfsm.c +++ b/lapacke/src/lapacke_dtfsm.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_dtfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, double alpha, const double* a, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtfsm", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( IS_D_NONZERO(alpha) ) { - if( LAPACKE_dtf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_dtf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -10; } } @@ -53,11 +53,11 @@ lapack_int LAPACKE_dtfsm( int matrix_order, char transr, char side, char uplo, return -9; } if( IS_D_NONZERO(alpha) ) { - if( LAPACKE_dge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -11; } } #endif - return LAPACKE_dtfsm_work( matrix_order, transr, side, uplo, trans, diag, m, + return LAPACKE_dtfsm_work( matrix_layout, transr, side, uplo, trans, diag, m, n, alpha, a, b, ldb ); } diff --git a/lapacke/src/lapacke_dtfsm_work.c b/lapacke/src/lapacke_dtfsm_work.c index 82bd7125..2ee8a517 100644 --- a/lapacke/src/lapacke_dtfsm_work.c +++ b/lapacke/src/lapacke_dtfsm_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtfsm_work( int matrix_order, char transr, char side, +lapack_int LAPACKE_dtfsm_work( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, double alpha, const double* a, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtfsm( &transr, &side, &uplo, &trans, &diag, &m, &n, &alpha, a, b, &ldb ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,m); double* b_t = NULL; double* a_t = NULL; @@ -73,10 +73,10 @@ lapack_int LAPACKE_dtfsm_work( int matrix_order, char transr, char side, } /* Transpose input matrices */ if( IS_D_NONZERO(alpha) ) { - LAPACKE_dge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); } if( IS_D_NONZERO(alpha) ) { - LAPACKE_dtf_trans( matrix_order, transr, uplo, diag, n, a, a_t ); + LAPACKE_dtf_trans( matrix_layout, transr, uplo, diag, n, a, a_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtfsm( &transr, &side, &uplo, &trans, &diag, &m, &n, &alpha, a_t, diff --git a/lapacke/src/lapacke_dtftri.c b/lapacke/src/lapacke_dtftri.c index 38d1411b..1271b0a9 100644 --- a/lapacke/src/lapacke_dtftri.c +++ b/lapacke/src/lapacke_dtftri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtftri( int matrix_order, char transr, char uplo, char diag, +lapack_int LAPACKE_dtftri( int matrix_layout, char transr, char uplo, char diag, lapack_int n, double* a ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtftri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_dtf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -6; } #endif - return LAPACKE_dtftri_work( matrix_order, transr, uplo, diag, n, a ); + return LAPACKE_dtftri_work( matrix_layout, transr, uplo, diag, n, a ); } diff --git a/lapacke/src/lapacke_dtftri_work.c b/lapacke/src/lapacke_dtftri_work.c index b0295613..86fd657c 100644 --- a/lapacke/src/lapacke_dtftri_work.c +++ b/lapacke/src/lapacke_dtftri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtftri_work( int matrix_layout, char transr, char uplo, char diag, lapack_int n, double* a ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtftri( &transr, &uplo, &diag, &n, a, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (double*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_dtftri_work( int matrix_order, char transr, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dtf_trans( matrix_order, transr, uplo, diag, n, a, a_t ); + LAPACKE_dtf_trans( matrix_layout, transr, uplo, diag, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_dtftri( &transr, &uplo, &diag, &n, a_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtfttp.c b/lapacke/src/lapacke_dtfttp.c index a3260c0b..bc1b86c3 100644 --- a/lapacke/src/lapacke_dtfttp.c +++ b/lapacke/src/lapacke_dtfttp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtfttp( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtfttp( int matrix_layout, char transr, char uplo, lapack_int n, const double* arf, double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtfttp", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_dtfttp( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_dtfttp_work( matrix_order, transr, uplo, n, arf, ap ); + return LAPACKE_dtfttp_work( matrix_layout, transr, uplo, n, arf, ap ); } diff --git a/lapacke/src/lapacke_dtfttp_work.c b/lapacke/src/lapacke_dtfttp_work.c index f7d6cb2f..e6b5fa6c 100644 --- a/lapacke/src/lapacke_dtfttp_work.c +++ b/lapacke/src/lapacke_dtfttp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtfttp_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtfttp_work( int matrix_layout, char transr, char uplo, lapack_int n, const double* arf, double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtfttp( &transr, &uplo, &n, arf, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; double* arf_t = NULL; /* Allocate memory for temporary array(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dtfttp_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dpf_trans( matrix_order, transr, uplo, n, arf, arf_t ); + LAPACKE_dpf_trans( matrix_layout, transr, uplo, n, arf, arf_t ); /* Call LAPACK function and adjust info */ LAPACK_dtfttp( &transr, &uplo, &n, arf_t, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtfttr.c b/lapacke/src/lapacke_dtfttr.c index d12e2976..eabf7abe 100644 --- a/lapacke/src/lapacke_dtfttr.c +++ b/lapacke/src/lapacke_dtfttr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtfttr( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtfttr( int matrix_layout, char transr, char uplo, lapack_int n, const double* arf, double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtfttr", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_dtfttr( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_dtfttr_work( matrix_order, transr, uplo, n, arf, a, lda ); + return LAPACKE_dtfttr_work( matrix_layout, transr, uplo, n, arf, a, lda ); } diff --git a/lapacke/src/lapacke_dtfttr_work.c b/lapacke/src/lapacke_dtfttr_work.c index 6317396a..e7939d94 100644 --- a/lapacke/src/lapacke_dtfttr_work.c +++ b/lapacke/src/lapacke_dtfttr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtfttr_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtfttr_work( int matrix_layout, char transr, char uplo, lapack_int n, const double* arf, double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtfttr( &transr, &uplo, &n, arf, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; double* arf_t = NULL; @@ -67,7 +67,7 @@ lapack_int LAPACKE_dtfttr_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dpf_trans( matrix_order, transr, uplo, n, arf, arf_t ); + LAPACKE_dpf_trans( matrix_layout, transr, uplo, n, arf, arf_t ); /* Call LAPACK function and adjust info */ LAPACK_dtfttr( &transr, &uplo, &n, arf_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtgevc.c b/lapacke/src/lapacke_dtgevc.c index 33af610c..10befd09 100644 --- a/lapacke/src/lapacke_dtgevc.c +++ b/lapacke/src/lapacke_dtgevc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_dtgevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const double* s, lapack_int lds, const double* p, lapack_int ldp, double* vl, lapack_int ldvl, @@ -42,25 +42,25 @@ lapack_int LAPACKE_dtgevc( int matrix_order, char side, char howmny, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtgevc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, p, ldp ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, p, ldp ) ) { return -8; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, s, lds ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, s, lds ) ) { return -6; } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'l' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'r' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -72,7 +72,7 @@ lapack_int LAPACKE_dtgevc( int matrix_order, char side, char howmny, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtgevc_work( matrix_order, side, howmny, select, n, s, lds, + info = LAPACKE_dtgevc_work( matrix_layout, side, howmny, select, n, s, lds, p, ldp, vl, ldvl, vr, ldvr, mm, m, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtgevc_work.c b/lapacke/src/lapacke_dtgevc_work.c index 22d990e2..cd0dd9cc 100644 --- a/lapacke/src/lapacke_dtgevc_work.c +++ b/lapacke/src/lapacke_dtgevc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_dtgevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const double* s, lapack_int lds, const double* p, lapack_int ldp, double* vl, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dtgevc_work( int matrix_order, char side, char howmny, lapack_int mm, lapack_int* m, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtgevc( &side, &howmny, select, &n, s, &lds, p, &ldp, vl, &ldvl, vr, &ldvr, &mm, m, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldp_t = MAX(1,n); lapack_int lds_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); @@ -106,15 +106,15 @@ lapack_int LAPACKE_dtgevc_work( int matrix_order, char side, char howmny, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, s, lds, s_t, lds_t ); - LAPACKE_dge_trans( matrix_order, n, n, p, ldp, p_t, ldp_t ); + LAPACKE_dge_trans( matrix_layout, n, n, s, lds, s_t, lds_t ); + LAPACKE_dge_trans( matrix_layout, n, n, p, ldp, p_t, ldp_t ); if( ( LAPACKE_lsame( side, 'l' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_dge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_dge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( side, 'r' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_dge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_dge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtgevc( &side, &howmny, select, &n, s_t, &lds_t, p_t, &ldp_t, diff --git a/lapacke/src/lapacke_dtgexc.c b/lapacke/src/lapacke_dtgexc.c index 19ffd051..cf9b58a1 100644 --- a/lapacke/src/lapacke_dtgexc.c +++ b/lapacke/src/lapacke_dtgexc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgexc( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_dtgexc( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* q, lapack_int ldq, double* z, lapack_int ldz, @@ -43,31 +43,31 @@ lapack_int LAPACKE_dtgexc( int matrix_order, lapack_logical wantq, lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtgexc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -7; } if( wantq ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -9; } } if( wantz ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -11; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dtgexc_work( matrix_order, wantq, wantz, n, a, lda, b, ldb, + info = LAPACKE_dtgexc_work( matrix_layout, wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, ifst, ilst, &work_query, lwork ); if( info != 0 ) { @@ -81,7 +81,7 @@ lapack_int LAPACKE_dtgexc( int matrix_order, lapack_logical wantq, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtgexc_work( matrix_order, wantq, wantz, n, a, lda, b, ldb, + info = LAPACKE_dtgexc_work( matrix_layout, wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, ifst, ilst, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtgexc_work.c b/lapacke/src/lapacke_dtgexc_work.c index 69dee958..6b4aafe5 100644 --- a/lapacke/src/lapacke_dtgexc_work.c +++ b/lapacke/src/lapacke_dtgexc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgexc_work( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_dtgexc_work( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double* q, lapack_int ldq, double* z, @@ -42,14 +42,14 @@ lapack_int LAPACKE_dtgexc_work( int matrix_order, lapack_logical wantq, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtgexc( &wantq, &wantz, &n, a, &lda, b, &ldb, q, &ldq, z, &ldz, ifst, ilst, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -111,13 +111,13 @@ lapack_int LAPACKE_dtgexc_work( int matrix_order, lapack_logical wantq, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); if( wantq ) { - LAPACKE_dge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_dge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( wantz ) { - LAPACKE_dge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_dge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtgexc( &wantq, &wantz, &n, a_t, &lda_t, b_t, &ldb_t, q_t, diff --git a/lapacke/src/lapacke_dtgsen.c b/lapacke/src/lapacke_dtgsen.c index b9144c19..fc8a5241 100644 --- a/lapacke/src/lapacke_dtgsen.c +++ b/lapacke/src/lapacke_dtgsen.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgsen( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_dtgsen( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, @@ -48,31 +48,31 @@ lapack_int LAPACKE_dtgsen( int matrix_order, lapack_int ijob, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtgsen", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } if( wantq ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -14; } } if( wantz ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -16; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dtgsen_work( matrix_order, ijob, wantq, wantz, select, n, a, + info = LAPACKE_dtgsen_work( matrix_layout, ijob, wantq, wantz, select, n, a, lda, b, ldb, alphar, alphai, beta, q, ldq, z, ldz, m, pl, pr, dif, &work_query, lwork, &iwork_query, liwork ); @@ -95,7 +95,7 @@ lapack_int LAPACKE_dtgsen( int matrix_order, lapack_int ijob, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtgsen_work( matrix_order, ijob, wantq, wantz, select, n, a, + info = LAPACKE_dtgsen_work( matrix_layout, ijob, wantq, wantz, select, n, a, lda, b, ldb, alphar, alphai, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork ); diff --git a/lapacke/src/lapacke_dtgsen_work.c b/lapacke/src/lapacke_dtgsen_work.c index 58c786d4..1daa57f9 100644 --- a/lapacke/src/lapacke_dtgsen_work.c +++ b/lapacke/src/lapacke_dtgsen_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgsen_work( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_dtgsen_work( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, double* a, lapack_int lda, double* b, @@ -45,7 +45,7 @@ lapack_int LAPACKE_dtgsen_work( int matrix_order, lapack_int ijob, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtgsen( &ijob, &wantq, &wantz, select, &n, a, &lda, b, &ldb, alphar, alphai, beta, q, &ldq, z, &ldz, m, pl, pr, dif, @@ -53,7 +53,7 @@ lapack_int LAPACKE_dtgsen_work( int matrix_order, lapack_int ijob, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -117,13 +117,13 @@ lapack_int LAPACKE_dtgsen_work( int matrix_order, lapack_int ijob, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); if( wantq ) { - LAPACKE_dge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_dge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( wantz ) { - LAPACKE_dge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_dge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtgsen( &ijob, &wantq, &wantz, select, &n, a_t, &lda_t, b_t, diff --git a/lapacke/src/lapacke_dtgsja.c b/lapacke/src/lapacke_dtgsja.c index b9e81859..b3d999f7 100644 --- a/lapacke/src/lapacke_dtgsja.c +++ b/lapacke/src/lapacke_dtgsja.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgsja( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_dtgsja( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, double* a, lapack_int lda, double* b, lapack_int ldb, @@ -44,20 +44,20 @@ lapack_int LAPACKE_dtgsja( int matrix_order, char jobu, char jobv, char jobq, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtgsja", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -10; } - if( LAPACKE_dge_nancheck( matrix_order, p, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, p, n, b, ldb ) ) { return -12; } if( LAPACKE_lsame( jobq, 'i' ) || LAPACKE_lsame( jobq, 'q' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -22; } } @@ -68,12 +68,12 @@ lapack_int LAPACKE_dtgsja( int matrix_order, char jobu, char jobv, char jobq, return -15; } if( LAPACKE_lsame( jobu, 'i' ) || LAPACKE_lsame( jobu, 'u' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, m, m, u, ldu ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, m, u, ldu ) ) { return -18; } } if( LAPACKE_lsame( jobv, 'i' ) || LAPACKE_lsame( jobv, 'v' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, p, p, v, ldv ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, p, p, v, ldv ) ) { return -20; } } @@ -85,7 +85,7 @@ lapack_int LAPACKE_dtgsja( int matrix_order, char jobu, char jobv, char jobq, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtgsja_work( matrix_order, jobu, jobv, jobq, m, p, n, k, l, + info = LAPACKE_dtgsja_work( matrix_layout, jobu, jobv, jobq, m, p, n, k, l, a, lda, b, ldb, tola, tolb, alpha, beta, u, ldu, v, ldv, q, ldq, work, ncycle ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dtgsja_work.c b/lapacke/src/lapacke_dtgsja_work.c index 2384f36d..44994eae 100644 --- a/lapacke/src/lapacke_dtgsja_work.c +++ b/lapacke/src/lapacke_dtgsja_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgsja_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_dtgsja_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, double* a, lapack_int lda, double* b, @@ -44,7 +44,7 @@ lapack_int LAPACKE_dtgsja_work( int matrix_order, char jobu, char jobv, lapack_int* ncycle ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtgsja( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a, &lda, b, &ldb, &tola, &tolb, alpha, beta, u, &ldu, v, &ldv, q, @@ -52,7 +52,7 @@ lapack_int LAPACKE_dtgsja_work( int matrix_order, char jobu, char jobv, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,p); lapack_int ldq_t = MAX(1,n); @@ -122,16 +122,16 @@ lapack_int LAPACKE_dtgsja_work( int matrix_order, char jobu, char jobv, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, p, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, p, n, b, ldb, b_t, ldb_t ); if( LAPACKE_lsame( jobu, 'u' ) ) { - LAPACKE_dge_trans( matrix_order, m, m, u, ldu, u_t, ldu_t ); + LAPACKE_dge_trans( matrix_layout, m, m, u, ldu, u_t, ldu_t ); } if( LAPACKE_lsame( jobv, 'v' ) ) { - LAPACKE_dge_trans( matrix_order, p, p, v, ldv, v_t, ldv_t ); + LAPACKE_dge_trans( matrix_layout, p, p, v, ldv, v_t, ldv_t ); } if( LAPACKE_lsame( jobq, 'q' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_dge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtgsja( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a_t, &lda_t, diff --git a/lapacke/src/lapacke_dtgsna.c b/lapacke/src/lapacke_dtgsna.c index 29ccf226..a86a3517 100644 --- a/lapacke/src/lapacke_dtgsna.c +++ b/lapacke/src/lapacke_dtgsna.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_dtgsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, const double* vl, lapack_int ldvl, @@ -45,25 +45,25 @@ lapack_int LAPACKE_dtgsna( int matrix_order, char job, char howmny, lapack_int* iwork = NULL; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtgsna", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -77,7 +77,7 @@ lapack_int LAPACKE_dtgsna( int matrix_order, char job, char howmny, } } /* Query optimal working array(s) size */ - info = LAPACKE_dtgsna_work( matrix_order, job, howmny, select, n, a, lda, b, + info = LAPACKE_dtgsna_work( matrix_layout, job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, &work_query, lwork, iwork ); if( info != 0 ) { @@ -93,7 +93,7 @@ lapack_int LAPACKE_dtgsna( int matrix_order, char job, char howmny, } } /* Call middle-level interface */ - info = LAPACKE_dtgsna_work( matrix_order, job, howmny, select, n, a, lda, b, + info = LAPACKE_dtgsna_work( matrix_layout, job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dtgsna_work.c b/lapacke/src/lapacke_dtgsna_work.c index 7ece7fec..c7f3e1d9 100644 --- a/lapacke/src/lapacke_dtgsna_work.c +++ b/lapacke/src/lapacke_dtgsna_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_dtgsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, @@ -44,14 +44,14 @@ lapack_int LAPACKE_dtgsna_work( int matrix_order, char job, char howmny, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtgsna( &job, &howmny, select, &n, a, &lda, b, &ldb, vl, &ldvl, vr, &ldvr, s, dif, &mm, m, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); @@ -116,13 +116,13 @@ lapack_int LAPACKE_dtgsna_work( int matrix_order, char job, char howmny, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_dge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_dge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_dge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_dge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtgsna( &job, &howmny, select, &n, a_t, &lda_t, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_dtgsyl.c b/lapacke/src/lapacke_dtgsyl.c index 65239ea7..e408373e 100644 --- a/lapacke/src/lapacke_dtgsyl.c +++ b/lapacke/src/lapacke_dtgsyl.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgsyl( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_dtgsyl( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, double* c, lapack_int ldc, const double* d, @@ -46,28 +46,28 @@ lapack_int LAPACKE_dtgsyl( int matrix_order, char trans, lapack_int ijob, lapack_int* iwork = NULL; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtgsyl", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, m, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, m, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } - if( LAPACKE_dge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } - if( LAPACKE_dge_nancheck( matrix_order, m, m, d, ldd ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, m, d, ldd ) ) { return -12; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, e, lde ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, e, lde ) ) { return -14; } - if( LAPACKE_dge_nancheck( matrix_order, m, n, f, ldf ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, f, ldf ) ) { return -16; } #endif @@ -78,7 +78,7 @@ lapack_int LAPACKE_dtgsyl( int matrix_order, char trans, lapack_int ijob, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_dtgsyl_work( matrix_order, trans, ijob, m, n, a, lda, b, ldb, + info = LAPACKE_dtgsyl_work( matrix_layout, trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, &work_query, lwork, iwork ); if( info != 0 ) { @@ -92,7 +92,7 @@ lapack_int LAPACKE_dtgsyl( int matrix_order, char trans, lapack_int ijob, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtgsyl_work( matrix_order, trans, ijob, m, n, a, lda, b, ldb, + info = LAPACKE_dtgsyl_work( matrix_layout, trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dtgsyl_work.c b/lapacke/src/lapacke_dtgsyl_work.c index 6a0f2254..a86167ef 100644 --- a/lapacke/src/lapacke_dtgsyl_work.c +++ b/lapacke/src/lapacke_dtgsyl_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtgsyl_work( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_dtgsyl_work( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, double* c, lapack_int ldc, const double* d, @@ -43,7 +43,7 @@ lapack_int LAPACKE_dtgsyl_work( int matrix_order, char trans, lapack_int ijob, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtgsyl( &trans, &ijob, &m, &n, a, &lda, b, &ldb, c, &ldc, d, &ldd, e, &lde, f, &ldf, scale, dif, work, &lwork, iwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_dtgsyl_work( int matrix_order, char trans, lapack_int ijob, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,n); lapack_int ldc_t = MAX(1,m); @@ -134,12 +134,12 @@ lapack_int LAPACKE_dtgsyl_work( int matrix_order, char trans, lapack_int ijob, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, m, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); - LAPACKE_dge_trans( matrix_order, m, m, d, ldd, d_t, ldd_t ); - LAPACKE_dge_trans( matrix_order, n, n, e, lde, e_t, lde_t ); - LAPACKE_dge_trans( matrix_order, m, n, f, ldf, f_t, ldf_t ); + LAPACKE_dge_trans( matrix_layout, m, m, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_dge_trans( matrix_layout, m, m, d, ldd, d_t, ldd_t ); + LAPACKE_dge_trans( matrix_layout, n, n, e, lde, e_t, lde_t ); + LAPACKE_dge_trans( matrix_layout, m, n, f, ldf, f_t, ldf_t ); /* Call LAPACK function and adjust info */ LAPACK_dtgsyl( &trans, &ijob, &m, &n, a_t, &lda_t, b_t, &ldb_t, c_t, &ldc_t, d_t, &ldd_t, e_t, &lde_t, f_t, &ldf_t, scale, diff --git a/lapacke/src/lapacke_dtpcon.c b/lapacke/src/lapacke_dtpcon.c index 8d1e3ad6..1944db08 100644 --- a/lapacke/src/lapacke_dtpcon.c +++ b/lapacke/src/lapacke_dtpcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_dtpcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const double* ap, double* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtpcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_dtp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -6; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_dtpcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtpcon_work( matrix_order, norm, uplo, diag, n, ap, rcond, + info = LAPACKE_dtpcon_work( matrix_layout, norm, uplo, diag, n, ap, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtpcon_work.c b/lapacke/src/lapacke_dtpcon_work.c index bc8c8398..ae237ef2 100644 --- a/lapacke/src/lapacke_dtpcon_work.c +++ b/lapacke/src/lapacke_dtpcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_dtpcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const double* ap, double* rcond, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtpcon( &norm, &uplo, &diag, &n, ap, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_dtpcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dtp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_dtp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dtpcon( &norm, &uplo, &diag, &n, ap_t, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dtpmqrt.c b/lapacke/src/lapacke_dtpmqrt.c index b09eabef..4550f4c9 100644 --- a/lapacke/src/lapacke_dtpmqrt.c +++ b/lapacke/src/lapacke_dtpmqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpmqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_dtpmqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const double* v, lapack_int ldv, const double* t, lapack_int ldt, @@ -42,22 +42,22 @@ lapack_int LAPACKE_dtpmqrt( int matrix_order, char side, char trans, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtpmqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, k, m, a, lda ) ) { return -13; } - if( LAPACKE_dge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -15; } - if( LAPACKE_dge_nancheck( matrix_order, ldt, nb, t, ldt ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, ldt, nb, t, ldt ) ) { return -11; } - if( LAPACKE_dge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -9; } #endif @@ -68,7 +68,7 @@ lapack_int LAPACKE_dtpmqrt( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtpmqrt_work( matrix_order, side, trans, m, n, k, l, nb, v, + info = LAPACKE_dtpmqrt_work( matrix_layout, side, trans, m, n, k, l, nb, v, ldv, t, ldt, a, lda, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtpmqrt_work.c b/lapacke/src/lapacke_dtpmqrt_work.c index 9120c0ff..6912c796 100644 --- a/lapacke/src/lapacke_dtpmqrt_work.c +++ b/lapacke/src/lapacke_dtpmqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpmqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dtpmqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const double* v, lapack_int ldv, const double* t, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dtpmqrt_work( int matrix_order, char side, char trans, double* b, lapack_int ldb, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtpmqrt( &side, &trans, &m, &n, &k, &l, &nb, v, &ldv, t, &ldt, a, &lda, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k; lapack_int lda_t = MAX(1,k); lapack_int ldb_t = MAX(1,m); @@ -101,10 +101,10 @@ lapack_int LAPACKE_dtpmqrt_work( int matrix_order, char side, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_dge_trans( matrix_order, ldt, nb, t, ldt, t_t, ldt_t ); - LAPACKE_dge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_dge_trans( matrix_layout, ldt, nb, t, ldt, t_t, ldt_t ); + LAPACKE_dge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dtpmqrt( &side, &trans, &m, &n, &k, &l, &nb, v_t, &ldv_t, t_t, &ldt_t, a_t, &lda_t, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_dtpqrt.c b/lapacke/src/lapacke_dtpqrt.c index 0f701e33..c508a0cd 100644 --- a/lapacke/src/lapacke_dtpqrt.c +++ b/lapacke/src/lapacke_dtpqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dtpqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtpqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_dge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -8; } #endif @@ -60,7 +60,7 @@ lapack_int LAPACKE_dtpqrt( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtpqrt_work( matrix_order, m, n, l, nb, a, lda, b, ldb, t, + info = LAPACKE_dtpqrt_work( matrix_layout, m, n, l, nb, a, lda, b, ldb, t, ldt, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtpqrt2.c b/lapacke/src/lapacke_dtpqrt2.c index 19637370..9a7f877f 100644 --- a/lapacke/src/lapacke_dtpqrt2.c +++ b/lapacke/src/lapacke_dtpqrt2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpqrt2( int matrix_order, +lapack_int LAPACKE_dtpqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtpqrt2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } - if( LAPACKE_dge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -6; } #endif - return LAPACKE_dtpqrt2_work( matrix_order, m, n, l, a, lda, b, ldb, t, ldt ); + return LAPACKE_dtpqrt2_work( matrix_layout, m, n, l, a, lda, b, ldb, t, ldt ); } diff --git a/lapacke/src/lapacke_dtpqrt2_work.c b/lapacke/src/lapacke_dtpqrt2_work.c index 558f73ab..a73895d7 100644 --- a/lapacke/src/lapacke_dtpqrt2_work.c +++ b/lapacke/src/lapacke_dtpqrt2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpqrt2_work( int matrix_order, +lapack_int LAPACKE_dtpqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtpqrt2( &m, &n, &l, a, &lda, b, &ldb, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); @@ -85,8 +85,8 @@ lapack_int LAPACKE_dtpqrt2_work( int matrix_order, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dtpqrt2( &m, &n, &l, a_t, &lda_t, b_t, &ldb_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtpqrt_work.c b/lapacke/src/lapacke_dtpqrt_work.c index 1c6b582d..9c2c1573 100644 --- a/lapacke/src/lapacke_dtpqrt_work.c +++ b/lapacke/src/lapacke_dtpqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dtpqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, double* a, lapack_int lda, double* b, lapack_int ldb, double* t, lapack_int ldt, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtpqrt( &m, &n, &l, &nb, a, &lda, b, &ldb, t, &ldt, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,m); lapack_int ldt_t = MAX(1,nb); @@ -86,8 +86,8 @@ lapack_int LAPACKE_dtpqrt_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dtpqrt( &m, &n, &l, &nb, a_t, &lda_t, b_t, &ldb_t, t_t, &ldt_t, work, &info ); diff --git a/lapacke/src/lapacke_dtprfb.c b/lapacke/src/lapacke_dtprfb.c index e01e2d5c..59d3d52e 100644 --- a/lapacke/src/lapacke_dtprfb.c +++ b/lapacke/src/lapacke_dtprfb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtprfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_dtprfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const double* v, lapack_int ldv, const double* t, lapack_int ldt, @@ -43,22 +43,22 @@ lapack_int LAPACKE_dtprfb( int matrix_order, char side, char trans, char direct, lapack_int ldwork; lapack_int work_size; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtprfb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, k, m, a, lda ) ) { return -14; } - if( LAPACKE_dge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -16; } - if( LAPACKE_dge_nancheck( matrix_order, ldt, k, t, ldt ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, ldt, k, t, ldt ) ) { return -12; } - if( LAPACKE_dge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -10; } #endif @@ -72,13 +72,13 @@ lapack_int LAPACKE_dtprfb( int matrix_order, char side, char trans, char direct, } /* Allocate memory for working array(s) */ work = (double*) - LAPACKE_malloc( sizeof(double) * MAX(1,ldwork) * MAX(n,k) ); + LAPACKE_malloc( sizeof(double) * work_size ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtprfb_work( matrix_order, side, trans, direct, storev, m, n, + info = LAPACKE_dtprfb_work( matrix_layout, side, trans, direct, storev, m, n, k, l, v, ldv, t, ldt, a, lda, b, ldb, work, ldwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dtprfb_work.c b/lapacke/src/lapacke_dtprfb_work.c index 07fb69e4..29fbfc4d 100644 --- a/lapacke/src/lapacke_dtprfb_work.c +++ b/lapacke/src/lapacke_dtprfb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtprfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_dtprfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const double* v, lapack_int ldv, @@ -42,14 +42,14 @@ lapack_int LAPACKE_dtprfb_work( int matrix_order, char side, char trans, const double* work, lapack_int ldwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtprfb( &side, &trans, &direct, &storev, &m, &n, &k, &l, v, &ldv, t, &ldt, a, &lda, b, &ldb, work, &ldwork ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k; lapack_int lda_t = MAX(1,k); lapack_int ldb_t = MAX(1,m); @@ -102,10 +102,10 @@ lapack_int LAPACKE_dtprfb_work( int matrix_order, char side, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_dge_trans( matrix_order, ldt, k, t, ldt, t_t, ldt_t ); - LAPACKE_dge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_dge_trans( matrix_layout, ldt, k, t, ldt, t_t, ldt_t ); + LAPACKE_dge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dtprfb( &side, &trans, &direct, &storev, &m, &n, &k, &l, v_t, &ldv_t, t_t, &ldt_t, a_t, &lda_t, b_t, &ldb_t, work, diff --git a/lapacke/src/lapacke_dtprfs.c b/lapacke/src/lapacke_dtprfs.c index f542035f..6d908b7e 100644 --- a/lapacke/src/lapacke_dtprfs.c +++ b/lapacke/src/lapacke_dtprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtprfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtprfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* ap, const double* b, lapack_int ldb, const double* x, lapack_int ldx, double* ferr, double* berr ) @@ -41,19 +41,19 @@ lapack_int LAPACKE_dtprfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtprfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_dtp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -69,7 +69,7 @@ lapack_int LAPACKE_dtprfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtprfs_work( matrix_order, uplo, trans, diag, n, nrhs, ap, b, + info = LAPACKE_dtprfs_work( matrix_layout, uplo, trans, diag, n, nrhs, ap, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtprfs_work.c b/lapacke/src/lapacke_dtprfs_work.c index bea07ace..b4d7d693 100644 --- a/lapacke/src/lapacke_dtprfs_work.c +++ b/lapacke/src/lapacke_dtprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtprfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtprfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* ap, const double* b, lapack_int ldb, const double* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dtprfs_work( int matrix_order, char uplo, char trans, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtprfs( &uplo, &trans, &diag, &n, &nrhs, ap, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); double* b_t = NULL; @@ -83,9 +83,9 @@ lapack_int LAPACKE_dtprfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_dtp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dtp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dtprfs( &uplo, &trans, &diag, &n, &nrhs, ap_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dtptri.c b/lapacke/src/lapacke_dtptri.c index 30b17430..34633ff1 100644 --- a/lapacke/src/lapacke_dtptri.c +++ b/lapacke/src/lapacke_dtptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtptri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_dtptri( int matrix_layout, char uplo, char diag, lapack_int n, double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtptri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_dtp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -5; } #endif - return LAPACKE_dtptri_work( matrix_order, uplo, diag, n, ap ); + return LAPACKE_dtptri_work( matrix_layout, uplo, diag, n, ap ); } diff --git a/lapacke/src/lapacke_dtptri_work.c b/lapacke/src/lapacke_dtptri_work.c index ce5c73a3..433f276d 100644 --- a/lapacke/src/lapacke_dtptri_work.c +++ b/lapacke/src/lapacke_dtptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtptri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_dtptri_work( int matrix_layout, char uplo, char diag, lapack_int n, double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtptri( &uplo, &diag, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (double*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_dtptri_work( int matrix_order, char uplo, char diag, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dtp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_dtp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dtptri( &uplo, &diag, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtptrs.c b/lapacke/src/lapacke_dtptrs.c index 79defd65..d79aa92b 100644 --- a/lapacke/src/lapacke_dtptrs.c +++ b/lapacke/src/lapacke_dtptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtptrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtptrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* ap, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtptrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_dtp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_dtptrs_work( matrix_order, uplo, trans, diag, n, nrhs, ap, b, + return LAPACKE_dtptrs_work( matrix_layout, uplo, trans, diag, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_dtptrs_work.c b/lapacke/src/lapacke_dtptrs_work.c index 7fa0faeb..bbd0aa28 100644 --- a/lapacke/src/lapacke_dtptrs_work.c +++ b/lapacke/src/lapacke_dtptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtptrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtptrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* ap, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtptrs( &uplo, &trans, &diag, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); double* b_t = NULL; double* ap_t = NULL; @@ -67,8 +67,8 @@ lapack_int LAPACKE_dtptrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dtp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dtp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dtptrs( &uplo, &trans, &diag, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_dtpttf.c b/lapacke/src/lapacke_dtpttf.c index 3a27a685..d5049a01 100644 --- a/lapacke/src/lapacke_dtpttf.c +++ b/lapacke/src/lapacke_dtpttf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtpttf( int matrix_layout, char transr, char uplo, lapack_int n, const double* ap, double* arf ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtpttf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_dtpttf( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_dtpttf_work( matrix_order, transr, uplo, n, ap, arf ); + return LAPACKE_dtpttf_work( matrix_layout, transr, uplo, n, ap, arf ); } diff --git a/lapacke/src/lapacke_dtpttf_work.c b/lapacke/src/lapacke_dtpttf_work.c index aa2e1deb..cb49f48f 100644 --- a/lapacke/src/lapacke_dtpttf_work.c +++ b/lapacke/src/lapacke_dtpttf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtpttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const double* ap, double* arf ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtpttf( &transr, &uplo, &n, ap, arf, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { double* ap_t = NULL; double* arf_t = NULL; /* Allocate memory for temporary array(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_dtpttf_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dtpttf( &transr, &uplo, &n, ap_t, arf_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtpttr.c b/lapacke/src/lapacke_dtpttr.c index d82e56f0..e8c1485e 100644 --- a/lapacke/src/lapacke_dtpttr.c +++ b/lapacke/src/lapacke_dtpttr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpttr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dtpttr( int matrix_layout, char uplo, lapack_int n, const double* ap, double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtpttr", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_dtpttr( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_dtpttr_work( matrix_order, uplo, n, ap, a, lda ); + return LAPACKE_dtpttr_work( matrix_layout, uplo, n, ap, a, lda ); } diff --git a/lapacke/src/lapacke_dtpttr_work.c b/lapacke/src/lapacke_dtpttr_work.c index 0c4df624..08a64c8d 100644 --- a/lapacke/src/lapacke_dtpttr_work.c +++ b/lapacke/src/lapacke_dtpttr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtpttr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dtpttr_work( int matrix_layout, char uplo, lapack_int n, const double* ap, double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtpttr( &uplo, &n, ap, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; double* ap_t = NULL; @@ -66,7 +66,7 @@ lapack_int LAPACKE_dtpttr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_dpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_dtpttr( &uplo, &n, ap_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtrcon.c b/lapacke/src/lapacke_dtrcon.c index e10e4a24..6f78649b 100644 --- a/lapacke/src/lapacke_dtrcon.c +++ b/lapacke/src/lapacke_dtrcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_dtrcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const double* a, lapack_int lda, double* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_dtr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -6; } #endif @@ -62,7 +62,7 @@ lapack_int LAPACKE_dtrcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtrcon_work( matrix_order, norm, uplo, diag, n, a, lda, + info = LAPACKE_dtrcon_work( matrix_layout, norm, uplo, diag, n, a, lda, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtrcon_work.c b/lapacke/src/lapacke_dtrcon_work.c index 5c3ab671..88f68533 100644 --- a/lapacke/src/lapacke_dtrcon_work.c +++ b/lapacke/src/lapacke_dtrcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_dtrcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const double* a, lapack_int lda, double* rcond, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrcon( &norm, &uplo, &diag, &n, a, &lda, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_dtrcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dtr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_dtr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dtrcon( &norm, &uplo, &diag, &n, a_t, &lda_t, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dtrevc.c b/lapacke/src/lapacke_dtrevc.c index b0eec1f2..cc952714 100644 --- a/lapacke/src/lapacke_dtrevc.c +++ b/lapacke/src/lapacke_dtrevc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_dtrevc( int matrix_layout, char side, char howmny, lapack_logical* select, lapack_int n, const double* t, lapack_int ldt, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, @@ -41,22 +41,22 @@ lapack_int LAPACKE_dtrevc( int matrix_order, char side, char howmny, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrevc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'l' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -8; } } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'r' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -10; } } @@ -68,7 +68,7 @@ lapack_int LAPACKE_dtrevc( int matrix_order, char side, char howmny, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtrevc_work( matrix_order, side, howmny, select, n, t, ldt, + info = LAPACKE_dtrevc_work( matrix_layout, side, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, mm, m, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtrevc_work.c b/lapacke/src/lapacke_dtrevc_work.c index f3035b85..70a70afb 100644 --- a/lapacke/src/lapacke_dtrevc_work.c +++ b/lapacke/src/lapacke_dtrevc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_dtrevc_work( int matrix_layout, char side, char howmny, lapack_logical* select, lapack_int n, const double* t, lapack_int ldt, double* vl, lapack_int ldvl, double* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrevc( &side, &howmny, select, &n, t, &ldt, vl, &ldvl, vr, &ldvr, &mm, m, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldt_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -93,14 +93,14 @@ lapack_int LAPACKE_dtrevc_work( int matrix_order, char side, char howmny, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_dge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( ( LAPACKE_lsame( side, 'l' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_dge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_dge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( side, 'r' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_dge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_dge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtrevc( &side, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t, diff --git a/lapacke/src/lapacke_dtrexc.c b/lapacke/src/lapacke_dtrexc.c index 7f0773ee..b1719323 100644 --- a/lapacke/src/lapacke_dtrexc.c +++ b/lapacke/src/lapacke_dtrexc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrexc( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_dtrexc( int matrix_layout, char compq, lapack_int n, double* t, lapack_int ldt, double* q, lapack_int ldq, lapack_int* ifst, lapack_int* ilst ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrexc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -6; } } - if( LAPACKE_dge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -4; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_dtrexc( int matrix_order, char compq, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtrexc_work( matrix_order, compq, n, t, ldt, q, ldq, ifst, + info = LAPACKE_dtrexc_work( matrix_layout, compq, n, t, ldt, q, ldq, ifst, ilst, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtrexc_work.c b/lapacke/src/lapacke_dtrexc_work.c index e237c254..01368f22 100644 --- a/lapacke/src/lapacke_dtrexc_work.c +++ b/lapacke/src/lapacke_dtrexc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrexc_work( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_dtrexc_work( int matrix_layout, char compq, lapack_int n, double* t, lapack_int ldt, double* q, lapack_int ldq, lapack_int* ifst, lapack_int* ilst, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrexc( &compq, &n, t, &ldt, q, &ldq, ifst, ilst, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); double* t_t = NULL; @@ -75,9 +75,9 @@ lapack_int LAPACKE_dtrexc_work( int matrix_order, char compq, lapack_int n, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_dge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_dge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtrexc( &compq, &n, t_t, &ldt_t, q_t, &ldq_t, ifst, ilst, work, diff --git a/lapacke/src/lapacke_dtrrfs.c b/lapacke/src/lapacke_dtrrfs.c index 3a664f03..f2e61f35 100644 --- a/lapacke/src/lapacke_dtrrfs.c +++ b/lapacke/src/lapacke_dtrrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtrrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* b, lapack_int ldb, const double* x, lapack_int ldx, double* ferr, @@ -42,19 +42,19 @@ lapack_int LAPACKE_dtrrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_dtr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -11; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_dtrrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtrrfs_work( matrix_order, uplo, trans, diag, n, nrhs, a, + info = LAPACKE_dtrrfs_work( matrix_layout, uplo, trans, diag, n, nrhs, a, lda, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_dtrrfs_work.c b/lapacke/src/lapacke_dtrrfs_work.c index ecada294..6d5ba912 100644 --- a/lapacke/src/lapacke_dtrrfs_work.c +++ b/lapacke/src/lapacke_dtrrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtrrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, const double* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_dtrrfs_work( int matrix_order, char uplo, char trans, double* berr, double* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrrfs( &uplo, &trans, &diag, &n, &nrhs, a, &lda, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -88,9 +88,9 @@ lapack_int LAPACKE_dtrrfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dtr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_dtr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_dtrrfs( &uplo, &trans, &diag, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_dtrsen.c b/lapacke/src/lapacke_dtrsen.c index 31298a77..4fc47889 100644 --- a/lapacke/src/lapacke_dtrsen.c +++ b/lapacke/src/lapacke_dtrsen.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrsen( int matrix_order, char job, char compq, +lapack_int LAPACKE_dtrsen( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, double* t, lapack_int ldt, double* q, lapack_int ldq, double* wr, double* wi, lapack_int* m, double* s, @@ -46,23 +46,23 @@ lapack_int LAPACKE_dtrsen( int matrix_order, char job, char compq, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrsen", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -8; } } - if( LAPACKE_dge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dtrsen_work( matrix_order, job, compq, select, n, t, ldt, q, + info = LAPACKE_dtrsen_work( matrix_layout, job, compq, select, n, t, ldt, q, ldq, wr, wi, m, s, sep, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -84,7 +84,7 @@ lapack_int LAPACKE_dtrsen( int matrix_order, char job, char compq, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_dtrsen_work( matrix_order, job, compq, select, n, t, ldt, q, + info = LAPACKE_dtrsen_work( matrix_layout, job, compq, select, n, t, ldt, q, ldq, wr, wi, m, s, sep, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dtrsen_work.c b/lapacke/src/lapacke_dtrsen_work.c index 0c5a30b3..1d5d79a6 100644 --- a/lapacke/src/lapacke_dtrsen_work.c +++ b/lapacke/src/lapacke_dtrsen_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrsen_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_dtrsen_work( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, double* t, lapack_int ldt, double* q, lapack_int ldq, double* wr, double* wi, @@ -42,14 +42,14 @@ lapack_int LAPACKE_dtrsen_work( int matrix_order, char job, char compq, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrsen( &job, &compq, select, &n, t, &ldt, q, &ldq, wr, wi, m, s, sep, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); double* t_t = NULL; @@ -72,7 +72,7 @@ lapack_int LAPACKE_dtrsen_work( int matrix_order, char job, char compq, goto exit_level_0; } /* Transpose input matrix T */ - LAPACKE_dge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_dge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); /* Query optimal working array(s) size if requested */ if( liwork == -1 || lwork == -1 ) { LAPACK_dtrsen( &job, &compq, select, &n, t_t, &ldt_t, q, &ldq_t, wr, @@ -90,7 +90,7 @@ lapack_int LAPACKE_dtrsen_work( int matrix_order, char job, char compq, } /* Transpose input matrices */ if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_dge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_dge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtrsen( &job, &compq, select, &n, t_t, &ldt_t, q_t, &ldq_t, wr, diff --git a/lapacke/src/lapacke_dtrsna.c b/lapacke/src/lapacke_dtrsna.c index 1bdd0058..f5c097d9 100644 --- a/lapacke/src/lapacke_dtrsna.c +++ b/lapacke/src/lapacke_dtrsna.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_dtrsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const double* t, lapack_int ldt, const double* vl, lapack_int ldvl, const double* vr, lapack_int ldvr, @@ -44,22 +44,22 @@ lapack_int LAPACKE_dtrsna( int matrix_order, char job, char howmny, lapack_int ldwork = LAPACKE_lsame( job, 'e' ) ? 1 : MAX(1,n) ; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrsna", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -8; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_dge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -10; } } @@ -81,7 +81,7 @@ lapack_int LAPACKE_dtrsna( int matrix_order, char job, char howmny, } } /* Call middle-level interface */ - info = LAPACKE_dtrsna_work( matrix_order, job, howmny, select, n, t, ldt, + info = LAPACKE_dtrsna_work( matrix_layout, job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_dtrsna_work.c b/lapacke/src/lapacke_dtrsna_work.c index eba70268..61561e3a 100644 --- a/lapacke/src/lapacke_dtrsna_work.c +++ b/lapacke/src/lapacke_dtrsna_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_dtrsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const double* t, lapack_int ldt, const double* vl, lapack_int ldvl, @@ -43,14 +43,14 @@ lapack_int LAPACKE_dtrsna_work( int matrix_order, char job, char howmny, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrsna( &job, &howmny, select, &n, t, &ldt, vl, &ldvl, vr, &ldvr, s, sep, &mm, m, work, &ldwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldt_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -96,12 +96,12 @@ lapack_int LAPACKE_dtrsna_work( int matrix_order, char job, char howmny, } } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_dge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_dge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_dge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_dge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_dge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_dtrsna( &job, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t, diff --git a/lapacke/src/lapacke_dtrsyl.c b/lapacke/src/lapacke_dtrsyl.c index b1c54104..ccf11432 100644 --- a/lapacke/src/lapacke_dtrsyl.c +++ b/lapacke/src/lapacke_dtrsyl.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,28 +33,28 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrsyl( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_dtrsyl( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, double* c, lapack_int ldc, double* scale ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrsyl", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, m, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, m, a, lda ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } - if( LAPACKE_dge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } #endif - return LAPACKE_dtrsyl_work( matrix_order, trana, tranb, isgn, m, n, a, lda, + return LAPACKE_dtrsyl_work( matrix_layout, trana, tranb, isgn, m, n, a, lda, b, ldb, c, ldc, scale ); } diff --git a/lapacke/src/lapacke_dtrsyl_work.c b/lapacke/src/lapacke_dtrsyl_work.c index 786a5ca3..12403694 100644 --- a/lapacke/src/lapacke_dtrsyl_work.c +++ b/lapacke/src/lapacke_dtrsyl_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrsyl_work( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_dtrsyl_work( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const double* a, lapack_int lda, const double* b, lapack_int ldb, double* c, lapack_int ldc, double* scale ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrsyl( &trana, &tranb, &isgn, &m, &n, a, &lda, b, &ldb, c, &ldc, scale, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,n); lapack_int ldc_t = MAX(1,m); @@ -87,9 +87,9 @@ lapack_int LAPACKE_dtrsyl_work( int matrix_order, char trana, char tranb, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, m, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); - LAPACKE_dge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_dge_trans( matrix_layout, m, m, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_dge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_dtrsyl( &trana, &tranb, &isgn, &m, &n, a_t, &lda_t, b_t, &ldb_t, c_t, &ldc_t, scale, &info ); diff --git a/lapacke/src/lapacke_dtrtri.c b/lapacke/src/lapacke_dtrtri.c index b3d6277e..e60e38fd 100644 --- a/lapacke/src/lapacke_dtrtri.c +++ b/lapacke/src/lapacke_dtrtri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrtri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_dtrtri( int matrix_layout, char uplo, char diag, lapack_int n, double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrtri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_dtr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -5; } #endif - return LAPACKE_dtrtri_work( matrix_order, uplo, diag, n, a, lda ); + return LAPACKE_dtrtri_work( matrix_layout, uplo, diag, n, a, lda ); } diff --git a/lapacke/src/lapacke_dtrtri_work.c b/lapacke/src/lapacke_dtrtri_work.c index 987926eb..6a02455f 100644 --- a/lapacke/src/lapacke_dtrtri_work.c +++ b/lapacke/src/lapacke_dtrtri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrtri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_dtrtri_work( int matrix_layout, char uplo, char diag, lapack_int n, double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrtri( &uplo, &diag, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; /* Check leading dimension(s) */ @@ -59,7 +59,7 @@ lapack_int LAPACKE_dtrtri_work( int matrix_order, char uplo, char diag, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dtr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_dtr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dtrtri( &uplo, &diag, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtrtrs.c b/lapacke/src/lapacke_dtrtrs.c index 353a53aa..30b859f4 100644 --- a/lapacke/src/lapacke_dtrtrs.c +++ b/lapacke/src/lapacke_dtrtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_dtrtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dtr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_dtr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } - if( LAPACKE_dge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif - return LAPACKE_dtrtrs_work( matrix_order, uplo, trans, diag, n, nrhs, a, + return LAPACKE_dtrtrs_work( matrix_layout, uplo, trans, diag, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_dtrtrs_work.c b/lapacke/src/lapacke_dtrtrs_work.c index c697c2f3..e924d281 100644 --- a/lapacke/src/lapacke_dtrtrs_work.c +++ b/lapacke/src/lapacke_dtrtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_dtrtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const double* a, lapack_int lda, double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrtrs( &uplo, &trans, &diag, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); double* a_t = NULL; @@ -74,8 +74,8 @@ lapack_int LAPACKE_dtrtrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dtr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); - LAPACKE_dge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_dtr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_dtrtrs( &uplo, &trans, &diag, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_dtrttf.c b/lapacke/src/lapacke_dtrttf.c index 7ed6b5fc..7bf2005b 100644 --- a/lapacke/src/lapacke_dtrttf.c +++ b/lapacke/src/lapacke_dtrttf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtrttf( int matrix_layout, char transr, char uplo, lapack_int n, const double* a, lapack_int lda, double* arf ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrttf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif - return LAPACKE_dtrttf_work( matrix_order, transr, uplo, n, a, lda, arf ); + return LAPACKE_dtrttf_work( matrix_layout, transr, uplo, n, a, lda, arf ); } diff --git a/lapacke/src/lapacke_dtrttf_work.c b/lapacke/src/lapacke_dtrttf_work.c index 4948adbd..00f1c46a 100644 --- a/lapacke/src/lapacke_dtrttf_work.c +++ b/lapacke/src/lapacke_dtrttf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_dtrttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const double* a, lapack_int lda, double* arf ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrttf( &transr, &uplo, &n, a, &lda, arf, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; double* arf_t = NULL; @@ -67,7 +67,7 @@ lapack_int LAPACKE_dtrttf_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dtrttf( &transr, &uplo, &n, a_t, &lda_t, arf_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtrttp.c b/lapacke/src/lapacke_dtrttp.c index 6a1368a5..6c16e21b 100644 --- a/lapacke/src/lapacke_dtrttp.c +++ b/lapacke/src/lapacke_dtrttp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrttp( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dtrttp( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtrttp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } #endif - return LAPACKE_dtrttp_work( matrix_order, uplo, n, a, lda, ap ); + return LAPACKE_dtrttp_work( matrix_layout, uplo, n, a, lda, ap ); } diff --git a/lapacke/src/lapacke_dtrttp_work.c b/lapacke/src/lapacke_dtrttp_work.c index 066fb9e3..2a6f71b3 100644 --- a/lapacke/src/lapacke_dtrttp_work.c +++ b/lapacke/src/lapacke_dtrttp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtrttp_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_dtrttp_work( int matrix_layout, char uplo, lapack_int n, const double* a, lapack_int lda, double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtrttp( &uplo, &n, a, &lda, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); double* a_t = NULL; double* ap_t = NULL; @@ -66,7 +66,7 @@ lapack_int LAPACKE_dtrttp_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dtrttp( &uplo, &n, a_t, &lda_t, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_dtzrzf.c b/lapacke/src/lapacke_dtzrzf.c index 64650b75..4463d518 100644 --- a/lapacke/src/lapacke_dtzrzf.c +++ b/lapacke/src/lapacke_dtzrzf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtzrzf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dtzrzf( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau ) { lapack_int info = 0; lapack_int lwork = -1; double* work = NULL; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dtzrzf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_dtzrzf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_dtzrzf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_dtzrzf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_dtzrzf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_dtzrzf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_dtzrzf_work.c b/lapacke/src/lapacke_dtzrzf_work.c index 806b64ba..b3a5f784 100644 --- a/lapacke/src/lapacke_dtzrzf_work.c +++ b/lapacke/src/lapacke_dtzrzf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dtzrzf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_dtzrzf_work( int matrix_layout, lapack_int m, lapack_int n, double* a, lapack_int lda, double* tau, double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_dtzrzf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_dtzrzf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_dtzrzf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sbbcsd.c b/lapacke/src/lapacke_sbbcsd.c index 4b3e8ed3..90ed51ae 100644 --- a/lapacke/src/lapacke_sbbcsd.c +++ b/lapacke/src/lapacke_sbbcsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sbbcsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_sbbcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, float* theta, float* phi, float* u1, lapack_int ldu1, float* u2, @@ -47,7 +47,7 @@ lapack_int LAPACKE_sbbcsd( int matrix_order, char jobu1, char jobu2, float* work = NULL; float work_query; lapack_int nrows_u1, nrows_u2, nrows_v1t, nrows_v2t; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sbbcsd", -1 ); return -1; } @@ -64,28 +64,28 @@ lapack_int LAPACKE_sbbcsd( int matrix_order, char jobu1, char jobu2, return -10; } if( LAPACKE_lsame( jobu1, 'y' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, nrows_u1, p, u1, ldu1 ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, nrows_u1, p, u1, ldu1 ) ) { return -12; } } if( LAPACKE_lsame( jobu2, 'y' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, nrows_u2, m-p, u2, ldu2 ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, nrows_u2, m-p, u2, ldu2 ) ) { return -14; } } if( LAPACKE_lsame( jobv1t, 'y' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, nrows_v1t, q, v1t, ldv1t ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, nrows_v1t, q, v1t, ldv1t ) ) { return -16; } } if( LAPACKE_lsame( jobv2t, 'y' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, nrows_v2t, m-q, v2t, ldv2t ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, nrows_v2t, m-q, v2t, ldv2t ) ) { return -18; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sbbcsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_sbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e, &work_query, lwork ); @@ -100,7 +100,7 @@ lapack_int LAPACKE_sbbcsd( int matrix_order, char jobu1, char jobu2, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sbbcsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_sbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e, work, lwork ); diff --git a/lapacke/src/lapacke_sbbcsd_work.c b/lapacke/src/lapacke_sbbcsd_work.c index 7cfd06fe..a7d0eeab 100644 --- a/lapacke/src/lapacke_sbbcsd_work.c +++ b/lapacke/src/lapacke_sbbcsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sbbcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_sbbcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, float* theta, float* phi, float* u1, @@ -45,7 +45,7 @@ lapack_int LAPACKE_sbbcsd_work( int matrix_order, char jobu1, char jobu2, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sbbcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &m, &p, &q, theta, phi, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, v2t, @@ -54,7 +54,7 @@ lapack_int LAPACKE_sbbcsd_work( int matrix_order, char jobu1, char jobu2, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_u1 = ( LAPACKE_lsame( jobu1, 'y' ) ? p : 1); lapack_int nrows_u2 = ( LAPACKE_lsame( jobu2, 'y' ) ? m-p : 1); lapack_int nrows_v1t = ( LAPACKE_lsame( jobv1t, 'y' ) ? q : 1); @@ -130,19 +130,19 @@ lapack_int LAPACKE_sbbcsd_work( int matrix_order, char jobu1, char jobu2, } /* Transpose input matrices */ if( LAPACKE_lsame( jobu1, 'y' ) ) { - LAPACKE_sge_trans( matrix_order, nrows_u1, p, u1, ldu1, u1_t, + LAPACKE_sge_trans( matrix_layout, nrows_u1, p, u1, ldu1, u1_t, ldu1_t ); } if( LAPACKE_lsame( jobu2, 'y' ) ) { - LAPACKE_sge_trans( matrix_order, nrows_u2, m-p, u2, ldu2, u2_t, + LAPACKE_sge_trans( matrix_layout, nrows_u2, m-p, u2, ldu2, u2_t, ldu2_t ); } if( LAPACKE_lsame( jobv1t, 'y' ) ) { - LAPACKE_sge_trans( matrix_order, nrows_v1t, q, v1t, ldv1t, v1t_t, + LAPACKE_sge_trans( matrix_layout, nrows_v1t, q, v1t, ldv1t, v1t_t, ldv1t_t ); } if( LAPACKE_lsame( jobv2t, 'y' ) ) { - LAPACKE_sge_trans( matrix_order, nrows_v2t, m-q, v2t, ldv2t, v2t_t, + LAPACKE_sge_trans( matrix_layout, nrows_v2t, m-q, v2t, ldv2t, v2t_t, ldv2t_t ); } /* Call LAPACK function and adjust info */ diff --git a/lapacke/src/lapacke_sbdsdc.c b/lapacke/src/lapacke_sbdsdc.c index 98071cfe..e2345c4a 100644 --- a/lapacke/src/lapacke_sbdsdc.c +++ b/lapacke/src/lapacke_sbdsdc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sbdsdc( int matrix_order, char uplo, char compq, +lapack_int LAPACKE_sbdsdc( int matrix_layout, char uplo, char compq, lapack_int n, float* d, float* e, float* u, lapack_int ldu, float* vt, lapack_int ldvt, float* q, lapack_int* iq ) @@ -43,7 +43,7 @@ lapack_int LAPACKE_sbdsdc( int matrix_order, char uplo, char compq, size_t lwork; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sbdsdc", -1 ); return -1; } @@ -78,7 +78,7 @@ lapack_int LAPACKE_sbdsdc( int matrix_order, char uplo, char compq, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sbdsdc_work( matrix_order, uplo, compq, n, d, e, u, ldu, vt, + info = LAPACKE_sbdsdc_work( matrix_layout, uplo, compq, n, d, e, u, ldu, vt, ldvt, q, iq, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sbdsdc_work.c b/lapacke/src/lapacke_sbdsdc_work.c index b95a5c33..2a27f8a7 100644 --- a/lapacke/src/lapacke_sbdsdc_work.c +++ b/lapacke/src/lapacke_sbdsdc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sbdsdc_work( int matrix_order, char uplo, char compq, +lapack_int LAPACKE_sbdsdc_work( int matrix_layout, char uplo, char compq, lapack_int n, float* d, float* e, float* u, lapack_int ldu, float* vt, lapack_int ldvt, float* q, lapack_int* iq, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sbdsdc( &uplo, &compq, &n, d, e, u, &ldu, vt, &ldvt, q, iq, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldu_t = MAX(1,n); lapack_int ldvt_t = MAX(1,n); float* u_t = NULL; diff --git a/lapacke/src/lapacke_sbdsqr.c b/lapacke/src/lapacke_sbdsqr.c index 090789cf..70080519 100644 --- a/lapacke/src/lapacke_sbdsqr.c +++ b/lapacke/src/lapacke_sbdsqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sbdsqr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, float* d, float* e, float* vt, lapack_int ldvt, float* u, lapack_int ldu, float* c, lapack_int ldc ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sbdsqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( ncc != 0 ) { - if( LAPACKE_sge_nancheck( matrix_order, n, ncc, c, ldc ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, ncc, c, ldc ) ) { return -13; } } @@ -58,12 +58,12 @@ lapack_int LAPACKE_sbdsqr( int matrix_order, char uplo, lapack_int n, return -8; } if( nru != 0 ) { - if( LAPACKE_sge_nancheck( matrix_order, nru, n, u, ldu ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, nru, n, u, ldu ) ) { return -11; } } if( ncvt != 0 ) { - if( LAPACKE_sge_nancheck( matrix_order, n, ncvt, vt, ldvt ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, ncvt, vt, ldvt ) ) { return -9; } } @@ -75,7 +75,7 @@ lapack_int LAPACKE_sbdsqr( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sbdsqr_work( matrix_order, uplo, n, ncvt, nru, ncc, d, e, vt, + info = LAPACKE_sbdsqr_work( matrix_layout, uplo, n, ncvt, nru, ncc, d, e, vt, ldvt, u, ldu, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sbdsqr_work.c b/lapacke/src/lapacke_sbdsqr_work.c index 83e5ec2f..117c36d5 100644 --- a/lapacke/src/lapacke_sbdsqr_work.c +++ b/lapacke/src/lapacke_sbdsqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sbdsqr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sbdsqr_work( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, float* d, float* e, float* vt, lapack_int ldvt, float* u, lapack_int ldu, float* c, lapack_int ldc, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sbdsqr( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt, &ldvt, u, &ldu, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,n); lapack_int ldu_t = MAX(1,nru); lapack_int ldvt_t = MAX(1,n); @@ -95,13 +95,13 @@ lapack_int LAPACKE_sbdsqr_work( int matrix_order, char uplo, lapack_int n, } /* Transpose input matrices */ if( ncvt != 0 ) { - LAPACKE_sge_trans( matrix_order, n, ncvt, vt, ldvt, vt_t, ldvt_t ); + LAPACKE_sge_trans( matrix_layout, n, ncvt, vt, ldvt, vt_t, ldvt_t ); } if( nru != 0 ) { - LAPACKE_sge_trans( matrix_order, nru, n, u, ldu, u_t, ldu_t ); + LAPACKE_sge_trans( matrix_layout, nru, n, u, ldu, u_t, ldu_t ); } if( ncc != 0 ) { - LAPACKE_sge_trans( matrix_order, n, ncc, c, ldc, c_t, ldc_t ); + LAPACKE_sge_trans( matrix_layout, n, ncc, c, ldc, c_t, ldc_t ); } /* Call LAPACK function and adjust info */ LAPACK_sbdsqr( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt_t, &ldvt_t, u_t, diff --git a/lapacke/src/lapacke_sgbbrd.c b/lapacke/src/lapacke_sgbbrd.c index 071f4df2..f19fde56 100644 --- a/lapacke/src/lapacke_sgbbrd.c +++ b/lapacke/src/lapacke_sgbbrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbbrd( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_sgbbrd( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, float* ab, lapack_int ldab, float* d, float* e, float* q, lapack_int ldq, float* pt, @@ -41,17 +41,17 @@ lapack_int LAPACKE_sgbbrd( int matrix_order, char vect, lapack_int m, { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbbrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -8; } if( ncc != 0 ) { - if( LAPACKE_sge_nancheck( matrix_order, m, ncc, c, ldc ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, ncc, c, ldc ) ) { return -16; } } @@ -63,7 +63,7 @@ lapack_int LAPACKE_sgbbrd( int matrix_order, char vect, lapack_int m, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgbbrd_work( matrix_order, vect, m, n, ncc, kl, ku, ab, ldab, + info = LAPACKE_sgbbrd_work( matrix_layout, vect, m, n, ncc, kl, ku, ab, ldab, d, e, q, ldq, pt, ldpt, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgbbrd_work.c b/lapacke/src/lapacke_sgbbrd_work.c index 04a6f5bc..8d3be321 100644 --- a/lapacke/src/lapacke_sgbbrd_work.c +++ b/lapacke/src/lapacke_sgbbrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbbrd_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_sgbbrd_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, float* ab, lapack_int ldab, float* d, float* e, float* q, lapack_int ldq, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sgbbrd_work( int matrix_order, char vect, lapack_int m, lapack_int ldc, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbbrd( &vect, &m, &n, &ncc, &kl, &ku, ab, &ldab, d, e, q, &ldq, pt, &ldpt, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldc_t = MAX(1,m); lapack_int ldpt_t = MAX(1,n); @@ -106,9 +106,9 @@ lapack_int LAPACKE_sgbbrd_work( int matrix_order, char vect, lapack_int m, } } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_sgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( ncc != 0 ) { - LAPACKE_sge_trans( matrix_order, m, ncc, c, ldc, c_t, ldc_t ); + LAPACKE_sge_trans( matrix_layout, m, ncc, c, ldc, c_t, ldc_t ); } /* Call LAPACK function and adjust info */ LAPACK_sgbbrd( &vect, &m, &n, &ncc, &kl, &ku, ab_t, &ldab_t, d, e, q_t, diff --git a/lapacke/src/lapacke_sgbcon.c b/lapacke/src/lapacke_sgbcon.c index c401d539..a920e8e1 100644 --- a/lapacke/src/lapacke_sgbcon.c +++ b/lapacke/src/lapacke_sgbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbcon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_sgbcon( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, const lapack_int* ipiv, float anorm, float* rcond ) @@ -41,13 +41,13 @@ lapack_int LAPACKE_sgbcon( int matrix_order, char norm, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -6; } if( LAPACKE_s_nancheck( 1, &anorm, 1 ) ) { @@ -66,7 +66,7 @@ lapack_int LAPACKE_sgbcon( int matrix_order, char norm, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgbcon_work( matrix_order, norm, n, kl, ku, ab, ldab, ipiv, + info = LAPACKE_sgbcon_work( matrix_layout, norm, n, kl, ku, ab, ldab, ipiv, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgbcon_work.c b/lapacke/src/lapacke_sgbcon_work.c index f73fc857..ba272e8e 100644 --- a/lapacke/src/lapacke_sgbcon_work.c +++ b/lapacke/src/lapacke_sgbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbcon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_sgbcon_work( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, const lapack_int* ipiv, float anorm, float* rcond, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbcon( &norm, &n, &kl, &ku, ab, &ldab, ipiv, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); float* ab_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_sgbcon_work( int matrix_order, char norm, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_sgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbcon( &norm, &n, &kl, &ku, ab_t, &ldab_t, ipiv, &anorm, rcond, diff --git a/lapacke/src/lapacke_sgbequ.c b/lapacke/src/lapacke_sgbequ.c index 44d0e9a5..9feb23e9 100644 --- a/lapacke/src/lapacke_sgbequ.c +++ b/lapacke/src/lapacke_sgbequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbequ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_sgbequ_work( matrix_order, m, n, kl, ku, ab, ldab, r, c, + return LAPACKE_sgbequ_work( matrix_layout, m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_sgbequ_work.c b/lapacke/src/lapacke_sgbequ_work.c index 4597118b..7fecd94a 100644 --- a/lapacke/src/lapacke_sgbequ_work.c +++ b/lapacke/src/lapacke_sgbequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbequ_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbequ( &m, &n, &kl, &ku, ab, &ldab, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); float* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_sgbequ_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_sgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbequ( &m, &n, &kl, &ku, ab_t, &ldab_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_sgbequb.c b/lapacke/src/lapacke_sgbequb.c index 394c2a8a..4afda074 100644 --- a/lapacke/src/lapacke_sgbequb.c +++ b/lapacke/src/lapacke_sgbequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbequb( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_sgbequb_work( matrix_order, m, n, kl, ku, ab, ldab, r, c, + return LAPACKE_sgbequb_work( matrix_layout, m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_sgbequb_work.c b/lapacke/src/lapacke_sgbequb_work.c index acdd1aa2..04e4a8ab 100644 --- a/lapacke/src/lapacke_sgbequb_work.c +++ b/lapacke/src/lapacke_sgbequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbequb_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float* ab, lapack_int ldab, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbequb( &m, &n, &kl, &ku, ab, &ldab, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); float* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_sgbequb_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_sgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbequb( &m, &n, &kl, &ku, ab_t, &ldab_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_sgbrfs.c b/lapacke/src/lapacke_sgbrfs.c index 726837ad..d463cf7c 100644 --- a/lapacke/src/lapacke_sgbrfs.c +++ b/lapacke/src/lapacke_sgbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgbrfs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, lapack_int ldafb, const lapack_int* ipiv, @@ -43,22 +43,22 @@ lapack_int LAPACKE_sgbrfs( int matrix_order, char trans, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -7; } - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, ldafb ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -9; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_sgbrfs( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgbrfs_work( matrix_order, trans, n, kl, ku, nrhs, ab, ldab, + info = LAPACKE_sgbrfs_work( matrix_layout, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sgbrfs_work.c b/lapacke/src/lapacke_sgbrfs_work.c index ed9fad8e..1942e4dc 100644 --- a/lapacke/src/lapacke_sgbrfs_work.c +++ b/lapacke/src/lapacke_sgbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgbrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, lapack_int ldafb, @@ -43,14 +43,14 @@ lapack_int LAPACKE_sgbrfs_work( int matrix_order, char trans, lapack_int n, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbrfs( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -102,11 +102,11 @@ lapack_int LAPACKE_sgbrfs_work( int matrix_order, char trans, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_sgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_sgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_sgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbrfs( &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, diff --git a/lapacke/src/lapacke_sgbrfsx.c b/lapacke/src/lapacke_sgbrfsx.c index 35929e71..b3e8d765 100644 --- a/lapacke/src/lapacke_sgbrfsx.c +++ b/lapacke/src/lapacke_sgbrfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbrfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_sgbrfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, lapack_int ldafb, @@ -47,19 +47,19 @@ lapack_int LAPACKE_sgbrfsx( int matrix_order, char trans, char equed, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbrfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, ldafb ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -15; } if( LAPACKE_lsame( equed, 'b' ) || LAPACKE_lsame( equed, 'c' ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_sgbrfsx( int matrix_order, char trans, char equed, return -13; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -17; } #endif @@ -93,7 +93,7 @@ lapack_int LAPACKE_sgbrfsx( int matrix_order, char trans, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgbrfsx_work( matrix_order, trans, equed, n, kl, ku, nrhs, + info = LAPACKE_sgbrfsx_work( matrix_layout, trans, equed, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, r, c, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_sgbrfsx_work.c b/lapacke/src/lapacke_sgbrfsx_work.c index b275e328..b41e8bae 100644 --- a/lapacke/src/lapacke_sgbrfsx_work.c +++ b/lapacke/src/lapacke_sgbrfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbrfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_sgbrfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const float* afb, @@ -46,7 +46,7 @@ lapack_int LAPACKE_sgbrfsx_work( int matrix_order, char trans, char equed, float* params, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbrfsx( &trans, &equed, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, r, c, b, &ldb, x, &ldx, rcond, berr, @@ -55,7 +55,7 @@ lapack_int LAPACKE_sgbrfsx_work( int matrix_order, char trans, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -121,11 +121,11 @@ lapack_int LAPACKE_sgbrfsx_work( int matrix_order, char trans, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_sgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_sgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_sgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbrfsx( &trans, &equed, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, r, c, b_t, &ldb_t, x_t, &ldx_t, diff --git a/lapacke/src/lapacke_sgbsv.c b/lapacke/src/lapacke_sgbsv.c index 8342465c..e089aecf 100644 --- a/lapacke/src/lapacke_sgbsv.c +++ b/lapacke/src/lapacke_sgbsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbsv( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_sgbsv( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, lapack_int* ipiv, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif - return LAPACKE_sgbsv_work( matrix_order, n, kl, ku, nrhs, ab, ldab, ipiv, b, + return LAPACKE_sgbsv_work( matrix_layout, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_sgbsv_work.c b/lapacke/src/lapacke_sgbsv_work.c index 72c4fbae..16d0614f 100644 --- a/lapacke/src/lapacke_sgbsv_work.c +++ b/lapacke/src/lapacke_sgbsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_sgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, lapack_int* ipiv, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbsv( &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); float* ab_t = NULL; @@ -73,9 +73,9 @@ lapack_int LAPACKE_sgbsv_work( int matrix_order, lapack_int n, lapack_int kl, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_sgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbsv( &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_sgbsvx.c b/lapacke/src/lapacke_sgbsvx.c index 7bdef0bd..162d5cc3 100644 --- a/lapacke/src/lapacke_sgbsvx.c +++ b/lapacke/src/lapacke_sgbsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgbsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, lapack_int* ipiv, @@ -45,22 +45,22 @@ lapack_int LAPACKE_sgbsvx( int matrix_order, char fact, char trans, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -16; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -88,7 +88,7 @@ lapack_int LAPACKE_sgbsvx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgbsvx_work( matrix_order, fact, trans, n, kl, ku, nrhs, ab, + info = LAPACKE_sgbsvx_work( matrix_layout, fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Backup significant data from working array(s) */ diff --git a/lapacke/src/lapacke_sgbsvx_work.c b/lapacke/src/lapacke_sgbsvx_work.c index 7757a793..ef753b55 100644 --- a/lapacke/src/lapacke_sgbsvx_work.c +++ b/lapacke/src/lapacke_sgbsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgbsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, lapack_int* ipiv, @@ -43,7 +43,7 @@ lapack_int LAPACKE_sgbsvx_work( int matrix_order, char fact, char trans, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbsvx( &fact, &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, equed, r, c, b, &ldb, x, &ldx, rcond, ferr, @@ -51,7 +51,7 @@ lapack_int LAPACKE_sgbsvx_work( int matrix_order, char fact, char trans, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -103,12 +103,12 @@ lapack_int LAPACKE_sgbsvx_work( int matrix_order, char fact, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_sgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_sgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_sgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbsvx( &fact, &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, equed, r, c, b_t, &ldb_t, x_t, &ldx_t, diff --git a/lapacke/src/lapacke_sgbsvxx.c b/lapacke/src/lapacke_sgbsvxx.c index 0e59551b..6958422c 100644 --- a/lapacke/src/lapacke_sgbsvxx.c +++ b/lapacke/src/lapacke_sgbsvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbsvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgbsvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, lapack_int* ipiv, @@ -47,22 +47,22 @@ lapack_int LAPACKE_sgbsvxx( int matrix_order, char fact, char trans, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbsvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -16; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -95,7 +95,7 @@ lapack_int LAPACKE_sgbsvxx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgbsvxx_work( matrix_order, fact, trans, n, kl, ku, nrhs, ab, + info = LAPACKE_sgbsvxx_work( matrix_layout, fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, diff --git a/lapacke/src/lapacke_sgbsvxx_work.c b/lapacke/src/lapacke_sgbsvxx_work.c index 363b8185..99d593f3 100644 --- a/lapacke/src/lapacke_sgbsvxx_work.c +++ b/lapacke/src/lapacke_sgbsvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_sgbsvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, float* ab, lapack_int ldab, float* afb, lapack_int ldafb, lapack_int* ipiv, @@ -45,7 +45,7 @@ lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans, float* params, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbsvxx( &fact, &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, equed, r, c, b, &ldb, x, &ldx, rcond, @@ -54,7 +54,7 @@ lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -120,12 +120,12 @@ lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_sgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_sgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_sgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbsvxx( &fact, &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, equed, r, c, b_t, &ldb_t, x_t, @@ -151,9 +151,9 @@ lapack_int LAPACKE_sgbsvxx_work( int matrix_order, char fact, char trans, } LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_sgbtrf.c b/lapacke/src/lapacke_sgbtrf.c index 80a27e31..d8f22b67 100644 --- a/lapacke/src/lapacke_sgbtrf.c +++ b/lapacke/src/lapacke_sgbtrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbtrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbtrf( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, float* ab, lapack_int ldab, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbtrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, m, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, m, n, kl, kl+ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_sgbtrf_work( matrix_order, m, n, kl, ku, ab, ldab, ipiv ); + return LAPACKE_sgbtrf_work( matrix_layout, m, n, kl, ku, ab, ldab, ipiv ); } diff --git a/lapacke/src/lapacke_sgbtrf_work.c b/lapacke/src/lapacke_sgbtrf_work.c index 34ca7d67..9f3fada1 100644 --- a/lapacke/src/lapacke_sgbtrf_work.c +++ b/lapacke/src/lapacke_sgbtrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbtrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, float* ab, lapack_int ldab, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbtrf( &m, &n, &kl, &ku, ab, &ldab, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); float* ab_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_sgbtrf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, m, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_sgb_trans( matrix_layout, m, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbtrf( &m, &n, &kl, &ku, ab_t, &ldab_t, ipiv, &info ); diff --git a/lapacke/src/lapacke_sgbtrs.c b/lapacke/src/lapacke_sgbtrs.c index 28d51c9b..68e6b046 100644 --- a/lapacke/src/lapacke_sgbtrs.c +++ b/lapacke/src/lapacke_sgbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbtrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgbtrs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const lapack_int* ipiv, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_sgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } #endif - return LAPACKE_sgbtrs_work( matrix_order, trans, n, kl, ku, nrhs, ab, ldab, + return LAPACKE_sgbtrs_work( matrix_layout, trans, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_sgbtrs_work.c b/lapacke/src/lapacke_sgbtrs_work.c index 220600fc..85a80269 100644 --- a/lapacke/src/lapacke_sgbtrs_work.c +++ b/lapacke/src/lapacke_sgbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgbtrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgbtrs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const float* ab, lapack_int ldab, const lapack_int* ipiv, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgbtrs( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); float* ab_t = NULL; @@ -75,9 +75,9 @@ lapack_int LAPACKE_sgbtrs_work( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_sgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sgbtrs( &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_sgebak.c b/lapacke/src/lapacke_sgebak.c index 8bdbb189..ecc1823a 100644 --- a/lapacke/src/lapacke_sgebak.c +++ b/lapacke/src/lapacke_sgebak.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgebak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_sgebak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* scale, lapack_int m, float* v, lapack_int ldv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgebak", -1 ); return -1; } @@ -46,10 +46,10 @@ lapack_int LAPACKE_sgebak( int matrix_order, char job, char side, lapack_int n, if( LAPACKE_s_nancheck( n, scale, 1 ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, m, v, ldv ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, m, v, ldv ) ) { return -9; } #endif - return LAPACKE_sgebak_work( matrix_order, job, side, n, ilo, ihi, scale, m, + return LAPACKE_sgebak_work( matrix_layout, job, side, n, ilo, ihi, scale, m, v, ldv ); } diff --git a/lapacke/src/lapacke_sgebak_work.c b/lapacke/src/lapacke_sgebak_work.c index 89f35613..6cac0f3d 100644 --- a/lapacke/src/lapacke_sgebak_work.c +++ b/lapacke/src/lapacke_sgebak_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgebak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_sgebak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const float* scale, lapack_int m, float* v, lapack_int ldv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgebak( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldv_t = MAX(1,n); float* v_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_sgebak_work( int matrix_order, char job, char side, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, m, v, ldv, v_t, ldv_t ); + LAPACKE_sge_trans( matrix_layout, n, m, v, ldv, v_t, ldv_t ); /* Call LAPACK function and adjust info */ LAPACK_sgebak( &job, &side, &n, &ilo, &ihi, scale, &m, v_t, &ldv_t, &info ); diff --git a/lapacke/src/lapacke_sgebal.c b/lapacke/src/lapacke_sgebal.c index 7e415fba..e6328d97 100644 --- a/lapacke/src/lapacke_sgebal.c +++ b/lapacke/src/lapacke_sgebal.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgebal( int matrix_order, char job, lapack_int n, float* a, +lapack_int LAPACKE_sgebal( int matrix_layout, char job, lapack_int n, float* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, float* scale ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgebal", -1 ); return -1; } @@ -45,10 +45,10 @@ lapack_int LAPACKE_sgebal( int matrix_order, char job, lapack_int n, float* a, /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'p' ) || LAPACKE_lsame( job, 's' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } } #endif - return LAPACKE_sgebal_work( matrix_order, job, n, a, lda, ilo, ihi, scale ); + return LAPACKE_sgebal_work( matrix_layout, job, n, a, lda, ilo, ihi, scale ); } diff --git a/lapacke/src/lapacke_sgebal_work.c b/lapacke/src/lapacke_sgebal_work.c index 62896371..22747f23 100644 --- a/lapacke/src/lapacke_sgebal_work.c +++ b/lapacke/src/lapacke_sgebal_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgebal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_sgebal_work( int matrix_layout, char job, lapack_int n, float* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, float* scale ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgebal( &job, &n, a, &lda, ilo, ihi, scale, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgebal_work( int matrix_order, char job, lapack_int n, /* Transpose input matrices */ if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'p' ) || LAPACKE_lsame( job, 's' ) ) { - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); } /* Call LAPACK function and adjust info */ LAPACK_sgebal( &job, &n, a_t, &lda_t, ilo, ihi, scale, &info ); diff --git a/lapacke/src/lapacke_sgebrd.c b/lapacke/src/lapacke_sgebrd.c index 05a7d06b..ddd068bf 100644 --- a/lapacke/src/lapacke_sgebrd.c +++ b/lapacke/src/lapacke_sgebrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgebrd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgebrd( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* d, float* e, float* tauq, float* taup ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_sgebrd( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgebrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgebrd_work( matrix_order, m, n, a, lda, d, e, tauq, taup, + info = LAPACKE_sgebrd_work( matrix_layout, m, n, a, lda, d, e, tauq, taup, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgebrd( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgebrd_work( matrix_order, m, n, a, lda, d, e, tauq, taup, + info = LAPACKE_sgebrd_work( matrix_layout, m, n, a, lda, d, e, tauq, taup, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgebrd_work.c b/lapacke/src/lapacke_sgebrd_work.c index 085b94f0..213b850a 100644 --- a/lapacke/src/lapacke_sgebrd_work.c +++ b/lapacke/src/lapacke_sgebrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgebrd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgebrd_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* d, float* e, float* tauq, float* taup, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgebrd( &m, &n, a, &lda, d, e, tauq, taup, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_sgebrd_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgebrd( &m, &n, a_t, &lda_t, d, e, tauq, taup, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_sgecon.c b/lapacke/src/lapacke_sgecon.c index aeec1d8f..d48eb52f 100644 --- a/lapacke/src/lapacke_sgecon.c +++ b/lapacke/src/lapacke_sgecon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgecon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_sgecon( int matrix_layout, char norm, lapack_int n, const float* a, lapack_int lda, float anorm, float* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgecon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } if( LAPACKE_s_nancheck( 1, &anorm, 1 ) ) { @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgecon( int matrix_order, char norm, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgecon_work( matrix_order, norm, n, a, lda, anorm, rcond, + info = LAPACKE_sgecon_work( matrix_layout, norm, n, a, lda, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgecon_work.c b/lapacke/src/lapacke_sgecon_work.c index c23a0434..97901c2a 100644 --- a/lapacke/src/lapacke_sgecon_work.c +++ b/lapacke/src/lapacke_sgecon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgecon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_sgecon_work( int matrix_layout, char norm, lapack_int n, const float* a, lapack_int lda, float anorm, float* rcond, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgecon( &norm, &n, a, &lda, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_sgecon_work( int matrix_order, char norm, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgecon( &norm, &n, a_t, &lda_t, &anorm, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_sgeequ.c b/lapacke/src/lapacke_sgeequ.c index 5868c1ed..6ba73048 100644 --- a/lapacke/src/lapacke_sgeequ.c +++ b/lapacke/src/lapacke_sgeequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeequ( int matrix_layout, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_sgeequ_work( matrix_order, m, n, a, lda, r, c, rowcnd, + return LAPACKE_sgeequ_work( matrix_layout, m, n, a, lda, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_sgeequ_work.c b/lapacke/src/lapacke_sgeequ_work.c index aaad0988..03bd573e 100644 --- a/lapacke/src/lapacke_sgeequ_work.c +++ b/lapacke/src/lapacke_sgeequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeequ_work( int matrix_layout, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeequ( &m, &n, a, &lda, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_sgeequ_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeequ( &m, &n, a_t, &lda_t, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeequb.c b/lapacke/src/lapacke_sgeequb.c index 4de35e9e..c181afea 100644 --- a/lapacke/src/lapacke_sgeequb.c +++ b/lapacke/src/lapacke_sgeequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeequb( int matrix_layout, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_sgeequb_work( matrix_order, m, n, a, lda, r, c, rowcnd, + return LAPACKE_sgeequb_work( matrix_layout, m, n, a, lda, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_sgeequb_work.c b/lapacke/src/lapacke_sgeequb_work.c index 20f22c46..0c523010 100644 --- a/lapacke/src/lapacke_sgeequb_work.c +++ b/lapacke/src/lapacke_sgeequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeequb_work( int matrix_layout, lapack_int m, lapack_int n, const float* a, lapack_int lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeequb( &m, &n, a, &lda, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_sgeequb_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeequb( &m, &n, a_t, &lda_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_sgees.c b/lapacke/src/lapacke_sgees.c index afcc05dd..18219656 100644 --- a/lapacke/src/lapacke_sgees.c +++ b/lapacke/src/lapacke_sgees.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgees( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_sgees( int matrix_layout, char jobvs, char sort, LAPACK_S_SELECT2 select, lapack_int n, float* a, lapack_int lda, lapack_int* sdim, float* wr, float* wi, float* vs, lapack_int ldvs ) @@ -43,13 +43,13 @@ lapack_int LAPACKE_sgees( int matrix_order, char jobvs, char sort, lapack_logical* bwork = NULL; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgees", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } #endif @@ -63,7 +63,7 @@ lapack_int LAPACKE_sgees( int matrix_order, char jobvs, char sort, } } /* Query optimal working array(s) size */ - info = LAPACKE_sgees_work( matrix_order, jobvs, sort, select, n, a, lda, + info = LAPACKE_sgees_work( matrix_layout, jobvs, sort, select, n, a, lda, sdim, wr, wi, vs, ldvs, &work_query, lwork, bwork ); if( info != 0 ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_sgees( int matrix_order, char jobvs, char sort, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgees_work( matrix_order, jobvs, sort, select, n, a, lda, + info = LAPACKE_sgees_work( matrix_layout, jobvs, sort, select, n, a, lda, sdim, wr, wi, vs, ldvs, work, lwork, bwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgees_work.c b/lapacke/src/lapacke_sgees_work.c index 7541e9be..6fcd0876 100644 --- a/lapacke/src/lapacke_sgees_work.c +++ b/lapacke/src/lapacke_sgees_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgees_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_sgees_work( int matrix_layout, char jobvs, char sort, LAPACK_S_SELECT2 select, lapack_int n, float* a, lapack_int lda, lapack_int* sdim, float* wr, float* wi, float* vs, lapack_int ldvs, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sgees_work( int matrix_order, char jobvs, char sort, lapack_logical* bwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgees( &jobvs, &sort, select, &n, a, &lda, sdim, wr, wi, vs, &ldvs, work, &lwork, bwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvs_t = MAX(1,n); float* a_t = NULL; @@ -84,7 +84,7 @@ lapack_int LAPACKE_sgees_work( int matrix_order, char jobvs, char sort, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgees( &jobvs, &sort, select, &n, a_t, &lda_t, sdim, wr, wi, vs_t, &ldvs_t, work, &lwork, bwork, &info ); diff --git a/lapacke/src/lapacke_sgeesx.c b/lapacke/src/lapacke_sgeesx.c index 2a537722..34bfd814 100644 --- a/lapacke/src/lapacke_sgeesx.c +++ b/lapacke/src/lapacke_sgeesx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeesx( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_sgeesx( int matrix_layout, char jobvs, char sort, LAPACK_S_SELECT2 select, char sense, lapack_int n, float* a, lapack_int lda, lapack_int* sdim, float* wr, float* wi, float* vs, lapack_int ldvs, @@ -47,13 +47,13 @@ lapack_int LAPACKE_sgeesx( int matrix_order, char jobvs, char sort, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeesx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } #endif @@ -67,7 +67,7 @@ lapack_int LAPACKE_sgeesx( int matrix_order, char jobvs, char sort, } } /* Query optimal working array(s) size */ - info = LAPACKE_sgeesx_work( matrix_order, jobvs, sort, select, sense, n, a, + info = LAPACKE_sgeesx_work( matrix_layout, jobvs, sort, select, sense, n, a, lda, sdim, wr, wi, vs, ldvs, rconde, rcondv, &work_query, lwork, &iwork_query, liwork, bwork ); @@ -90,7 +90,7 @@ lapack_int LAPACKE_sgeesx( int matrix_order, char jobvs, char sort, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_sgeesx_work( matrix_order, jobvs, sort, select, sense, n, a, + info = LAPACKE_sgeesx_work( matrix_layout, jobvs, sort, select, sense, n, a, lda, sdim, wr, wi, vs, ldvs, rconde, rcondv, work, lwork, iwork, liwork, bwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sgeesx_work.c b/lapacke/src/lapacke_sgeesx_work.c index bbba80a0..35b279e4 100644 --- a/lapacke/src/lapacke_sgeesx_work.c +++ b/lapacke/src/lapacke_sgeesx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeesx_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_sgeesx_work( int matrix_layout, char jobvs, char sort, LAPACK_S_SELECT2 select, char sense, lapack_int n, float* a, lapack_int lda, lapack_int* sdim, float* wr, float* wi, @@ -43,7 +43,7 @@ lapack_int LAPACKE_sgeesx_work( int matrix_order, char jobvs, char sort, lapack_logical* bwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeesx( &jobvs, &sort, select, &sense, &n, a, &lda, sdim, wr, wi, vs, &ldvs, rconde, rcondv, work, &lwork, iwork, &liwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_sgeesx_work( int matrix_order, char jobvs, char sort, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvs_t = MAX(1,n); float* a_t = NULL; @@ -88,7 +88,7 @@ lapack_int LAPACKE_sgeesx_work( int matrix_order, char jobvs, char sort, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeesx( &jobvs, &sort, select, &sense, &n, a_t, &lda_t, sdim, wr, wi, vs_t, &ldvs_t, rconde, rcondv, work, &lwork, iwork, diff --git a/lapacke/src/lapacke_sgeev.c b/lapacke/src/lapacke_sgeev.c index 9f17d73a..d7641db5 100644 --- a/lapacke/src/lapacke_sgeev.c +++ b/lapacke/src/lapacke_sgeev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_sgeev( int matrix_layout, char jobvl, char jobvr, lapack_int n, float* a, lapack_int lda, float* wr, float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr ) @@ -42,18 +42,18 @@ lapack_int LAPACKE_sgeev( int matrix_order, char jobvl, char jobvr, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeev", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgeev_work( matrix_order, jobvl, jobvr, n, a, lda, wr, wi, + info = LAPACKE_sgeev_work( matrix_layout, jobvl, jobvr, n, a, lda, wr, wi, vl, ldvl, vr, ldvr, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_sgeev( int matrix_order, char jobvl, char jobvr, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgeev_work( matrix_order, jobvl, jobvr, n, a, lda, wr, wi, + info = LAPACKE_sgeev_work( matrix_layout, jobvl, jobvr, n, a, lda, wr, wi, vl, ldvl, vr, ldvr, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgeev_work.c b/lapacke/src/lapacke_sgeev_work.c index e2017031..439a94c8 100644 --- a/lapacke/src/lapacke_sgeev_work.c +++ b/lapacke/src/lapacke_sgeev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_sgeev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, float* a, lapack_int lda, float* wr, float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeev( &jobvl, &jobvr, &n, a, &lda, wr, wi, vl, &ldvl, vr, &ldvr, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -97,7 +97,7 @@ lapack_int LAPACKE_sgeev_work( int matrix_order, char jobvl, char jobvr, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeev( &jobvl, &jobvr, &n, a_t, &lda_t, wr, wi, vl_t, &ldvl_t, vr_t, &ldvr_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_sgeevx.c b/lapacke/src/lapacke_sgeevx.c index 77c18a10..33cccf0a 100644 --- a/lapacke/src/lapacke_sgeevx.c +++ b/lapacke/src/lapacke_sgeevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_sgeevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, float* a, lapack_int lda, float* wr, float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, @@ -45,13 +45,13 @@ lapack_int LAPACKE_sgeevx( int matrix_order, char balanc, char jobvl, lapack_int* iwork = NULL; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeevx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } #endif @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgeevx( int matrix_order, char balanc, char jobvl, } } /* Query optimal working array(s) size */ - info = LAPACKE_sgeevx_work( matrix_order, balanc, jobvl, jobvr, sense, n, a, + info = LAPACKE_sgeevx_work( matrix_layout, balanc, jobvl, jobvr, sense, n, a, lda, wr, wi, vl, ldvl, vr, ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, &work_query, lwork, iwork ); @@ -80,7 +80,7 @@ lapack_int LAPACKE_sgeevx( int matrix_order, char balanc, char jobvl, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgeevx_work( matrix_order, balanc, jobvl, jobvr, sense, n, a, + info = LAPACKE_sgeevx_work( matrix_layout, balanc, jobvl, jobvr, sense, n, a, lda, wr, wi, vl, ldvl, vr, ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, work, lwork, iwork ); diff --git a/lapacke/src/lapacke_sgeevx_work.c b/lapacke/src/lapacke_sgeevx_work.c index 115221b6..a95782c6 100644 --- a/lapacke/src/lapacke_sgeevx_work.c +++ b/lapacke/src/lapacke_sgeevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_sgeevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, float* a, lapack_int lda, float* wr, float* wi, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, @@ -43,7 +43,7 @@ lapack_int LAPACKE_sgeevx_work( int matrix_order, char balanc, char jobvl, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, wr, wi, vl, &ldvl, vr, &ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, @@ -51,7 +51,7 @@ lapack_int LAPACKE_sgeevx_work( int matrix_order, char balanc, char jobvl, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -102,7 +102,7 @@ lapack_int LAPACKE_sgeevx_work( int matrix_order, char balanc, char jobvl, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeevx( &balanc, &jobvl, &jobvr, &sense, &n, a_t, &lda_t, wr, wi, vl_t, &ldvl_t, vr_t, &ldvr_t, ilo, ihi, scale, abnrm, diff --git a/lapacke/src/lapacke_sgehrd.c b/lapacke/src/lapacke_sgehrd.c index 56b6ef77..24226af2 100644 --- a/lapacke/src/lapacke_sgehrd.c +++ b/lapacke/src/lapacke_sgehrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgehrd( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_sgehrd( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, float* a, lapack_int lda, float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_sgehrd( int matrix_order, lapack_int n, lapack_int ilo, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgehrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgehrd_work( matrix_order, n, ilo, ihi, a, lda, tau, + info = LAPACKE_sgehrd_work( matrix_layout, n, ilo, ihi, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgehrd( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgehrd_work( matrix_order, n, ilo, ihi, a, lda, tau, work, + info = LAPACKE_sgehrd_work( matrix_layout, n, ilo, ihi, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgehrd_work.c b/lapacke/src/lapacke_sgehrd_work.c index 8594f257..606ba69f 100644 --- a/lapacke/src/lapacke_sgehrd_work.c +++ b/lapacke/src/lapacke_sgehrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_sgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgehrd( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -66,7 +66,7 @@ lapack_int LAPACKE_sgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgehrd( &n, &ilo, &ihi, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgejsv.c b/lapacke/src/lapacke_sgejsv.c index 249023b9..9861ddb2 100644 --- a/lapacke/src/lapacke_sgejsv.c +++ b/lapacke/src/lapacke_sgejsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgejsv( int matrix_order, char joba, char jobu, char jobv, +lapack_int LAPACKE_sgejsv( int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, float* a, lapack_int lda, float* sva, float* u, lapack_int ldu, float* v, lapack_int ldv, @@ -75,7 +75,7 @@ lapack_int LAPACKE_sgejsv( int matrix_order, char joba, char jobu, char jobv, float* work = NULL; lapack_int i; lapack_int nu, nv; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgejsv", -1 ); return -1; } @@ -83,18 +83,18 @@ lapack_int LAPACKE_sgejsv( int matrix_order, char joba, char jobu, char jobv, /* Optionally check input matrices for NaNs */ nu = LAPACKE_lsame( jobu, 'n' ) ? 1 : m; nv = LAPACKE_lsame( jobv, 'n' ) ? 1 : n; - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -10; } if( LAPACKE_lsame( jobu, 'f' ) || LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'w' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, nu, n, u, ldu ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, nu, n, u, ldu ) ) { return -13; } } if( LAPACKE_lsame( jobv, 'j' ) || LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'w' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, nv, n, v, ldv ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, nv, n, v, ldv ) ) { return -15; } } @@ -111,7 +111,7 @@ lapack_int LAPACKE_sgejsv( int matrix_order, char joba, char jobu, char jobv, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgejsv_work( matrix_order, joba, jobu, jobv, jobr, jobt, + info = LAPACKE_sgejsv_work( matrix_layout, joba, jobu, jobv, jobr, jobt, jobp, m, n, a, lda, sva, u, ldu, v, ldv, work, lwork, iwork ); /* Backup significant data from working array(s) */ diff --git a/lapacke/src/lapacke_sgejsv_work.c b/lapacke/src/lapacke_sgejsv_work.c index f090d5e8..f1986cde 100644 --- a/lapacke/src/lapacke_sgejsv_work.c +++ b/lapacke/src/lapacke_sgejsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgejsv_work( int matrix_order, char joba, char jobu, +lapack_int LAPACKE_sgejsv_work( int matrix_layout, char joba, char jobu, char jobv, char jobr, char jobt, char jobp, lapack_int m, lapack_int n, float* a, lapack_int lda, float* sva, float* u, @@ -42,7 +42,7 @@ lapack_int LAPACKE_sgejsv_work( int matrix_order, char joba, char jobu, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgejsv( &joba, &jobu, &jobv, &jobr, &jobt, &jobp, &m, &n, a, &lda, sva, u, &ldu, v, &ldv, work, &lwork, iwork, @@ -50,7 +50,7 @@ lapack_int LAPACKE_sgejsv_work( int matrix_order, char joba, char jobu, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nu = LAPACKE_lsame( jobu, 'n' ) ? 1 : m; lapack_int nv = LAPACKE_lsame( jobv, 'n' ) ? 1 : n; lapack_int lda_t = MAX(1,m); @@ -98,14 +98,14 @@ lapack_int LAPACKE_sgejsv_work( int matrix_order, char joba, char jobu, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( jobu, 'f' ) || LAPACKE_lsame( jobu, 'u' ) || LAPACKE_lsame( jobu, 'w' ) ) { - LAPACKE_sge_trans( matrix_order, nu, n, u, ldu, u_t, ldu_t ); + LAPACKE_sge_trans( matrix_layout, nu, n, u, ldu, u_t, ldu_t ); } if( LAPACKE_lsame( jobv, 'j' ) || LAPACKE_lsame( jobv, 'v' ) || LAPACKE_lsame( jobv, 'w' ) ) { - LAPACKE_sge_trans( matrix_order, nv, n, v, ldv, v_t, ldv_t ); + LAPACKE_sge_trans( matrix_layout, nv, n, v, ldv, v_t, ldv_t ); } /* Call LAPACK function and adjust info */ LAPACK_sgejsv( &joba, &jobu, &jobv, &jobr, &jobt, &jobp, &m, &n, a_t, diff --git a/lapacke/src/lapacke_sgelq2.c b/lapacke/src/lapacke_sgelq2.c index 233c0859..1068b396 100644 --- a/lapacke/src/lapacke_sgelq2.c +++ b/lapacke/src/lapacke_sgelq2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelq2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelq2( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgelq2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -55,7 +55,7 @@ lapack_int LAPACKE_sgelq2( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgelq2_work( matrix_order, m, n, a, lda, tau, work ); + info = LAPACKE_sgelq2_work( matrix_layout, m, n, a, lda, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgelq2_work.c b/lapacke/src/lapacke_sgelq2_work.c index f4762fbf..8eeb757d 100644 --- a/lapacke/src/lapacke_sgelq2_work.c +++ b/lapacke/src/lapacke_sgelq2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelq2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelq2_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgelq2( &m, &n, a, &lda, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_sgelq2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgelq2( &m, &n, a_t, &lda_t, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgelqf.c b/lapacke/src/lapacke_sgelqf.c index 94abbbf0..a8913350 100644 --- a/lapacke/src/lapacke_sgelqf.c +++ b/lapacke/src/lapacke_sgelqf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelqf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgelqf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgelqf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_sgelqf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_sgelqf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgelqf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_sgelqf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgelqf_work.c b/lapacke/src/lapacke_sgelqf_work.c index 7aebc18c..2aea6749 100644 --- a/lapacke/src/lapacke_sgelqf_work.c +++ b/lapacke/src/lapacke_sgelqf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelqf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgelqf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgelqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgelqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgels.c b/lapacke/src/lapacke_sgels.c index 18809f9e..4b6c8cd3 100644 --- a/lapacke/src/lapacke_sgels.c +++ b/lapacke/src/lapacke_sgels.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgels( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_sgels( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb ) { @@ -41,21 +41,21 @@ lapack_int LAPACKE_sgels( int matrix_order, char trans, lapack_int m, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgels", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgels_work( matrix_order, trans, m, n, nrhs, a, lda, b, ldb, + info = LAPACKE_sgels_work( matrix_layout, trans, m, n, nrhs, a, lda, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,7 +68,7 @@ lapack_int LAPACKE_sgels( int matrix_order, char trans, lapack_int m, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgels_work( matrix_order, trans, m, n, nrhs, a, lda, b, ldb, + info = LAPACKE_sgels_work( matrix_layout, trans, m, n, nrhs, a, lda, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgels_work.c b/lapacke/src/lapacke_sgels_work.c index 8d2bfc4e..79bd6037 100644 --- a/lapacke/src/lapacke_sgels_work.c +++ b/lapacke/src/lapacke_sgels_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgels_work( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_sgels_work( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgels( &trans, &m, &n, &nrhs, a, &lda, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); float* a_t = NULL; @@ -80,8 +80,8 @@ lapack_int LAPACKE_sgels_work( int matrix_order, char trans, lapack_int m, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sgels( &trans, &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_sgelsd.c b/lapacke/src/lapacke_sgelsd.c index dbcce677..4f8b61af 100644 --- a/lapacke/src/lapacke_sgelsd.c +++ b/lapacke/src/lapacke_sgelsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelsd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelsd( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank ) @@ -46,16 +46,16 @@ lapack_int LAPACKE_sgelsd( int matrix_order, lapack_int m, lapack_int n, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgelsd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &rcond, 1 ) ) { @@ -63,7 +63,7 @@ lapack_int LAPACKE_sgelsd( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgelsd_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_sgelsd_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, &work_query, lwork, &iwork_query ); if( info != 0 ) { goto exit_level_0; @@ -82,7 +82,7 @@ lapack_int LAPACKE_sgelsd( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgelsd_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_sgelsd_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgelsd_work.c b/lapacke/src/lapacke_sgelsd_work.c index 8ab278a7..fdb0232b 100644 --- a/lapacke/src/lapacke_sgelsd_work.c +++ b/lapacke/src/lapacke_sgelsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelsd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelsd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank, float* work, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgelsd( &m, &n, &nrhs, a, &lda, b, &ldb, s, &rcond, rank, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); float* a_t = NULL; @@ -81,8 +81,8 @@ lapack_int LAPACKE_sgelsd_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sgelsd( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, s, &rcond, rank, work, &lwork, iwork, &info ); diff --git a/lapacke/src/lapacke_sgelss.c b/lapacke/src/lapacke_sgelss.c index 9bf44d40..3e2a5a39 100644 --- a/lapacke/src/lapacke_sgelss.c +++ b/lapacke/src/lapacke_sgelss.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelss( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelss( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank ) @@ -42,16 +42,16 @@ lapack_int LAPACKE_sgelss( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgelss", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &rcond, 1 ) ) { @@ -59,7 +59,7 @@ lapack_int LAPACKE_sgelss( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgelss_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_sgelss_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -72,7 +72,7 @@ lapack_int LAPACKE_sgelss( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgelss_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_sgelss_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgelss_work.c b/lapacke/src/lapacke_sgelss_work.c index b671259a..97b7267e 100644 --- a/lapacke/src/lapacke_sgelss_work.c +++ b/lapacke/src/lapacke_sgelss_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelss_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelss_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, float* s, float rcond, lapack_int* rank, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgelss( &m, &n, &nrhs, a, &lda, b, &ldb, s, &rcond, rank, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); float* a_t = NULL; @@ -81,8 +81,8 @@ lapack_int LAPACKE_sgelss_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sgelss( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, s, &rcond, rank, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_sgelsy.c b/lapacke/src/lapacke_sgelsy.c index 2a8e5204..96787d6b 100644 --- a/lapacke/src/lapacke_sgelsy.c +++ b/lapacke/src/lapacke_sgelsy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelsy( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelsy( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* jpvt, float rcond, lapack_int* rank ) @@ -42,16 +42,16 @@ lapack_int LAPACKE_sgelsy( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgelsy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &rcond, 1 ) ) { @@ -59,7 +59,7 @@ lapack_int LAPACKE_sgelsy( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgelsy_work( matrix_order, m, n, nrhs, a, lda, b, ldb, jpvt, + info = LAPACKE_sgelsy_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -72,7 +72,7 @@ lapack_int LAPACKE_sgelsy( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgelsy_work( matrix_order, m, n, nrhs, a, lda, b, ldb, jpvt, + info = LAPACKE_sgelsy_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgelsy_work.c b/lapacke/src/lapacke_sgelsy_work.c index 07be4003..52c4bd92 100644 --- a/lapacke/src/lapacke_sgelsy_work.c +++ b/lapacke/src/lapacke_sgelsy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgelsy_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgelsy_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb, lapack_int* jpvt, float rcond, lapack_int* rank, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgelsy( &m, &n, &nrhs, a, &lda, b, &ldb, jpvt, &rcond, rank, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); float* a_t = NULL; @@ -81,8 +81,8 @@ lapack_int LAPACKE_sgelsy_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sgelsy( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, jpvt, &rcond, rank, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_sgemqrt.c b/lapacke/src/lapacke_sgemqrt.c index 38e055e7..424159fd 100644 --- a/lapacke/src/lapacke_sgemqrt.c +++ b/lapacke/src/lapacke_sgemqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgemqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_sgemqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* c, @@ -41,19 +41,19 @@ lapack_int LAPACKE_sgemqrt( int matrix_order, char side, char trans, { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgemqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -12; } - if( LAPACKE_sge_nancheck( matrix_order, ldt, nb, t, ldt ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, ldt, nb, t, ldt ) ) { return -10; } - if( LAPACKE_sge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -8; } #endif @@ -64,7 +64,7 @@ lapack_int LAPACKE_sgemqrt( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgemqrt_work( matrix_order, side, trans, m, n, k, nb, v, ldv, + info = LAPACKE_sgemqrt_work( matrix_layout, side, trans, m, n, k, nb, v, ldv, t, ldt, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgemqrt_work.c b/lapacke/src/lapacke_sgemqrt_work.c index 44ad7897..f54e9d19 100644 --- a/lapacke/src/lapacke_sgemqrt_work.c +++ b/lapacke/src/lapacke_sgemqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgemqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_sgemqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const float* v, lapack_int ldv, const float* t, lapack_int ldt, float* c, lapack_int ldc, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgemqrt( &side, &trans, &m, &n, &k, &nb, v, &ldv, t, &ldt, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,m); lapack_int ldt_t = MAX(1,ldt); lapack_int ldv_t = MAX(1,ldv); @@ -87,9 +87,9 @@ lapack_int LAPACKE_sgemqrt_work( int matrix_order, char side, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_sge_trans( matrix_order, ldt, nb, t, ldt, t_t, ldt_t ); - LAPACKE_sge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_sge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_sge_trans( matrix_layout, ldt, nb, t, ldt, t_t, ldt_t ); + LAPACKE_sge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_sgemqrt( &side, &trans, &m, &n, &k, &nb, v_t, &ldv_t, t_t, &ldt_t, c_t, &ldc_t, work, &info ); diff --git a/lapacke/src/lapacke_sgeqlf.c b/lapacke/src/lapacke_sgeqlf.c index f728d66f..11f8cbea 100644 --- a/lapacke/src/lapacke_sgeqlf.c +++ b/lapacke/src/lapacke_sgeqlf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqlf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqlf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqlf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgeqlf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_sgeqlf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_sgeqlf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgeqlf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_sgeqlf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgeqlf_work.c b/lapacke/src/lapacke_sgeqlf_work.c index e4e13db3..51feb33a 100644 --- a/lapacke/src/lapacke_sgeqlf_work.c +++ b/lapacke/src/lapacke_sgeqlf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqlf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqlf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgeqlf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqlf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeqp3.c b/lapacke/src/lapacke_sgeqp3.c index 88db9453..5a98fdba 100644 --- a/lapacke/src/lapacke_sgeqp3.c +++ b/lapacke/src/lapacke_sgeqp3.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqp3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqp3( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* jpvt, float* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_sgeqp3( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqp3", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgeqp3_work( matrix_order, m, n, a, lda, jpvt, tau, + info = LAPACKE_sgeqp3_work( matrix_layout, m, n, a, lda, jpvt, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgeqp3( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgeqp3_work( matrix_order, m, n, a, lda, jpvt, tau, work, + info = LAPACKE_sgeqp3_work( matrix_layout, m, n, a, lda, jpvt, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgeqp3_work.c b/lapacke/src/lapacke_sgeqp3_work.c index 02646ea1..b4744918 100644 --- a/lapacke/src/lapacke_sgeqp3_work.c +++ b/lapacke/src/lapacke_sgeqp3_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqp3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* jpvt, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqp3( &m, &n, a, &lda, jpvt, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgeqp3_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqp3( &m, &n, a_t, &lda_t, jpvt, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeqpf.c b/lapacke/src/lapacke_sgeqpf.c index 93853dc9..ba5c2573 100644 --- a/lapacke/src/lapacke_sgeqpf.c +++ b/lapacke/src/lapacke_sgeqpf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqpf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqpf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* jpvt, float* tau ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqpf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_sgeqpf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgeqpf_work( matrix_order, m, n, a, lda, jpvt, tau, work ); + info = LAPACKE_sgeqpf_work( matrix_layout, m, n, a, lda, jpvt, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgeqpf_work.c b/lapacke/src/lapacke_sgeqpf_work.c index 081b26e0..40abf00a 100644 --- a/lapacke/src/lapacke_sgeqpf_work.c +++ b/lapacke/src/lapacke_sgeqpf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqpf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, lapack_int* jpvt, float* tau, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqpf( &m, &n, a, &lda, jpvt, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_sgeqpf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqpf( &m, &n, a_t, &lda_t, jpvt, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeqr2.c b/lapacke/src/lapacke_sgeqr2.c index d9b84d08..d604a40a 100644 --- a/lapacke/src/lapacke_sgeqr2.c +++ b/lapacke/src/lapacke_sgeqr2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqr2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqr2( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqr2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -55,7 +55,7 @@ lapack_int LAPACKE_sgeqr2( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgeqr2_work( matrix_order, m, n, a, lda, tau, work ); + info = LAPACKE_sgeqr2_work( matrix_layout, m, n, a, lda, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgeqr2_work.c b/lapacke/src/lapacke_sgeqr2_work.c index f84ae310..e6c90bac 100644 --- a/lapacke/src/lapacke_sgeqr2_work.c +++ b/lapacke/src/lapacke_sgeqr2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqr2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqr2( &m, &n, a, &lda, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_sgeqr2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqr2( &m, &n, a_t, &lda_t, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeqrf.c b/lapacke/src/lapacke_sgeqrf.c index 50a3195e..bbfd0dbf 100644 --- a/lapacke/src/lapacke_sgeqrf.c +++ b/lapacke/src/lapacke_sgeqrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgeqrf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_sgeqrf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_sgeqrf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgeqrf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_sgeqrf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgeqrf_work.c b/lapacke/src/lapacke_sgeqrf_work.c index dad4870d..eeb2ff33 100644 --- a/lapacke/src/lapacke_sgeqrf_work.c +++ b/lapacke/src/lapacke_sgeqrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqrf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgeqrf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqrf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeqrfp.c b/lapacke/src/lapacke_sgeqrfp.c index dc8ab6e9..062ce655 100644 --- a/lapacke/src/lapacke_sgeqrfp.c +++ b/lapacke/src/lapacke_sgeqrfp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrfp( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrfp( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqrfp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgeqrfp_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_sgeqrfp_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_sgeqrfp( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgeqrfp_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_sgeqrfp_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgeqrfp_work.c b/lapacke/src/lapacke_sgeqrfp_work.c index 534d4820..a412197e 100644 --- a/lapacke/src/lapacke_sgeqrfp_work.c +++ b/lapacke/src/lapacke_sgeqrfp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqrfp( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqrfp( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeqrt.c b/lapacke/src/lapacke_sgeqrt.c index f8a9ee80..40f83ef2 100644 --- a/lapacke/src/lapacke_sgeqrt.c +++ b/lapacke/src/lapacke_sgeqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, float* a, lapack_int lda, float* t, lapack_int ldt ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_sgeqrt( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgeqrt_work( matrix_order, m, n, nb, a, lda, t, ldt, work ); + info = LAPACKE_sgeqrt_work( matrix_layout, m, n, nb, a, lda, t, ldt, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgeqrt2.c b/lapacke/src/lapacke_sgeqrt2.c index 5bc351a3..e9109228 100644 --- a/lapacke/src/lapacke_sgeqrt2.c +++ b/lapacke/src/lapacke_sgeqrt2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrt2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt2( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqrt2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_sgeqrt2_work( matrix_order, m, n, a, lda, t, ldt ); + return LAPACKE_sgeqrt2_work( matrix_layout, m, n, a, lda, t, ldt ); } diff --git a/lapacke/src/lapacke_sgeqrt2_work.c b/lapacke/src/lapacke_sgeqrt2_work.c index 4101c8e8..e8f458b7 100644 --- a/lapacke/src/lapacke_sgeqrt2_work.c +++ b/lapacke/src/lapacke_sgeqrt2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqrt2( &m, &n, a, &lda, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); float* a_t = NULL; @@ -72,7 +72,7 @@ lapack_int LAPACKE_sgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqrt2( &m, &n, a_t, &lda_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeqrt3.c b/lapacke/src/lapacke_sgeqrt3.c index ae417b81..a207d61e 100644 --- a/lapacke/src/lapacke_sgeqrt3.c +++ b/lapacke/src/lapacke_sgeqrt3.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrt3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt3( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgeqrt3", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_sgeqrt3_work( matrix_order, m, n, a, lda, t, ldt ); + return LAPACKE_sgeqrt3_work( matrix_layout, m, n, a, lda, t, ldt ); } diff --git a/lapacke/src/lapacke_sgeqrt3_work.c b/lapacke/src/lapacke_sgeqrt3_work.c index 78b380ec..067aa345 100644 --- a/lapacke/src/lapacke_sgeqrt3_work.c +++ b/lapacke/src/lapacke_sgeqrt3_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqrt3( &m, &n, a, &lda, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); float* a_t = NULL; @@ -72,7 +72,7 @@ lapack_int LAPACKE_sgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqrt3( &m, &n, a_t, &lda_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgeqrt_work.c b/lapacke/src/lapacke_sgeqrt_work.c index 78f60090..8757cabb 100644 --- a/lapacke/src/lapacke_sgeqrt_work.c +++ b/lapacke/src/lapacke_sgeqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgeqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, float* a, lapack_int lda, float* t, lapack_int ldt, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgeqrt( &m, &n, &nb, a, &lda, t, &ldt, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,ldt); float* a_t = NULL; @@ -72,7 +72,7 @@ lapack_int LAPACKE_sgeqrt_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgerfs.c b/lapacke/src/lapacke_sgerfs.c index 51faeadd..92dc6210 100644 --- a/lapacke/src/lapacke_sgerfs.c +++ b/lapacke/src/lapacke_sgerfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgerfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgerfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* b, @@ -43,22 +43,22 @@ lapack_int LAPACKE_sgerfs( int matrix_order, char trans, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgerfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_sgerfs( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgerfs_work( matrix_order, trans, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_sgerfs_work( matrix_layout, trans, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgerfs_work.c b/lapacke/src/lapacke_sgerfs_work.c index d87c6db0..421703db 100644 --- a/lapacke/src/lapacke_sgerfs_work.c +++ b/lapacke/src/lapacke_sgerfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgerfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_sgerfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* b, @@ -42,14 +42,14 @@ lapack_int LAPACKE_sgerfs_work( int matrix_order, char trans, lapack_int n, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgerfs( &trans, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -101,10 +101,10 @@ lapack_int LAPACKE_sgerfs_work( int matrix_order, char trans, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_sgerfs( &trans, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_sgerfsx.c b/lapacke/src/lapacke_sgerfsx.c index 5d60158f..f7d926ab 100644 --- a/lapacke/src/lapacke_sgerfsx.c +++ b/lapacke/src/lapacke_sgerfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgerfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_sgerfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* r, @@ -46,19 +46,19 @@ lapack_int LAPACKE_sgerfsx( int matrix_order, char trans, char equed, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgerfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -8; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( LAPACKE_lsame( equed, 'b' ) || LAPACKE_lsame( equed, 'c' ) ) { @@ -76,7 +76,7 @@ lapack_int LAPACKE_sgerfsx( int matrix_order, char trans, char equed, return -11; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -15; } #endif @@ -92,7 +92,7 @@ lapack_int LAPACKE_sgerfsx( int matrix_order, char trans, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgerfsx_work( matrix_order, trans, equed, n, nrhs, a, lda, + info = LAPACKE_sgerfsx_work( matrix_layout, trans, equed, n, nrhs, a, lda, af, ldaf, ipiv, r, c, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_sgerfsx_work.c b/lapacke/src/lapacke_sgerfsx_work.c index 83cf6a06..6eae0115 100644 --- a/lapacke/src/lapacke_sgerfsx_work.c +++ b/lapacke/src/lapacke_sgerfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgerfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_sgerfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -45,7 +45,7 @@ lapack_int LAPACKE_sgerfsx_work( int matrix_order, char trans, char equed, float* params, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgerfsx( &trans, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, r, c, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -54,7 +54,7 @@ lapack_int LAPACKE_sgerfsx_work( int matrix_order, char trans, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -120,10 +120,10 @@ lapack_int LAPACKE_sgerfsx_work( int matrix_order, char trans, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_sgerfsx( &trans, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, r, c, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_sgerqf.c b/lapacke/src/lapacke_sgerqf.c index f008bfc9..41a20e0f 100644 --- a/lapacke/src/lapacke_sgerqf.c +++ b/lapacke/src/lapacke_sgerqf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgerqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgerqf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgerqf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sgerqf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_sgerqf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_sgerqf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sgerqf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_sgerqf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_sgerqf_work.c b/lapacke/src/lapacke_sgerqf_work.c index aec8c32b..7a8a8df3 100644 --- a/lapacke/src/lapacke_sgerqf_work.c +++ b/lapacke/src/lapacke_sgerqf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_sgerqf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgerqf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_sgerqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_sgerqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sgesdd.c b/lapacke/src/lapacke_sgesdd.c index 0958daf8..85d12faa 100644 --- a/lapacke/src/lapacke_sgesdd.c +++ b/lapacke/src/lapacke_sgesdd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_sgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, float* a, lapack_int lda, float* s, float* u, lapack_int ldu, float* vt, lapack_int ldvt ) @@ -43,13 +43,13 @@ lapack_int LAPACKE_sgesdd( int matrix_order, char jobz, lapack_int m, lapack_int* iwork = NULL; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sgesdd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_sgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_sgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_sgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, &work_query, lwork, iwork ); if( info != 0 ) { goto exit_level_1; @@ -74,7 +74,7 @@ lapack_int LAPACKE_sgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_sgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sgesdd_work.c b/lapacke/src/lapacke_sgesdd_work.c index 3fc0ec41..f9082493 100644 --- a/lapacke/src/lapacke_sgesdd_work.c +++ b/lapacke/src/lapacke_sgesdd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sgesdd_work( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_sgesdd_work( int matrix_layout, char jobz, lapack_int m, lapack_int n, float* a, lapack_int lda, float* s, float* u, lapack_int ldu, float* vt, lapack_int ldvt, float* work, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sgesdd( &jobz, &m, &n, a, &lda, s, u, &ldu, vt, &ldvt, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_u = ( LAPACKE_lsame( jobz, 'a' ) || LAPACKE_lsame( jobz, 's' ) || ( LAPACKE_lsame( jobz, 'o' ) && m0 ) { @@ -70,7 +70,7 @@ lapack_int LAPACKE_sporfsx( int matrix_order, char uplo, char equed, return -10; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -13; } #endif @@ -86,7 +86,7 @@ lapack_int LAPACKE_sporfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sporfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_sporfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_sporfsx_work.c b/lapacke/src/lapacke_sporfsx_work.c index ea0151eb..58452c1c 100644 --- a/lapacke/src/lapacke_sporfsx_work.c +++ b/lapacke/src/lapacke_sporfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sporfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_sporfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const float* s, @@ -44,7 +44,7 @@ lapack_int LAPACKE_sporfsx_work( int matrix_order, char uplo, char equed, float* params, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sporfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, err_bnds_norm, @@ -52,7 +52,7 @@ lapack_int LAPACKE_sporfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -118,10 +118,10 @@ lapack_int LAPACKE_sporfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_ssy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_sporfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, &n_err_bnds, diff --git a/lapacke/src/lapacke_sposv.c b/lapacke/src/lapacke_sposv.c index 5603842c..e47237ef 100644 --- a/lapacke/src/lapacke_sposv.c +++ b/lapacke/src/lapacke_sposv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sposv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_sposv_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb ); + return LAPACKE_sposv_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_sposv_work.c b/lapacke/src/lapacke_sposv_work.c index 7e9ce96e..2e843a31 100644 --- a/lapacke/src/lapacke_sposv_work.c +++ b/lapacke/src/lapacke_sposv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sposv( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -72,8 +72,8 @@ lapack_int LAPACKE_sposv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_spo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sposv( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sposvx.c b/lapacke/src/lapacke_sposvx.c index a52b24f8..d6082bfb 100644 --- a/lapacke/src/lapacke_sposvx.c +++ b/lapacke/src/lapacke_sposvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sposvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_sposvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, @@ -42,21 +42,21 @@ lapack_int LAPACKE_sposvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sposvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_sposvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sposvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_sposvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sposvx_work.c b/lapacke/src/lapacke_sposvx_work.c index 6490ef51..521c1624 100644 --- a/lapacke/src/lapacke_sposvx_work.c +++ b/lapacke/src/lapacke_sposvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sposvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sposvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, char* equed, float* s, float* b, lapack_int ldb, @@ -42,14 +42,14 @@ lapack_int LAPACKE_sposvx_work( int matrix_order, char fact, char uplo, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sposvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -101,11 +101,11 @@ lapack_int LAPACKE_sposvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_spo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_spo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sposvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, diff --git a/lapacke/src/lapacke_sposvxx.c b/lapacke/src/lapacke_sposvxx.c index 9ed14b86..201ed1b4 100644 --- a/lapacke/src/lapacke_sposvxx.c +++ b/lapacke/src/lapacke_sposvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sposvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sposvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, char* equed, float* s, float* b, lapack_int ldb, @@ -45,21 +45,21 @@ lapack_int LAPACKE_sposvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sposvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( nparams>0 ) { @@ -85,7 +85,7 @@ lapack_int LAPACKE_sposvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sposvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_sposvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_sposvxx_work.c b/lapacke/src/lapacke_sposvxx_work.c index e522c123..899ec813 100644 --- a/lapacke/src/lapacke_sposvxx_work.c +++ b/lapacke/src/lapacke_sposvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, char* equed, float* s, float* b, @@ -44,7 +44,7 @@ lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo, float* params, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sposvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, &n_err_bnds, @@ -53,7 +53,7 @@ lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -119,11 +119,11 @@ lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_spo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_spo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sposvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, berr, @@ -143,9 +143,9 @@ lapack_int LAPACKE_sposvxx_work( int matrix_order, char fact, char uplo, LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_spotrf.c b/lapacke/src/lapacke_spotrf.c index 5722d9eb..faa6124b 100644 --- a/lapacke/src/lapacke_spotrf.c +++ b/lapacke/src/lapacke_spotrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spotrf( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_spotrf( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spotrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_spotrf_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_spotrf_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_spotrf_work.c b/lapacke/src/lapacke_spotrf_work.c index 1b46926e..472f088f 100644 --- a/lapacke/src/lapacke_spotrf_work.c +++ b/lapacke/src/lapacke_spotrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spotrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spotrf_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spotrf( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -59,7 +59,7 @@ lapack_int LAPACKE_spotrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_spo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_spotrf( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_spotri.c b/lapacke/src/lapacke_spotri.c index af4dc720..b05ae71c 100644 --- a/lapacke/src/lapacke_spotri.c +++ b/lapacke/src/lapacke_spotri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spotri( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_spotri( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spotri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_spotri_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_spotri_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_spotri_work.c b/lapacke/src/lapacke_spotri_work.c index b4703a01..f923d47f 100644 --- a/lapacke/src/lapacke_spotri_work.c +++ b/lapacke/src/lapacke_spotri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spotri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spotri_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spotri( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -59,7 +59,7 @@ lapack_int LAPACKE_spotri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_spo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_spotri( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_spotrs.c b/lapacke/src/lapacke_spotrs.c index d644ecef..53ef536d 100644 --- a/lapacke/src/lapacke_spotrs.c +++ b/lapacke/src/lapacke_spotrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spotrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spotrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spotrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_spotrs_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb ); + return LAPACKE_spotrs_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_spotrs_work.c b/lapacke/src/lapacke_spotrs_work.c index 0ca7e406..657f388c 100644 --- a/lapacke/src/lapacke_spotrs_work.c +++ b/lapacke/src/lapacke_spotrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spotrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spotrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spotrs( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -72,8 +72,8 @@ lapack_int LAPACKE_spotrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_spo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_spotrs( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sppcon.c b/lapacke/src/lapacke_sppcon.c index 60dbc886..36e79079 100644 --- a/lapacke/src/lapacke_sppcon.c +++ b/lapacke/src/lapacke_sppcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sppcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppcon( int matrix_layout, char uplo, lapack_int n, const float* ap, float anorm, float* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sppcon", -1 ); return -1; } @@ -64,7 +64,7 @@ lapack_int LAPACKE_sppcon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sppcon_work( matrix_order, uplo, n, ap, anorm, rcond, work, + info = LAPACKE_sppcon_work( matrix_layout, uplo, n, ap, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sppcon_work.c b/lapacke/src/lapacke_sppcon_work.c index 4dfe73d0..f217062e 100644 --- a/lapacke/src/lapacke_sppcon_work.c +++ b/lapacke/src/lapacke_sppcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sppcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppcon_work( int matrix_layout, char uplo, lapack_int n, const float* ap, float anorm, float* rcond, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sppcon( &uplo, &n, ap, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_sppcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_sppcon( &uplo, &n, ap_t, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sppequ.c b/lapacke/src/lapacke_sppequ.c index 98bb4c09..295bb973 100644 --- a/lapacke/src/lapacke_sppequ.c +++ b/lapacke/src/lapacke_sppequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sppequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppequ( int matrix_layout, char uplo, lapack_int n, const float* ap, float* s, float* scond, float* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sppequ", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_sppequ( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_sppequ_work( matrix_order, uplo, n, ap, s, scond, amax ); + return LAPACKE_sppequ_work( matrix_layout, uplo, n, ap, s, scond, amax ); } diff --git a/lapacke/src/lapacke_sppequ_work.c b/lapacke/src/lapacke_sppequ_work.c index 1dd9fc9d..3ffcd934 100644 --- a/lapacke/src/lapacke_sppequ_work.c +++ b/lapacke/src/lapacke_sppequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sppequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppequ_work( int matrix_layout, char uplo, lapack_int n, const float* ap, float* s, float* scond, float* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sppequ( &uplo, &n, ap, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_sppequ_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_sppequ( &uplo, &n, ap_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_spprfs.c b/lapacke/src/lapacke_spprfs.c index ce743a6a..f40f380c 100644 --- a/lapacke/src/lapacke_spprfs.c +++ b/lapacke/src/lapacke_spprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const float* afp, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ) @@ -41,7 +41,7 @@ lapack_int LAPACKE_spprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spprfs", -1 ); return -1; } @@ -53,10 +53,10 @@ lapack_int LAPACKE_spprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_spp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -9; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_spprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_spprfs_work( matrix_order, uplo, n, nrhs, ap, afp, b, ldb, x, + info = LAPACKE_spprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_spprfs_work.c b/lapacke/src/lapacke_spprfs_work.c index 4058b0b1..7bbc666f 100644 --- a/lapacke/src/lapacke_spprfs_work.c +++ b/lapacke/src/lapacke_spprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const float* afp, const float* b, lapack_int ldb, float* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_spprfs_work( int matrix_order, char uplo, lapack_int n, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spprfs( &uplo, &n, &nrhs, ap, afp, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); float* b_t = NULL; @@ -90,10 +90,10 @@ lapack_int LAPACKE_spprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_spp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_spprfs( &uplo, &n, &nrhs, ap_t, afp_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_sppsv.c b/lapacke/src/lapacke_sppsv.c index 24a4afaf..83074b8d 100644 --- a/lapacke/src/lapacke_sppsv.c +++ b/lapacke/src/lapacke_sppsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sppsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* ap, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sppsv", -1 ); return -1; } @@ -45,9 +45,9 @@ lapack_int LAPACKE_sppsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_spp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } #endif - return LAPACKE_sppsv_work( matrix_order, uplo, n, nrhs, ap, b, ldb ); + return LAPACKE_sppsv_work( matrix_layout, uplo, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_sppsv_work.c b/lapacke/src/lapacke_sppsv_work.c index 6fe5d80e..78dcd74a 100644 --- a/lapacke/src/lapacke_sppsv_work.c +++ b/lapacke/src/lapacke_sppsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sppsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sppsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* ap, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sppsv( &uplo, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); float* b_t = NULL; float* ap_t = NULL; @@ -67,8 +67,8 @@ lapack_int LAPACKE_sppsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_sppsv( &uplo, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sppsvx.c b/lapacke/src/lapacke_sppsvx.c index 0998c2f8..bb026f84 100644 --- a/lapacke/src/lapacke_sppsvx.c +++ b/lapacke/src/lapacke_sppsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sppsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_sppsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* ap, float* afp, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, @@ -42,7 +42,7 @@ lapack_int LAPACKE_sppsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sppsvx", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_sppsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_spp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_sppsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sppsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_sppsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sppsvx_work.c b/lapacke/src/lapacke_sppsvx_work.c index 9a00f368..353917a2 100644 --- a/lapacke/src/lapacke_sppsvx_work.c +++ b/lapacke/src/lapacke_sppsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sppsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sppsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* ap, float* afp, char* equed, float* s, float* b, lapack_int ldb, float* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sppsvx_work( int matrix_order, char fact, char uplo, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sppsvx( &fact, &uplo, &n, &nrhs, ap, afp, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); float* b_t = NULL; @@ -90,10 +90,10 @@ lapack_int LAPACKE_sppsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_spp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_sppsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, equed, s, b_t, diff --git a/lapacke/src/lapacke_spptrf.c b/lapacke/src/lapacke_spptrf.c index 133d1b18..e7e97f1f 100644 --- a/lapacke/src/lapacke_spptrf.c +++ b/lapacke/src/lapacke_spptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptrf( int matrix_layout, char uplo, lapack_int n, float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_spptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_spptrf_work( matrix_order, uplo, n, ap ); + return LAPACKE_spptrf_work( matrix_layout, uplo, n, ap ); } diff --git a/lapacke/src/lapacke_spptrf_work.c b/lapacke/src/lapacke_spptrf_work.c index 2eb60cfc..2c74b8b4 100644 --- a/lapacke/src/lapacke_spptrf_work.c +++ b/lapacke/src/lapacke_spptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptrf_work( int matrix_layout, char uplo, lapack_int n, float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spptrf( &uplo, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_spptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_spptrf( &uplo, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_spptri.c b/lapacke/src/lapacke_spptri.c index a113ab45..2aabafe6 100644 --- a/lapacke/src/lapacke_spptri.c +++ b/lapacke/src/lapacke_spptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptri( int matrix_layout, char uplo, lapack_int n, float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spptri", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_spptri( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_spptri_work( matrix_order, uplo, n, ap ); + return LAPACKE_spptri_work( matrix_layout, uplo, n, ap ); } diff --git a/lapacke/src/lapacke_spptri_work.c b/lapacke/src/lapacke_spptri_work.c index 728796a5..a6565736 100644 --- a/lapacke/src/lapacke_spptri_work.c +++ b/lapacke/src/lapacke_spptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptri_work( int matrix_layout, char uplo, lapack_int n, float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spptri( &uplo, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_spptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_spptri( &uplo, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_spptrs.c b/lapacke/src/lapacke_spptrs.c index 5ba7ccc7..ddd9c332 100644 --- a/lapacke/src/lapacke_spptrs.c +++ b/lapacke/src/lapacke_spptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spptrs", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_spptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_spp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } #endif - return LAPACKE_spptrs_work( matrix_order, uplo, n, nrhs, ap, b, ldb ); + return LAPACKE_spptrs_work( matrix_layout, uplo, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_spptrs_work.c b/lapacke/src/lapacke_spptrs_work.c index fb98fd85..416ee18a 100644 --- a/lapacke/src/lapacke_spptrs_work.c +++ b/lapacke/src/lapacke_spptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spptrs( &uplo, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); float* b_t = NULL; float* ap_t = NULL; @@ -67,8 +67,8 @@ lapack_int LAPACKE_spptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_spptrs( &uplo, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_spstrf.c b/lapacke/src/lapacke_spstrf.c index 9436190e..b5ee7e05 100644 --- a/lapacke/src/lapacke_spstrf.c +++ b/lapacke/src/lapacke_spstrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spstrf( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_spstrf( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* piv, lapack_int* rank, float tol ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spstrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_spo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_spo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_s_nancheck( 1, &tol, 1 ) ) { @@ -59,7 +59,7 @@ lapack_int LAPACKE_spstrf( int matrix_order, char uplo, lapack_int n, float* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_spstrf_work( matrix_order, uplo, n, a, lda, piv, rank, tol, + info = LAPACKE_spstrf_work( matrix_layout, uplo, n, a, lda, piv, rank, tol, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_spstrf_work.c b/lapacke/src/lapacke_spstrf_work.c index 3a323d00..40e80fba 100644 --- a/lapacke/src/lapacke_spstrf_work.c +++ b/lapacke/src/lapacke_spstrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spstrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_spstrf_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* piv, lapack_int* rank, float tol, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spstrf( &uplo, &n, a, &lda, piv, rank, &tol, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_spstrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_spo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_spo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_spstrf( &uplo, &n, a_t, &lda_t, piv, rank, &tol, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_spteqr.c b/lapacke/src/lapacke_spteqr.c index 1351175a..71dd1fe5 100644 --- a/lapacke/src/lapacke_spteqr.c +++ b/lapacke/src/lapacke_spteqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spteqr( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_spteqr( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ) { lapack_int info = 0; /* Additional scalars declarations for work arrays */ lapack_int lwork; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spteqr", -1 ); return -1; } @@ -53,7 +53,7 @@ lapack_int LAPACKE_spteqr( int matrix_order, char compz, lapack_int n, float* d, return -5; } if( LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } @@ -71,7 +71,7 @@ lapack_int LAPACKE_spteqr( int matrix_order, char compz, lapack_int n, float* d, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_spteqr_work( matrix_order, compz, n, d, e, z, ldz, work ); + info = LAPACKE_spteqr_work( matrix_layout, compz, n, d, e, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_spteqr_work.c b/lapacke/src/lapacke_spteqr_work.c index 8b6000aa..023cece3 100644 --- a/lapacke/src/lapacke_spteqr_work.c +++ b/lapacke/src/lapacke_spteqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_spteqr_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spteqr( &compz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_spteqr_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_sge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_sge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_spteqr( &compz, &n, d, e, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_sptrfs.c b/lapacke/src/lapacke_sptrfs.c index 0b59a6ae..0409bfcf 100644 --- a/lapacke/src/lapacke_sptrfs.c +++ b/lapacke/src/lapacke_sptrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sptrfs( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sptrfs( int matrix_layout, lapack_int n, lapack_int nrhs, const float* d, const float* e, const float* df, const float* ef, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sptrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } if( LAPACKE_s_nancheck( n, d, 1 ) ) { @@ -61,7 +61,7 @@ lapack_int LAPACKE_sptrfs( int matrix_order, lapack_int n, lapack_int nrhs, if( LAPACKE_s_nancheck( n-1, ef, 1 ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_sptrfs( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sptrfs_work( matrix_order, n, nrhs, d, e, df, ef, b, ldb, x, + info = LAPACKE_sptrfs_work( matrix_layout, n, nrhs, d, e, df, ef, b, ldb, x, ldx, ferr, berr, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sptrfs_work.c b/lapacke/src/lapacke_sptrfs_work.c index 45efef90..9b246099 100644 --- a/lapacke/src/lapacke_sptrfs_work.c +++ b/lapacke/src/lapacke_sptrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sptrfs_work( int matrix_layout, lapack_int n, lapack_int nrhs, const float* d, const float* e, const float* df, const float* ef, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* ferr, float* berr, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sptrfs( &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, ferr, berr, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); float* b_t = NULL; @@ -75,8 +75,8 @@ lapack_int LAPACKE_sptrfs_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_sptrfs( &n, &nrhs, d, e, df, ef, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, &info ); diff --git a/lapacke/src/lapacke_sptsv.c b/lapacke/src/lapacke_sptsv.c index d3550d79..f94917b3 100644 --- a/lapacke/src/lapacke_sptsv.c +++ b/lapacke/src/lapacke_sptsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,16 +33,16 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sptsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sptsv( int matrix_layout, lapack_int n, lapack_int nrhs, float* d, float* e, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sptsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } if( LAPACKE_s_nancheck( n, d, 1 ) ) { @@ -52,5 +52,5 @@ lapack_int LAPACKE_sptsv( int matrix_order, lapack_int n, lapack_int nrhs, return -5; } #endif - return LAPACKE_sptsv_work( matrix_order, n, nrhs, d, e, b, ldb ); + return LAPACKE_sptsv_work( matrix_layout, n, nrhs, d, e, b, ldb ); } diff --git a/lapacke/src/lapacke_sptsv_work.c b/lapacke/src/lapacke_sptsv_work.c index f7993e55..d75aef1e 100644 --- a/lapacke/src/lapacke_sptsv_work.c +++ b/lapacke/src/lapacke_sptsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_sptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, float* d, float* e, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sptsv( &n, &nrhs, d, e, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); float* b_t = NULL; /* Check leading dimension(s) */ @@ -59,7 +59,7 @@ lapack_int LAPACKE_sptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sptsv( &n, &nrhs, d, e, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sptsvx.c b/lapacke/src/lapacke_sptsvx.c index 820c2a69..d37b3731 100644 --- a/lapacke/src/lapacke_sptsvx.c +++ b/lapacke/src/lapacke_sptsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sptsvx( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_sptsvx( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const float* d, const float* e, float* df, float* ef, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, @@ -41,13 +41,13 @@ lapack_int LAPACKE_sptsvx( int matrix_order, char fact, lapack_int n, { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sptsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } if( LAPACKE_s_nancheck( n, d, 1 ) ) { @@ -74,7 +74,7 @@ lapack_int LAPACKE_sptsvx( int matrix_order, char fact, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sptsvx_work( matrix_order, fact, n, nrhs, d, e, df, ef, b, + info = LAPACKE_sptsvx_work( matrix_layout, fact, n, nrhs, d, e, df, ef, b, ldb, x, ldx, rcond, ferr, berr, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sptsvx_work.c b/lapacke/src/lapacke_sptsvx_work.c index 65636bb4..b75a15ed 100644 --- a/lapacke/src/lapacke_sptsvx_work.c +++ b/lapacke/src/lapacke_sptsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sptsvx_work( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_sptsvx_work( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const float* d, const float* e, float* df, float* ef, const float* b, lapack_int ldb, float* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sptsvx_work( int matrix_order, char fact, lapack_int n, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sptsvx( &fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, rcond, ferr, berr, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); float* b_t = NULL; @@ -76,7 +76,7 @@ lapack_int LAPACKE_sptsvx_work( int matrix_order, char fact, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_sptsvx( &fact, &n, &nrhs, d, e, df, ef, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, &info ); diff --git a/lapacke/src/lapacke_spttrs.c b/lapacke/src/lapacke_spttrs.c index 2a0d9386..d827f770 100644 --- a/lapacke/src/lapacke_spttrs.c +++ b/lapacke/src/lapacke_spttrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spttrs( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_spttrs( int matrix_layout, lapack_int n, lapack_int nrhs, const float* d, const float* e, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_spttrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } if( LAPACKE_s_nancheck( n, d, 1 ) ) { @@ -53,5 +53,5 @@ lapack_int LAPACKE_spttrs( int matrix_order, lapack_int n, lapack_int nrhs, return -5; } #endif - return LAPACKE_spttrs_work( matrix_order, n, nrhs, d, e, b, ldb ); + return LAPACKE_spttrs_work( matrix_layout, n, nrhs, d, e, b, ldb ); } diff --git a/lapacke/src/lapacke_spttrs_work.c b/lapacke/src/lapacke_spttrs_work.c index deca9665..40aeccba 100644 --- a/lapacke/src/lapacke_spttrs_work.c +++ b/lapacke/src/lapacke_spttrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_spttrs_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_spttrs_work( int matrix_layout, lapack_int n, lapack_int nrhs, const float* d, const float* e, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_spttrs( &n, &nrhs, d, e, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); float* b_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_spttrs_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_spttrs( &n, &nrhs, d, e, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssbev.c b/lapacke/src/lapacke_ssbev.c index 3ad0e285..671797e8 100644 --- a/lapacke/src/lapacke_ssbev.c +++ b/lapacke/src/lapacke_ssbev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbev( 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 ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssbev", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_ssbev( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssbev_work( matrix_order, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_ssbev_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssbev_work.c b/lapacke/src/lapacke_ssbev_work.c index 893194c7..6a82203a 100644 --- a/lapacke/src/lapacke_ssbev_work.c +++ b/lapacke/src/lapacke_ssbev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssbev_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 info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssbev( &jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldz_t = MAX(1,n); float* ab_t = NULL; @@ -76,7 +76,7 @@ lapack_int LAPACKE_ssbev_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_ssb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_ssbev( &jobz, &uplo, &n, &kd, ab_t, &ldab_t, w, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_ssbevd.c b/lapacke/src/lapacke_ssbevd.c index 707f19ed..74b02ca2 100644 --- a/lapacke/src/lapacke_ssbevd.c +++ b/lapacke/src/lapacke_ssbevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbevd( 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 ) { @@ -44,18 +44,18 @@ lapack_int LAPACKE_ssbevd( int matrix_order, char jobz, char uplo, lapack_int n, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssbevd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssbevd_work( matrix_order, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_ssbevd_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_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssbevd_work( matrix_order, jobz, uplo, n, kd, ab, ldab, w, z, + info = LAPACKE_ssbevd_work( matrix_layout, jobz, uplo, n, kd, ab, ldab, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssbevd_work.c b/lapacke/src/lapacke_ssbevd_work.c index 622dd7df..7fb713a0 100644 --- a/lapacke/src/lapacke_ssbevd_work.c +++ b/lapacke/src/lapacke_ssbevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssbevd_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, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssbevd( &jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldz_t = MAX(1,n); float* ab_t = NULL; @@ -83,7 +83,7 @@ lapack_int LAPACKE_ssbevd_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_ssb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + 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, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_ssbevx.c b/lapacke/src/lapacke_ssbevx.c index 05ba22cb..3cde9506 100644 --- a/lapacke/src/lapacke_ssbevx.c +++ b/lapacke/src/lapacke_ssbevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_ssbevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* q, lapack_int ldq, float vl, float vu, lapack_int il, lapack_int iu, float abstol, @@ -43,13 +43,13 @@ lapack_int LAPACKE_ssbevx( int matrix_order, char jobz, char range, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssbevx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &abstol, 1 ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_ssbevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssbevx_work( matrix_order, jobz, range, uplo, n, kd, ab, + info = LAPACKE_ssbevx_work( matrix_layout, jobz, range, uplo, n, kd, ab, ldab, q, ldq, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ssbevx_work.c b/lapacke/src/lapacke_ssbevx_work.c index fb2badab..7961ad95 100644 --- a/lapacke/src/lapacke_ssbevx_work.c +++ b/lapacke/src/lapacke_ssbevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_ssbevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* q, lapack_int ldq, float vl, float vu, @@ -43,7 +43,7 @@ lapack_int LAPACKE_ssbevx_work( int matrix_order, char jobz, char range, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssbevx( &jobz, &range, &uplo, &n, &kd, ab, &ldab, q, &ldq, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, iwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_ssbevx_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -99,7 +99,7 @@ lapack_int LAPACKE_ssbevx_work( int matrix_order, char jobz, char range, } } /* Transpose input matrices */ - LAPACKE_ssb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_ssbevx( &jobz, &range, &uplo, &n, &kd, ab_t, &ldab_t, q_t, &ldq_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, diff --git a/lapacke/src/lapacke_ssbgst.c b/lapacke/src/lapacke_ssbgst.c index 32dd0f05..782ba40f 100644 --- a/lapacke/src/lapacke_ssbgst.c +++ b/lapacke/src/lapacke_ssbgst.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbgst( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_ssbgst( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, const float* bb, lapack_int ldbb, float* x, lapack_int ldx ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssbgst", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, ka, ab, ldab ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) { return -7; } - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -9; } #endif @@ -60,7 +60,7 @@ lapack_int LAPACKE_ssbgst( int matrix_order, char vect, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssbgst_work( matrix_order, vect, uplo, n, ka, kb, ab, ldab, + info = LAPACKE_ssbgst_work( matrix_layout, vect, uplo, n, ka, kb, ab, ldab, bb, ldbb, x, ldx, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssbgst_work.c b/lapacke/src/lapacke_ssbgst_work.c index 2ec38c0f..d5fc91b6 100644 --- a/lapacke/src/lapacke_ssbgst_work.c +++ b/lapacke/src/lapacke_ssbgst_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbgst_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_ssbgst_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, const float* bb, lapack_int ldbb, float* x, lapack_int ldx, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssbgst( &vect, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, x, &ldx, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldx_t = MAX(1,n); @@ -89,8 +89,8 @@ lapack_int LAPACKE_ssbgst_work( int matrix_order, char vect, char uplo, } } /* Transpose input matrices */ - LAPACKE_ssb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_ssb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssbgst( &vect, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, x_t, &ldx_t, work, &info ); diff --git a/lapacke/src/lapacke_ssbgv.c b/lapacke/src/lapacke_ssbgv.c index b7ff8a8b..6f133c9e 100644 --- a/lapacke/src/lapacke_ssbgv.c +++ b/lapacke/src/lapacke_ssbgv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbgv( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbgv( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* w, float* z, lapack_int ldz ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssbgv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, ka, ab, ldab ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) { return -7; } - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -9; } #endif @@ -60,7 +60,7 @@ lapack_int LAPACKE_ssbgv( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssbgv_work( matrix_order, jobz, uplo, n, ka, kb, ab, ldab, + info = LAPACKE_ssbgv_work( matrix_layout, jobz, uplo, n, ka, kb, ab, ldab, bb, ldbb, w, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssbgv_work.c b/lapacke/src/lapacke_ssbgv_work.c index 6af9113b..fe0f28f9 100644 --- a/lapacke/src/lapacke_ssbgv_work.c +++ b/lapacke/src/lapacke_ssbgv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbgv_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssbgv_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* w, float* z, lapack_int ldz, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssbgv( &jobz, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, w, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldz_t = MAX(1,n); @@ -89,8 +89,8 @@ lapack_int LAPACKE_ssbgv_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_ssb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_ssb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssbgv( &jobz, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, w, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_ssbgvd.c b/lapacke/src/lapacke_ssbgvd.c index 8a4cfd3d..4ecbebce 100644 --- a/lapacke/src/lapacke_ssbgvd.c +++ b/lapacke/src/lapacke_ssbgvd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbgvd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* w, float* z, lapack_int ldz ) @@ -45,21 +45,21 @@ lapack_int LAPACKE_ssbgvd( int matrix_order, char jobz, char uplo, lapack_int n, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssbgvd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, ka, ab, ldab ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) { return -7; } - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -9; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssbgvd_work( matrix_order, jobz, uplo, n, ka, kb, ab, ldab, + info = LAPACKE_ssbgvd_work( matrix_layout, jobz, uplo, n, ka, kb, ab, ldab, bb, ldbb, w, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -79,7 +79,7 @@ lapack_int LAPACKE_ssbgvd( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssbgvd_work( matrix_order, jobz, uplo, n, ka, kb, ab, ldab, + info = LAPACKE_ssbgvd_work( matrix_layout, jobz, uplo, n, ka, kb, ab, ldab, bb, ldbb, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ssbgvd_work.c b/lapacke/src/lapacke_ssbgvd_work.c index f47f52e7..5307bef6 100644 --- a/lapacke/src/lapacke_ssbgvd_work.c +++ b/lapacke/src/lapacke_ssbgvd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbgvd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssbgvd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* w, float* z, @@ -41,14 +41,14 @@ lapack_int LAPACKE_ssbgvd_work( int matrix_order, char jobz, char uplo, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssbgvd( &jobz, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldz_t = MAX(1,n); @@ -96,8 +96,8 @@ lapack_int LAPACKE_ssbgvd_work( int matrix_order, char jobz, char uplo, } } /* Transpose input matrices */ - LAPACKE_ssb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_ssb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssbgvd( &jobz, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, w, z_t, &ldz_t, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_ssbgvx.c b/lapacke/src/lapacke_ssbgvx.c index f51bd9a2..675cf2ae 100644 --- a/lapacke/src/lapacke_ssbgvx.c +++ b/lapacke/src/lapacke_ssbgvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbgvx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_ssbgvx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* q, lapack_int ldq, float vl, @@ -44,19 +44,19 @@ lapack_int LAPACKE_ssbgvx( int matrix_order, char jobz, char range, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssbgvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, ka, ab, ldab ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, ka, ab, ldab ) ) { return -8; } if( LAPACKE_s_nancheck( 1, &abstol, 1 ) ) { return -18; } - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -10; } if( LAPACKE_lsame( range, 'v' ) ) { @@ -82,7 +82,7 @@ lapack_int LAPACKE_ssbgvx( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssbgvx_work( matrix_order, jobz, range, uplo, n, ka, kb, ab, + info = LAPACKE_ssbgvx_work( matrix_layout, jobz, range, uplo, n, ka, kb, ab, ldab, bb, ldbb, q, ldq, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ssbgvx_work.c b/lapacke/src/lapacke_ssbgvx_work.c index 65159827..b67b79e6 100644 --- a/lapacke/src/lapacke_ssbgvx_work.c +++ b/lapacke/src/lapacke_ssbgvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbgvx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_ssbgvx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_int ka, lapack_int kb, float* ab, lapack_int ldab, float* bb, lapack_int ldbb, float* q, @@ -44,7 +44,7 @@ lapack_int LAPACKE_ssbgvx_work( int matrix_order, char jobz, char range, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssbgvx( &jobz, &range, &uplo, &n, &ka, &kb, ab, &ldab, bb, &ldbb, q, &ldq, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, @@ -52,7 +52,7 @@ lapack_int LAPACKE_ssbgvx_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,ka+1); lapack_int ldbb_t = MAX(1,kb+1); lapack_int ldq_t = MAX(1,n); @@ -108,8 +108,8 @@ lapack_int LAPACKE_ssbgvx_work( int matrix_order, char jobz, char range, } } /* Transpose input matrices */ - LAPACKE_ssb_trans( matrix_order, uplo, n, ka, ab, ldab, ab_t, ldab_t ); - LAPACKE_ssb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, ka, ab, ldab, ab_t, ldab_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssbgvx( &jobz, &range, &uplo, &n, &ka, &kb, ab_t, &ldab_t, bb_t, &ldbb_t, q_t, &ldq_t, &vl, &vu, &il, &iu, &abstol, m, w, diff --git a/lapacke/src/lapacke_ssbtrd.c b/lapacke/src/lapacke_ssbtrd.c index dd2b9b6d..47b4b176 100644 --- a/lapacke/src/lapacke_ssbtrd.c +++ b/lapacke/src/lapacke_ssbtrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbtrd( int matrix_order, char vect, char uplo, lapack_int n, +lapack_int LAPACKE_ssbtrd( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* d, float* e, float* q, lapack_int ldq ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssbtrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_ssb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -10; } } @@ -61,7 +61,7 @@ lapack_int LAPACKE_ssbtrd( int matrix_order, char vect, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssbtrd_work( matrix_order, vect, uplo, n, kd, ab, ldab, d, e, + info = LAPACKE_ssbtrd_work( matrix_layout, vect, uplo, n, kd, ab, ldab, d, e, q, ldq, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssbtrd_work.c b/lapacke/src/lapacke_ssbtrd_work.c index fb730a70..8637d646 100644 --- a/lapacke/src/lapacke_ssbtrd_work.c +++ b/lapacke/src/lapacke_ssbtrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssbtrd_work( int matrix_order, char vect, char uplo, +lapack_int LAPACKE_ssbtrd_work( int matrix_layout, char vect, char uplo, lapack_int n, lapack_int kd, float* ab, lapack_int ldab, float* d, float* e, float* q, lapack_int ldq, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssbtrd( &vect, &uplo, &n, &kd, ab, &ldab, d, e, q, &ldq, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldq_t = MAX(1,n); float* ab_t = NULL; @@ -76,9 +76,9 @@ lapack_int LAPACKE_ssbtrd_work( int matrix_order, char vect, char uplo, } } /* Transpose input matrices */ - LAPACKE_ssb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_ssb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( vect, 'u' ) || LAPACKE_lsame( vect, 'v' ) ) { - LAPACKE_sge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_sge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_ssbtrd( &vect, &uplo, &n, &kd, ab_t, &ldab_t, d, e, q_t, &ldq_t, diff --git a/lapacke/src/lapacke_ssfrk.c b/lapacke/src/lapacke_ssfrk.c index 2a6ac48f..fec3e22d 100644 --- a/lapacke/src/lapacke_ssfrk.c +++ b/lapacke/src/lapacke_ssfrk.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_ssfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, float alpha, const float* a, lapack_int lda, float beta, float* c ) { lapack_int ka, na; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssfrk", -1 ); return -1; } @@ -46,7 +46,7 @@ lapack_int LAPACKE_ssfrk( int matrix_order, char transr, char uplo, char trans, /* Optionally check input matrices for NaNs */ ka = LAPACKE_lsame( trans, 'n' ) ? k : n; na = LAPACKE_lsame( trans, 'n' ) ? n : k; - if( LAPACKE_sge_nancheck( matrix_order, na, ka, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, na, ka, a, lda ) ) { return -8; } if( LAPACKE_s_nancheck( 1, &alpha, 1 ) ) { @@ -59,6 +59,6 @@ lapack_int LAPACKE_ssfrk( int matrix_order, char transr, char uplo, char trans, return -11; } #endif - return LAPACKE_ssfrk_work( matrix_order, transr, uplo, trans, n, k, alpha, + return LAPACKE_ssfrk_work( matrix_layout, transr, uplo, trans, n, k, alpha, a, lda, beta, c ); } diff --git a/lapacke/src/lapacke_ssfrk_work.c b/lapacke/src/lapacke_ssfrk_work.c index 13145ac5..26b5fae4 100644 --- a/lapacke/src/lapacke_ssfrk_work.c +++ b/lapacke/src/lapacke_ssfrk_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssfrk_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ssfrk_work( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, float alpha, const float* a, lapack_int lda, float beta, float* c ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssfrk( &transr, &uplo, &trans, &n, &k, &alpha, a, &lda, &beta, c ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int na = LAPACKE_lsame( trans, 'n' ) ? n : k; lapack_int ka = LAPACKE_lsame( trans, 'n' ) ? k : n; lapack_int lda_t = MAX(1,na); @@ -71,8 +71,8 @@ lapack_int LAPACKE_ssfrk_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, na, ka, a, lda, a_t, lda_t ); - LAPACKE_spf_trans( matrix_order, transr, uplo, n, c, c_t ); + LAPACKE_sge_trans( matrix_layout, na, ka, a, lda, a_t, lda_t ); + LAPACKE_spf_trans( matrix_layout, transr, uplo, n, c, c_t ); /* Call LAPACK function and adjust info */ LAPACK_ssfrk( &transr, &uplo, &trans, &n, &k, &alpha, a_t, &lda_t, &beta, c_t ); diff --git a/lapacke/src/lapacke_sspcon.c b/lapacke/src/lapacke_sspcon.c index 12706ad3..d203d203 100644 --- a/lapacke/src/lapacke_sspcon.c +++ b/lapacke/src/lapacke_sspcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sspcon( int matrix_layout, char uplo, lapack_int n, const float* ap, const lapack_int* ipiv, float anorm, float* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspcon", -1 ); return -1; } @@ -65,7 +65,7 @@ lapack_int LAPACKE_sspcon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sspcon_work( matrix_order, uplo, n, ap, ipiv, anorm, rcond, + info = LAPACKE_sspcon_work( matrix_layout, uplo, n, ap, ipiv, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sspcon_work.c b/lapacke/src/lapacke_sspcon_work.c index beab7950..6f2e2f7e 100644 --- a/lapacke/src/lapacke_sspcon_work.c +++ b/lapacke/src/lapacke_sspcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sspcon_work( int matrix_layout, char uplo, lapack_int n, const float* ap, const lapack_int* ipiv, float anorm, float* rcond, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspcon( &uplo, &n, ap, ipiv, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -55,7 +55,7 @@ lapack_int LAPACKE_sspcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_sspcon( &uplo, &n, ap_t, ipiv, &anorm, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_sspev.c b/lapacke/src/lapacke_sspev.c index 21466f00..d83d61af 100644 --- a/lapacke/src/lapacke_sspev.c +++ b/lapacke/src/lapacke_sspev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_sspev( int matrix_layout, char jobz, char uplo, lapack_int n, float* ap, float* w, float* z, lapack_int ldz ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspev", -1 ); return -1; } @@ -55,7 +55,7 @@ lapack_int LAPACKE_sspev( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sspev_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_sspev_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sspev_work.c b/lapacke/src/lapacke_sspev_work.c index e02cbd40..f938c58c 100644 --- a/lapacke/src/lapacke_sspev_work.c +++ b/lapacke/src/lapacke_sspev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_sspev_work( int matrix_layout, char jobz, char uplo, lapack_int n, float* ap, float* w, float* z, lapack_int ldz, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspev( &jobz, &uplo, &n, ap, w, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; float* ap_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_sspev_work( int matrix_order, char jobz, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_sspev( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sspevd.c b/lapacke/src/lapacke_sspevd.c index eece4f70..c9f8f3f2 100644 --- a/lapacke/src/lapacke_sspevd.c +++ b/lapacke/src/lapacke_sspevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_sspevd( int matrix_layout, char jobz, char uplo, lapack_int n, float* ap, float* w, float* z, lapack_int ldz ) { lapack_int info = 0; @@ -43,7 +43,7 @@ lapack_int LAPACKE_sspevd( int matrix_order, char jobz, char uplo, lapack_int n, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspevd", -1 ); return -1; } @@ -54,7 +54,7 @@ lapack_int LAPACKE_sspevd( int matrix_order, char jobz, char uplo, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sspevd_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_sspevd_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -73,7 +73,7 @@ lapack_int LAPACKE_sspevd( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sspevd_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_sspevd_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sspevd_work.c b/lapacke/src/lapacke_sspevd_work.c index 606b97a8..37844bcf 100644 --- a/lapacke/src/lapacke_sspevd_work.c +++ b/lapacke/src/lapacke_sspevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_sspevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, float* ap, float* w, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspevd( &jobz, &uplo, &n, ap, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; float* ap_t = NULL; @@ -77,7 +77,7 @@ lapack_int LAPACKE_sspevd_work( int matrix_order, char jobz, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_sspevd( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_sspevx.c b/lapacke/src/lapacke_sspevx.c index 497d7ed4..1901c196 100644 --- a/lapacke/src/lapacke_sspevx.c +++ b/lapacke/src/lapacke_sspevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_sspevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, float* ap, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, @@ -42,7 +42,7 @@ lapack_int LAPACKE_sspevx( int matrix_order, char jobz, char range, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspevx", -1 ); return -1; } @@ -77,7 +77,7 @@ lapack_int LAPACKE_sspevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sspevx_work( matrix_order, jobz, range, uplo, n, ap, vl, vu, + info = LAPACKE_sspevx_work( matrix_layout, jobz, range, uplo, n, ap, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sspevx_work.c b/lapacke/src/lapacke_sspevx_work.c index f2b6a9d0..c4238e8e 100644 --- a/lapacke/src/lapacke_sspevx_work.c +++ b/lapacke/src/lapacke_sspevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sspevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, float* ap, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sspevx_work( int matrix_order, char jobz, char range, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspevx( &jobz, &range, &uplo, &n, ap, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, iwork, ifail, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -77,7 +77,7 @@ lapack_int LAPACKE_sspevx_work( int matrix_order, char jobz, char range, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_sspevx( &jobz, &range, &uplo, &n, ap_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, iwork, ifail, &info ); diff --git a/lapacke/src/lapacke_sspgst.c b/lapacke/src/lapacke_sspgst.c index f4dde6f6..bee34a35 100644 --- a/lapacke/src/lapacke_sspgst.c +++ b/lapacke/src/lapacke_sspgst.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspgst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_sspgst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, float* ap, const float* bp ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspgst", -1 ); return -1; } @@ -49,5 +49,5 @@ lapack_int LAPACKE_sspgst( int matrix_order, lapack_int itype, char uplo, return -6; } #endif - return LAPACKE_sspgst_work( matrix_order, itype, uplo, n, ap, bp ); + return LAPACKE_sspgst_work( matrix_layout, itype, uplo, n, ap, bp ); } diff --git a/lapacke/src/lapacke_sspgst_work.c b/lapacke/src/lapacke_sspgst_work.c index e24e3d97..8c29552f 100644 --- a/lapacke/src/lapacke_sspgst_work.c +++ b/lapacke/src/lapacke_sspgst_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspgst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_sspgst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, float* ap, const float* bp ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspgst( &itype, &uplo, &n, ap, bp, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; float* bp_t = NULL; /* Allocate memory for temporary array(s) */ @@ -60,8 +60,8 @@ lapack_int LAPACKE_sspgst_work( int matrix_order, lapack_int itype, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_sspgst( &itype, &uplo, &n, ap_t, bp_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sspgv.c b/lapacke/src/lapacke_sspgv.c index 128bd567..9509447f 100644 --- a/lapacke/src/lapacke_sspgv.c +++ b/lapacke/src/lapacke_sspgv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspgv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* ap, float* bp, float* w, float* z, lapack_int ldz ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspgv", -1 ); return -1; } @@ -59,7 +59,7 @@ lapack_int LAPACKE_sspgv( int matrix_order, lapack_int itype, char jobz, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_sspgv_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, z, + info = LAPACKE_sspgv_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sspgv_work.c b/lapacke/src/lapacke_sspgv_work.c index 9b2e069e..7378fb47 100644 --- a/lapacke/src/lapacke_sspgv_work.c +++ b/lapacke/src/lapacke_sspgv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* ap, float* bp, float* w, float* z, lapack_int ldz, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspgv( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; float* ap_t = NULL; @@ -77,8 +77,8 @@ lapack_int LAPACKE_sspgv_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_sspgv( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_sspgvd.c b/lapacke/src/lapacke_sspgvd.c index 4c314e5d..b64f6624 100644 --- a/lapacke/src/lapacke_sspgvd.c +++ b/lapacke/src/lapacke_sspgvd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspgvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* ap, float* bp, float* w, float* z, lapack_int ldz ) { @@ -44,7 +44,7 @@ lapack_int LAPACKE_sspgvd( int matrix_order, lapack_int itype, char jobz, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspgvd", -1 ); return -1; } @@ -58,7 +58,7 @@ lapack_int LAPACKE_sspgvd( int matrix_order, lapack_int itype, char jobz, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sspgvd_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, + info = LAPACKE_sspgvd_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_sspgvd( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sspgvd_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, + info = LAPACKE_sspgvd_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sspgvd_work.c b/lapacke/src/lapacke_sspgvd_work.c index a3984e12..9bde8fbb 100644 --- a/lapacke/src/lapacke_sspgvd_work.c +++ b/lapacke/src/lapacke_sspgvd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspgvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, float* ap, float* bp, float* w, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspgvd( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; float* ap_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_sspgvd_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_sspgvd( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_sspgvx.c b/lapacke/src/lapacke_sspgvx.c index 1c335485..2f28da4c 100644 --- a/lapacke/src/lapacke_sspgvx.c +++ b/lapacke/src/lapacke_sspgvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspgvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* ap, float* bp, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, @@ -42,7 +42,7 @@ lapack_int LAPACKE_sspgvx( int matrix_order, lapack_int itype, char jobz, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspgvx", -1 ); return -1; } @@ -80,7 +80,7 @@ lapack_int LAPACKE_sspgvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sspgvx_work( matrix_order, itype, jobz, range, uplo, n, ap, + info = LAPACKE_sspgvx_work( matrix_layout, itype, jobz, range, uplo, n, ap, bp, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sspgvx_work.c b/lapacke/src/lapacke_sspgvx_work.c index 32dacac4..904b4407 100644 --- a/lapacke/src/lapacke_sspgvx_work.c +++ b/lapacke/src/lapacke_sspgvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspgvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_sspgvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* ap, float* bp, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sspgvx_work( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspgvx( &itype, &jobz, &range, &uplo, &n, ap, bp, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, iwork, ifail, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -84,8 +84,8 @@ lapack_int LAPACKE_sspgvx_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_sspgvx( &itype, &jobz, &range, &uplo, &n, ap_t, bp_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, iwork, ifail, diff --git a/lapacke/src/lapacke_ssprfs.c b/lapacke/src/lapacke_ssprfs.c index 89b5512f..0408ae5c 100644 --- a/lapacke/src/lapacke_ssprfs.c +++ b/lapacke/src/lapacke_ssprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const float* afp, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, @@ -42,7 +42,7 @@ lapack_int LAPACKE_ssprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssprfs", -1 ); return -1; } @@ -54,10 +54,10 @@ lapack_int LAPACKE_ssprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_ssp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -73,7 +73,7 @@ lapack_int LAPACKE_ssprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssprfs_work( matrix_order, uplo, n, nrhs, ap, afp, ipiv, b, + info = LAPACKE_ssprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssprfs_work.c b/lapacke/src/lapacke_ssprfs_work.c index 8c3acd7c..7afeded6 100644 --- a/lapacke/src/lapacke_ssprfs_work.c +++ b/lapacke/src/lapacke_ssprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const float* afp, const lapack_int* ipiv, const float* b, lapack_int ldb, float* x, @@ -41,14 +41,14 @@ lapack_int LAPACKE_ssprfs_work( int matrix_order, char uplo, lapack_int n, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssprfs( &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); float* b_t = NULL; @@ -90,10 +90,10 @@ lapack_int LAPACKE_ssprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_ssprfs( &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_sspsv.c b/lapacke/src/lapacke_sspsv.c index 3b1a3b0a..85e4a16c 100644 --- a/lapacke/src/lapacke_sspsv.c +++ b/lapacke/src/lapacke_sspsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sspsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* ap, lapack_int* ipiv, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspsv", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_sspsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_ssp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_sspsv_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_sspsv_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_sspsv_work.c b/lapacke/src/lapacke_sspsv_work.c index 03c156df..49b5e50a 100644 --- a/lapacke/src/lapacke_sspsv_work.c +++ b/lapacke/src/lapacke_sspsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_sspsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* ap, lapack_int* ipiv, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspsv( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); float* b_t = NULL; float* ap_t = NULL; @@ -67,8 +67,8 @@ lapack_int LAPACKE_sspsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_sspsv( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sspsvx.c b/lapacke/src/lapacke_sspsvx.c index 0dfb4efb..05bd32f9 100644 --- a/lapacke/src/lapacke_sspsvx.c +++ b/lapacke/src/lapacke_sspsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_sspsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const float* ap, float* afp, lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, float* rcond, float* ferr, @@ -42,7 +42,7 @@ lapack_int LAPACKE_sspsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sspsvx", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_sspsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_ssp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_sspsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sspsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_sspsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sspsvx_work.c b/lapacke/src/lapacke_sspsvx_work.c index 74067051..b74d8757 100644 --- a/lapacke/src/lapacke_sspsvx_work.c +++ b/lapacke/src/lapacke_sspsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sspsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_sspsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const float* ap, float* afp, lapack_int* ipiv, const float* b, lapack_int ldb, float* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sspsvx_work( int matrix_order, char fact, char uplo, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sspsvx( &fact, &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); float* b_t = NULL; @@ -90,10 +90,10 @@ lapack_int LAPACKE_sspsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_ssp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_sspsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_ssptrd.c b/lapacke/src/lapacke_ssptrd.c index 72c33cba..aa8b231c 100644 --- a/lapacke/src/lapacke_ssptrd.c +++ b/lapacke/src/lapacke_ssptrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssptrd( int matrix_order, char uplo, lapack_int n, float* ap, +lapack_int LAPACKE_ssptrd( int matrix_layout, char uplo, lapack_int n, float* ap, float* d, float* e, float* tau ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssptrd", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_ssptrd( int matrix_order, char uplo, lapack_int n, float* ap, return -4; } #endif - return LAPACKE_ssptrd_work( matrix_order, uplo, n, ap, d, e, tau ); + return LAPACKE_ssptrd_work( matrix_layout, uplo, n, ap, d, e, tau ); } diff --git a/lapacke/src/lapacke_ssptrd_work.c b/lapacke/src/lapacke_ssptrd_work.c index bb809db7..cf73dc64 100644 --- a/lapacke/src/lapacke_ssptrd_work.c +++ b/lapacke/src/lapacke_ssptrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssptrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptrd_work( int matrix_layout, char uplo, lapack_int n, float* ap, float* d, float* e, float* tau ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssptrd( &uplo, &n, ap, d, e, tau, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_ssptrd_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ssptrd( &uplo, &n, ap_t, d, e, tau, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssptrf.c b/lapacke/src/lapacke_ssptrf.c index dad59f14..4a5ec9c9 100644 --- a/lapacke/src/lapacke_ssptrf.c +++ b/lapacke/src/lapacke_ssptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssptrf( int matrix_order, char uplo, lapack_int n, float* ap, +lapack_int LAPACKE_ssptrf( int matrix_layout, char uplo, lapack_int n, float* ap, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_ssptrf( int matrix_order, char uplo, lapack_int n, float* ap, return -4; } #endif - return LAPACKE_ssptrf_work( matrix_order, uplo, n, ap, ipiv ); + return LAPACKE_ssptrf_work( matrix_layout, uplo, n, ap, ipiv ); } diff --git a/lapacke/src/lapacke_ssptrf_work.c b/lapacke/src/lapacke_ssptrf_work.c index 3bf21013..f0d8cfc4 100644 --- a/lapacke/src/lapacke_ssptrf_work.c +++ b/lapacke/src/lapacke_ssptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptrf_work( int matrix_layout, char uplo, lapack_int n, float* ap, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssptrf( &uplo, &n, ap, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_ssptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ssptrf( &uplo, &n, ap_t, ipiv, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssptri.c b/lapacke/src/lapacke_ssptri.c index 8026d15a..0dba9d34 100644 --- a/lapacke/src/lapacke_ssptri.c +++ b/lapacke/src/lapacke_ssptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssptri( int matrix_order, char uplo, lapack_int n, float* ap, +lapack_int LAPACKE_ssptri( int matrix_layout, char uplo, lapack_int n, float* ap, const lapack_int* ipiv ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssptri", -1 ); return -1; } @@ -55,7 +55,7 @@ lapack_int LAPACKE_ssptri( int matrix_order, char uplo, lapack_int n, float* ap, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssptri_work( matrix_order, uplo, n, ap, ipiv, work ); + info = LAPACKE_ssptri_work( matrix_layout, uplo, n, ap, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_ssptri_work.c b/lapacke/src/lapacke_ssptri_work.c index c1238220..184ab8ac 100644 --- a/lapacke/src/lapacke_ssptri_work.c +++ b/lapacke/src/lapacke_ssptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptri_work( int matrix_layout, char uplo, lapack_int n, float* ap, const lapack_int* ipiv, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssptri( &uplo, &n, ap, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_ssptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ssptri( &uplo, &n, ap_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssptrs.c b/lapacke/src/lapacke_ssptrs.c index 55b6bb1c..f8ad84eb 100644 --- a/lapacke/src/lapacke_ssptrs.c +++ b/lapacke/src/lapacke_ssptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const lapack_int* ipiv, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssptrs", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_ssptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_ssp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_ssptrs_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_ssptrs_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_ssptrs_work.c b/lapacke/src/lapacke_ssptrs_work.c index f4d85522..7a86ab36 100644 --- a/lapacke/src/lapacke_ssptrs_work.c +++ b/lapacke/src/lapacke_ssptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* ap, const lapack_int* ipiv, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssptrs( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); float* b_t = NULL; float* ap_t = NULL; @@ -68,8 +68,8 @@ lapack_int LAPACKE_ssptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_ssp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ssp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ssptrs( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_sstedc.c b/lapacke/src/lapacke_sstedc.c index 423286ec..f44d74d5 100644 --- a/lapacke/src/lapacke_sstedc.c +++ b/lapacke/src/lapacke_sstedc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstedc( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_sstedc( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ) { lapack_int info = 0; @@ -43,7 +43,7 @@ lapack_int LAPACKE_sstedc( int matrix_order, char compz, lapack_int n, float* d, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sstedc", -1 ); return -1; } @@ -56,13 +56,13 @@ lapack_int LAPACKE_sstedc( int matrix_order, char compz, lapack_int n, float* d, return -5; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sstedc_work( matrix_order, compz, n, d, e, z, ldz, + info = LAPACKE_sstedc_work( matrix_layout, compz, n, d, e, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -81,7 +81,7 @@ lapack_int LAPACKE_sstedc( int matrix_order, char compz, lapack_int n, float* d, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sstedc_work( matrix_order, compz, n, d, e, z, ldz, work, + info = LAPACKE_sstedc_work( matrix_layout, compz, n, d, e, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sstedc_work.c b/lapacke/src/lapacke_sstedc_work.c index 309de42e..152a23f4 100644 --- a/lapacke/src/lapacke_sstedc_work.c +++ b/lapacke/src/lapacke_sstedc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstedc_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_sstedc_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sstedc( &compz, &n, d, e, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ @@ -71,7 +71,7 @@ lapack_int LAPACKE_sstedc_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_sge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_sge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_sstedc( &compz, &n, d, e, z_t, &ldz_t, work, &lwork, iwork, diff --git a/lapacke/src/lapacke_sstegr.c b/lapacke/src/lapacke_sstegr.c index 5170d4f7..bd0cb4a4 100644 --- a/lapacke/src/lapacke_sstegr.c +++ b/lapacke/src/lapacke_sstegr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstegr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstegr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, @@ -46,7 +46,7 @@ lapack_int LAPACKE_sstegr( int matrix_order, char jobz, char range, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sstegr", -1 ); return -1; } @@ -73,7 +73,7 @@ lapack_int LAPACKE_sstegr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sstegr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_sstegr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -93,7 +93,7 @@ lapack_int LAPACKE_sstegr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sstegr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_sstegr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sstegr_work.c b/lapacke/src/lapacke_sstegr_work.c index 54bc3d21..c57d22e7 100644 --- a/lapacke/src/lapacke_sstegr_work.c +++ b/lapacke/src/lapacke_sstegr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstegr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstegr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, @@ -42,7 +42,7 @@ lapack_int LAPACKE_sstegr_work( int matrix_order, char jobz, char range, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sstegr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, isuppz, work, &lwork, iwork, &liwork, @@ -50,7 +50,7 @@ lapack_int LAPACKE_sstegr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_sstein.c b/lapacke/src/lapacke_sstein.c index e932abd3..593b743f 100644 --- a/lapacke/src/lapacke_sstein.c +++ b/lapacke/src/lapacke_sstein.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstein( int matrix_order, lapack_int n, const float* d, +lapack_int LAPACKE_sstein( int matrix_layout, lapack_int n, const float* d, const float* e, lapack_int m, const float* w, const lapack_int* iblock, const lapack_int* isplit, float* z, lapack_int ldz, lapack_int* ifailv ) @@ -41,7 +41,7 @@ lapack_int LAPACKE_sstein( int matrix_order, lapack_int n, const float* d, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sstein", -1 ); return -1; } @@ -69,7 +69,7 @@ lapack_int LAPACKE_sstein( int matrix_order, lapack_int n, const float* d, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sstein_work( matrix_order, n, d, e, m, w, iblock, isplit, z, + info = LAPACKE_sstein_work( matrix_layout, n, d, e, m, w, iblock, isplit, z, ldz, work, iwork, ifailv ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sstein_work.c b/lapacke/src/lapacke_sstein_work.c index 3aec7994..0c216054 100644 --- a/lapacke/src/lapacke_sstein_work.c +++ b/lapacke/src/lapacke_sstein_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstein_work( int matrix_order, lapack_int n, const float* d, +lapack_int LAPACKE_sstein_work( int matrix_layout, lapack_int n, const float* d, const float* e, lapack_int m, const float* w, const lapack_int* iblock, const lapack_int* isplit, float* z, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sstein_work( int matrix_order, lapack_int n, const float* d, lapack_int* ifailv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sstein( &n, d, e, &m, w, iblock, isplit, z, &ldz, work, iwork, ifailv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_sstemr.c b/lapacke/src/lapacke_sstemr.c index 3db6fbe1..6dce84ef 100644 --- a/lapacke/src/lapacke_sstemr.c +++ b/lapacke/src/lapacke_sstemr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstemr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstemr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* m, float* w, float* z, lapack_int ldz, lapack_int nzc, @@ -46,7 +46,7 @@ lapack_int LAPACKE_sstemr( int matrix_order, char jobz, char range, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sstemr", -1 ); return -1; } @@ -66,7 +66,7 @@ lapack_int LAPACKE_sstemr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sstemr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_sstemr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, m, w, z, ldz, nzc, isuppz, tryrac, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_sstemr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sstemr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_sstemr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, m, w, z, ldz, nzc, isuppz, tryrac, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sstemr_work.c b/lapacke/src/lapacke_sstemr_work.c index 384aecc4..448b0303 100644 --- a/lapacke/src/lapacke_sstemr_work.c +++ b/lapacke/src/lapacke_sstemr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstemr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstemr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, lapack_int* m, float* w, float* z, @@ -43,7 +43,7 @@ lapack_int LAPACKE_sstemr_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sstemr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, m, w, z, &ldz, &nzc, isuppz, tryrac, work, &lwork, iwork, &liwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_sstemr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_ssteqr.c b/lapacke/src/lapacke_ssteqr.c index cc409f87..0a9385df 100644 --- a/lapacke/src/lapacke_ssteqr.c +++ b/lapacke/src/lapacke_ssteqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssteqr( int matrix_order, char compz, lapack_int n, float* d, +lapack_int LAPACKE_ssteqr( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ) { lapack_int info = 0; /* Additional scalars declarations for work arrays */ lapack_int lwork; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssteqr", -1 ); return -1; } @@ -53,7 +53,7 @@ lapack_int LAPACKE_ssteqr( int matrix_order, char compz, lapack_int n, float* d, return -5; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } @@ -71,7 +71,7 @@ lapack_int LAPACKE_ssteqr( int matrix_order, char compz, lapack_int n, float* d, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssteqr_work( matrix_order, compz, n, d, e, z, ldz, work ); + info = LAPACKE_ssteqr_work( matrix_layout, compz, n, d, e, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_ssteqr_work.c b/lapacke/src/lapacke_ssteqr_work.c index 30475046..731ad07c 100644 --- a/lapacke/src/lapacke_ssteqr_work.c +++ b/lapacke/src/lapacke_ssteqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_ssteqr_work( int matrix_layout, char compz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssteqr( &compz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_ssteqr_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_sge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_sge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_ssteqr( &compz, &n, d, e, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_sstev.c b/lapacke/src/lapacke_sstev.c index d60bef4b..8cfdeb7f 100644 --- a/lapacke/src/lapacke_sstev.c +++ b/lapacke/src/lapacke_sstev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstev( int matrix_order, char jobz, lapack_int n, float* d, +lapack_int LAPACKE_sstev( int matrix_layout, char jobz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sstev", -1 ); return -1; } @@ -60,7 +60,7 @@ lapack_int LAPACKE_sstev( int matrix_order, char jobz, lapack_int n, float* d, } } /* Call middle-level interface */ - info = LAPACKE_sstev_work( matrix_order, jobz, n, d, e, z, ldz, work ); + info = LAPACKE_sstev_work( matrix_layout, jobz, n, d, e, z, ldz, work ); /* Release memory and exit */ if( LAPACKE_lsame( jobz, 'v' ) ) { LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sstev_work.c b/lapacke/src/lapacke_sstev_work.c index 0b9afc5b..c148228c 100644 --- a/lapacke/src/lapacke_sstev_work.c +++ b/lapacke/src/lapacke_sstev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstev_work( int matrix_order, char jobz, lapack_int n, +lapack_int LAPACKE_sstev_work( int matrix_layout, char jobz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sstev( &jobz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_sstevd.c b/lapacke/src/lapacke_sstevd.c index 15e5a302..540a1c25 100644 --- a/lapacke/src/lapacke_sstevd.c +++ b/lapacke/src/lapacke_sstevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstevd( int matrix_order, char jobz, lapack_int n, float* d, +lapack_int LAPACKE_sstevd( int matrix_layout, char jobz, lapack_int n, float* d, float* e, float* z, lapack_int ldz ) { lapack_int info = 0; @@ -43,7 +43,7 @@ lapack_int LAPACKE_sstevd( int matrix_order, char jobz, lapack_int n, float* d, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sstevd", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_sstevd( int matrix_order, char jobz, lapack_int n, float* d, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sstevd_work( matrix_order, jobz, n, d, e, z, ldz, + info = LAPACKE_sstevd_work( matrix_layout, jobz, n, d, e, z, ldz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_sstevd( int matrix_order, char jobz, lapack_int n, float* d, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sstevd_work( matrix_order, jobz, n, d, e, z, ldz, work, + info = LAPACKE_sstevd_work( matrix_layout, jobz, n, d, e, z, ldz, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sstevd_work.c b/lapacke/src/lapacke_sstevd_work.c index 62fee859..346eea6e 100644 --- a/lapacke/src/lapacke_sstevd_work.c +++ b/lapacke/src/lapacke_sstevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstevd_work( int matrix_order, char jobz, lapack_int n, +lapack_int LAPACKE_sstevd_work( int matrix_layout, char jobz, lapack_int n, float* d, float* e, float* z, lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sstevd( &jobz, &n, d, e, z, &ldz, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); float* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_sstevr.c b/lapacke/src/lapacke_sstevr.c index de1cea4e..7759c1c9 100644 --- a/lapacke/src/lapacke_sstevr.c +++ b/lapacke/src/lapacke_sstevr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstevr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstevr( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, @@ -46,7 +46,7 @@ lapack_int LAPACKE_sstevr( int matrix_order, char jobz, char range, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sstevr", -1 ); return -1; } @@ -73,7 +73,7 @@ lapack_int LAPACKE_sstevr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_sstevr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_sstevr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -93,7 +93,7 @@ lapack_int LAPACKE_sstevr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sstevr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_sstevr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_sstevr_work.c b/lapacke/src/lapacke_sstevr_work.c index d5ee71d3..62523314 100644 --- a/lapacke/src/lapacke_sstevr_work.c +++ b/lapacke/src/lapacke_sstevr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstevr_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, @@ -42,7 +42,7 @@ lapack_int LAPACKE_sstevr_work( int matrix_order, char jobz, char range, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sstevr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, isuppz, work, &lwork, iwork, &liwork, @@ -50,7 +50,7 @@ lapack_int LAPACKE_sstevr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); diff --git a/lapacke/src/lapacke_sstevx.c b/lapacke/src/lapacke_sstevx.c index 56bca6b4..40442708 100644 --- a/lapacke/src/lapacke_sstevx.c +++ b/lapacke/src/lapacke_sstevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstevx( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstevx( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, lapack_int ldz, @@ -42,7 +42,7 @@ lapack_int LAPACKE_sstevx( int matrix_order, char jobz, char range, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_sstevx", -1 ); return -1; } @@ -80,7 +80,7 @@ lapack_int LAPACKE_sstevx( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_sstevx_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_sstevx_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, work, iwork, ifail ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_sstevx_work.c b/lapacke/src/lapacke_sstevx_work.c index 52d96963..c118bf92 100644 --- a/lapacke/src/lapacke_sstevx_work.c +++ b/lapacke/src/lapacke_sstevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_sstevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_sstevx_work( int matrix_layout, char jobz, char range, lapack_int n, float* d, float* e, float vl, float vu, lapack_int il, lapack_int iu, float abstol, lapack_int* m, float* w, float* z, @@ -41,14 +41,14 @@ lapack_int LAPACKE_sstevx_work( int matrix_order, char jobz, char range, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_sstevx( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, iwork, ifail, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); diff --git a/lapacke/src/lapacke_ssycon.c b/lapacke/src/lapacke_ssycon.c index 58f3388f..c91b84ff 100644 --- a/lapacke/src/lapacke_ssycon.c +++ b/lapacke/src/lapacke_ssycon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssycon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssycon( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssycon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_s_nancheck( 1, &anorm, 1 ) ) { @@ -65,7 +65,7 @@ lapack_int LAPACKE_ssycon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssycon_work( matrix_order, uplo, n, a, lda, ipiv, anorm, + info = LAPACKE_ssycon_work( matrix_layout, uplo, n, a, lda, ipiv, anorm, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssycon_work.c b/lapacke/src/lapacke_ssycon_work.c index 266b913e..cc1b52d4 100644 --- a/lapacke/src/lapacke_ssycon_work.c +++ b/lapacke/src/lapacke_ssycon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssycon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssycon_work( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, const lapack_int* ipiv, float anorm, float* rcond, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssycon( &uplo, &n, a, &lda, ipiv, &anorm, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_ssycon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssycon( &uplo, &n, a_t, &lda_t, ipiv, &anorm, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_ssyconv.c b/lapacke/src/lapacke_ssyconv.c index f379fcc9..b6c34a55 100644 --- a/lapacke/src/lapacke_ssyconv.c +++ b/lapacke/src/lapacke_ssyconv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyconv( int matrix_order, char uplo, char way, lapack_int n, +lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyconv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, lda, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, lda, n, a, lda ) ) { return -5; } #endif @@ -55,7 +55,7 @@ lapack_int LAPACKE_ssyconv( int matrix_order, char uplo, char way, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssyconv_work( matrix_order, uplo, way, n, a, lda, ipiv, + info = LAPACKE_ssyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssyconv_work.c b/lapacke/src/lapacke_ssyconv_work.c index 497d63f0..52121153 100644 --- a/lapacke/src/lapacke_ssyconv_work.c +++ b/lapacke/src/lapacke_ssyconv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyconv_work( int matrix_order, char uplo, char way, +lapack_int LAPACKE_ssyconv_work( int matrix_layout, char uplo, char way, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyconv( &uplo, &way, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,lda); float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_ssyconv_work( int matrix_order, char uplo, char way, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, lda, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, lda, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssyconv( &uplo, &way, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssyequb.c b/lapacke/src/lapacke_ssyequb.c index 2b7ff0a9..5a3ac28b 100644 --- a/lapacke/src/lapacke_ssyequb.c +++ b/lapacke/src/lapacke_ssyequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyequb( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float* s, float* scond, float* amax ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_ssyequb( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssyequb_work( matrix_order, uplo, n, a, lda, s, scond, amax, + info = LAPACKE_ssyequb_work( matrix_layout, uplo, n, a, lda, s, scond, amax, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssyequb_work.c b/lapacke/src/lapacke_ssyequb_work.c index ad6377d8..68c0e452 100644 --- a/lapacke/src/lapacke_ssyequb_work.c +++ b/lapacke/src/lapacke_ssyequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyequb_work( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float* s, float* scond, float* amax, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyequb( &uplo, &n, a, &lda, s, scond, amax, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_ssyequb_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssyequb( &uplo, &n, a_t, &lda_t, s, scond, amax, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssyev.c b/lapacke/src/lapacke_ssyev.c index 3cbce419..f49437e7 100644 --- a/lapacke/src/lapacke_ssyev.c +++ b/lapacke/src/lapacke_ssyev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssyev( int matrix_layout, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* w ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyev", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssyev_work( matrix_order, jobz, uplo, n, a, lda, w, + info = LAPACKE_ssyev_work( matrix_layout, jobz, uplo, n, a, lda, w, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_ssyev( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssyev_work( matrix_order, jobz, uplo, n, a, lda, w, work, + info = LAPACKE_ssyev_work( matrix_layout, jobz, uplo, n, a, lda, w, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssyev_work.c b/lapacke/src/lapacke_ssyev_work.c index e1fa92a2..e5a61e14 100644 --- a/lapacke/src/lapacke_ssyev_work.c +++ b/lapacke/src/lapacke_ssyev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssyev_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_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyev( &jobz, &uplo, &n, a, &lda, w, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_ssyev_work( int matrix_order, char jobz, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + 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 ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssyevd.c b/lapacke/src/lapacke_ssyevd.c index ffdebd02..28f3f321 100644 --- a/lapacke/src/lapacke_ssyevd.c +++ b/lapacke/src/lapacke_ssyevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_ssyevd( int matrix_layout, char jobz, char uplo, lapack_int n, float* a, lapack_int lda, float* w ) { lapack_int info = 0; @@ -43,18 +43,18 @@ lapack_int LAPACKE_ssyevd( int matrix_order, char jobz, char uplo, lapack_int n, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyevd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssyevd_work( matrix_order, jobz, uplo, n, a, lda, w, + info = LAPACKE_ssyevd_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_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssyevd_work( matrix_order, jobz, uplo, n, a, lda, w, work, + info = LAPACKE_ssyevd_work( matrix_layout, jobz, uplo, n, a, lda, w, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssyevd_work.c b/lapacke/src/lapacke_ssyevd_work.c index c9923e46..55d8eb42 100644 --- a/lapacke/src/lapacke_ssyevd_work.c +++ b/lapacke/src/lapacke_ssyevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_ssyevd_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 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyevd( &jobz, &uplo, &n, a, &lda, w, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_ssyevd_work( int matrix_order, char jobz, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + 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, &liwork, &info ); diff --git a/lapacke/src/lapacke_ssyevr.c b/lapacke/src/lapacke_ssyevr.c index 555c9792..da74c0b4 100644 --- a/lapacke/src/lapacke_ssyevr.c +++ b/lapacke/src/lapacke_ssyevr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevr( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_ssyevr( 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, @@ -46,13 +46,13 @@ lapack_int LAPACKE_ssyevr( int matrix_order, char jobz, char range, char uplo, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyevr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_s_nancheck( 1, &abstol, 1 ) ) { @@ -70,7 +70,7 @@ lapack_int LAPACKE_ssyevr( int matrix_order, char jobz, char range, char uplo, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssyevr_work( matrix_order, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_ssyevr_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -90,7 +90,7 @@ lapack_int LAPACKE_ssyevr( int matrix_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssyevr_work( matrix_order, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_ssyevr_work( matrix_layout, jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ssyevr_work.c b/lapacke/src/lapacke_ssyevr_work.c index 11d49aa0..d6be62c8 100644 --- a/lapacke/src/lapacke_ssyevr_work.c +++ b/lapacke/src/lapacke_ssyevr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_ssyevr_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, @@ -43,7 +43,7 @@ lapack_int LAPACKE_ssyevr_work( int matrix_order, char jobz, char range, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyevr( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, isuppz, work, &lwork, iwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_ssyevr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -92,7 +92,7 @@ lapack_int LAPACKE_ssyevr_work( int matrix_order, char jobz, char range, } } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssyevr( &jobz, &range, &uplo, &n, a_t, &lda_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, isuppz, work, &lwork, diff --git a/lapacke/src/lapacke_ssyevx.c b/lapacke/src/lapacke_ssyevx.c index 23a08ddb..b1e2fd6a 100644 --- a/lapacke/src/lapacke_ssyevx.c +++ b/lapacke/src/lapacke_ssyevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_ssyevx( 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, @@ -44,13 +44,13 @@ lapack_int LAPACKE_ssyevx( int matrix_order, char jobz, char range, char uplo, lapack_int* iwork = NULL; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyevx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_s_nancheck( 1, &abstol, 1 ) ) { @@ -74,7 +74,7 @@ lapack_int LAPACKE_ssyevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_ssyevx_work( matrix_order, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_ssyevx_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_order, char jobz, char range, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssyevx_work( matrix_order, jobz, range, uplo, n, a, lda, vl, + info = LAPACKE_ssyevx_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 */ diff --git a/lapacke/src/lapacke_ssyevx_work.c b/lapacke/src/lapacke_ssyevx_work.c index 7b309c03..f900fc76 100644 --- a/lapacke/src/lapacke_ssyevx_work.c +++ b/lapacke/src/lapacke_ssyevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_ssyevx_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, @@ -42,7 +42,7 @@ lapack_int LAPACKE_ssyevx_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyevx( &jobz, &range, &uplo, &n, a, &lda, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, &lwork, iwork, ifail, @@ -50,7 +50,7 @@ lapack_int LAPACKE_ssyevx_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -91,7 +91,7 @@ lapack_int LAPACKE_ssyevx_work( int matrix_order, char jobz, char range, } } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + 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, &iu, &abstol, m, w, z_t, &ldz_t, work, &lwork, iwork, diff --git a/lapacke/src/lapacke_ssygst.c b/lapacke/src/lapacke_ssygst.c index 46a91701..23f02757 100644 --- a/lapacke/src/lapacke_ssygst.c +++ b/lapacke/src/lapacke_ssygst.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_ssygst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, float* a, lapack_int lda, const float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssygst", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -7; } #endif - return LAPACKE_ssygst_work( matrix_order, itype, uplo, n, a, lda, b, ldb ); + return LAPACKE_ssygst_work( matrix_layout, itype, uplo, n, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_ssygst_work.c b/lapacke/src/lapacke_ssygst_work.c index 71b42bc7..2619babd 100644 --- a/lapacke/src/lapacke_ssygst_work.c +++ b/lapacke/src/lapacke_ssygst_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_ssygst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, float* a, lapack_int lda, const float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssygst( &itype, &uplo, &n, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -72,8 +72,8 @@ lapack_int LAPACKE_ssygst_work( int matrix_order, lapack_int itype, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, 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_ssygst( &itype, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssygv.c b/lapacke/src/lapacke_ssygv.c index 2e837e19..af299890 100644 --- a/lapacke/src/lapacke_ssygv.c +++ b/lapacke/src/lapacke_ssygv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygv( 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 ) { @@ -41,21 +41,21 @@ lapack_int LAPACKE_ssygv( int matrix_order, lapack_int itype, char jobz, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssygv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssygv_work( matrix_order, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_ssygv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,7 +68,7 @@ lapack_int LAPACKE_ssygv( int matrix_order, lapack_int itype, char jobz, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssygv_work( matrix_order, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_ssygv_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssygv_work.c b/lapacke/src/lapacke_ssygv_work.c index b8108e0f..00e0502f 100644 --- a/lapacke/src/lapacke_ssygv_work.c +++ b/lapacke/src/lapacke_ssygv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygv_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 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssygv( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -80,8 +80,8 @@ lapack_int LAPACKE_ssygv_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_ssygvd.c b/lapacke/src/lapacke_ssygvd.c index e0371573..3304b8cb 100644 --- a/lapacke/src/lapacke_ssygvd.c +++ b/lapacke/src/lapacke_ssygvd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvd( 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 ) { @@ -44,21 +44,21 @@ lapack_int LAPACKE_ssygvd( int matrix_order, lapack_int itype, char jobz, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssygvd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssygvd_work( matrix_order, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_ssygvd_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_ssygvd( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssygvd_work( matrix_order, itype, jobz, uplo, n, a, lda, b, + info = LAPACKE_ssygvd_work( matrix_layout, itype, jobz, uplo, n, a, lda, b, ldb, w, work, lwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssygvd_work.c b/lapacke/src/lapacke_ssygvd_work.c index 8bfaa466..2b466c6a 100644 --- a/lapacke/src/lapacke_ssygvd_work.c +++ b/lapacke/src/lapacke_ssygvd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvd_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, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssygvd( &itype, &jobz, &uplo, &n, a, &lda, b, &ldb, w, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -81,8 +81,8 @@ lapack_int LAPACKE_ssygvd_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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_ssygvd( &itype, &jobz, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, w, work, &lwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_ssygvx.c b/lapacke/src/lapacke_ssygvx.c index 8c9df2a7..1ad39fc7 100644 --- a/lapacke/src/lapacke_ssygvx.c +++ b/lapacke/src/lapacke_ssygvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float vl, float vu, lapack_int il, lapack_int iu, float abstol, @@ -45,19 +45,19 @@ lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork = NULL; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssygvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -7; } if( LAPACKE_s_nancheck( 1, &abstol, 1 ) ) { return -15; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } if( LAPACKE_lsame( range, 'v' ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_ssygvx_work( matrix_order, itype, jobz, range, uplo, n, a, + info = LAPACKE_ssygvx_work( matrix_layout, itype, jobz, range, uplo, n, a, lda, b, ldb, vl, vu, il, iu, abstol, m, w, z, ldz, &work_query, lwork, iwork, ifail ); if( info != 0 ) { @@ -92,7 +92,7 @@ lapack_int LAPACKE_ssygvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssygvx_work( matrix_order, itype, jobz, range, uplo, n, a, + info = LAPACKE_ssygvx_work( matrix_layout, itype, jobz, range, uplo, n, a, lda, b, ldb, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ssygvx_work.c b/lapacke/src/lapacke_ssygvx_work.c index f3e44c37..5d1cb1d6 100644 --- a/lapacke/src/lapacke_ssygvx_work.c +++ b/lapacke/src/lapacke_ssygvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssygvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_ssygvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float vl, float vu, lapack_int il, @@ -43,7 +43,7 @@ lapack_int LAPACKE_ssygvx_work( int matrix_order, lapack_int itype, char jobz, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssygvx( &itype, &jobz, &range, &uplo, &n, a, &lda, b, &ldb, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, &lwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_ssygvx_work( int matrix_order, lapack_int itype, char jobz, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -104,8 +104,8 @@ lapack_int LAPACKE_ssygvx_work( int matrix_order, lapack_int itype, char jobz, } } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, 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_ssygvx( &itype, &jobz, &range, &uplo, &n, a_t, &lda_t, b_t, &ldb_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, diff --git a/lapacke/src/lapacke_ssyrfs.c b/lapacke/src/lapacke_ssyrfs.c index e656b1d6..da76a7b0 100644 --- a/lapacke/src/lapacke_ssyrfs.c +++ b/lapacke/src/lapacke_ssyrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* b, @@ -43,22 +43,22 @@ lapack_int LAPACKE_ssyrfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_ssyrfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssyrfs_work( matrix_order, uplo, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_ssyrfs_work( matrix_layout, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssyrfs_work.c b/lapacke/src/lapacke_ssyrfs_work.c index 678740ff..6e8c764d 100644 --- a/lapacke/src/lapacke_ssyrfs_work.c +++ b/lapacke/src/lapacke_ssyrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* b, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ssyrfs_work( int matrix_order, char uplo, lapack_int n, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyrfs( &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -101,10 +101,10 @@ lapack_int LAPACKE_ssyrfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_ssy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_ssyrfs( &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_ssyrfsx.c b/lapacke/src/lapacke_ssyrfsx.c index 9755c027..65a3526b 100644 --- a/lapacke/src/lapacke_ssyrfsx.c +++ b/lapacke/src/lapacke_ssyrfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyrfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_ssyrfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, const float* s, @@ -46,19 +46,19 @@ lapack_int LAPACKE_ssyrfsx( int matrix_order, char uplo, char equed, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyrfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( nparams>0 ) { @@ -71,7 +71,7 @@ lapack_int LAPACKE_ssyrfsx( int matrix_order, char uplo, char equed, return -11; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -87,7 +87,7 @@ lapack_int LAPACKE_ssyrfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssyrfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_ssyrfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, ipiv, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_ssyrfsx_work.c b/lapacke/src/lapacke_ssyrfsx_work.c index d9849c71..a46f759e 100644 --- a/lapacke/src/lapacke_ssyrfsx_work.c +++ b/lapacke/src/lapacke_ssyrfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyrfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_ssyrfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* af, lapack_int ldaf, const lapack_int* ipiv, @@ -45,7 +45,7 @@ lapack_int LAPACKE_ssyrfsx_work( int matrix_order, char uplo, char equed, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyrfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -54,7 +54,7 @@ lapack_int LAPACKE_ssyrfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -120,10 +120,10 @@ lapack_int LAPACKE_ssyrfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_ssy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_ssyrfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_ssysv.c b/lapacke/src/lapacke_ssysv.c index 4d3fae78..7da099b6 100644 --- a/lapacke/src/lapacke_ssysv.c +++ b/lapacke/src/lapacke_ssysv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssysv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb ) { @@ -41,21 +41,21 @@ lapack_int LAPACKE_ssysv( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssysv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssysv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_ssysv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,7 +68,7 @@ lapack_int LAPACKE_ssysv( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssysv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_ssysv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssysv_rook.c b/lapacke/src/lapacke_ssysv_rook.c index dfa5a781..952bc8a3 100644 --- a/lapacke/src/lapacke_ssysv_rook.c +++ b/lapacke/src/lapacke_ssysv_rook.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssysv_rook( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb ) { @@ -41,21 +41,21 @@ lapack_int LAPACKE_ssysv_rook( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssysv_rook", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssysv_rook_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, + info = LAPACKE_ssysv_rook_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -68,7 +68,7 @@ lapack_int LAPACKE_ssysv_rook( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssysv_rook_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, + info = LAPACKE_ssysv_rook_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssysv_rook_work.c b/lapacke/src/lapacke_ssysv_rook_work.c index c6449fe1..4a9c1ead 100644 --- a/lapacke/src/lapacke_ssysv_rook_work.c +++ b/lapacke/src/lapacke_ssysv_rook_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssysv_rook( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -80,8 +80,8 @@ lapack_int LAPACKE_ssysv_rook_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssysv_rook( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_ssysv_work.c b/lapacke/src/lapacke_ssysv_work.c index ec7dd9f7..65365e30 100644 --- a/lapacke/src/lapacke_ssysv_work.c +++ b/lapacke/src/lapacke_ssysv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssysv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssysv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, lapack_int* ipiv, float* b, lapack_int ldb, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssysv( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -80,8 +80,8 @@ lapack_int LAPACKE_ssysv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssysv( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_ssysvx.c b/lapacke/src/lapacke_ssysvx.c index c6577922..c9499f3c 100644 --- a/lapacke/src/lapacke_ssysvx.c +++ b/lapacke/src/lapacke_ssysvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssysvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_ssysvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, const float* b, lapack_int ldb, float* x, @@ -45,21 +45,21 @@ lapack_int LAPACKE_ssysvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int* iwork = NULL; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssysvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -11; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_ssysvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_ssysvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_ssysvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, &work_query, lwork, iwork ); if( info != 0 ) { @@ -84,7 +84,7 @@ lapack_int LAPACKE_ssysvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssysvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_ssysvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ssysvx_work.c b/lapacke/src/lapacke_ssysvx_work.c index 197d74e6..629f3389 100644 --- a/lapacke/src/lapacke_ssysvx_work.c +++ b/lapacke/src/lapacke_ssysvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssysvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_ssysvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, const float* b, @@ -43,7 +43,7 @@ lapack_int LAPACKE_ssysvx_work( int matrix_order, char fact, char uplo, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssysvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, &lwork, iwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_ssysvx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -110,11 +110,11 @@ lapack_int LAPACKE_ssysvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_ssy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssysvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, diff --git a/lapacke/src/lapacke_ssysvxx.c b/lapacke/src/lapacke_ssysvxx.c index 00528d0d..214da9b1 100644 --- a/lapacke/src/lapacke_ssysvxx.c +++ b/lapacke/src/lapacke_ssysvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssysvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_ssysvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, char* equed, float* s, float* b, @@ -46,21 +46,21 @@ lapack_int LAPACKE_ssysvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssysvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( nparams>0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_ssysvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ssysvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_ssysvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, iwork ); diff --git a/lapacke/src/lapacke_ssysvxx_work.c b/lapacke/src/lapacke_ssysvxx_work.c index ee92c92c..e8b8199b 100644 --- a/lapacke/src/lapacke_ssysvxx_work.c +++ b/lapacke/src/lapacke_ssysvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_ssysvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, float* a, lapack_int lda, float* af, lapack_int ldaf, lapack_int* ipiv, char* equed, float* s, @@ -45,7 +45,7 @@ lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssysvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, @@ -54,7 +54,7 @@ lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -120,11 +120,11 @@ lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_ssy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssysvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, @@ -146,9 +146,9 @@ lapack_int LAPACKE_ssysvxx_work( int matrix_order, char fact, char uplo, } LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_sge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_ssyswapr.c b/lapacke/src/lapacke_ssyswapr.c index 0220607f..d395023a 100644 --- a/lapacke/src/lapacke_ssyswapr.c +++ b/lapacke/src/lapacke_ssyswapr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyswapr( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int i1, lapack_int i2 ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssyswapr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, n ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, n ) ) { return -4; } #endif - return LAPACKE_ssyswapr_work( matrix_order, uplo, n, a, i1, i2 ); + return LAPACKE_ssyswapr_work( matrix_layout, uplo, n, a, i1, i2 ); } diff --git a/lapacke/src/lapacke_ssyswapr_work.c b/lapacke/src/lapacke_ssyswapr_work.c index b1a4f914..f6cd9355 100644 --- a/lapacke/src/lapacke_ssyswapr_work.c +++ b/lapacke/src/lapacke_ssyswapr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssyswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssyswapr_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int i1, lapack_int i2 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssyswapr( &uplo, &n, a, &i1, &i2 ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (float*)LAPACKE_malloc( sizeof(float) * n * MAX(1,n) ); @@ -52,7 +52,7 @@ lapack_int LAPACKE_ssyswapr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, n, a_t, n ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, n, a_t, n ); /* Call LAPACK function and adjust info */ LAPACK_ssyswapr( &uplo, &n, a_t, &i1, &i2 ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_ssytrd.c b/lapacke/src/lapacke_ssytrd.c index d9c0d8bd..006e75da 100644 --- a/lapacke/src/lapacke_ssytrd.c +++ b/lapacke/src/lapacke_ssytrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytrd( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_ssytrd( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, float* d, float* e, float* tau ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssytrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssytrd_work( matrix_order, uplo, n, a, lda, d, e, tau, + info = LAPACKE_ssytrd_work( matrix_layout, uplo, n, a, lda, d, e, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_ssytrd( int matrix_order, char uplo, lapack_int n, float* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssytrd_work( matrix_order, uplo, n, a, lda, d, e, tau, work, + info = LAPACKE_ssytrd_work( matrix_layout, uplo, n, a, lda, d, e, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssytrd_work.c b/lapacke/src/lapacke_ssytrd_work.c index 3488cbc4..6733e256 100644 --- a/lapacke/src/lapacke_ssytrd_work.c +++ b/lapacke/src/lapacke_ssytrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrd_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, float* d, float* e, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssytrd( &uplo, &n, a, &lda, d, e, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -66,7 +66,7 @@ lapack_int LAPACKE_ssytrd_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssytrd( &uplo, &n, a_t, &lda_t, d, e, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssytrf.c b/lapacke/src/lapacke_ssytrf.c index 2f907aeb..6592e156 100644 --- a/lapacke/src/lapacke_ssytrf.c +++ b/lapacke/src/lapacke_ssytrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytrf( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_ssytrf( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssytrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssytrf_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_ssytrf_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_ssytrf( int matrix_order, char uplo, lapack_int n, float* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssytrf_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_ssytrf_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssytrf_work.c b/lapacke/src/lapacke_ssytrf_work.c index 4b1a1fe4..137350b4 100644 --- a/lapacke/src/lapacke_ssytrf_work.c +++ b/lapacke/src/lapacke_ssytrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrf_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, lapack_int* ipiv, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssytrf( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_ssytrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssytrf( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssytri.c b/lapacke/src/lapacke_ssytri.c index 26e2c6de..2ca5bf83 100644 --- a/lapacke/src/lapacke_ssytri.c +++ b/lapacke/src/lapacke_ssytri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytri( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_ssytri( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssytri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -55,7 +55,7 @@ lapack_int LAPACKE_ssytri( int matrix_order, char uplo, lapack_int n, float* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssytri_work( matrix_order, uplo, n, a, lda, ipiv, work ); + info = LAPACKE_ssytri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_ssytri2.c b/lapacke/src/lapacke_ssytri2.c index 3ab675dc..08aa8fa6 100644 --- a/lapacke/src/lapacke_ssytri2.c +++ b/lapacke/src/lapacke_ssytri2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytri2( int matrix_order, char uplo, lapack_int n, float* a, +lapack_int LAPACKE_ssytri2( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; lapack_int lwork = -1; lapack_complex_float* work = NULL; lapack_complex_float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssytri2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ssytri2_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_ssytri2_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -65,7 +65,7 @@ lapack_int LAPACKE_ssytri2( int matrix_order, char uplo, lapack_int n, float* a, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssytri2_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_ssytri2_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssytri2_work.c b/lapacke/src/lapacke_ssytri2_work.c index 0353bd18..ef28d0fd 100644 --- a/lapacke/src/lapacke_ssytri2_work.c +++ b/lapacke/src/lapacke_ssytri2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytri2_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssytri2( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -66,7 +66,7 @@ lapack_int LAPACKE_ssytri2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssytri2( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssytri2x.c b/lapacke/src/lapacke_ssytri2x.c index 12e7b8ef..c09a1468 100644 --- a/lapacke/src/lapacke_ssytri2x.c +++ b/lapacke/src/lapacke_ssytri2x.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytri2x( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssytri2x", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -56,7 +56,7 @@ lapack_int LAPACKE_ssytri2x( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssytri2x_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_ssytri2x_work( matrix_layout, uplo, n, a, lda, ipiv, work, nb ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssytri2x_work.c b/lapacke/src/lapacke_ssytri2x_work.c index 6fc8e459..84c578d7 100644 --- a/lapacke/src/lapacke_ssytri2x_work.c +++ b/lapacke/src/lapacke_ssytri2x_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytri2x_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, float* work, lapack_int nb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssytri2x( &uplo, &n, a, &lda, ipiv, work, &nb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_ssytri2x_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssytri2x( &uplo, &n, a_t, &lda_t, ipiv, work, &nb, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssytri_work.c b/lapacke/src/lapacke_ssytri_work.c index c6499518..4fcd84f3 100644 --- a/lapacke/src/lapacke_ssytri_work.c +++ b/lapacke/src/lapacke_ssytri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytri_work( int matrix_layout, char uplo, lapack_int n, float* a, lapack_int lda, const lapack_int* ipiv, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssytri( &uplo, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_ssytri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ssytri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ssytrs.c b/lapacke/src/lapacke_ssytrs.c index fec05011..ab7cdb6f 100644 --- a/lapacke/src/lapacke_ssytrs.c +++ b/lapacke/src/lapacke_ssytrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssytrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_ssytrs_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + return LAPACKE_ssytrs_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_ssytrs2.c b/lapacke/src/lapacke_ssytrs2.c index ab921cb5..cf9c2dcc 100644 --- a/lapacke/src/lapacke_ssytrs2.c +++ b/lapacke/src/lapacke_ssytrs2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrs2( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ssytrs2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif @@ -59,7 +59,7 @@ lapack_int LAPACKE_ssytrs2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ssytrs2_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_ssytrs2_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ssytrs2_work.c b/lapacke/src/lapacke_ssytrs2_work.c index 8b6d7fb7..1ff64ce1 100644 --- a/lapacke/src/lapacke_ssytrs2_work.c +++ b/lapacke/src/lapacke_ssytrs2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytrs2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrs2_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssytrs2( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -73,8 +73,8 @@ lapack_int LAPACKE_ssytrs2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssytrs2( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_ssytrs_work.c b/lapacke/src/lapacke_ssytrs_work.c index b4d74330..e25c6e15 100644 --- a/lapacke/src/lapacke_ssytrs_work.c +++ b/lapacke/src/lapacke_ssytrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ssytrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ssytrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const lapack_int* ipiv, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ssytrs( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -73,8 +73,8 @@ lapack_int LAPACKE_ssytrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ssytrs( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_stbcon.c b/lapacke/src/lapacke_stbcon.c index 90f7f0b5..0e4143f4 100644 --- a/lapacke/src/lapacke_stbcon.c +++ b/lapacke/src/lapacke_stbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stbcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_stbcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab, float* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_stb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_stb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -7; } #endif @@ -62,7 +62,7 @@ lapack_int LAPACKE_stbcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_stbcon_work( matrix_order, norm, uplo, diag, n, kd, ab, ldab, + info = LAPACKE_stbcon_work( matrix_layout, norm, uplo, diag, n, kd, ab, ldab, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_stbcon_work.c b/lapacke/src/lapacke_stbcon_work.c index b2ebfacc..f8295d75 100644 --- a/lapacke/src/lapacke_stbcon_work.c +++ b/lapacke/src/lapacke_stbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stbcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_stbcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab, float* rcond, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stbcon( &norm, &uplo, &diag, &n, &kd, ab, &ldab, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); float* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_stbcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_stb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_stb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_stbcon( &norm, &uplo, &diag, &n, &kd, ab_t, &ldab_t, rcond, work, diff --git a/lapacke/src/lapacke_stbrfs.c b/lapacke/src/lapacke_stbrfs.c index 5eaa4101..194b7e0c 100644 --- a/lapacke/src/lapacke_stbrfs.c +++ b/lapacke/src/lapacke_stbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_stbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, const float* b, lapack_int ldb, const float* x, lapack_int ldx, @@ -42,19 +42,19 @@ lapack_int LAPACKE_stbrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_stb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_stb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_stbrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_stbrfs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + info = LAPACKE_stbrfs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_stbrfs_work.c b/lapacke/src/lapacke_stbrfs_work.c index 605d6e45..b03dd64d 100644 --- a/lapacke/src/lapacke_stbrfs_work.c +++ b/lapacke/src/lapacke_stbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stbrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_stbrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, const float* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_stbrfs_work( int matrix_order, char uplo, char trans, float* berr, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stbrfs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -88,10 +88,10 @@ lapack_int LAPACKE_stbrfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_stb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_stb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_stbrfs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_stbtrs.c b/lapacke/src/lapacke_stbtrs.c index b85a1b14..411662d0 100644 --- a/lapacke/src/lapacke_stbtrs.c +++ b/lapacke/src/lapacke_stbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stbtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_stbtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_stb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_stb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } #endif - return LAPACKE_stbtrs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + return LAPACKE_stbtrs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb ); } diff --git a/lapacke/src/lapacke_stbtrs_work.c b/lapacke/src/lapacke_stbtrs_work.c index a7bdd583..b4716872 100644 --- a/lapacke/src/lapacke_stbtrs_work.c +++ b/lapacke/src/lapacke_stbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stbtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_stbtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const float* ab, lapack_int ldab, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stbtrs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); float* ab_t = NULL; @@ -74,9 +74,9 @@ lapack_int LAPACKE_stbtrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_stb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_stb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_stbtrs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_stfsm.c b/lapacke/src/lapacke_stfsm.c index 59852419..c1a84b29 100644 --- a/lapacke/src/lapacke_stfsm.c +++ b/lapacke/src/lapacke_stfsm.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_stfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, float alpha, const float* a, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stfsm", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( IS_S_NONZERO(alpha) ) { - if( LAPACKE_stf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_stf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -10; } } @@ -53,11 +53,11 @@ lapack_int LAPACKE_stfsm( int matrix_order, char transr, char side, char uplo, return -9; } if( IS_S_NONZERO(alpha) ) { - if( LAPACKE_sge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -11; } } #endif - return LAPACKE_stfsm_work( matrix_order, transr, side, uplo, trans, diag, m, + return LAPACKE_stfsm_work( matrix_layout, transr, side, uplo, trans, diag, m, n, alpha, a, b, ldb ); } diff --git a/lapacke/src/lapacke_stfsm_work.c b/lapacke/src/lapacke_stfsm_work.c index 3d3d0a7a..34ef782c 100644 --- a/lapacke/src/lapacke_stfsm_work.c +++ b/lapacke/src/lapacke_stfsm_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stfsm_work( int matrix_order, char transr, char side, +lapack_int LAPACKE_stfsm_work( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, float alpha, const float* a, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stfsm( &transr, &side, &uplo, &trans, &diag, &m, &n, &alpha, a, b, &ldb ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,m); float* b_t = NULL; float* a_t = NULL; @@ -72,10 +72,10 @@ lapack_int LAPACKE_stfsm_work( int matrix_order, char transr, char side, } /* Transpose input matrices */ if( IS_S_NONZERO(alpha) ) { - LAPACKE_sge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); } if( IS_S_NONZERO(alpha) ) { - LAPACKE_stf_trans( matrix_order, transr, uplo, diag, n, a, a_t ); + LAPACKE_stf_trans( matrix_layout, transr, uplo, diag, n, a, a_t ); } /* Call LAPACK function and adjust info */ LAPACK_stfsm( &transr, &side, &uplo, &trans, &diag, &m, &n, &alpha, a_t, diff --git a/lapacke/src/lapacke_stftri.c b/lapacke/src/lapacke_stftri.c index b4527af0..31a7c5fa 100644 --- a/lapacke/src/lapacke_stftri.c +++ b/lapacke/src/lapacke_stftri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stftri( int matrix_order, char transr, char uplo, char diag, +lapack_int LAPACKE_stftri( int matrix_layout, char transr, char uplo, char diag, lapack_int n, float* a ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stftri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_stf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_stf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -6; } #endif - return LAPACKE_stftri_work( matrix_order, transr, uplo, diag, n, a ); + return LAPACKE_stftri_work( matrix_layout, transr, uplo, diag, n, a ); } diff --git a/lapacke/src/lapacke_stftri_work.c b/lapacke/src/lapacke_stftri_work.c index 045bd47c..772ed8b2 100644 --- a/lapacke/src/lapacke_stftri_work.c +++ b/lapacke/src/lapacke_stftri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stftri_work( int matrix_layout, char transr, char uplo, char diag, lapack_int n, float* a ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stftri( &transr, &uplo, &diag, &n, a, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (float*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_stftri_work( int matrix_order, char transr, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_stf_trans( matrix_order, transr, uplo, diag, n, a, a_t ); + LAPACKE_stf_trans( matrix_layout, transr, uplo, diag, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_stftri( &transr, &uplo, &diag, &n, a_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_stfttp.c b/lapacke/src/lapacke_stfttp.c index 72ef5fbb..84b361ab 100644 --- a/lapacke/src/lapacke_stfttp.c +++ b/lapacke/src/lapacke_stfttp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stfttp( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stfttp( int matrix_layout, char transr, char uplo, lapack_int n, const float* arf, float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stfttp", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_stfttp( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_stfttp_work( matrix_order, transr, uplo, n, arf, ap ); + return LAPACKE_stfttp_work( matrix_layout, transr, uplo, n, arf, ap ); } diff --git a/lapacke/src/lapacke_stfttp_work.c b/lapacke/src/lapacke_stfttp_work.c index b17c9d5e..bd58aca3 100644 --- a/lapacke/src/lapacke_stfttp_work.c +++ b/lapacke/src/lapacke_stfttp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stfttp_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stfttp_work( int matrix_layout, char transr, char uplo, lapack_int n, const float* arf, float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stfttp( &transr, &uplo, &n, arf, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; float* arf_t = NULL; /* Allocate memory for temporary array(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_stfttp_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_spf_trans( matrix_order, transr, uplo, n, arf, arf_t ); + LAPACKE_spf_trans( matrix_layout, transr, uplo, n, arf, arf_t ); /* Call LAPACK function and adjust info */ LAPACK_stfttp( &transr, &uplo, &n, arf_t, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_stfttr.c b/lapacke/src/lapacke_stfttr.c index e2906570..f20a439e 100644 --- a/lapacke/src/lapacke_stfttr.c +++ b/lapacke/src/lapacke_stfttr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stfttr( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stfttr( int matrix_layout, char transr, char uplo, lapack_int n, const float* arf, float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stfttr", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_stfttr( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_stfttr_work( matrix_order, transr, uplo, n, arf, a, lda ); + return LAPACKE_stfttr_work( matrix_layout, transr, uplo, n, arf, a, lda ); } diff --git a/lapacke/src/lapacke_stfttr_work.c b/lapacke/src/lapacke_stfttr_work.c index 2eaacf23..a10bb583 100644 --- a/lapacke/src/lapacke_stfttr_work.c +++ b/lapacke/src/lapacke_stfttr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stfttr_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stfttr_work( int matrix_layout, char transr, char uplo, lapack_int n, const float* arf, float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stfttr( &transr, &uplo, &n, arf, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; float* arf_t = NULL; @@ -67,7 +67,7 @@ lapack_int LAPACKE_stfttr_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_spf_trans( matrix_order, transr, uplo, n, arf, arf_t ); + LAPACKE_spf_trans( matrix_layout, transr, uplo, n, arf, arf_t ); /* Call LAPACK function and adjust info */ LAPACK_stfttr( &transr, &uplo, &n, arf_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_stgevc.c b/lapacke/src/lapacke_stgevc.c index 584d7ba2..7ef65dd7 100644 --- a/lapacke/src/lapacke_stgevc.c +++ b/lapacke/src/lapacke_stgevc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_stgevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const float* s, lapack_int lds, const float* p, lapack_int ldp, float* vl, lapack_int ldvl, @@ -42,25 +42,25 @@ lapack_int LAPACKE_stgevc( int matrix_order, char side, char howmny, { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stgevc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, p, ldp ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, p, ldp ) ) { return -8; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, s, lds ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, s, lds ) ) { return -6; } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'l' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'r' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -72,7 +72,7 @@ lapack_int LAPACKE_stgevc( int matrix_order, char side, char howmny, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_stgevc_work( matrix_order, side, howmny, select, n, s, lds, + info = LAPACKE_stgevc_work( matrix_layout, side, howmny, select, n, s, lds, p, ldp, vl, ldvl, vr, ldvr, mm, m, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_stgevc_work.c b/lapacke/src/lapacke_stgevc_work.c index c9fd1007..c5cbbf20 100644 --- a/lapacke/src/lapacke_stgevc_work.c +++ b/lapacke/src/lapacke_stgevc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_stgevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const float* s, lapack_int lds, const float* p, lapack_int ldp, float* vl, lapack_int ldvl, @@ -41,14 +41,14 @@ lapack_int LAPACKE_stgevc_work( int matrix_order, char side, char howmny, lapack_int* m, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stgevc( &side, &howmny, select, &n, s, &lds, p, &ldp, vl, &ldvl, vr, &ldvr, &mm, m, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldp_t = MAX(1,n); lapack_int lds_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); @@ -104,15 +104,15 @@ lapack_int LAPACKE_stgevc_work( int matrix_order, char side, char howmny, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, s, lds, s_t, lds_t ); - LAPACKE_sge_trans( matrix_order, n, n, p, ldp, p_t, ldp_t ); + LAPACKE_sge_trans( matrix_layout, n, n, s, lds, s_t, lds_t ); + LAPACKE_sge_trans( matrix_layout, n, n, p, ldp, p_t, ldp_t ); if( ( LAPACKE_lsame( side, 'l' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_sge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_sge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( side, 'r' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_sge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_sge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_stgevc( &side, &howmny, select, &n, s_t, &lds_t, p_t, &ldp_t, diff --git a/lapacke/src/lapacke_stgexc.c b/lapacke/src/lapacke_stgexc.c index 379865e1..95f83797 100644 --- a/lapacke/src/lapacke_stgexc.c +++ b/lapacke/src/lapacke_stgexc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgexc( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_stgexc( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* q, lapack_int ldq, float* z, lapack_int ldz, @@ -43,31 +43,31 @@ lapack_int LAPACKE_stgexc( int matrix_order, lapack_logical wantq, lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stgexc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -7; } if( wantq ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -9; } } if( wantz ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -11; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_stgexc_work( matrix_order, wantq, wantz, n, a, lda, b, ldb, + info = LAPACKE_stgexc_work( matrix_layout, wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, ifst, ilst, &work_query, lwork ); if( info != 0 ) { @@ -81,7 +81,7 @@ lapack_int LAPACKE_stgexc( int matrix_order, lapack_logical wantq, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_stgexc_work( matrix_order, wantq, wantz, n, a, lda, b, ldb, + info = LAPACKE_stgexc_work( matrix_layout, wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, ifst, ilst, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_stgexc_work.c b/lapacke/src/lapacke_stgexc_work.c index 64a853d0..df540b09 100644 --- a/lapacke/src/lapacke_stgexc_work.c +++ b/lapacke/src/lapacke_stgexc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgexc_work( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_stgexc_work( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float* q, lapack_int ldq, float* z, @@ -42,14 +42,14 @@ lapack_int LAPACKE_stgexc_work( int matrix_order, lapack_logical wantq, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stgexc( &wantq, &wantz, &n, a, &lda, b, &ldb, q, &ldq, z, &ldz, ifst, ilst, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -111,13 +111,13 @@ lapack_int LAPACKE_stgexc_work( int matrix_order, lapack_logical wantq, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( wantq ) { - LAPACKE_sge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_sge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( wantz ) { - LAPACKE_sge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_sge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_stgexc( &wantq, &wantz, &n, a_t, &lda_t, b_t, &ldb_t, q_t, diff --git a/lapacke/src/lapacke_stgsen.c b/lapacke/src/lapacke_stgsen.c index 41fea0cf..b1217d06 100644 --- a/lapacke/src/lapacke_stgsen.c +++ b/lapacke/src/lapacke_stgsen.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgsen( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_stgsen( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, @@ -48,31 +48,31 @@ lapack_int LAPACKE_stgsen( int matrix_order, lapack_int ijob, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stgsen", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } if( wantq ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -14; } } if( wantz ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -16; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_stgsen_work( matrix_order, ijob, wantq, wantz, select, n, a, + info = LAPACKE_stgsen_work( matrix_layout, ijob, wantq, wantz, select, n, a, lda, b, ldb, alphar, alphai, beta, q, ldq, z, ldz, m, pl, pr, dif, &work_query, lwork, &iwork_query, liwork ); @@ -95,7 +95,7 @@ lapack_int LAPACKE_stgsen( int matrix_order, lapack_int ijob, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_stgsen_work( matrix_order, ijob, wantq, wantz, select, n, a, + info = LAPACKE_stgsen_work( matrix_layout, ijob, wantq, wantz, select, n, a, lda, b, ldb, alphar, alphai, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork ); diff --git a/lapacke/src/lapacke_stgsen_work.c b/lapacke/src/lapacke_stgsen_work.c index e5436b46..d5075b30 100644 --- a/lapacke/src/lapacke_stgsen_work.c +++ b/lapacke/src/lapacke_stgsen_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgsen_work( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_stgsen_work( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, float* a, lapack_int lda, float* b, @@ -45,7 +45,7 @@ lapack_int LAPACKE_stgsen_work( int matrix_order, lapack_int ijob, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stgsen( &ijob, &wantq, &wantz, select, &n, a, &lda, b, &ldb, alphar, alphai, beta, q, &ldq, z, &ldz, m, pl, pr, dif, @@ -53,7 +53,7 @@ lapack_int LAPACKE_stgsen_work( int matrix_order, lapack_int ijob, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -117,13 +117,13 @@ lapack_int LAPACKE_stgsen_work( int matrix_order, lapack_int ijob, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( wantq ) { - LAPACKE_sge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_sge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( wantz ) { - LAPACKE_sge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_sge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_stgsen( &ijob, &wantq, &wantz, select, &n, a_t, &lda_t, b_t, diff --git a/lapacke/src/lapacke_stgsja.c b/lapacke/src/lapacke_stgsja.c index a2aeb3a4..10a8d267 100644 --- a/lapacke/src/lapacke_stgsja.c +++ b/lapacke/src/lapacke_stgsja.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgsja( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_stgsja( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, float* a, lapack_int lda, float* b, lapack_int ldb, float tola, float tolb, @@ -43,20 +43,20 @@ lapack_int LAPACKE_stgsja( int matrix_order, char jobu, char jobv, char jobq, { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stgsja", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -10; } - if( LAPACKE_sge_nancheck( matrix_order, p, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, p, n, b, ldb ) ) { return -12; } if( LAPACKE_lsame( jobq, 'i' ) || LAPACKE_lsame( jobq, 'q' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -22; } } @@ -67,12 +67,12 @@ lapack_int LAPACKE_stgsja( int matrix_order, char jobu, char jobv, char jobq, return -15; } if( LAPACKE_lsame( jobu, 'i' ) || LAPACKE_lsame( jobu, 'u' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, m, m, u, ldu ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, m, u, ldu ) ) { return -18; } } if( LAPACKE_lsame( jobv, 'i' ) || LAPACKE_lsame( jobv, 'v' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, p, p, v, ldv ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, p, p, v, ldv ) ) { return -20; } } @@ -84,7 +84,7 @@ lapack_int LAPACKE_stgsja( int matrix_order, char jobu, char jobv, char jobq, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_stgsja_work( matrix_order, jobu, jobv, jobq, m, p, n, k, l, + info = LAPACKE_stgsja_work( matrix_layout, jobu, jobv, jobq, m, p, n, k, l, a, lda, b, ldb, tola, tolb, alpha, beta, u, ldu, v, ldv, q, ldq, work, ncycle ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_stgsja_work.c b/lapacke/src/lapacke_stgsja_work.c index 9ae9bf71..d2b55feb 100644 --- a/lapacke/src/lapacke_stgsja_work.c +++ b/lapacke/src/lapacke_stgsja_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgsja_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_stgsja_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, float* a, lapack_int lda, float* b, @@ -44,7 +44,7 @@ lapack_int LAPACKE_stgsja_work( int matrix_order, char jobu, char jobv, lapack_int* ncycle ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stgsja( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a, &lda, b, &ldb, &tola, &tolb, alpha, beta, u, &ldu, v, &ldv, q, @@ -52,7 +52,7 @@ lapack_int LAPACKE_stgsja_work( int matrix_order, char jobu, char jobv, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,p); lapack_int ldq_t = MAX(1,n); @@ -122,16 +122,16 @@ lapack_int LAPACKE_stgsja_work( int matrix_order, char jobu, char jobv, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, p, n, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, p, n, b, ldb, b_t, ldb_t ); if( LAPACKE_lsame( jobu, 'u' ) ) { - LAPACKE_sge_trans( matrix_order, m, m, u, ldu, u_t, ldu_t ); + LAPACKE_sge_trans( matrix_layout, m, m, u, ldu, u_t, ldu_t ); } if( LAPACKE_lsame( jobv, 'v' ) ) { - LAPACKE_sge_trans( matrix_order, p, p, v, ldv, v_t, ldv_t ); + LAPACKE_sge_trans( matrix_layout, p, p, v, ldv, v_t, ldv_t ); } if( LAPACKE_lsame( jobq, 'q' ) ) { - LAPACKE_sge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_sge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_stgsja( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a_t, &lda_t, diff --git a/lapacke/src/lapacke_stgsna.c b/lapacke/src/lapacke_stgsna.c index a44bc614..d4666a3d 100644 --- a/lapacke/src/lapacke_stgsna.c +++ b/lapacke/src/lapacke_stgsna.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_stgsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, const float* vl, lapack_int ldvl, @@ -45,25 +45,25 @@ lapack_int LAPACKE_stgsna( int matrix_order, char job, char howmny, lapack_int* iwork = NULL; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stgsna", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -77,7 +77,7 @@ lapack_int LAPACKE_stgsna( int matrix_order, char job, char howmny, } } /* Query optimal working array(s) size */ - info = LAPACKE_stgsna_work( matrix_order, job, howmny, select, n, a, lda, b, + info = LAPACKE_stgsna_work( matrix_layout, job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, &work_query, lwork, iwork ); if( info != 0 ) { @@ -93,7 +93,7 @@ lapack_int LAPACKE_stgsna( int matrix_order, char job, char howmny, } } /* Call middle-level interface */ - info = LAPACKE_stgsna_work( matrix_order, job, howmny, select, n, a, lda, b, + info = LAPACKE_stgsna_work( matrix_layout, job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_stgsna_work.c b/lapacke/src/lapacke_stgsna_work.c index bdc3cdf8..ac6960b5 100644 --- a/lapacke/src/lapacke_stgsna_work.c +++ b/lapacke/src/lapacke_stgsna_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_stgsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, const float* vl, @@ -43,14 +43,14 @@ lapack_int LAPACKE_stgsna_work( int matrix_order, char job, char howmny, lapack_int lwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stgsna( &job, &howmny, select, &n, a, &lda, b, &ldb, vl, &ldvl, vr, &ldvr, s, dif, &mm, m, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); @@ -113,13 +113,13 @@ lapack_int LAPACKE_stgsna_work( int matrix_order, char job, char howmny, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_sge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_sge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_sge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_sge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_stgsna( &job, &howmny, select, &n, a_t, &lda_t, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_stgsyl.c b/lapacke/src/lapacke_stgsyl.c index 6f9f863c..d4a639c0 100644 --- a/lapacke/src/lapacke_stgsyl.c +++ b/lapacke/src/lapacke_stgsyl.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgsyl( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_stgsyl( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, float* c, lapack_int ldc, const float* d, @@ -45,28 +45,28 @@ lapack_int LAPACKE_stgsyl( int matrix_order, char trans, lapack_int ijob, lapack_int* iwork = NULL; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stgsyl", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, m, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, m, a, lda ) ) { return -6; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } - if( LAPACKE_sge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } - if( LAPACKE_sge_nancheck( matrix_order, m, m, d, ldd ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, m, d, ldd ) ) { return -12; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, e, lde ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, e, lde ) ) { return -14; } - if( LAPACKE_sge_nancheck( matrix_order, m, n, f, ldf ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, f, ldf ) ) { return -16; } #endif @@ -77,7 +77,7 @@ lapack_int LAPACKE_stgsyl( int matrix_order, char trans, lapack_int ijob, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_stgsyl_work( matrix_order, trans, ijob, m, n, a, lda, b, ldb, + info = LAPACKE_stgsyl_work( matrix_layout, trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, &work_query, lwork, iwork ); if( info != 0 ) { @@ -91,7 +91,7 @@ lapack_int LAPACKE_stgsyl( int matrix_order, char trans, lapack_int ijob, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_stgsyl_work( matrix_order, trans, ijob, m, n, a, lda, b, ldb, + info = LAPACKE_stgsyl_work( matrix_layout, trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_stgsyl_work.c b/lapacke/src/lapacke_stgsyl_work.c index c498a8f1..5ed0eba4 100644 --- a/lapacke/src/lapacke_stgsyl_work.c +++ b/lapacke/src/lapacke_stgsyl_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stgsyl_work( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_stgsyl_work( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, float* c, lapack_int ldc, const float* d, @@ -43,7 +43,7 @@ lapack_int LAPACKE_stgsyl_work( int matrix_order, char trans, lapack_int ijob, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stgsyl( &trans, &ijob, &m, &n, a, &lda, b, &ldb, c, &ldc, d, &ldd, e, &lde, f, &ldf, scale, dif, work, &lwork, iwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_stgsyl_work( int matrix_order, char trans, lapack_int ijob, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,n); lapack_int ldc_t = MAX(1,m); @@ -134,12 +134,12 @@ lapack_int LAPACKE_stgsyl_work( int matrix_order, char trans, lapack_int ijob, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, m, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); - LAPACKE_sge_trans( matrix_order, m, m, d, ldd, d_t, ldd_t ); - LAPACKE_sge_trans( matrix_order, n, n, e, lde, e_t, lde_t ); - LAPACKE_sge_trans( matrix_order, m, n, f, ldf, f_t, ldf_t ); + LAPACKE_sge_trans( matrix_layout, m, m, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_sge_trans( matrix_layout, m, m, d, ldd, d_t, ldd_t ); + LAPACKE_sge_trans( matrix_layout, n, n, e, lde, e_t, lde_t ); + LAPACKE_sge_trans( matrix_layout, m, n, f, ldf, f_t, ldf_t ); /* Call LAPACK function and adjust info */ LAPACK_stgsyl( &trans, &ijob, &m, &n, a_t, &lda_t, b_t, &ldb_t, c_t, &ldc_t, d_t, &ldd_t, e_t, &lde_t, f_t, &ldf_t, scale, diff --git a/lapacke/src/lapacke_stpcon.c b/lapacke/src/lapacke_stpcon.c index ced778ec..4a725e31 100644 --- a/lapacke/src/lapacke_stpcon.c +++ b/lapacke/src/lapacke_stpcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_stpcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const float* ap, float* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stpcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_stp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_stp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -6; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_stpcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_stpcon_work( matrix_order, norm, uplo, diag, n, ap, rcond, + info = LAPACKE_stpcon_work( matrix_layout, norm, uplo, diag, n, ap, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_stpcon_work.c b/lapacke/src/lapacke_stpcon_work.c index e03c6b1b..15102650 100644 --- a/lapacke/src/lapacke_stpcon_work.c +++ b/lapacke/src/lapacke_stpcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_stpcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const float* ap, float* rcond, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stpcon( &norm, &uplo, &diag, &n, ap, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_stpcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_stp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_stp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_stpcon( &norm, &uplo, &diag, &n, ap_t, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_stpmqrt.c b/lapacke/src/lapacke_stpmqrt.c index 335f76c2..7e1a1442 100644 --- a/lapacke/src/lapacke_stpmqrt.c +++ b/lapacke/src/lapacke_stpmqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpmqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_stpmqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const float* v, lapack_int ldv, const float* t, lapack_int ldt, @@ -41,22 +41,22 @@ lapack_int LAPACKE_stpmqrt( int matrix_order, char side, char trans, { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stpmqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, k, m, a, lda ) ) { return -13; } - if( LAPACKE_sge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -15; } - if( LAPACKE_sge_nancheck( matrix_order, ldt, nb, t, ldt ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, ldt, nb, t, ldt ) ) { return -11; } - if( LAPACKE_sge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -9; } #endif @@ -67,7 +67,7 @@ lapack_int LAPACKE_stpmqrt( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_stpmqrt_work( matrix_order, side, trans, m, n, k, l, nb, v, + info = LAPACKE_stpmqrt_work( matrix_layout, side, trans, m, n, k, l, nb, v, ldv, t, ldt, a, lda, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_stpmqrt_work.c b/lapacke/src/lapacke_stpmqrt_work.c index 3b35e437..1bf2f02b 100644 --- a/lapacke/src/lapacke_stpmqrt_work.c +++ b/lapacke/src/lapacke_stpmqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpmqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_stpmqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const float* v, lapack_int ldv, const float* t, lapack_int ldt, @@ -41,14 +41,14 @@ lapack_int LAPACKE_stpmqrt_work( int matrix_order, char side, char trans, lapack_int ldb, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stpmqrt( &side, &trans, &m, &n, &k, &l, &nb, v, &ldv, t, &ldt, a, &lda, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k; lapack_int lda_t = MAX(1,k); lapack_int ldb_t = MAX(1,m); @@ -101,10 +101,10 @@ lapack_int LAPACKE_stpmqrt_work( int matrix_order, char side, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_sge_trans( matrix_order, ldt, nb, t, ldt, t_t, ldt_t ); - LAPACKE_sge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_sge_trans( matrix_layout, ldt, nb, t, ldt, t_t, ldt_t ); + LAPACKE_sge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_stpmqrt( &side, &trans, &m, &n, &k, &l, &nb, v_t, &ldv_t, t_t, &ldt_t, a_t, &lda_t, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_stpqrt2.c b/lapacke/src/lapacke_stpqrt2.c index 81a5f9c0..2d074332 100644 --- a/lapacke/src/lapacke_stpqrt2.c +++ b/lapacke/src/lapacke_stpqrt2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpqrt2( int matrix_order, +lapack_int LAPACKE_stpqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, float* a, lapack_int lda, float* b, lapack_int ldb, float* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stpqrt2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } - if( LAPACKE_sge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -6; } #endif - return LAPACKE_stpqrt2_work( matrix_order, m, n, l, a, lda, b, ldb, t, ldt ); + return LAPACKE_stpqrt2_work( matrix_layout, m, n, l, a, lda, b, ldb, t, ldt ); } diff --git a/lapacke/src/lapacke_stpqrt2_work.c b/lapacke/src/lapacke_stpqrt2_work.c index f4ac18c0..860a900d 100644 --- a/lapacke/src/lapacke_stpqrt2_work.c +++ b/lapacke/src/lapacke_stpqrt2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpqrt2_work( int matrix_order, +lapack_int LAPACKE_stpqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, float* a, lapack_int lda, float* b, lapack_int ldb, float* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stpqrt2( &m, &n, &l, a, &lda, b, &ldb, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); @@ -85,8 +85,8 @@ lapack_int LAPACKE_stpqrt2_work( int matrix_order, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_stpqrt2( &m, &n, &l, a_t, &lda_t, b_t, &ldb_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_stprfb.c b/lapacke/src/lapacke_stprfb.c index 48d89980..28a2cbab 100644 --- a/lapacke/src/lapacke_stprfb.c +++ b/lapacke/src/lapacke_stprfb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stprfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_stprfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const float* v, lapack_int ldv, const float* t, lapack_int ldt, @@ -43,22 +43,22 @@ lapack_int LAPACKE_stprfb( int matrix_order, char side, char trans, char direct, lapack_int ldwork; lapack_int work_size; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stprfb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, k, m, a, lda ) ) { return -14; } - if( LAPACKE_sge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -16; } - if( LAPACKE_sge_nancheck( matrix_order, ldt, k, t, ldt ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, ldt, k, t, ldt ) ) { return -12; } - if( LAPACKE_sge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -10; } #endif @@ -72,13 +72,13 @@ lapack_int LAPACKE_stprfb( int matrix_order, char side, char trans, char direct, } /* Allocate memory for working array(s) */ work = (float*) - LAPACKE_malloc( sizeof(float) * MAX(1,ldwork) * MAX(n,k) ); + LAPACKE_malloc( sizeof(float) * work_size ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_stprfb_work( matrix_order, side, trans, direct, storev, m, n, + info = LAPACKE_stprfb_work( matrix_layout, side, trans, direct, storev, m, n, k, l, v, ldv, t, ldt, a, lda, b, ldb, work, ldwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_stprfb_work.c b/lapacke/src/lapacke_stprfb_work.c index 11b002b9..b03a5728 100644 --- a/lapacke/src/lapacke_stprfb_work.c +++ b/lapacke/src/lapacke_stprfb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stprfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_stprfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const float* v, lapack_int ldv, const float* t, @@ -42,14 +42,14 @@ lapack_int LAPACKE_stprfb_work( int matrix_order, char side, char trans, lapack_int ldwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stprfb( &side, &trans, &direct, &storev, &m, &n, &k, &l, v, &ldv, t, &ldt, a, &lda, b, &ldb, work, &ldwork ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k; lapack_int lda_t = MAX(1,k); lapack_int ldb_t = MAX(1,m); @@ -102,10 +102,10 @@ lapack_int LAPACKE_stprfb_work( int matrix_order, char side, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_sge_trans( matrix_order, ldt, k, t, ldt, t_t, ldt_t ); - LAPACKE_sge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_sge_trans( matrix_layout, ldt, k, t, ldt, t_t, ldt_t ); + LAPACKE_sge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_stprfb( &side, &trans, &direct, &storev, &m, &n, &k, &l, v_t, &ldv_t, t_t, &ldt_t, a_t, &lda_t, b_t, &ldb_t, work, diff --git a/lapacke/src/lapacke_stprfs.c b/lapacke/src/lapacke_stprfs.c index 3d41b9f4..e0e18347 100644 --- a/lapacke/src/lapacke_stprfs.c +++ b/lapacke/src/lapacke_stprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stprfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_stprfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* ap, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, float* berr ) @@ -41,19 +41,19 @@ lapack_int LAPACKE_stprfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stprfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_stp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_stp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -69,7 +69,7 @@ lapack_int LAPACKE_stprfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_stprfs_work( matrix_order, uplo, trans, diag, n, nrhs, ap, b, + info = LAPACKE_stprfs_work( matrix_layout, uplo, trans, diag, n, nrhs, ap, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_stprfs_work.c b/lapacke/src/lapacke_stprfs_work.c index 62d358bc..d761acbb 100644 --- a/lapacke/src/lapacke_stprfs_work.c +++ b/lapacke/src/lapacke_stprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stprfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_stprfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* ap, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, float* berr, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stprfs( &uplo, &trans, &diag, &n, &nrhs, ap, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); float* b_t = NULL; @@ -82,9 +82,9 @@ lapack_int LAPACKE_stprfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_stp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_stp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_stprfs( &uplo, &trans, &diag, &n, &nrhs, ap_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_stptri.c b/lapacke/src/lapacke_stptri.c index 1b3fd03f..f600c2a3 100644 --- a/lapacke/src/lapacke_stptri.c +++ b/lapacke/src/lapacke_stptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stptri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_stptri( int matrix_layout, char uplo, char diag, lapack_int n, float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stptri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_stp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_stp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -5; } #endif - return LAPACKE_stptri_work( matrix_order, uplo, diag, n, ap ); + return LAPACKE_stptri_work( matrix_layout, uplo, diag, n, ap ); } diff --git a/lapacke/src/lapacke_stptri_work.c b/lapacke/src/lapacke_stptri_work.c index 9e73e2bb..11e6b5d2 100644 --- a/lapacke/src/lapacke_stptri_work.c +++ b/lapacke/src/lapacke_stptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stptri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_stptri_work( int matrix_layout, char uplo, char diag, lapack_int n, float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stptri( &uplo, &diag, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (float*) @@ -53,7 +53,7 @@ lapack_int LAPACKE_stptri_work( int matrix_order, char uplo, char diag, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_stp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_stp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_stptri( &uplo, &diag, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_stptrs.c b/lapacke/src/lapacke_stptrs.c index d5c13c71..3977e175 100644 --- a/lapacke/src/lapacke_stptrs.c +++ b/lapacke/src/lapacke_stptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stptrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_stptrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* ap, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stptrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_stp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_stp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_stptrs_work( matrix_order, uplo, trans, diag, n, nrhs, ap, b, + return LAPACKE_stptrs_work( matrix_layout, uplo, trans, diag, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_stptrs_work.c b/lapacke/src/lapacke_stptrs_work.c index 0f3342bf..31540192 100644 --- a/lapacke/src/lapacke_stptrs_work.c +++ b/lapacke/src/lapacke_stptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stptrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_stptrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* ap, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stptrs( &uplo, &trans, &diag, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); float* b_t = NULL; float* ap_t = NULL; @@ -67,8 +67,8 @@ lapack_int LAPACKE_stptrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_stp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_stp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_stptrs( &uplo, &trans, &diag, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_stpttf.c b/lapacke/src/lapacke_stpttf.c index 16a5c28b..a6cc9a7a 100644 --- a/lapacke/src/lapacke_stpttf.c +++ b/lapacke/src/lapacke_stpttf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stpttf( int matrix_layout, char transr, char uplo, lapack_int n, const float* ap, float* arf ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stpttf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_stpttf( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_stpttf_work( matrix_order, transr, uplo, n, ap, arf ); + return LAPACKE_stpttf_work( matrix_layout, transr, uplo, n, ap, arf ); } diff --git a/lapacke/src/lapacke_stpttf_work.c b/lapacke/src/lapacke_stpttf_work.c index 5dbf70bd..ef4cb041 100644 --- a/lapacke/src/lapacke_stpttf_work.c +++ b/lapacke/src/lapacke_stpttf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_stpttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const float* ap, float* arf ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stpttf( &transr, &uplo, &n, ap, arf, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { float* ap_t = NULL; float* arf_t = NULL; /* Allocate memory for temporary array(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_stpttf_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_stpttf( &transr, &uplo, &n, ap_t, arf_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_stpttr.c b/lapacke/src/lapacke_stpttr.c index 6e87abab..01cf6a37 100644 --- a/lapacke/src/lapacke_stpttr.c +++ b/lapacke/src/lapacke_stpttr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpttr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_stpttr( int matrix_layout, char uplo, lapack_int n, const float* ap, float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stpttr", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_stpttr( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_stpttr_work( matrix_order, uplo, n, ap, a, lda ); + return LAPACKE_stpttr_work( matrix_layout, uplo, n, ap, a, lda ); } diff --git a/lapacke/src/lapacke_stpttr_work.c b/lapacke/src/lapacke_stpttr_work.c index c453084d..5d8c7811 100644 --- a/lapacke/src/lapacke_stpttr_work.c +++ b/lapacke/src/lapacke_stpttr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stpttr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_stpttr_work( int matrix_layout, char uplo, lapack_int n, const float* ap, float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stpttr( &uplo, &n, ap, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; float* ap_t = NULL; @@ -66,7 +66,7 @@ lapack_int LAPACKE_stpttr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_spp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_spp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_stpttr( &uplo, &n, ap_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_strcon.c b/lapacke/src/lapacke_strcon.c index e920747d..2d44f4e0 100644 --- a/lapacke/src/lapacke_strcon.c +++ b/lapacke/src/lapacke_strcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_strcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const float* a, lapack_int lda, float* rcond ) { lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_str_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_str_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -6; } #endif @@ -62,7 +62,7 @@ lapack_int LAPACKE_strcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_strcon_work( matrix_order, norm, uplo, diag, n, a, lda, + info = LAPACKE_strcon_work( matrix_layout, norm, uplo, diag, n, a, lda, rcond, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_strcon_work.c b/lapacke/src/lapacke_strcon_work.c index c3e76de6..b7a10f93 100644 --- a/lapacke/src/lapacke_strcon_work.c +++ b/lapacke/src/lapacke_strcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_strcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const float* a, lapack_int lda, float* rcond, float* work, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strcon( &norm, &uplo, &diag, &n, a, &lda, rcond, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_strcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_str_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_str_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_strcon( &norm, &uplo, &diag, &n, a_t, &lda_t, rcond, work, iwork, &info ); diff --git a/lapacke/src/lapacke_strevc.c b/lapacke/src/lapacke_strevc.c index 4c076d73..75f81abf 100644 --- a/lapacke/src/lapacke_strevc.c +++ b/lapacke/src/lapacke_strevc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_strevc( int matrix_layout, char side, char howmny, lapack_logical* select, lapack_int n, const float* t, lapack_int ldt, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int mm, @@ -41,22 +41,22 @@ lapack_int LAPACKE_strevc( int matrix_order, char side, char howmny, { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strevc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'l' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -8; } } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'r' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -10; } } @@ -68,7 +68,7 @@ lapack_int LAPACKE_strevc( int matrix_order, char side, char howmny, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_strevc_work( matrix_order, side, howmny, select, n, t, ldt, + info = LAPACKE_strevc_work( matrix_layout, side, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, mm, m, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_strevc_work.c b/lapacke/src/lapacke_strevc_work.c index 9093fe06..8439852d 100644 --- a/lapacke/src/lapacke_strevc_work.c +++ b/lapacke/src/lapacke_strevc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_strevc_work( int matrix_layout, char side, char howmny, lapack_logical* select, lapack_int n, const float* t, lapack_int ldt, float* vl, lapack_int ldvl, float* vr, lapack_int ldvr, lapack_int mm, lapack_int* m, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strevc( &side, &howmny, select, &n, t, &ldt, vl, &ldvl, vr, &ldvr, &mm, m, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldt_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -91,14 +91,14 @@ lapack_int LAPACKE_strevc_work( int matrix_order, char side, char howmny, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_sge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( ( LAPACKE_lsame( side, 'l' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_sge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_sge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( side, 'r' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_sge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_sge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_strevc( &side, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t, diff --git a/lapacke/src/lapacke_strexc.c b/lapacke/src/lapacke_strexc.c index f544a1e1..a938b65e 100644 --- a/lapacke/src/lapacke_strexc.c +++ b/lapacke/src/lapacke_strexc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strexc( int matrix_order, char compq, lapack_int n, float* t, +lapack_int LAPACKE_strexc( int matrix_layout, char compq, lapack_int n, float* t, lapack_int ldt, float* q, lapack_int ldq, lapack_int* ifst, lapack_int* ilst ) { lapack_int info = 0; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strexc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -6; } } - if( LAPACKE_sge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -4; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_strexc( int matrix_order, char compq, lapack_int n, float* t, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_strexc_work( matrix_order, compq, n, t, ldt, q, ldq, ifst, + info = LAPACKE_strexc_work( matrix_layout, compq, n, t, ldt, q, ldq, ifst, ilst, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_strexc_work.c b/lapacke/src/lapacke_strexc_work.c index 1ed9edf4..cee4fd97 100644 --- a/lapacke/src/lapacke_strexc_work.c +++ b/lapacke/src/lapacke_strexc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strexc_work( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_strexc_work( int matrix_layout, char compq, lapack_int n, float* t, lapack_int ldt, float* q, lapack_int ldq, lapack_int* ifst, lapack_int* ilst, float* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strexc( &compq, &n, t, &ldt, q, &ldq, ifst, ilst, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); float* t_t = NULL; @@ -75,9 +75,9 @@ lapack_int LAPACKE_strexc_work( int matrix_order, char compq, lapack_int n, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_sge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_sge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_sge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_strexc( &compq, &n, t_t, &ldt_t, q_t, &ldq_t, ifst, ilst, work, diff --git a/lapacke/src/lapacke_strrfs.c b/lapacke/src/lapacke_strrfs.c index e8d9b3c8..8b2e7e62 100644 --- a/lapacke/src/lapacke_strrfs.c +++ b/lapacke/src/lapacke_strrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_strrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* b, lapack_int ldb, const float* x, lapack_int ldx, float* ferr, @@ -42,19 +42,19 @@ lapack_int LAPACKE_strrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_str_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_str_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -11; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_strrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_strrfs_work( matrix_order, uplo, trans, diag, n, nrhs, a, + info = LAPACKE_strrfs_work( matrix_layout, uplo, trans, diag, n, nrhs, a, lda, b, ldb, x, ldx, ferr, berr, work, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_strrfs_work.c b/lapacke/src/lapacke_strrfs_work.c index 1d8bf77e..25862561 100644 --- a/lapacke/src/lapacke_strrfs_work.c +++ b/lapacke/src/lapacke_strrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_strrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, const float* b, lapack_int ldb, const float* x, lapack_int ldx, @@ -41,14 +41,14 @@ lapack_int LAPACKE_strrfs_work( int matrix_order, char uplo, char trans, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strrfs( &uplo, &trans, &diag, &n, &nrhs, a, &lda, b, &ldb, x, &ldx, ferr, berr, work, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -88,9 +88,9 @@ lapack_int LAPACKE_strrfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_str_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_str_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_strrfs( &uplo, &trans, &diag, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, iwork, &info ); diff --git a/lapacke/src/lapacke_strsen.c b/lapacke/src/lapacke_strsen.c index fb1b0084..bbda54e8 100644 --- a/lapacke/src/lapacke_strsen.c +++ b/lapacke/src/lapacke_strsen.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strsen( int matrix_order, char job, char compq, +lapack_int LAPACKE_strsen( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, float* t, lapack_int ldt, float* q, lapack_int ldq, float* wr, float* wi, lapack_int* m, float* s, float* sep ) @@ -45,23 +45,23 @@ lapack_int LAPACKE_strsen( int matrix_order, char job, char compq, float* work = NULL; lapack_int iwork_query; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strsen", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -8; } } - if( LAPACKE_sge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_strsen_work( matrix_order, job, compq, select, n, t, ldt, q, + info = LAPACKE_strsen_work( matrix_layout, job, compq, select, n, t, ldt, q, ldq, wr, wi, m, s, sep, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -83,7 +83,7 @@ lapack_int LAPACKE_strsen( int matrix_order, char job, char compq, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_strsen_work( matrix_order, job, compq, select, n, t, ldt, q, + info = LAPACKE_strsen_work( matrix_layout, job, compq, select, n, t, ldt, q, ldq, wr, wi, m, s, sep, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_strsen_work.c b/lapacke/src/lapacke_strsen_work.c index d4f7068e..369c72e7 100644 --- a/lapacke/src/lapacke_strsen_work.c +++ b/lapacke/src/lapacke_strsen_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strsen_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_strsen_work( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, float* t, lapack_int ldt, float* q, lapack_int ldq, float* wr, float* wi, @@ -42,14 +42,14 @@ lapack_int LAPACKE_strsen_work( int matrix_order, char job, char compq, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strsen( &job, &compq, select, &n, t, &ldt, q, &ldq, wr, wi, m, s, sep, work, &lwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); float* t_t = NULL; @@ -72,7 +72,7 @@ lapack_int LAPACKE_strsen_work( int matrix_order, char job, char compq, goto exit_level_0; } /* Transpose input matrix T */ - LAPACKE_sge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_sge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); /* Query optimal working array(s) size if requested */ if( liwork == -1 || lwork == -1 ) { LAPACK_strsen( &job, &compq, select, &n, t_t, &ldt_t, q, &ldq_t, wr, @@ -90,7 +90,7 @@ lapack_int LAPACKE_strsen_work( int matrix_order, char job, char compq, } /* Transpose input matrices */ if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_sge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_sge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_strsen( &job, &compq, select, &n, t_t, &ldt_t, q_t, &ldq_t, wr, diff --git a/lapacke/src/lapacke_strsna.c b/lapacke/src/lapacke_strsna.c index 12bd638d..a2e3d022 100644 --- a/lapacke/src/lapacke_strsna.c +++ b/lapacke/src/lapacke_strsna.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_strsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const float* t, lapack_int ldt, const float* vl, lapack_int ldvl, const float* vr, lapack_int ldvr, @@ -43,22 +43,22 @@ lapack_int LAPACKE_strsna( int matrix_order, char job, char howmny, lapack_int ldwork = LAPACKE_lsame( job, 'e' ) ? 1 : MAX(1,n) ; lapack_int* iwork = NULL; float* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strsna", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -8; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_sge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -10; } } @@ -80,7 +80,7 @@ lapack_int LAPACKE_strsna( int matrix_order, char job, char howmny, } } /* Call middle-level interface */ - info = LAPACKE_strsna_work( matrix_order, job, howmny, select, n, t, ldt, + info = LAPACKE_strsna_work( matrix_layout, job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_strsna_work.c b/lapacke/src/lapacke_strsna_work.c index 87c4354f..084a1357 100644 --- a/lapacke/src/lapacke_strsna_work.c +++ b/lapacke/src/lapacke_strsna_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_strsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const float* t, lapack_int ldt, const float* vl, lapack_int ldvl, const float* vr, @@ -42,14 +42,14 @@ lapack_int LAPACKE_strsna_work( int matrix_order, char job, char howmny, lapack_int ldwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strsna( &job, &howmny, select, &n, t, &ldt, vl, &ldvl, vr, &ldvr, s, sep, &mm, m, work, &ldwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldt_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -93,12 +93,12 @@ lapack_int LAPACKE_strsna_work( int matrix_order, char job, char howmny, } } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_sge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_sge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_sge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_sge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_sge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_strsna( &job, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t, diff --git a/lapacke/src/lapacke_strsyl.c b/lapacke/src/lapacke_strsyl.c index a92af8b9..78440413 100644 --- a/lapacke/src/lapacke_strsyl.c +++ b/lapacke/src/lapacke_strsyl.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,28 +33,28 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strsyl( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_strsyl( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, float* c, lapack_int ldc, float* scale ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strsyl", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, m, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, m, a, lda ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } - if( LAPACKE_sge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } #endif - return LAPACKE_strsyl_work( matrix_order, trana, tranb, isgn, m, n, a, lda, + return LAPACKE_strsyl_work( matrix_layout, trana, tranb, isgn, m, n, a, lda, b, ldb, c, ldc, scale ); } diff --git a/lapacke/src/lapacke_strsyl_work.c b/lapacke/src/lapacke_strsyl_work.c index 552ffdd2..90d9b535 100644 --- a/lapacke/src/lapacke_strsyl_work.c +++ b/lapacke/src/lapacke_strsyl_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strsyl_work( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_strsyl_work( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const float* a, lapack_int lda, const float* b, lapack_int ldb, float* c, lapack_int ldc, float* scale ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strsyl( &trana, &tranb, &isgn, &m, &n, a, &lda, b, &ldb, c, &ldc, scale, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,n); lapack_int ldc_t = MAX(1,m); @@ -87,9 +87,9 @@ lapack_int LAPACKE_strsyl_work( int matrix_order, char trana, char tranb, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, m, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); - LAPACKE_sge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_sge_trans( matrix_layout, m, m, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_sge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_strsyl( &trana, &tranb, &isgn, &m, &n, a_t, &lda_t, b_t, &ldb_t, c_t, &ldc_t, scale, &info ); diff --git a/lapacke/src/lapacke_strtri.c b/lapacke/src/lapacke_strtri.c index 89e3a6ae..a2d864f3 100644 --- a/lapacke/src/lapacke_strtri.c +++ b/lapacke/src/lapacke_strtri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strtri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_strtri( int matrix_layout, char uplo, char diag, lapack_int n, float* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strtri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_str_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_str_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -5; } #endif - return LAPACKE_strtri_work( matrix_order, uplo, diag, n, a, lda ); + return LAPACKE_strtri_work( matrix_layout, uplo, diag, n, a, lda ); } diff --git a/lapacke/src/lapacke_strtri_work.c b/lapacke/src/lapacke_strtri_work.c index 1846f044..d0cec27c 100644 --- a/lapacke/src/lapacke_strtri_work.c +++ b/lapacke/src/lapacke_strtri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strtri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_strtri_work( int matrix_layout, char uplo, char diag, lapack_int n, float* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strtri( &uplo, &diag, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; /* Check leading dimension(s) */ @@ -59,7 +59,7 @@ lapack_int LAPACKE_strtri_work( int matrix_order, char uplo, char diag, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_str_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_str_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_strtri( &uplo, &diag, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_strtrs.c b/lapacke/src/lapacke_strtrs.c index d2e4b51d..35ccd7fc 100644 --- a/lapacke/src/lapacke_strtrs.c +++ b/lapacke/src/lapacke_strtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_strtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_str_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_str_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } - if( LAPACKE_sge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif - return LAPACKE_strtrs_work( matrix_order, uplo, trans, diag, n, nrhs, a, + return LAPACKE_strtrs_work( matrix_layout, uplo, trans, diag, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_strtrs_work.c b/lapacke/src/lapacke_strtrs_work.c index 740f30b9..5d0a7194 100644 --- a/lapacke/src/lapacke_strtrs_work.c +++ b/lapacke/src/lapacke_strtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_strtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const float* a, lapack_int lda, float* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strtrs( &uplo, &trans, &diag, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); float* a_t = NULL; @@ -74,8 +74,8 @@ lapack_int LAPACKE_strtrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_str_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); - LAPACKE_sge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_str_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_strtrs( &uplo, &trans, &diag, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_strttf.c b/lapacke/src/lapacke_strttf.c index 796b9476..8bd7b17c 100644 --- a/lapacke/src/lapacke_strttf.c +++ b/lapacke/src/lapacke_strttf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_strttf( int matrix_layout, char transr, char uplo, lapack_int n, const float* a, lapack_int lda, float* arf ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strttf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif - return LAPACKE_strttf_work( matrix_order, transr, uplo, n, a, lda, arf ); + return LAPACKE_strttf_work( matrix_layout, transr, uplo, n, a, lda, arf ); } diff --git a/lapacke/src/lapacke_strttf_work.c b/lapacke/src/lapacke_strttf_work.c index e995cc91..fa8697fe 100644 --- a/lapacke/src/lapacke_strttf_work.c +++ b/lapacke/src/lapacke_strttf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_strttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const float* a, lapack_int lda, float* arf ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strttf( &transr, &uplo, &n, a, &lda, arf, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; float* arf_t = NULL; @@ -67,7 +67,7 @@ lapack_int LAPACKE_strttf_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_strttf( &transr, &uplo, &n, a_t, &lda_t, arf_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_strttp.c b/lapacke/src/lapacke_strttp.c index 597a266b..789aa45c 100644 --- a/lapacke/src/lapacke_strttp.c +++ b/lapacke/src/lapacke_strttp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strttp( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_strttp( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_strttp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } #endif - return LAPACKE_strttp_work( matrix_order, uplo, n, a, lda, ap ); + return LAPACKE_strttp_work( matrix_layout, uplo, n, a, lda, ap ); } diff --git a/lapacke/src/lapacke_strttp_work.c b/lapacke/src/lapacke_strttp_work.c index 51e3969a..343b9dd5 100644 --- a/lapacke/src/lapacke_strttp_work.c +++ b/lapacke/src/lapacke_strttp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_strttp_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_strttp_work( int matrix_layout, char uplo, lapack_int n, const float* a, lapack_int lda, float* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_strttp( &uplo, &n, a, &lda, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); float* a_t = NULL; float* ap_t = NULL; @@ -66,7 +66,7 @@ lapack_int LAPACKE_strttp_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_strttp( &uplo, &n, a_t, &lda_t, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_stzrzf.c b/lapacke/src/lapacke_stzrzf.c index 5feb1f5c..59ecb02a 100644 --- a/lapacke/src/lapacke_stzrzf.c +++ b/lapacke/src/lapacke_stzrzf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stzrzf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_stzrzf( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau ) { lapack_int info = 0; lapack_int lwork = -1; float* work = NULL; float work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_stzrzf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_stzrzf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_stzrzf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -64,7 +64,7 @@ lapack_int LAPACKE_stzrzf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_stzrzf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_stzrzf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_stzrzf_work.c b/lapacke/src/lapacke_stzrzf_work.c index fb687319..084e8eeb 100644 --- a/lapacke/src/lapacke_stzrzf_work.c +++ b/lapacke/src/lapacke_stzrzf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_stzrzf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_stzrzf_work( int matrix_layout, lapack_int m, lapack_int n, float* a, lapack_int lda, float* tau, float* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_stzrzf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); float* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_stzrzf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_sge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_sge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_stzrzf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zbbcsd.c b/lapacke/src/lapacke_zbbcsd.c index 6ac69e0c..161ec691 100644 --- a/lapacke/src/lapacke_zbbcsd.c +++ b/lapacke/src/lapacke_zbbcsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zbbcsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_zbbcsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, double* theta, double* phi, lapack_complex_double* u1, @@ -49,7 +49,7 @@ lapack_int LAPACKE_zbbcsd( int matrix_order, char jobu1, char jobu2, double* rwork = NULL; double rwork_query; lapack_int nrows_u1, nrows_u2, nrows_v1t, nrows_v2t; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zbbcsd", -1 ); return -1; } @@ -66,28 +66,28 @@ lapack_int LAPACKE_zbbcsd( int matrix_order, char jobu1, char jobu2, return -10; } if( LAPACKE_lsame( jobu1, 'y' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, nrows_u1, p, u1, ldu1 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_u1, p, u1, ldu1 ) ) { return -12; } } if( LAPACKE_lsame( jobu2, 'y' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, nrows_u2, m-p, u2, ldu2 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_u2, m-p, u2, ldu2 ) ) { return -14; } } if( LAPACKE_lsame( jobv1t, 'y' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, nrows_v1t, q, v1t, ldv1t ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_v1t, q, v1t, ldv1t ) ) { return -16; } } if( LAPACKE_lsame( jobv2t, 'y' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, nrows_v2t, m-q, v2t, ldv2t ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_v2t, m-q, v2t, ldv2t ) ) { return -18; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zbbcsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_zbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e, &rwork_query, lrwork ); @@ -102,7 +102,7 @@ lapack_int LAPACKE_zbbcsd( int matrix_order, char jobu1, char jobu2, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zbbcsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_zbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e, b21d, b21e, b22d, b22e, rwork, lrwork ); diff --git a/lapacke/src/lapacke_zbbcsd_work.c b/lapacke/src/lapacke_zbbcsd_work.c index 29dcd4c6..08617db0 100644 --- a/lapacke/src/lapacke_zbbcsd_work.c +++ b/lapacke/src/lapacke_zbbcsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zbbcsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_zbbcsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, lapack_int m, lapack_int p, lapack_int q, double* theta, double* phi, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zbbcsd_work( int matrix_order, char jobu1, char jobu2, lapack_int lrwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zbbcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &m, &p, &q, theta, phi, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, v2t, @@ -56,7 +56,7 @@ lapack_int LAPACKE_zbbcsd_work( int matrix_order, char jobu1, char jobu2, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_u1 = ( LAPACKE_lsame( jobu1, 'y' ) ? p : 1); lapack_int nrows_u2 = ( LAPACKE_lsame( jobu2, 'y' ) ? m-p : 1); lapack_int nrows_v1t = ( LAPACKE_lsame( jobv1t, 'y' ) ? q : 1); @@ -137,19 +137,19 @@ lapack_int LAPACKE_zbbcsd_work( int matrix_order, char jobu1, char jobu2, } /* Transpose input matrices */ if( LAPACKE_lsame( jobu1, 'y' ) ) { - LAPACKE_zge_trans( matrix_order, nrows_u1, p, u1, ldu1, u1_t, + LAPACKE_zge_trans( matrix_layout, nrows_u1, p, u1, ldu1, u1_t, ldu1_t ); } if( LAPACKE_lsame( jobu2, 'y' ) ) { - LAPACKE_zge_trans( matrix_order, nrows_u2, m-p, u2, ldu2, u2_t, + LAPACKE_zge_trans( matrix_layout, nrows_u2, m-p, u2, ldu2, u2_t, ldu2_t ); } if( LAPACKE_lsame( jobv1t, 'y' ) ) { - LAPACKE_zge_trans( matrix_order, nrows_v1t, q, v1t, ldv1t, v1t_t, + LAPACKE_zge_trans( matrix_layout, nrows_v1t, q, v1t, ldv1t, v1t_t, ldv1t_t ); } if( LAPACKE_lsame( jobv2t, 'y' ) ) { - LAPACKE_zge_trans( matrix_order, nrows_v2t, m-q, v2t, ldv2t, v2t_t, + LAPACKE_zge_trans( matrix_layout, nrows_v2t, m-q, v2t, ldv2t, v2t_t, ldv2t_t ); } /* Call LAPACK function and adjust info */ diff --git a/lapacke/src/lapacke_zbdsqr.c b/lapacke/src/lapacke_zbdsqr.c index 370f7be5..1c0909f7 100644 --- a/lapacke/src/lapacke_zbdsqr.c +++ b/lapacke/src/lapacke_zbdsqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zbdsqr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zbdsqr( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, double* d, double* e, lapack_complex_double* vt, lapack_int ldvt, lapack_complex_double* u, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zbdsqr( int matrix_order, char uplo, lapack_int n, { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zbdsqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( ncc != 0 ) { - if( LAPACKE_zge_nancheck( matrix_order, n, ncc, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, ncc, c, ldc ) ) { return -13; } } @@ -60,12 +60,12 @@ lapack_int LAPACKE_zbdsqr( int matrix_order, char uplo, lapack_int n, return -8; } if( nru != 0 ) { - if( LAPACKE_zge_nancheck( matrix_order, nru, n, u, ldu ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nru, n, u, ldu ) ) { return -11; } } if( ncvt != 0 ) { - if( LAPACKE_zge_nancheck( matrix_order, n, ncvt, vt, ldvt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, ncvt, vt, ldvt ) ) { return -9; } } @@ -77,7 +77,7 @@ lapack_int LAPACKE_zbdsqr( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zbdsqr_work( matrix_order, uplo, n, ncvt, nru, ncc, d, e, vt, + info = LAPACKE_zbdsqr_work( matrix_layout, uplo, n, ncvt, nru, ncc, d, e, vt, ldvt, u, ldu, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zbdsqr_work.c b/lapacke/src/lapacke_zbdsqr_work.c index 8132780a..3c93a976 100644 --- a/lapacke/src/lapacke_zbdsqr_work.c +++ b/lapacke/src/lapacke_zbdsqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zbdsqr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zbdsqr_work( int matrix_layout, char uplo, lapack_int n, lapack_int ncvt, lapack_int nru, lapack_int ncc, double* d, double* e, lapack_complex_double* vt, lapack_int ldvt, lapack_complex_double* u, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zbdsqr_work( int matrix_order, char uplo, lapack_int n, lapack_int ldc, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zbdsqr( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt, &ldvt, u, &ldu, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,n); lapack_int ldu_t = MAX(1,nru); lapack_int ldvt_t = MAX(1,n); @@ -101,13 +101,13 @@ lapack_int LAPACKE_zbdsqr_work( int matrix_order, char uplo, lapack_int n, } /* Transpose input matrices */ if( ncvt != 0 ) { - LAPACKE_zge_trans( matrix_order, n, ncvt, vt, ldvt, vt_t, ldvt_t ); + LAPACKE_zge_trans( matrix_layout, n, ncvt, vt, ldvt, vt_t, ldvt_t ); } if( nru != 0 ) { - LAPACKE_zge_trans( matrix_order, nru, n, u, ldu, u_t, ldu_t ); + LAPACKE_zge_trans( matrix_layout, nru, n, u, ldu, u_t, ldu_t ); } if( ncc != 0 ) { - LAPACKE_zge_trans( matrix_order, n, ncc, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, n, ncc, c, ldc, c_t, ldc_t ); } /* Call LAPACK function and adjust info */ LAPACK_zbdsqr( &uplo, &n, &ncvt, &nru, &ncc, d, e, vt_t, &ldvt_t, u_t, diff --git a/lapacke/src/lapacke_zcgesv.c b/lapacke/src/lapacke_zcgesv.c index d4232bf4..9c865f48 100644 --- a/lapacke/src/lapacke_zcgesv.c +++ b/lapacke/src/lapacke_zcgesv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zcgesv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zcgesv( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, @@ -43,16 +43,16 @@ lapack_int LAPACKE_zcgesv( int matrix_order, lapack_int n, lapack_int nrhs, double* rwork = NULL; lapack_complex_float* swork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zcgesv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif @@ -77,7 +77,7 @@ lapack_int LAPACKE_zcgesv( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zcgesv_work( matrix_order, n, nrhs, a, lda, ipiv, b, ldb, x, + info = LAPACKE_zcgesv_work( matrix_layout, n, nrhs, a, lda, ipiv, b, ldb, x, ldx, work, swork, rwork, iter ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zcgesv_work.c b/lapacke/src/lapacke_zcgesv_work.c index db32eddc..2def2179 100644 --- a/lapacke/src/lapacke_zcgesv_work.c +++ b/lapacke/src/lapacke_zcgesv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zcgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zcgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zcgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, lapack_int* iter ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zcgesv( &n, &nrhs, a, &lda, ipiv, b, &ldb, x, &ldx, work, swork, rwork, iter, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -94,8 +94,8 @@ lapack_int LAPACKE_zcgesv_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zcgesv( &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, work, swork, rwork, iter, &info ); diff --git a/lapacke/src/lapacke_zcposv.c b/lapacke/src/lapacke_zcposv.c index eb34aa3f..d1606e90 100644 --- a/lapacke/src/lapacke_zcposv.c +++ b/lapacke/src/lapacke_zcposv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zcposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zcposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, @@ -43,16 +43,16 @@ lapack_int LAPACKE_zcposv( int matrix_order, char uplo, lapack_int n, double* rwork = NULL; lapack_complex_float* swork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zcposv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif @@ -77,7 +77,7 @@ lapack_int LAPACKE_zcposv( int matrix_order, char uplo, lapack_int n, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zcposv_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb, x, + info = LAPACKE_zcposv_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb, x, ldx, work, swork, rwork, iter ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zcposv_work.c b/lapacke/src/lapacke_zcposv_work.c index 3e48add0..15774ff0 100644 --- a/lapacke/src/lapacke_zcposv_work.c +++ b/lapacke/src/lapacke_zcposv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zcposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zcposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* x, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zcposv_work( int matrix_order, char uplo, lapack_int n, lapack_int* iter ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zcposv( &uplo, &n, &nrhs, a, &lda, b, &ldb, x, &ldx, work, swork, rwork, iter, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -94,8 +94,8 @@ lapack_int LAPACKE_zcposv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zcposv( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, x_t, &ldx_t, work, swork, rwork, iter, &info ); diff --git a/lapacke/src/lapacke_zgbbrd.c b/lapacke/src/lapacke_zgbbrd.c index f25479b3..9124811d 100644 --- a/lapacke/src/lapacke_zgbbrd.c +++ b/lapacke/src/lapacke_zgbbrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbbrd( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_zgbbrd( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, lapack_complex_double* ab, lapack_int ldab, double* d, double* e, @@ -44,17 +44,17 @@ lapack_int LAPACKE_zgbbrd( int matrix_order, char vect, lapack_int m, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbbrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -8; } if( ncc != 0 ) { - if( LAPACKE_zge_nancheck( matrix_order, m, ncc, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, ncc, c, ldc ) ) { return -16; } } @@ -72,7 +72,7 @@ lapack_int LAPACKE_zgbbrd( int matrix_order, char vect, lapack_int m, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgbbrd_work( matrix_order, vect, m, n, ncc, kl, ku, ab, ldab, + info = LAPACKE_zgbbrd_work( matrix_layout, vect, m, n, ncc, kl, ku, ab, ldab, d, e, q, ldq, pt, ldpt, c, ldc, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgbbrd_work.c b/lapacke/src/lapacke_zgbbrd_work.c index 31063003..67254441 100644 --- a/lapacke/src/lapacke_zgbbrd_work.c +++ b/lapacke/src/lapacke_zgbbrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbbrd_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_zgbbrd_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int ncc, lapack_int kl, lapack_int ku, lapack_complex_double* ab, lapack_int ldab, double* d, double* e, @@ -43,14 +43,14 @@ lapack_int LAPACKE_zgbbrd_work( int matrix_order, char vect, lapack_int m, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbbrd( &vect, &m, &n, &ncc, &kl, &ku, ab, &ldab, d, e, q, &ldq, pt, &ldpt, c, &ldc, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldc_t = MAX(1,m); lapack_int ldpt_t = MAX(1,n); @@ -115,9 +115,9 @@ lapack_int LAPACKE_zgbbrd_work( int matrix_order, char vect, lapack_int m, } } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_zgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( ncc != 0 ) { - LAPACKE_zge_trans( matrix_order, m, ncc, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, m, ncc, c, ldc, c_t, ldc_t ); } /* Call LAPACK function and adjust info */ LAPACK_zgbbrd( &vect, &m, &n, &ncc, &kl, &ku, ab_t, &ldab_t, d, e, q_t, diff --git a/lapacke/src/lapacke_zgbcon.c b/lapacke/src/lapacke_zgbcon.c index a82a4f4e..d867c326 100644 --- a/lapacke/src/lapacke_zgbcon.c +++ b/lapacke/src/lapacke_zgbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbcon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_zgbcon( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, const lapack_int* ipiv, double anorm, double* rcond ) @@ -41,13 +41,13 @@ lapack_int LAPACKE_zgbcon( int matrix_order, char norm, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -6; } if( LAPACKE_d_nancheck( 1, &anorm, 1 ) ) { @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgbcon( int matrix_order, char norm, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgbcon_work( matrix_order, norm, n, kl, ku, ab, ldab, ipiv, + info = LAPACKE_zgbcon_work( matrix_layout, norm, n, kl, ku, ab, ldab, ipiv, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgbcon_work.c b/lapacke/src/lapacke_zgbcon_work.c index 0de63c65..85b9fefb 100644 --- a/lapacke/src/lapacke_zgbcon_work.c +++ b/lapacke/src/lapacke_zgbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbcon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_zgbcon_work( int matrix_layout, char norm, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, const lapack_int* ipiv, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zgbcon_work( int matrix_order, char norm, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbcon( &norm, &n, &kl, &ku, ab, &ldab, ipiv, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_complex_double* ab_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_zgbcon_work( int matrix_order, char norm, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_zgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbcon( &norm, &n, &kl, &ku, ab_t, &ldab_t, ipiv, &anorm, rcond, diff --git a/lapacke/src/lapacke_zgbequ.c b/lapacke/src/lapacke_zgbequ.c index 56fa57d3..a8188117 100644 --- a/lapacke/src/lapacke_zgbequ.c +++ b/lapacke/src/lapacke_zgbequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbequ( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_zgbequ_work( matrix_order, m, n, kl, ku, ab, ldab, r, c, + return LAPACKE_zgbequ_work( matrix_layout, m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_zgbequ_work.c b/lapacke/src/lapacke_zgbequ_work.c index 3a4331b0..2f8e7ffb 100644 --- a/lapacke/src/lapacke_zgbequ_work.c +++ b/lapacke/src/lapacke_zgbequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbequ_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbequ( &m, &n, &kl, &ku, ab, &ldab, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_complex_double* ab_t = NULL; /* Check leading dimension(s) */ @@ -64,7 +64,7 @@ lapack_int LAPACKE_zgbequ_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_zgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbequ( &m, &n, &kl, &ku, ab_t, &ldab_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_zgbequb.c b/lapacke/src/lapacke_zgbequb.c index 5c0953a3..4609363f 100644 --- a/lapacke/src/lapacke_zgbequb.c +++ b/lapacke/src/lapacke_zgbequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,22 +33,22 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbequb( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, m, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, m, n, kl, ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_zgbequb_work( matrix_order, m, n, kl, ku, ab, ldab, r, c, + return LAPACKE_zgbequb_work( matrix_layout, m, n, kl, ku, ab, ldab, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_zgbequb_work.c b/lapacke/src/lapacke_zgbequb_work.c index 4e3f8325..cf557bee 100644 --- a/lapacke/src/lapacke_zgbequb_work.c +++ b/lapacke/src/lapacke_zgbequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbequb_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double* ab, lapack_int ldab, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbequb( &m, &n, &kl, &ku, ab, &ldab, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_complex_double* ab_t = NULL; /* Check leading dimension(s) */ @@ -64,7 +64,7 @@ lapack_int LAPACKE_zgbequb_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_zgb_trans( matrix_layout, m, n, kl, ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbequb( &m, &n, &kl, &ku, ab_t, &ldab_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_zgbrfs.c b/lapacke/src/lapacke_zgbrfs.c index 1cf47ecd..ef1dd998 100644 --- a/lapacke/src/lapacke_zgbrfs.c +++ b/lapacke/src/lapacke_zgbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbrfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgbrfs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* afb, lapack_int ldafb, @@ -45,22 +45,22 @@ lapack_int LAPACKE_zgbrfs( int matrix_order, char trans, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -7; } - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, ldafb ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -9; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -77,7 +77,7 @@ lapack_int LAPACKE_zgbrfs( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgbrfs_work( matrix_order, trans, n, kl, ku, nrhs, ab, ldab, + info = LAPACKE_zgbrfs_work( matrix_layout, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zgbrfs_work.c b/lapacke/src/lapacke_zgbrfs_work.c index 92dd1f29..df7386e9 100644 --- a/lapacke/src/lapacke_zgbrfs_work.c +++ b/lapacke/src/lapacke_zgbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbrfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgbrfs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, @@ -45,14 +45,14 @@ lapack_int LAPACKE_zgbrfs_work( int matrix_order, char trans, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbrfs( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -111,11 +111,11 @@ lapack_int LAPACKE_zgbrfs_work( int matrix_order, char trans, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_zgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_zgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_zgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbrfs( &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, diff --git a/lapacke/src/lapacke_zgbrfsx.c b/lapacke/src/lapacke_zgbrfsx.c index 2323b76c..5c59e657 100644 --- a/lapacke/src/lapacke_zgbrfsx.c +++ b/lapacke/src/lapacke_zgbrfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbrfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_zgbrfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* afb, @@ -48,19 +48,19 @@ lapack_int LAPACKE_zgbrfsx( int matrix_order, char trans, char equed, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbrfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, ldafb ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -15; } if( LAPACKE_lsame( equed, 'b' ) || LAPACKE_lsame( equed, 'c' ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_zgbrfsx( int matrix_order, char trans, char equed, return -13; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -17; } #endif @@ -95,7 +95,7 @@ lapack_int LAPACKE_zgbrfsx( int matrix_order, char trans, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgbrfsx_work( matrix_order, trans, equed, n, kl, ku, nrhs, + info = LAPACKE_zgbrfsx_work( matrix_layout, trans, equed, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, r, c, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_zgbrfsx_work.c b/lapacke/src/lapacke_zgbrfsx_work.c index a613bd5c..610aef6a 100644 --- a/lapacke/src/lapacke_zgbrfsx_work.c +++ b/lapacke/src/lapacke_zgbrfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbrfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_zgbrfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, @@ -50,7 +50,7 @@ lapack_int LAPACKE_zgbrfsx_work( int matrix_order, char trans, char equed, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbrfsx( &trans, &equed, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, r, c, b, &ldb, x, &ldx, rcond, berr, @@ -59,7 +59,7 @@ lapack_int LAPACKE_zgbrfsx_work( int matrix_order, char trans, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -132,11 +132,11 @@ lapack_int LAPACKE_zgbrfsx_work( int matrix_order, char trans, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_zgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_zgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_zgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbrfsx( &trans, &equed, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, r, c, b_t, &ldb_t, x_t, &ldx_t, diff --git a/lapacke/src/lapacke_zgbsv.c b/lapacke/src/lapacke_zgbsv.c index 0dc8c795..4442c8e6 100644 --- a/lapacke/src/lapacke_zgbsv.c +++ b/lapacke/src/lapacke_zgbsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbsv( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_zgbsv( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif - return LAPACKE_zgbsv_work( matrix_order, n, kl, ku, nrhs, ab, ldab, ipiv, b, + return LAPACKE_zgbsv_work( matrix_layout, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_zgbsv_work.c b/lapacke/src/lapacke_zgbsv_work.c index ec3de87e..d3bb6e39 100644 --- a/lapacke/src/lapacke_zgbsv_work.c +++ b/lapacke/src/lapacke_zgbsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbsv_work( int matrix_order, lapack_int n, lapack_int kl, +lapack_int LAPACKE_zgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbsv( &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); lapack_complex_double* ab_t = NULL; @@ -77,9 +77,9 @@ lapack_int LAPACKE_zgbsv_work( int matrix_order, lapack_int n, lapack_int kl, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_zgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbsv( &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_zgbsvx.c b/lapacke/src/lapacke_zgbsvx.c index da9eaec8..4ee83e1d 100644 --- a/lapacke/src/lapacke_zgbsvx.c +++ b/lapacke/src/lapacke_zgbsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbsvx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgbsvx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, @@ -46,22 +46,22 @@ lapack_int LAPACKE_zgbsvx( int matrix_order, char fact, char trans, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -16; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -90,7 +90,7 @@ lapack_int LAPACKE_zgbsvx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgbsvx_work( matrix_order, fact, trans, n, kl, ku, nrhs, ab, + info = LAPACKE_zgbsvx_work( matrix_layout, fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Backup significant data from working array(s) */ diff --git a/lapacke/src/lapacke_zgbsvx_work.c b/lapacke/src/lapacke_zgbsvx_work.c index 4d41614f..48d5c738 100644 --- a/lapacke/src/lapacke_zgbsvx_work.c +++ b/lapacke/src/lapacke_zgbsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbsvx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgbsvx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, @@ -45,7 +45,7 @@ lapack_int LAPACKE_zgbsvx_work( int matrix_order, char fact, char trans, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbsvx( &fact, &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, equed, r, c, b, &ldb, x, &ldx, rcond, ferr, @@ -53,7 +53,7 @@ lapack_int LAPACKE_zgbsvx_work( int matrix_order, char fact, char trans, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -112,12 +112,12 @@ lapack_int LAPACKE_zgbsvx_work( int matrix_order, char fact, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_zgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_zgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbsvx( &fact, &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, equed, r, c, b_t, &ldb_t, x_t, &ldx_t, diff --git a/lapacke/src/lapacke_zgbsvxx.c b/lapacke/src/lapacke_zgbsvxx.c index d35f27b6..379f7a28 100644 --- a/lapacke/src/lapacke_zgbsvxx.c +++ b/lapacke/src/lapacke_zgbsvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbsvxx( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgbsvxx( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, @@ -48,22 +48,22 @@ lapack_int LAPACKE_zgbsvxx( int matrix_order, char fact, char trans, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbsvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, ku, ab, ldab ) ) { return -8; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, kl+ku, afb, + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, kl+ku, afb, ldafb ) ) { return -10; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -16; } if( LAPACKE_lsame( fact, 'f' ) && ( LAPACKE_lsame( *equed, 'b' ) || @@ -97,7 +97,7 @@ lapack_int LAPACKE_zgbsvxx( int matrix_order, char fact, char trans, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgbsvxx_work( matrix_order, fact, trans, n, kl, ku, nrhs, ab, + info = LAPACKE_zgbsvxx_work( matrix_layout, fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, diff --git a/lapacke/src/lapacke_zgbsvxx_work.c b/lapacke/src/lapacke_zgbsvxx_work.c index 04f5c190..9f8b1314 100644 --- a/lapacke/src/lapacke_zgbsvxx_work.c +++ b/lapacke/src/lapacke_zgbsvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans, +lapack_int LAPACKE_zgbsvxx_work( int matrix_layout, char fact, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, @@ -48,7 +48,7 @@ lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbsvxx( &fact, &trans, &n, &kl, &ku, &nrhs, ab, &ldab, afb, &ldafb, ipiv, equed, r, c, b, &ldb, x, &ldx, rcond, @@ -57,7 +57,7 @@ lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kl+ku+1); lapack_int ldafb_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); @@ -130,12 +130,12 @@ lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); + LAPACKE_zgb_trans( matrix_layout, n, n, kl, ku, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zgb_trans( matrix_order, n, n, kl, kl+ku, afb, ldafb, afb_t, + LAPACKE_zgb_trans( matrix_layout, n, n, kl, kl+ku, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbsvxx( &fact, &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, ipiv, equed, r, c, b_t, &ldb_t, x_t, @@ -161,9 +161,9 @@ lapack_int LAPACKE_zgbsvxx_work( int matrix_order, char fact, char trans, } LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_zgbtrf.c b/lapacke/src/lapacke_zgbtrf.c index bad13bf8..5373a0e1 100644 --- a/lapacke/src/lapacke_zgbtrf.c +++ b/lapacke/src/lapacke_zgbtrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbtrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbtrf( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, lapack_complex_double* ab, lapack_int ldab, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbtrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, m, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, m, n, kl, kl+ku, ab, ldab ) ) { return -6; } #endif - return LAPACKE_zgbtrf_work( matrix_order, m, n, kl, ku, ab, ldab, ipiv ); + return LAPACKE_zgbtrf_work( matrix_layout, m, n, kl, ku, ab, ldab, ipiv ); } diff --git a/lapacke/src/lapacke_zgbtrf_work.c b/lapacke/src/lapacke_zgbtrf_work.c index 709c813d..7119c573 100644 --- a/lapacke/src/lapacke_zgbtrf_work.c +++ b/lapacke/src/lapacke_zgbtrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbtrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, lapack_complex_double* ab, lapack_int ldab, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbtrf( &m, &n, &kl, &ku, ab, &ldab, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_complex_double* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zgbtrf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, m, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_zgb_trans( matrix_layout, m, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbtrf( &m, &n, &kl, &ku, ab_t, &ldab_t, ipiv, &info ); diff --git a/lapacke/src/lapacke_zgbtrs.c b/lapacke/src/lapacke_zgbtrs.c index 05bfdaf3..b0474e49 100644 --- a/lapacke/src/lapacke_zgbtrs.c +++ b/lapacke/src/lapacke_zgbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,25 +33,25 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbtrs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgbtrs( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zgb_nancheck( matrix_order, n, n, kl, kl+ku, ab, ldab ) ) { + if( LAPACKE_zgb_nancheck( matrix_layout, n, n, kl, kl+ku, ab, ldab ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } #endif - return LAPACKE_zgbtrs_work( matrix_order, trans, n, kl, ku, nrhs, ab, ldab, + return LAPACKE_zgbtrs_work( matrix_layout, trans, n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_zgbtrs_work.c b/lapacke/src/lapacke_zgbtrs_work.c index 44ca260e..22e6d193 100644 --- a/lapacke/src/lapacke_zgbtrs_work.c +++ b/lapacke/src/lapacke_zgbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgbtrs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgbtrs_work( int matrix_layout, char trans, lapack_int n, lapack_int kl, lapack_int ku, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgbtrs( &trans, &n, &kl, &ku, &nrhs, ab, &ldab, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,2*kl+ku+1); lapack_int ldb_t = MAX(1,n); lapack_complex_double* ab_t = NULL; @@ -78,9 +78,9 @@ lapack_int LAPACKE_zgbtrs_work( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zgb_trans( matrix_order, n, n, kl, kl+ku, ab, ldab, ab_t, + LAPACKE_zgb_trans( matrix_layout, n, n, kl, kl+ku, ab, ldab, ab_t, ldab_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zgbtrs( &trans, &n, &kl, &ku, &nrhs, ab_t, &ldab_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_zgebak.c b/lapacke/src/lapacke_zgebak.c index 442a33c5..6b8a42ff 100644 --- a/lapacke/src/lapacke_zgebak.c +++ b/lapacke/src/lapacke_zgebak.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgebak( int matrix_order, char job, char side, lapack_int n, +lapack_int LAPACKE_zgebak( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* scale, lapack_int m, lapack_complex_double* v, lapack_int ldv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgebak", -1 ); return -1; } @@ -47,10 +47,10 @@ lapack_int LAPACKE_zgebak( int matrix_order, char job, char side, lapack_int n, if( LAPACKE_d_nancheck( n, scale, 1 ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, m, v, ldv ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, m, v, ldv ) ) { return -9; } #endif - return LAPACKE_zgebak_work( matrix_order, job, side, n, ilo, ihi, scale, m, + return LAPACKE_zgebak_work( matrix_layout, job, side, n, ilo, ihi, scale, m, v, ldv ); } diff --git a/lapacke/src/lapacke_zgebak_work.c b/lapacke/src/lapacke_zgebak_work.c index 2fd2a655..a9b2dc5a 100644 --- a/lapacke/src/lapacke_zgebak_work.c +++ b/lapacke/src/lapacke_zgebak_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgebak_work( int matrix_order, char job, char side, +lapack_int LAPACKE_zgebak_work( int matrix_layout, char job, char side, lapack_int n, lapack_int ilo, lapack_int ihi, const double* scale, lapack_int m, lapack_complex_double* v, lapack_int ldv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgebak( &job, &side, &n, &ilo, &ihi, scale, &m, v, &ldv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldv_t = MAX(1,n); lapack_complex_double* v_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zgebak_work( int matrix_order, char job, char side, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, m, v, ldv, v_t, ldv_t ); + LAPACKE_zge_trans( matrix_layout, n, m, v, ldv, v_t, ldv_t ); /* Call LAPACK function and adjust info */ LAPACK_zgebak( &job, &side, &n, &ilo, &ihi, scale, &m, v_t, &ldv_t, &info ); diff --git a/lapacke/src/lapacke_zgebal.c b/lapacke/src/lapacke_zgebal.c index d8e62b56..3d372e74 100644 --- a/lapacke/src/lapacke_zgebal.c +++ b/lapacke/src/lapacke_zgebal.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgebal( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_zgebal( int matrix_layout, char job, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, double* scale ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgebal", -1 ); return -1; } @@ -45,10 +45,10 @@ lapack_int LAPACKE_zgebal( int matrix_order, char job, lapack_int n, /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'p' ) || LAPACKE_lsame( job, 's' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } } #endif - return LAPACKE_zgebal_work( matrix_order, job, n, a, lda, ilo, ihi, scale ); + return LAPACKE_zgebal_work( matrix_layout, job, n, a, lda, ilo, ihi, scale ); } diff --git a/lapacke/src/lapacke_zgebal_work.c b/lapacke/src/lapacke_zgebal_work.c index 5e437b7b..f79b3573 100644 --- a/lapacke/src/lapacke_zgebal_work.c +++ b/lapacke/src/lapacke_zgebal_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgebal_work( int matrix_order, char job, lapack_int n, +lapack_int LAPACKE_zgebal_work( int matrix_layout, char job, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ilo, lapack_int* ihi, double* scale ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgebal( &job, &n, a, &lda, ilo, ihi, scale, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_zgebal_work( int matrix_order, char job, lapack_int n, /* Transpose input matrices */ if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'p' ) || LAPACKE_lsame( job, 's' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); } /* Call LAPACK function and adjust info */ LAPACK_zgebal( &job, &n, a_t, &lda_t, ilo, ihi, scale, &info ); diff --git a/lapacke/src/lapacke_zgebrd.c b/lapacke/src/lapacke_zgebrd.c index 0e8e6364..8efdb01a 100644 --- a/lapacke/src/lapacke_zgebrd.c +++ b/lapacke/src/lapacke_zgebrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgebrd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgebrd( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* d, double* e, lapack_complex_double* tauq, lapack_complex_double* taup ) @@ -42,18 +42,18 @@ lapack_int LAPACKE_zgebrd( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgebrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgebrd_work( matrix_order, m, n, a, lda, d, e, tauq, taup, + info = LAPACKE_zgebrd_work( matrix_layout, m, n, a, lda, d, e, tauq, taup, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgebrd( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgebrd_work( matrix_order, m, n, a, lda, d, e, tauq, taup, + info = LAPACKE_zgebrd_work( matrix_layout, m, n, a, lda, d, e, tauq, taup, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgebrd_work.c b/lapacke/src/lapacke_zgebrd_work.c index 13a11f51..be5e9fa0 100644 --- a/lapacke/src/lapacke_zgebrd_work.c +++ b/lapacke/src/lapacke_zgebrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgebrd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgebrd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* d, double* e, lapack_complex_double* tauq, @@ -41,13 +41,13 @@ lapack_int LAPACKE_zgebrd_work( int matrix_order, lapack_int m, lapack_int n, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgebrd( &m, &n, a, &lda, d, e, tauq, taup, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -70,7 +70,7 @@ lapack_int LAPACKE_zgebrd_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgebrd( &m, &n, a_t, &lda_t, d, e, tauq, taup, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zgecon.c b/lapacke/src/lapacke_zgecon.c index a1cc07e5..1b83aa93 100644 --- a/lapacke/src/lapacke_zgecon.c +++ b/lapacke/src/lapacke_zgecon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgecon( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_zgecon( int matrix_layout, char norm, lapack_int n, const lapack_complex_double* a, lapack_int lda, double anorm, double* rcond ) { lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgecon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } if( LAPACKE_d_nancheck( 1, &anorm, 1 ) ) { @@ -66,7 +66,7 @@ lapack_int LAPACKE_zgecon( int matrix_order, char norm, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgecon_work( matrix_order, norm, n, a, lda, anorm, rcond, + info = LAPACKE_zgecon_work( matrix_layout, norm, n, a, lda, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgecon_work.c b/lapacke/src/lapacke_zgecon_work.c index 29c65773..263b5425 100644 --- a/lapacke/src/lapacke_zgecon_work.c +++ b/lapacke/src/lapacke_zgecon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgecon_work( int matrix_order, char norm, lapack_int n, +lapack_int LAPACKE_zgecon_work( int matrix_layout, char norm, lapack_int n, const lapack_complex_double* a, lapack_int lda, double anorm, double* rcond, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgecon( &norm, &n, a, &lda, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zgecon_work( int matrix_order, char norm, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgecon( &norm, &n, a_t, &lda_t, &anorm, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zgeequ.c b/lapacke/src/lapacke_zgeequ.c index 7f9c873d..53f1edd3 100644 --- a/lapacke/src/lapacke_zgeequ.c +++ b/lapacke/src/lapacke_zgeequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeequ( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeequ( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zgeequ_work( matrix_order, m, n, a, lda, r, c, rowcnd, + return LAPACKE_zgeequ_work( matrix_layout, m, n, a, lda, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_zgeequ_work.c b/lapacke/src/lapacke_zgeequ_work.c index 6917a662..242775f0 100644 --- a/lapacke/src/lapacke_zgeequ_work.c +++ b/lapacke/src/lapacke_zgeequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeequ_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeequ_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeequ( &m, &n, a, &lda, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zgeequ_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeequ( &m, &n, a_t, &lda_t, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgeequb.c b/lapacke/src/lapacke_zgeequb.c index 52c8018e..cdc48036 100644 --- a/lapacke/src/lapacke_zgeequb.c +++ b/lapacke/src/lapacke_zgeequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeequb( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeequb( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zgeequb_work( matrix_order, m, n, a, lda, r, c, rowcnd, + return LAPACKE_zgeequb_work( matrix_layout, m, n, a, lda, r, c, rowcnd, colcnd, amax ); } diff --git a/lapacke/src/lapacke_zgeequb_work.c b/lapacke/src/lapacke_zgeequb_work.c index cf9932e2..0937909d 100644 --- a/lapacke/src/lapacke_zgeequb_work.c +++ b/lapacke/src/lapacke_zgeequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeequb_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeequb_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeequb( &m, &n, a, &lda, r, c, rowcnd, colcnd, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zgeequb_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeequb( &m, &n, a_t, &lda_t, r, c, rowcnd, colcnd, amax, &info ); diff --git a/lapacke/src/lapacke_zgees.c b/lapacke/src/lapacke_zgees.c index 4c3ed83a..c39f6935 100644 --- a/lapacke/src/lapacke_zgees.c +++ b/lapacke/src/lapacke_zgees.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgees( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_zgees( int matrix_layout, char jobvs, char sort, LAPACK_Z_SELECT1 select, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* sdim, lapack_complex_double* w, @@ -45,13 +45,13 @@ lapack_int LAPACKE_zgees( int matrix_order, char jobvs, char sort, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgees", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_zgees( int matrix_order, char jobvs, char sort, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_zgees_work( matrix_order, jobvs, sort, select, n, a, lda, + info = LAPACKE_zgees_work( matrix_layout, jobvs, sort, select, n, a, lda, sdim, w, vs, ldvs, &work_query, lwork, rwork, bwork ); if( info != 0 ) { @@ -85,7 +85,7 @@ lapack_int LAPACKE_zgees( int matrix_order, char jobvs, char sort, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zgees_work( matrix_order, jobvs, sort, select, n, a, lda, + info = LAPACKE_zgees_work( matrix_layout, jobvs, sort, select, n, a, lda, sdim, w, vs, ldvs, work, lwork, rwork, bwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgees_work.c b/lapacke/src/lapacke_zgees_work.c index c5ea2406..95055cc7 100644 --- a/lapacke/src/lapacke_zgees_work.c +++ b/lapacke/src/lapacke_zgees_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgees_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_zgees_work( int matrix_layout, char jobvs, char sort, LAPACK_Z_SELECT1 select, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* sdim, lapack_complex_double* w, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zgees_work( int matrix_order, char jobvs, char sort, double* rwork, lapack_logical* bwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgees( &jobvs, &sort, select, &n, a, &lda, sdim, w, vs, &ldvs, work, &lwork, rwork, bwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvs_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -88,7 +88,7 @@ lapack_int LAPACKE_zgees_work( int matrix_order, char jobvs, char sort, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgees( &jobvs, &sort, select, &n, a_t, &lda_t, sdim, w, vs_t, &ldvs_t, work, &lwork, rwork, bwork, &info ); diff --git a/lapacke/src/lapacke_zgeesx.c b/lapacke/src/lapacke_zgeesx.c index f02d7ed5..6d5cf037 100644 --- a/lapacke/src/lapacke_zgeesx.c +++ b/lapacke/src/lapacke_zgeesx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeesx( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_zgeesx( int matrix_layout, char jobvs, char sort, LAPACK_Z_SELECT1 select, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* sdim, lapack_complex_double* w, @@ -46,13 +46,13 @@ lapack_int LAPACKE_zgeesx( int matrix_order, char jobvs, char sort, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeesx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } #endif @@ -71,7 +71,7 @@ lapack_int LAPACKE_zgeesx( int matrix_order, char jobvs, char sort, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_zgeesx_work( matrix_order, jobvs, sort, select, sense, n, a, + info = LAPACKE_zgeesx_work( matrix_layout, jobvs, sort, select, sense, n, a, lda, sdim, w, vs, ldvs, rconde, rcondv, &work_query, lwork, rwork, bwork ); if( info != 0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_zgeesx( int matrix_order, char jobvs, char sort, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zgeesx_work( matrix_order, jobvs, sort, select, sense, n, a, + info = LAPACKE_zgeesx_work( matrix_layout, jobvs, sort, select, sense, n, a, lda, sdim, w, vs, ldvs, rconde, rcondv, work, lwork, rwork, bwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zgeesx_work.c b/lapacke/src/lapacke_zgeesx_work.c index 2d677243..b7aadbb4 100644 --- a/lapacke/src/lapacke_zgeesx_work.c +++ b/lapacke/src/lapacke_zgeesx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeesx_work( int matrix_order, char jobvs, char sort, +lapack_int LAPACKE_zgeesx_work( int matrix_layout, char jobvs, char sort, LAPACK_Z_SELECT1 select, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* sdim, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zgeesx_work( int matrix_order, char jobvs, char sort, double* rwork, lapack_logical* bwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeesx( &jobvs, &sort, select, &sense, &n, a, &lda, sdim, w, vs, &ldvs, rconde, rcondv, work, &lwork, rwork, bwork, @@ -52,7 +52,7 @@ lapack_int LAPACKE_zgeesx_work( int matrix_order, char jobvs, char sort, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvs_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -92,7 +92,7 @@ lapack_int LAPACKE_zgeesx_work( int matrix_order, char jobvs, char sort, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeesx( &jobvs, &sort, select, &sense, &n, a_t, &lda_t, sdim, w, vs_t, &ldvs_t, rconde, rcondv, work, &lwork, rwork, diff --git a/lapacke/src/lapacke_zgeev.c b/lapacke/src/lapacke_zgeev.c index 491c3048..dba9c037 100644 --- a/lapacke/src/lapacke_zgeev.c +++ b/lapacke/src/lapacke_zgeev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeev( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_zgeev( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* w, lapack_complex_double* vl, lapack_int ldvl, @@ -44,13 +44,13 @@ lapack_int LAPACKE_zgeev( int matrix_order, char jobvl, char jobvr, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeev", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_zgeev( int matrix_order, char jobvl, char jobvr, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zgeev_work( matrix_order, jobvl, jobvr, n, a, lda, w, vl, + info = LAPACKE_zgeev_work( matrix_layout, jobvl, jobvr, n, a, lda, w, vl, ldvl, vr, ldvr, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -75,7 +75,7 @@ lapack_int LAPACKE_zgeev( int matrix_order, char jobvl, char jobvr, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgeev_work( matrix_order, jobvl, jobvr, n, a, lda, w, vl, + info = LAPACKE_zgeev_work( matrix_layout, jobvl, jobvr, n, a, lda, w, vl, ldvl, vr, ldvr, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgeev_work.c b/lapacke/src/lapacke_zgeev_work.c index 53d317c1..787992c3 100644 --- a/lapacke/src/lapacke_zgeev_work.c +++ b/lapacke/src/lapacke_zgeev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeev_work( int matrix_order, char jobvl, char jobvr, +lapack_int LAPACKE_zgeev_work( int matrix_layout, char jobvl, char jobvr, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* w, lapack_complex_double* vl, lapack_int ldvl, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zgeev_work( int matrix_order, char jobvl, char jobvr, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeev( &jobvl, &jobvr, &n, a, &lda, w, vl, &ldvl, vr, &ldvr, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -104,7 +104,7 @@ lapack_int LAPACKE_zgeev_work( int matrix_order, char jobvl, char jobvr, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeev( &jobvl, &jobvr, &n, a_t, &lda_t, w, vl_t, &ldvl_t, vr_t, &ldvr_t, work, &lwork, rwork, &info ); diff --git a/lapacke/src/lapacke_zgeevx.c b/lapacke/src/lapacke_zgeevx.c index 06007fa4..0f061dd4 100644 --- a/lapacke/src/lapacke_zgeevx.c +++ b/lapacke/src/lapacke_zgeevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeevx( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_zgeevx( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* w, lapack_complex_double* vl, @@ -47,13 +47,13 @@ lapack_int LAPACKE_zgeevx( int matrix_order, char balanc, char jobvl, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeevx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } #endif @@ -64,7 +64,7 @@ lapack_int LAPACKE_zgeevx( int matrix_order, char balanc, char jobvl, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zgeevx_work( matrix_order, balanc, jobvl, jobvr, sense, n, a, + info = LAPACKE_zgeevx_work( matrix_layout, balanc, jobvl, jobvr, sense, n, a, lda, w, vl, ldvl, vr, ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, &work_query, lwork, rwork ); @@ -80,7 +80,7 @@ lapack_int LAPACKE_zgeevx( int matrix_order, char balanc, char jobvl, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgeevx_work( matrix_order, balanc, jobvl, jobvr, sense, n, a, + info = LAPACKE_zgeevx_work( matrix_layout, balanc, jobvl, jobvr, sense, n, a, lda, w, vl, ldvl, vr, ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, work, lwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zgeevx_work.c b/lapacke/src/lapacke_zgeevx_work.c index f482d73e..61ed2c13 100644 --- a/lapacke/src/lapacke_zgeevx_work.c +++ b/lapacke/src/lapacke_zgeevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeevx_work( int matrix_order, char balanc, char jobvl, +lapack_int LAPACKE_zgeevx_work( int matrix_layout, char balanc, char jobvl, char jobvr, char sense, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* w, @@ -45,7 +45,7 @@ lapack_int LAPACKE_zgeevx_work( int matrix_order, char balanc, char jobvl, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, w, vl, &ldvl, vr, &ldvr, ilo, ihi, scale, abnrm, rconde, rcondv, @@ -53,7 +53,7 @@ lapack_int LAPACKE_zgeevx_work( int matrix_order, char balanc, char jobvl, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -109,7 +109,7 @@ lapack_int LAPACKE_zgeevx_work( int matrix_order, char balanc, char jobvl, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeevx( &balanc, &jobvl, &jobvr, &sense, &n, a_t, &lda_t, w, vl_t, &ldvl_t, vr_t, &ldvr_t, ilo, ihi, scale, abnrm, diff --git a/lapacke/src/lapacke_zgehrd.c b/lapacke/src/lapacke_zgehrd.c index 4387ae5b..432428b2 100644 --- a/lapacke/src/lapacke_zgehrd.c +++ b/lapacke/src/lapacke_zgehrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgehrd( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_zgehrd( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zgehrd( int matrix_order, lapack_int n, lapack_int ilo, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgehrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgehrd_work( matrix_order, n, ilo, ihi, a, lda, tau, + info = LAPACKE_zgehrd_work( matrix_layout, n, ilo, ihi, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zgehrd( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgehrd_work( matrix_order, n, ilo, ihi, a, lda, tau, work, + info = LAPACKE_zgehrd_work( matrix_layout, n, ilo, ihi, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgehrd_work.c b/lapacke/src/lapacke_zgehrd_work.c index 13ef7cf9..f5b35403 100644 --- a/lapacke/src/lapacke_zgehrd_work.c +++ b/lapacke/src/lapacke_zgehrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_zgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgehrd( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_zgehrd_work( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgehrd( &n, &ilo, &ihi, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgelq2.c b/lapacke/src/lapacke_zgelq2.c index 7b5e6382..769ab445 100644 --- a/lapacke/src/lapacke_zgelq2.c +++ b/lapacke/src/lapacke_zgelq2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelq2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelq2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgelq2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_zgelq2( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgelq2_work( matrix_order, m, n, a, lda, tau, work ); + info = LAPACKE_zgelq2_work( matrix_layout, m, n, a, lda, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zgelq2_work.c b/lapacke/src/lapacke_zgelq2_work.c index 1ee9362e..5f165168 100644 --- a/lapacke/src/lapacke_zgelq2_work.c +++ b/lapacke/src/lapacke_zgelq2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelq2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelq2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgelq2( &m, &n, a, &lda, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zgelq2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgelq2( &m, &n, a_t, &lda_t, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgelqf.c b/lapacke/src/lapacke_zgelqf.c index a2808ffc..7a557b79 100644 --- a/lapacke/src/lapacke_zgelqf.c +++ b/lapacke/src/lapacke_zgelqf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelqf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zgelqf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgelqf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgelqf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_zgelqf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zgelqf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgelqf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_zgelqf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zgelqf_work.c b/lapacke/src/lapacke_zgelqf_work.c index f9f6a3f7..cbc71653 100644 --- a/lapacke/src/lapacke_zgelqf_work.c +++ b/lapacke/src/lapacke_zgelqf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgelqf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgelqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgelqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgels.c b/lapacke/src/lapacke_zgels.c index 03728251..87db4600 100644 --- a/lapacke/src/lapacke_zgels.c +++ b/lapacke/src/lapacke_zgels.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgels( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_zgels( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) @@ -42,21 +42,21 @@ lapack_int LAPACKE_zgels( int matrix_order, char trans, lapack_int m, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgels", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgels_work( matrix_order, trans, m, n, nrhs, a, lda, b, ldb, + info = LAPACKE_zgels_work( matrix_layout, trans, m, n, nrhs, a, lda, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -70,7 +70,7 @@ lapack_int LAPACKE_zgels( int matrix_order, char trans, lapack_int m, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgels_work( matrix_order, trans, m, n, nrhs, a, lda, b, ldb, + info = LAPACKE_zgels_work( matrix_layout, trans, m, n, nrhs, a, lda, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgels_work.c b/lapacke/src/lapacke_zgels_work.c index fa342592..556883d4 100644 --- a/lapacke/src/lapacke_zgels_work.c +++ b/lapacke/src/lapacke_zgels_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgels_work( int matrix_order, char trans, lapack_int m, +lapack_int LAPACKE_zgels_work( int matrix_layout, char trans, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgels( &trans, &m, &n, &nrhs, a, &lda, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); lapack_complex_double* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_zgels_work( int matrix_order, char trans, lapack_int m, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zgels( &trans, &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zgelsd.c b/lapacke/src/lapacke_zgelsd.c index 394d73c5..7719cf49 100644 --- a/lapacke/src/lapacke_zgelsd.c +++ b/lapacke/src/lapacke_zgelsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelsd( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelsd( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* s, double rcond, @@ -50,16 +50,16 @@ lapack_int LAPACKE_zgelsd( int matrix_order, lapack_int m, lapack_int n, lapack_int iwork_query; double rwork_query; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgelsd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_d_nancheck( 1, &rcond, 1 ) ) { @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgelsd( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgelsd_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_zgelsd_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, &work_query, lwork, &rwork_query, &iwork_query ); if( info != 0 ) { @@ -94,7 +94,7 @@ lapack_int LAPACKE_zgelsd( int matrix_order, lapack_int m, lapack_int n, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zgelsd_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_zgelsd_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, rwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgelsd_work.c b/lapacke/src/lapacke_zgelsd_work.c index f4cb4025..14b2a407 100644 --- a/lapacke/src/lapacke_zgelsd_work.c +++ b/lapacke/src/lapacke_zgelsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelsd_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelsd_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* s, double rcond, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zgelsd_work( int matrix_order, lapack_int m, lapack_int n, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgelsd( &m, &n, &nrhs, a, &lda, b, &ldb, s, &rcond, rank, work, &lwork, rwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); lapack_complex_double* a_t = NULL; @@ -86,8 +86,8 @@ lapack_int LAPACKE_zgelsd_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zgelsd( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, s, &rcond, rank, work, &lwork, rwork, iwork, &info ); diff --git a/lapacke/src/lapacke_zgelss.c b/lapacke/src/lapacke_zgelss.c index 4ef62abb..34490c9f 100644 --- a/lapacke/src/lapacke_zgelss.c +++ b/lapacke/src/lapacke_zgelss.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelss( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelss( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* s, double rcond, @@ -44,16 +44,16 @@ lapack_int LAPACKE_zgelss( int matrix_order, lapack_int m, lapack_int n, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgelss", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_d_nancheck( 1, &rcond, 1 ) ) { @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgelss( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zgelss_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_zgelss_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -81,7 +81,7 @@ lapack_int LAPACKE_zgelss( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgelss_work( matrix_order, m, n, nrhs, a, lda, b, ldb, s, + info = LAPACKE_zgelss_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, s, rcond, rank, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgelss_work.c b/lapacke/src/lapacke_zgelss_work.c index b3443b3a..ee95acb9 100644 --- a/lapacke/src/lapacke_zgelss_work.c +++ b/lapacke/src/lapacke_zgelss_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelss_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelss_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, double* s, double rcond, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zgelss_work( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgelss( &m, &n, &nrhs, a, &lda, b, &ldb, s, &rcond, rank, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); lapack_complex_double* a_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_zgelss_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zgelss( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, s, &rcond, rank, work, &lwork, rwork, &info ); diff --git a/lapacke/src/lapacke_zgelsy.c b/lapacke/src/lapacke_zgelsy.c index be871c6c..484a3b0b 100644 --- a/lapacke/src/lapacke_zgelsy.c +++ b/lapacke/src/lapacke_zgelsy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelsy( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelsy( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_int* jpvt, double rcond, @@ -44,16 +44,16 @@ lapack_int LAPACKE_zgelsy( int matrix_order, lapack_int m, lapack_int n, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgelsy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, MAX(m,n), nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, MAX(m,n), nrhs, b, ldb ) ) { return -7; } if( LAPACKE_d_nancheck( 1, &rcond, 1 ) ) { @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgelsy( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zgelsy_work( matrix_order, m, n, nrhs, a, lda, b, ldb, jpvt, + info = LAPACKE_zgelsy_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -81,7 +81,7 @@ lapack_int LAPACKE_zgelsy( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgelsy_work( matrix_order, m, n, nrhs, a, lda, b, ldb, jpvt, + info = LAPACKE_zgelsy_work( matrix_layout, m, n, nrhs, a, lda, b, ldb, jpvt, rcond, rank, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgelsy_work.c b/lapacke/src/lapacke_zgelsy_work.c index c4b5e2cb..11a8382d 100644 --- a/lapacke/src/lapacke_zgelsy_work.c +++ b/lapacke/src/lapacke_zgelsy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgelsy_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgelsy_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_int* jpvt, double rcond, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zgelsy_work( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgelsy( &m, &n, &nrhs, a, &lda, b, &ldb, jpvt, &rcond, rank, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,MAX(m,n)); lapack_complex_double* a_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_zgelsy_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, MAX(m,n), nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zgelsy( &m, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, jpvt, &rcond, rank, work, &lwork, rwork, &info ); diff --git a/lapacke/src/lapacke_zgemqrt.c b/lapacke/src/lapacke_zgemqrt.c index 410d960e..0e12e964 100644 --- a/lapacke/src/lapacke_zgemqrt.c +++ b/lapacke/src/lapacke_zgemqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgemqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_zgemqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, @@ -42,19 +42,19 @@ lapack_int LAPACKE_zgemqrt( int matrix_order, char side, char trans, { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgemqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -12; } - if( LAPACKE_zge_nancheck( matrix_order, ldt, nb, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, ldt, nb, t, ldt ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -8; } #endif @@ -66,7 +66,7 @@ lapack_int LAPACKE_zgemqrt( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgemqrt_work( matrix_order, side, trans, m, n, k, nb, v, ldv, + info = LAPACKE_zgemqrt_work( matrix_layout, side, trans, m, n, k, nb, v, ldv, t, ldt, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgemqrt_work.c b/lapacke/src/lapacke_zgemqrt_work.c index 9b6c9e7c..83cbbf68 100644 --- a/lapacke/src/lapacke_zgemqrt_work.c +++ b/lapacke/src/lapacke_zgemqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgemqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zgemqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int nb, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zgemqrt_work( int matrix_order, char side, char trans, lapack_int ldc, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgemqrt( &side, &trans, &m, &n, &k, &nb, v, &ldv, t, &ldt, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,m); lapack_int ldt_t = MAX(1,ldt); lapack_int ldv_t = MAX(1,ldv); @@ -91,9 +91,9 @@ lapack_int LAPACKE_zgemqrt_work( int matrix_order, char side, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_zge_trans( matrix_order, ldt, nb, t, ldt, t_t, ldt_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_zge_trans( matrix_layout, ldt, nb, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zgemqrt( &side, &trans, &m, &n, &k, &nb, v_t, &ldv_t, t_t, &ldt_t, c_t, &ldc_t, work, &info ); diff --git a/lapacke/src/lapacke_zgeqlf.c b/lapacke/src/lapacke_zgeqlf.c index 68d21c7b..70b6f6cc 100644 --- a/lapacke/src/lapacke_zgeqlf.c +++ b/lapacke/src/lapacke_zgeqlf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqlf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqlf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zgeqlf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqlf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgeqlf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_zgeqlf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zgeqlf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgeqlf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_zgeqlf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zgeqlf_work.c b/lapacke/src/lapacke_zgeqlf_work.c index 3769f64b..673aa321 100644 --- a/lapacke/src/lapacke_zgeqlf_work.c +++ b/lapacke/src/lapacke_zgeqlf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqlf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqlf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgeqlf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqlf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgeqp3.c b/lapacke/src/lapacke_zgeqp3.c index 9a4e73d9..492d7d4a 100644 --- a/lapacke/src/lapacke_zgeqp3.c +++ b/lapacke/src/lapacke_zgeqp3.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqp3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqp3( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* jpvt, lapack_complex_double* tau ) { @@ -42,13 +42,13 @@ lapack_int LAPACKE_zgeqp3( int matrix_order, lapack_int m, lapack_int n, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqp3", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -59,7 +59,7 @@ lapack_int LAPACKE_zgeqp3( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zgeqp3_work( matrix_order, m, n, a, lda, jpvt, tau, + info = LAPACKE_zgeqp3_work( matrix_layout, m, n, a, lda, jpvt, tau, &work_query, lwork, rwork ); if( info != 0 ) { goto exit_level_1; @@ -73,7 +73,7 @@ lapack_int LAPACKE_zgeqp3( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgeqp3_work( matrix_order, m, n, a, lda, jpvt, tau, work, + info = LAPACKE_zgeqp3_work( matrix_layout, m, n, a, lda, jpvt, tau, work, lwork, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgeqp3_work.c b/lapacke/src/lapacke_zgeqp3_work.c index b8d0df25..955fc41b 100644 --- a/lapacke/src/lapacke_zgeqp3_work.c +++ b/lapacke/src/lapacke_zgeqp3_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqp3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* jpvt, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqp3( &m, &n, a, &lda, jpvt, tau, work, &lwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -69,7 +69,7 @@ lapack_int LAPACKE_zgeqp3_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqp3( &m, &n, a_t, &lda_t, jpvt, tau, work, &lwork, rwork, &info ); diff --git a/lapacke/src/lapacke_zgeqpf.c b/lapacke/src/lapacke_zgeqpf.c index e34eaa88..2c89e985 100644 --- a/lapacke/src/lapacke_zgeqpf.c +++ b/lapacke/src/lapacke_zgeqpf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqpf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqpf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* jpvt, lapack_complex_double* tau ) { lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqpf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -63,7 +63,7 @@ lapack_int LAPACKE_zgeqpf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgeqpf_work( matrix_order, m, n, a, lda, jpvt, tau, work, + info = LAPACKE_zgeqpf_work( matrix_layout, m, n, a, lda, jpvt, tau, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgeqpf_work.c b/lapacke/src/lapacke_zgeqpf_work.c index 3ef7a33a..2131db68 100644 --- a/lapacke/src/lapacke_zgeqpf_work.c +++ b/lapacke/src/lapacke_zgeqpf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqpf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* jpvt, lapack_complex_double* tau, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqpf( &m, &n, a, &lda, jpvt, tau, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zgeqpf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqpf( &m, &n, a_t, &lda_t, jpvt, tau, work, rwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgeqr2.c b/lapacke/src/lapacke_zgeqr2.c index 90f2a550..3c8168eb 100644 --- a/lapacke/src/lapacke_zgeqr2.c +++ b/lapacke/src/lapacke_zgeqr2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqr2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqr2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqr2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_zgeqr2( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgeqr2_work( matrix_order, m, n, a, lda, tau, work ); + info = LAPACKE_zgeqr2_work( matrix_layout, m, n, a, lda, tau, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zgeqr2_work.c b/lapacke/src/lapacke_zgeqr2_work.c index 153e425b..2de90639 100644 --- a/lapacke/src/lapacke_zgeqr2_work.c +++ b/lapacke/src/lapacke_zgeqr2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqr2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqr2( &m, &n, a, &lda, tau, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zgeqr2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqr2( &m, &n, a_t, &lda_t, tau, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgeqrf.c b/lapacke/src/lapacke_zgeqrf.c index e9992d15..60777439 100644 --- a/lapacke/src/lapacke_zgeqrf.c +++ b/lapacke/src/lapacke_zgeqrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zgeqrf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgeqrf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_zgeqrf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zgeqrf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgeqrf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_zgeqrf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zgeqrf_work.c b/lapacke/src/lapacke_zgeqrf_work.c index e68dbb03..b5cd907f 100644 --- a/lapacke/src/lapacke_zgeqrf_work.c +++ b/lapacke/src/lapacke_zgeqrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqrf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgeqrf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqrf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgeqrfp.c b/lapacke/src/lapacke_zgeqrfp.c index b5e43b02..cbc02b65 100644 --- a/lapacke/src/lapacke_zgeqrfp.c +++ b/lapacke/src/lapacke_zgeqrfp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrfp( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrfp( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zgeqrfp( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqrfp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgeqrfp_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_zgeqrfp_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zgeqrfp( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgeqrfp_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_zgeqrfp_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zgeqrfp_work.c b/lapacke/src/lapacke_zgeqrfp_work.c index db2791f5..eaa8bf55 100644 --- a/lapacke/src/lapacke_zgeqrfp_work.c +++ b/lapacke/src/lapacke_zgeqrfp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqrfp( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgeqrfp_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqrfp( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgeqrt.c b/lapacke/src/lapacke_zgeqrt.c index effb631f..cc06789e 100644 --- a/lapacke/src/lapacke_zgeqrt.c +++ b/lapacke/src/lapacke_zgeqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -58,7 +58,7 @@ lapack_int LAPACKE_zgeqrt( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgeqrt_work( matrix_order, m, n, nb, a, lda, t, ldt, work ); + info = LAPACKE_zgeqrt_work( matrix_layout, m, n, nb, a, lda, t, ldt, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zgeqrt2.c b/lapacke/src/lapacke_zgeqrt2.c index ca5f56cb..5d69e243 100644 --- a/lapacke/src/lapacke_zgeqrt2.c +++ b/lapacke/src/lapacke_zgeqrt2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrt2( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqrt2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zgeqrt2_work( matrix_order, m, n, a, lda, t, ldt ); + return LAPACKE_zgeqrt2_work( matrix_layout, m, n, a, lda, t, ldt ); } diff --git a/lapacke/src/lapacke_zgeqrt2_work.c b/lapacke/src/lapacke_zgeqrt2_work.c index f3202b67..764d842e 100644 --- a/lapacke/src/lapacke_zgeqrt2_work.c +++ b/lapacke/src/lapacke_zgeqrt2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqrt2( &m, &n, a, &lda, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_zgeqrt2_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqrt2( &m, &n, a_t, &lda_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgeqrt3.c b/lapacke/src/lapacke_zgeqrt3.c index 058399ae..cffabe56 100644 --- a/lapacke/src/lapacke_zgeqrt3.c +++ b/lapacke/src/lapacke_zgeqrt3.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrt3( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt3( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgeqrt3", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zgeqrt3_work( matrix_order, m, n, a, lda, t, ldt ); + return LAPACKE_zgeqrt3_work( matrix_layout, m, n, a, lda, t, ldt ); } diff --git a/lapacke/src/lapacke_zgeqrt3_work.c b/lapacke/src/lapacke_zgeqrt3_work.c index 9ab0bd9a..82e48e65 100644 --- a/lapacke/src/lapacke_zgeqrt3_work.c +++ b/lapacke/src/lapacke_zgeqrt3_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqrt3( &m, &n, a, &lda, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_zgeqrt3_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqrt3( &m, &n, a_t, &lda_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgeqrt_work.c b/lapacke/src/lapacke_zgeqrt_work.c index 4851b4d9..a0358720 100644 --- a/lapacke/src/lapacke_zgeqrt_work.c +++ b/lapacke/src/lapacke_zgeqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgeqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int nb, lapack_complex_double* a, lapack_int lda, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgeqrt( &m, &n, &nb, a, &lda, t, &ldt, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldt_t = MAX(1,ldt); lapack_complex_double* a_t = NULL; @@ -76,7 +76,7 @@ lapack_int LAPACKE_zgeqrt_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgeqrt( &m, &n, &nb, a_t, &lda_t, t_t, &ldt_t, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgerfs.c b/lapacke/src/lapacke_zgerfs.c index 7a551b3f..b603d817 100644 --- a/lapacke/src/lapacke_zgerfs.c +++ b/lapacke/src/lapacke_zgerfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgerfs( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgerfs( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -44,22 +44,22 @@ lapack_int LAPACKE_zgerfs( int matrix_order, char trans, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgerfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_zgerfs( int matrix_order, char trans, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgerfs_work( matrix_order, trans, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_zgerfs_work( matrix_layout, trans, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgerfs_work.c b/lapacke/src/lapacke_zgerfs_work.c index cb77f25a..865fc578 100644 --- a/lapacke/src/lapacke_zgerfs_work.c +++ b/lapacke/src/lapacke_zgerfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgerfs_work( int matrix_order, char trans, lapack_int n, +lapack_int LAPACKE_zgerfs_work( int matrix_layout, char trans, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_zgerfs_work( int matrix_order, char trans, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgerfs( &trans, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -108,10 +108,10 @@ lapack_int LAPACKE_zgerfs_work( int matrix_order, char trans, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zgerfs( &trans, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zgerfsx.c b/lapacke/src/lapacke_zgerfsx.c index 7890ee02..d12d06ea 100644 --- a/lapacke/src/lapacke_zgerfsx.c +++ b/lapacke/src/lapacke_zgerfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgerfsx( int matrix_order, char trans, char equed, +lapack_int LAPACKE_zgerfsx( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, @@ -48,19 +48,19 @@ lapack_int LAPACKE_zgerfsx( int matrix_order, char trans, char equed, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgerfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, af, ldaf ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, af, ldaf ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( LAPACKE_lsame( equed, 'b' ) || LAPACKE_lsame( equed, 'c' ) ) { @@ -78,7 +78,7 @@ lapack_int LAPACKE_zgerfsx( int matrix_order, char trans, char equed, return -11; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -15; } #endif @@ -95,7 +95,7 @@ lapack_int LAPACKE_zgerfsx( int matrix_order, char trans, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zgerfsx_work( matrix_order, trans, equed, n, nrhs, a, lda, + info = LAPACKE_zgerfsx_work( matrix_layout, trans, equed, n, nrhs, a, lda, af, ldaf, ipiv, r, c, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_zgerfsx_work.c b/lapacke/src/lapacke_zgerfsx_work.c index f24bf03b..e118f922 100644 --- a/lapacke/src/lapacke_zgerfsx_work.c +++ b/lapacke/src/lapacke_zgerfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgerfsx_work( int matrix_order, char trans, char equed, +lapack_int LAPACKE_zgerfsx_work( int matrix_layout, char trans, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, @@ -48,7 +48,7 @@ lapack_int LAPACKE_zgerfsx_work( int matrix_order, char trans, char equed, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgerfsx( &trans, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, r, c, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -57,7 +57,7 @@ lapack_int LAPACKE_zgerfsx_work( int matrix_order, char trans, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -129,10 +129,10 @@ lapack_int LAPACKE_zgerfsx_work( int matrix_order, char trans, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zgerfsx( &trans, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, r, c, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_zgerqf.c b/lapacke/src/lapacke_zgerqf.c index a8580cca..70d31d90 100644 --- a/lapacke/src/lapacke_zgerqf.c +++ b/lapacke/src/lapacke_zgerqf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgerqf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgerqf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zgerqf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgerqf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zgerqf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_zgerqf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zgerqf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zgerqf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_zgerqf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zgerqf_work.c b/lapacke/src/lapacke_zgerqf_work.c index 5b070322..de70a7a7 100644 --- a/lapacke/src/lapacke_zgerqf_work.c +++ b/lapacke/src/lapacke_zgerqf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgerqf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zgerqf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgerqf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zgerqf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zgerqf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zgesdd.c b/lapacke/src/lapacke_zgesdd.c index 9f247333..0c645061 100644 --- a/lapacke/src/lapacke_zgesdd.c +++ b/lapacke/src/lapacke_zgesdd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgesdd( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_zgesdd( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* s, lapack_complex_double* u, lapack_int ldu, lapack_complex_double* vt, @@ -47,13 +47,13 @@ lapack_int LAPACKE_zgesdd( int matrix_order, char jobz, lapack_int m, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zgesdd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_zgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_1; } /* Query optimal working array(s) size */ - info = LAPACKE_zgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_zgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, &work_query, lwork, rwork, iwork ); if( info != 0 ) { goto exit_level_2; @@ -90,7 +90,7 @@ lapack_int LAPACKE_zgesdd( int matrix_order, char jobz, lapack_int m, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zgesdd_work( matrix_order, jobz, m, n, a, lda, s, u, ldu, vt, + info = LAPACKE_zgesdd_work( matrix_layout, jobz, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, iwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zgesdd_work.c b/lapacke/src/lapacke_zgesdd_work.c index 566c652c..9b20890c 100644 --- a/lapacke/src/lapacke_zgesdd_work.c +++ b/lapacke/src/lapacke_zgesdd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zgesdd_work( int matrix_order, char jobz, lapack_int m, +lapack_int LAPACKE_zgesdd_work( int matrix_layout, char jobz, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, double* s, lapack_complex_double* u, lapack_int ldu, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zgesdd_work( int matrix_order, char jobz, lapack_int m, double* rwork, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zgesdd( &jobz, &m, &n, a, &lda, s, u, &ldu, vt, &ldvt, work, &lwork, rwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_u = ( LAPACKE_lsame( jobz, 'a' ) || LAPACKE_lsame( jobz, 's' ) || ( LAPACKE_lsame( jobz, 'o' ) && m0 ) { @@ -72,7 +72,7 @@ lapack_int LAPACKE_zherfsx( int matrix_order, char uplo, char equed, return -11; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -89,7 +89,7 @@ lapack_int LAPACKE_zherfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zherfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_zherfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, ipiv, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_zherfsx_work.c b/lapacke/src/lapacke_zherfsx_work.c index 3c6392f0..b2ca13d6 100644 --- a/lapacke/src/lapacke_zherfsx_work.c +++ b/lapacke/src/lapacke_zherfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zherfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zherfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, @@ -48,7 +48,7 @@ lapack_int LAPACKE_zherfsx_work( int matrix_order, char uplo, char equed, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zherfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -57,7 +57,7 @@ lapack_int LAPACKE_zherfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -129,10 +129,10 @@ lapack_int LAPACKE_zherfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zhe_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zherfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_zhesv.c b/lapacke/src/lapacke_zhesv.c index 28750399..fdd39e67 100644 --- a/lapacke/src/lapacke_zhesv.c +++ b/lapacke/src/lapacke_zhesv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhesv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhesv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) @@ -42,21 +42,21 @@ lapack_int LAPACKE_zhesv( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhesv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zhesv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_zhesv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -70,7 +70,7 @@ lapack_int LAPACKE_zhesv( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhesv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_zhesv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhesv_work.c b/lapacke/src/lapacke_zhesv_work.c index 5dc3c971..5256fe55 100644 --- a/lapacke/src/lapacke_zhesv_work.c +++ b/lapacke/src/lapacke_zhesv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhesv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhesv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhesv( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_zhesv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zhesv( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zhesvx.c b/lapacke/src/lapacke_zhesvx.c index 0c90476e..1c0a7f1e 100644 --- a/lapacke/src/lapacke_zhesvx.c +++ b/lapacke/src/lapacke_zhesvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhesvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zhesvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, lapack_int* ipiv, @@ -46,21 +46,21 @@ lapack_int LAPACKE_zhesvx( int matrix_order, char fact, char uplo, lapack_int n, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhesvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -11; } #endif @@ -71,7 +71,7 @@ lapack_int LAPACKE_zhesvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zhesvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_zhesvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, &work_query, lwork, rwork ); if( info != 0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_zhesvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhesvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_zhesvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, lwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zhesvx_work.c b/lapacke/src/lapacke_zhesvx_work.c index b783b392..fca5b96d 100644 --- a/lapacke/src/lapacke_zhesvx_work.c +++ b/lapacke/src/lapacke_zhesvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhesvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zhesvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -45,7 +45,7 @@ lapack_int LAPACKE_zhesvx_work( int matrix_order, char fact, char uplo, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhesvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, &lwork, rwork, @@ -53,7 +53,7 @@ lapack_int LAPACKE_zhesvx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -118,11 +118,11 @@ lapack_int LAPACKE_zhesvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zhe_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zhesvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, diff --git a/lapacke/src/lapacke_zhesvxx.c b/lapacke/src/lapacke_zhesvxx.c index 7f1afbf4..6ddcfedf 100644 --- a/lapacke/src/lapacke_zhesvxx.c +++ b/lapacke/src/lapacke_zhesvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhesvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zhesvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -48,21 +48,21 @@ lapack_int LAPACKE_zhesvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhesvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( nparams>0 ) { @@ -89,7 +89,7 @@ lapack_int LAPACKE_zhesvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhesvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_zhesvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_zhesvxx_work.c b/lapacke/src/lapacke_zhesvxx_work.c index 7e18310e..1658b24b 100644 --- a/lapacke/src/lapacke_zhesvxx_work.c +++ b/lapacke/src/lapacke_zhesvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zhesvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhesvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, @@ -56,7 +56,7 @@ lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -128,11 +128,11 @@ lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zhe_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zhesvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, @@ -154,9 +154,9 @@ lapack_int LAPACKE_zhesvxx_work( int matrix_order, char fact, char uplo, } LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_zheswapr.c b/lapacke/src/lapacke_zheswapr.c index 460430fc..e49f7f1f 100644 --- a/lapacke/src/lapacke_zheswapr.c +++ b/lapacke/src/lapacke_zheswapr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zheswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zheswapr( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int i1, lapack_int i2 ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zheswapr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, n ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, n ) ) { return -4; } #endif - return LAPACKE_zheswapr_work( matrix_order, uplo, n, a, i1, i2 ); + return LAPACKE_zheswapr_work( matrix_layout, uplo, n, a, i1, i2 ); } diff --git a/lapacke/src/lapacke_zheswapr_work.c b/lapacke/src/lapacke_zheswapr_work.c index ebc0a52d..bf16e5c2 100644 --- a/lapacke/src/lapacke_zheswapr_work.c +++ b/lapacke/src/lapacke_zheswapr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zheswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zheswapr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int i1, lapack_int i2 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zheswapr( &uplo, &n, a, &i1, &i2 ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_zheswapr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, n, a_t, n ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, n, a_t, n ); /* Call LAPACK function and adjust info */ LAPACK_zheswapr( &uplo, &n, a_t, &i1, &i2 ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zhetrd.c b/lapacke/src/lapacke_zhetrd.c index 05c156eb..988d248f 100644 --- a/lapacke/src/lapacke_zhetrd.c +++ b/lapacke/src/lapacke_zhetrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrd( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double* d, double* e, lapack_complex_double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zhetrd( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhetrd", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zhetrd_work( matrix_order, uplo, n, a, lda, d, e, tau, + info = LAPACKE_zhetrd_work( matrix_layout, uplo, n, a, lda, d, e, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zhetrd( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhetrd_work( matrix_order, uplo, n, a, lda, d, e, tau, work, + info = LAPACKE_zhetrd_work( matrix_layout, uplo, n, a, lda, d, e, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhetrd_work.c b/lapacke/src/lapacke_zhetrd_work.c index f739b9d8..7d25b76c 100644 --- a/lapacke/src/lapacke_zhetrd_work.c +++ b/lapacke/src/lapacke_zhetrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrd_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, double* d, double* e, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhetrd( &uplo, &n, a, &lda, d, e, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -69,7 +69,7 @@ lapack_int LAPACKE_zhetrd_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zhetrd( &uplo, &n, a_t, &lda_t, d, e, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhetrf.c b/lapacke/src/lapacke_zhetrf.c index 10ba671e..03d0a6f4 100644 --- a/lapacke/src/lapacke_zhetrf.c +++ b/lapacke/src/lapacke_zhetrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zhetrf( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhetrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zhetrf_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_zhetrf_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zhetrf( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhetrf_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_zhetrf_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhetrf_work.c b/lapacke/src/lapacke_zhetrf_work.c index 1efc1515..7600894f 100644 --- a/lapacke/src/lapacke_zhetrf_work.c +++ b/lapacke/src/lapacke_zhetrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhetrf( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zhetrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zhetrf( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhetri.c b/lapacke/src/lapacke_zhetri.c index c21508e3..495e5bae 100644 --- a/lapacke/src/lapacke_zhetri.c +++ b/lapacke/src/lapacke_zhetri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhetri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_zhetri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhetri_work( matrix_order, uplo, n, a, lda, ipiv, work ); + info = LAPACKE_zhetri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zhetri2.c b/lapacke/src/lapacke_zhetri2.c index da931409..0e8083e5 100644 --- a/lapacke/src/lapacke_zhetri2.c +++ b/lapacke/src/lapacke_zhetri2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri2( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zhetri2( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhetri2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zhetri2_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_zhetri2_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zhetri2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhetri2_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_zhetri2_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhetri2_work.c b/lapacke/src/lapacke_zhetri2_work.c index 0808ebc6..7cd6ce85 100644 --- a/lapacke/src/lapacke_zhetri2_work.c +++ b/lapacke/src/lapacke_zhetri2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri2_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhetri2( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zhetri2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zhetri2( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhetri2x.c b/lapacke/src/lapacke_zhetri2x.c index 4843072d..0aac8cda 100644 --- a/lapacke/src/lapacke_zhetri2x.c +++ b/lapacke/src/lapacke_zhetri2x.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri2x( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhetri2x", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, lda, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, lda, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_zhetri2x( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhetri2x_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_zhetri2x_work( matrix_layout, uplo, n, a, lda, ipiv, work, nb ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhetri2x_work.c b/lapacke/src/lapacke_zhetri2x_work.c index fbc1f9cb..1737cd39 100644 --- a/lapacke/src/lapacke_zhetri2x_work.c +++ b/lapacke/src/lapacke_zhetri2x_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri2x_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int nb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhetri2x( &uplo, &n, a, &lda, ipiv, work, &nb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,lda); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zhetri2x_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, lda, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, lda, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zhetri2x( &uplo, &n, a_t, &lda_t, ipiv, work, &nb, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhetri_work.c b/lapacke/src/lapacke_zhetri_work.c index 6410a725..0e8d0d2c 100644 --- a/lapacke/src/lapacke_zhetri_work.c +++ b/lapacke/src/lapacke_zhetri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhetri( &uplo, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zhetri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zhetri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhetrs.c b/lapacke/src/lapacke_zhetrs.c index 231e5ec8..14a22ad8 100644 --- a/lapacke/src/lapacke_zhetrs.c +++ b/lapacke/src/lapacke_zhetrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhetrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_zhetrs_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + return LAPACKE_zhetrs_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_zhetrs2.c b/lapacke/src/lapacke_zhetrs2.c index 4cabb4f9..62ef644a 100644 --- a/lapacke/src/lapacke_zhetrs2.c +++ b/lapacke/src/lapacke_zhetrs2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrs2( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhetrs2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_zhetrs2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhetrs2_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_zhetrs2_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhetrs2_work.c b/lapacke/src/lapacke_zhetrs2_work.c index 99916b56..7218ba4f 100644 --- a/lapacke/src/lapacke_zhetrs2_work.c +++ b/lapacke/src/lapacke_zhetrs2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetrs2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrs2_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, @@ -41,13 +41,13 @@ lapack_int LAPACKE_zhetrs2_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhetrs2( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -78,8 +78,8 @@ lapack_int LAPACKE_zhetrs2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zhetrs2( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_zhetrs_work.c b/lapacke/src/lapacke_zhetrs_work.c index 036e1e01..62d75aad 100644 --- a/lapacke/src/lapacke_zhetrs_work.c +++ b/lapacke/src/lapacke_zhetrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhetrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhetrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhetrs( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_zhetrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zhetrs( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_zhfrk.c b/lapacke/src/lapacke_zhfrk.c index 5d2078eb..af8457f0 100644 --- a/lapacke/src/lapacke_zhfrk.c +++ b/lapacke/src/lapacke_zhfrk.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_zhfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const lapack_complex_double* a, lapack_int lda, double beta, lapack_complex_double* c ) { lapack_int ka, na; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhfrk", -1 ); return -1; } @@ -47,7 +47,7 @@ lapack_int LAPACKE_zhfrk( int matrix_order, char transr, char uplo, char trans, /* Optionally check input matrices for NaNs */ ka = LAPACKE_lsame( trans, 'n' ) ? k : n; na = LAPACKE_lsame( trans, 'n' ) ? n : k; - if( LAPACKE_zge_nancheck( matrix_order, na, ka, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, na, ka, a, lda ) ) { return -8; } if( LAPACKE_d_nancheck( 1, &alpha, 1 ) ) { @@ -60,6 +60,6 @@ lapack_int LAPACKE_zhfrk( int matrix_order, char transr, char uplo, char trans, return -11; } #endif - return LAPACKE_zhfrk_work( matrix_order, transr, uplo, trans, n, k, alpha, + return LAPACKE_zhfrk_work( matrix_layout, transr, uplo, trans, n, k, alpha, a, lda, beta, c ); } diff --git a/lapacke/src/lapacke_zhfrk_work.c b/lapacke/src/lapacke_zhfrk_work.c index a0840707..c0c631ef 100644 --- a/lapacke/src/lapacke_zhfrk_work.c +++ b/lapacke/src/lapacke_zhfrk_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhfrk_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zhfrk_work( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const lapack_complex_double* a, lapack_int lda, double beta, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zhfrk_work( int matrix_order, char transr, char uplo, lapack_int info = 0; lapack_int na, ka, lda_t; lapack_complex_double *a_t = NULL, *c_t = NULL; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhfrk( &transr, &uplo, &trans, &n, &k, &alpha, a, &lda, &beta, c ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { na = LAPACKE_lsame( trans, 'n' ) ? n : k; ka = LAPACKE_lsame( trans, 'n' ) ? k : n; lda_t = MAX(1,na); @@ -74,8 +74,8 @@ lapack_int LAPACKE_zhfrk_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, na, ka, a, lda, a_t, lda_t ); - LAPACKE_zpf_trans( matrix_order, transr, uplo, n, c, c_t ); + LAPACKE_zge_trans( matrix_layout, na, ka, a, lda, a_t, lda_t ); + LAPACKE_zpf_trans( matrix_layout, transr, uplo, n, c, c_t ); /* Call LAPACK function and adjust info */ LAPACK_zhfrk( &transr, &uplo, &trans, &n, &k, &alpha, a_t, &lda_t, &beta, c_t ); diff --git a/lapacke/src/lapacke_zhgeqz.c b/lapacke/src/lapacke_zhgeqz.c index 7d409c30..c76fa18a 100644 --- a/lapacke/src/lapacke_zhgeqz.c +++ b/lapacke/src/lapacke_zhgeqz.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhgeqz( int matrix_order, char job, char compq, char compz, +lapack_int LAPACKE_zhgeqz( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* h, lapack_int ldh, lapack_complex_double* t, lapack_int ldt, @@ -47,25 +47,25 @@ lapack_int LAPACKE_zhgeqz( int matrix_order, char job, char compq, char compz, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhgeqz", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, h, ldh ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, h, ldh ) ) { return -8; } if( LAPACKE_lsame( compq, 'i' ) || LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -14; } } - if( LAPACKE_zge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -10; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -16; } } @@ -77,7 +77,7 @@ lapack_int LAPACKE_zhgeqz( int matrix_order, char job, char compq, char compz, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zhgeqz_work( matrix_order, job, compq, compz, n, ilo, ihi, h, + info = LAPACKE_zhgeqz_work( matrix_layout, job, compq, compz, n, ilo, ihi, h, ldh, t, ldt, alpha, beta, q, ldq, z, ldz, &work_query, lwork, rwork ); if( info != 0 ) { @@ -92,7 +92,7 @@ lapack_int LAPACKE_zhgeqz( int matrix_order, char job, char compq, char compz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhgeqz_work( matrix_order, job, compq, compz, n, ilo, ihi, h, + info = LAPACKE_zhgeqz_work( matrix_layout, job, compq, compz, n, ilo, ihi, h, ldh, t, ldt, alpha, beta, q, ldq, z, ldz, work, lwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zhgeqz_work.c b/lapacke/src/lapacke_zhgeqz_work.c index 67899a9b..0e1a9f47 100644 --- a/lapacke/src/lapacke_zhgeqz_work.c +++ b/lapacke/src/lapacke_zhgeqz_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhgeqz_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_zhgeqz_work( int matrix_layout, char job, char compq, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* h, lapack_int ldh, lapack_complex_double* t, @@ -45,7 +45,7 @@ lapack_int LAPACKE_zhgeqz_work( int matrix_order, char job, char compq, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhgeqz( &job, &compq, &compz, &n, &ilo, &ihi, h, &ldh, t, &ldt, alpha, beta, q, &ldq, z, &ldz, work, &lwork, rwork, @@ -53,7 +53,7 @@ lapack_int LAPACKE_zhgeqz_work( int matrix_order, char job, char compq, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldh_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); @@ -122,13 +122,13 @@ lapack_int LAPACKE_zhgeqz_work( int matrix_order, char job, char compq, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, h, ldh, h_t, ldh_t ); - LAPACKE_zge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, n, n, h, ldh, h_t, ldh_t ); + LAPACKE_zge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_zge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_zge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_zhgeqz( &job, &compq, &compz, &n, &ilo, &ihi, h_t, &ldh_t, t_t, diff --git a/lapacke/src/lapacke_zhpcon.c b/lapacke/src/lapacke_zhpcon.c index e45531fe..d0101b35 100644 --- a/lapacke/src/lapacke_zhpcon.c +++ b/lapacke/src/lapacke_zhpcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhpcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_int* ipiv, double anorm, double* rcond ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpcon", -1 ); return -1; } @@ -60,7 +60,7 @@ lapack_int LAPACKE_zhpcon( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhpcon_work( matrix_order, uplo, n, ap, ipiv, anorm, rcond, + info = LAPACKE_zhpcon_work( matrix_layout, uplo, n, ap, ipiv, anorm, rcond, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhpcon_work.c b/lapacke/src/lapacke_zhpcon_work.c index 82075632..d2f645cf 100644 --- a/lapacke/src/lapacke_zhpcon_work.c +++ b/lapacke/src/lapacke_zhpcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhpcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpcon( &uplo, &n, ap, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_zhpcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpcon( &uplo, &n, ap_t, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhpev.c b/lapacke/src/lapacke_zhpev.c index 5af3258e..7538295d 100644 --- a/lapacke/src/lapacke_zhpev.c +++ b/lapacke/src/lapacke_zhpev.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpev( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zhpev( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, double* w, lapack_complex_double* z, lapack_int ldz ) { lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpev", -1 ); return -1; } @@ -63,7 +63,7 @@ lapack_int LAPACKE_zhpev( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhpev_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, work, + info = LAPACKE_zhpev_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhpev_work.c b/lapacke/src/lapacke_zhpev_work.c index d540ad79..890e2bec 100644 --- a/lapacke/src/lapacke_zhpev_work.c +++ b/lapacke/src/lapacke_zhpev_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpev_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zhpev_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, double* w, lapack_complex_double* z, lapack_int ldz, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpev( &jobz, &uplo, &n, ap, w, z, &ldz, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; lapack_complex_double* ap_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_zhpev_work( int matrix_order, char jobz, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpev( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zhpevd.c b/lapacke/src/lapacke_zhpevd.c index ef49f5a8..ffa6fd92 100644 --- a/lapacke/src/lapacke_zhpevd.c +++ b/lapacke/src/lapacke_zhpevd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpevd( int matrix_order, char jobz, char uplo, lapack_int n, +lapack_int LAPACKE_zhpevd( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, double* w, lapack_complex_double* z, lapack_int ldz ) { @@ -47,7 +47,7 @@ lapack_int LAPACKE_zhpevd( int matrix_order, char jobz, char uplo, lapack_int n, lapack_int iwork_query; double rwork_query; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpevd", -1 ); return -1; } @@ -58,7 +58,7 @@ lapack_int LAPACKE_zhpevd( int matrix_order, char jobz, char uplo, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zhpevd_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_zhpevd_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, &work_query, lwork, &rwork_query, lrwork, &iwork_query, liwork ); if( info != 0 ) { @@ -85,7 +85,7 @@ lapack_int LAPACKE_zhpevd( int matrix_order, char jobz, char uplo, lapack_int n, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zhpevd_work( matrix_order, jobz, uplo, n, ap, w, z, ldz, + info = LAPACKE_zhpevd_work( matrix_layout, jobz, uplo, n, ap, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhpevd_work.c b/lapacke/src/lapacke_zhpevd_work.c index 4cc92483..df5c2dd9 100644 --- a/lapacke/src/lapacke_zhpevd_work.c +++ b/lapacke/src/lapacke_zhpevd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpevd_work( int matrix_order, char jobz, char uplo, +lapack_int LAPACKE_zhpevd_work( int matrix_layout, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, double* w, lapack_complex_double* z, lapack_int ldz, lapack_complex_double* work, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zhpevd_work( int matrix_order, char jobz, char uplo, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpevd( &jobz, &uplo, &n, ap, w, z, &ldz, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; lapack_complex_double* ap_t = NULL; @@ -83,7 +83,7 @@ lapack_int LAPACKE_zhpevd_work( int matrix_order, char jobz, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpevd( &jobz, &uplo, &n, ap_t, w, z_t, &ldz_t, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_zhpevx.c b/lapacke/src/lapacke_zhpevx.c index 65504ab7..0e4b40fb 100644 --- a/lapacke/src/lapacke_zhpevx.c +++ b/lapacke/src/lapacke_zhpevx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpevx( int matrix_order, char jobz, char range, char uplo, +lapack_int LAPACKE_zhpevx( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* ap, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zhpevx( int matrix_order, char jobz, char range, char uplo, lapack_int* iwork = NULL; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpevx", -1 ); return -1; } @@ -85,7 +85,7 @@ lapack_int LAPACKE_zhpevx( int matrix_order, char jobz, char range, char uplo, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zhpevx_work( matrix_order, jobz, range, uplo, n, ap, vl, vu, + info = LAPACKE_zhpevx_work( matrix_layout, jobz, range, uplo, n, ap, vl, vu, il, iu, abstol, m, w, z, ldz, work, rwork, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zhpevx_work.c b/lapacke/src/lapacke_zhpevx_work.c index b0a34017..2b53ec01 100644 --- a/lapacke/src/lapacke_zhpevx_work.c +++ b/lapacke/src/lapacke_zhpevx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpevx_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zhpevx_work( int matrix_layout, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* ap, double vl, double vu, lapack_int il, lapack_int iu, double abstol, @@ -43,7 +43,7 @@ lapack_int LAPACKE_zhpevx_work( int matrix_order, char jobz, char range, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpevx( &jobz, &range, &uplo, &n, ap, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, rwork, iwork, ifail, @@ -51,7 +51,7 @@ lapack_int LAPACKE_zhpevx_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -82,7 +82,7 @@ lapack_int LAPACKE_zhpevx_work( int matrix_order, char jobz, char range, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpevx( &jobz, &range, &uplo, &n, ap_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, rwork, iwork, ifail, diff --git a/lapacke/src/lapacke_zhpgst.c b/lapacke/src/lapacke_zhpgst.c index f94d833c..8baa3c4e 100644 --- a/lapacke/src/lapacke_zhpgst.c +++ b/lapacke/src/lapacke_zhpgst.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpgst( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_zhpgst( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_complex_double* bp ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpgst", -1 ); return -1; } @@ -50,5 +50,5 @@ lapack_int LAPACKE_zhpgst( int matrix_order, lapack_int itype, char uplo, return -6; } #endif - return LAPACKE_zhpgst_work( matrix_order, itype, uplo, n, ap, bp ); + return LAPACKE_zhpgst_work( matrix_layout, itype, uplo, n, ap, bp ); } diff --git a/lapacke/src/lapacke_zhpgst_work.c b/lapacke/src/lapacke_zhpgst_work.c index 26d6c848..103c10c8 100644 --- a/lapacke/src/lapacke_zhpgst_work.c +++ b/lapacke/src/lapacke_zhpgst_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpgst_work( int matrix_order, lapack_int itype, char uplo, +lapack_int LAPACKE_zhpgst_work( int matrix_layout, lapack_int itype, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_complex_double* bp ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpgst( &itype, &uplo, &n, ap, bp, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; lapack_complex_double* bp_t = NULL; /* Allocate memory for temporary array(s) */ @@ -63,8 +63,8 @@ lapack_int LAPACKE_zhpgst_work( int matrix_order, lapack_int itype, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpgst( &itype, &uplo, &n, ap_t, bp_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhpgv.c b/lapacke/src/lapacke_zhpgv.c index 5844e4e4..1975b29f 100644 --- a/lapacke/src/lapacke_zhpgv.c +++ b/lapacke/src/lapacke_zhpgv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpgv( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgv( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, lapack_complex_double* z, lapack_int ldz ) @@ -41,7 +41,7 @@ lapack_int LAPACKE_zhpgv( int matrix_order, lapack_int itype, char jobz, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpgv", -1 ); return -1; } @@ -67,7 +67,7 @@ lapack_int LAPACKE_zhpgv( int matrix_order, lapack_int itype, char jobz, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhpgv_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, z, + info = LAPACKE_zhpgv_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhpgv_work.c b/lapacke/src/lapacke_zhpgv_work.c index 46c0d97d..bb2fa534 100644 --- a/lapacke/src/lapacke_zhpgv_work.c +++ b/lapacke/src/lapacke_zhpgv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpgv_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgv_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zhpgv_work( int matrix_order, lapack_int itype, char jobz, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpgv( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; lapack_complex_double* ap_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_zhpgv_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpgv( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zhpgvd.c b/lapacke/src/lapacke_zhpgvd.c index 0951a7fe..03888a96 100644 --- a/lapacke/src/lapacke_zhpgvd.c +++ b/lapacke/src/lapacke_zhpgvd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpgvd( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgvd( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, lapack_complex_double* z, lapack_int ldz ) @@ -48,7 +48,7 @@ lapack_int LAPACKE_zhpgvd( int matrix_order, lapack_int itype, char jobz, lapack_int iwork_query; double rwork_query; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpgvd", -1 ); return -1; } @@ -62,7 +62,7 @@ lapack_int LAPACKE_zhpgvd( int matrix_order, lapack_int itype, char jobz, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zhpgvd_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, + info = LAPACKE_zhpgvd_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, &work_query, lwork, &rwork_query, lrwork, &iwork_query, liwork ); if( info != 0 ) { @@ -89,7 +89,7 @@ lapack_int LAPACKE_zhpgvd( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zhpgvd_work( matrix_order, itype, jobz, uplo, n, ap, bp, w, + info = LAPACKE_zhpgvd_work( matrix_layout, itype, jobz, uplo, n, ap, bp, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zhpgvd_work.c b/lapacke/src/lapacke_zhpgvd_work.c index 989587bb..304f5c7d 100644 --- a/lapacke/src/lapacke_zhpgvd_work.c +++ b/lapacke/src/lapacke_zhpgvd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpgvd_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgvd_work( int matrix_layout, lapack_int itype, char jobz, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double* w, @@ -43,14 +43,14 @@ lapack_int LAPACKE_zhpgvd_work( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpgvd( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; lapack_complex_double* ap_t = NULL; @@ -92,8 +92,8 @@ lapack_int LAPACKE_zhpgvd_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpgvd( &itype, &jobz, &uplo, &n, ap_t, bp_t, w, z_t, &ldz_t, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); diff --git a/lapacke/src/lapacke_zhpgvx.c b/lapacke/src/lapacke_zhpgvx.c index 3af7f310..807a3e5d 100644 --- a/lapacke/src/lapacke_zhpgvx.c +++ b/lapacke/src/lapacke_zhpgvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpgvx( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgvx( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double vl, double vu, lapack_int il, lapack_int iu, @@ -45,7 +45,7 @@ lapack_int LAPACKE_zhpgvx( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork = NULL; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpgvx", -1 ); return -1; } @@ -89,7 +89,7 @@ lapack_int LAPACKE_zhpgvx( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zhpgvx_work( matrix_order, itype, jobz, range, uplo, n, ap, + info = LAPACKE_zhpgvx_work( matrix_layout, itype, jobz, range, uplo, n, ap, bp, vl, vu, il, iu, abstol, m, w, z, ldz, work, rwork, iwork, ifail ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zhpgvx_work.c b/lapacke/src/lapacke_zhpgvx_work.c index 12c1f3a7..7ffc928e 100644 --- a/lapacke/src/lapacke_zhpgvx_work.c +++ b/lapacke/src/lapacke_zhpgvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpgvx_work( int matrix_order, lapack_int itype, char jobz, +lapack_int LAPACKE_zhpgvx_work( int matrix_layout, lapack_int itype, char jobz, char range, char uplo, lapack_int n, lapack_complex_double* ap, lapack_complex_double* bp, double vl, double vu, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zhpgvx_work( int matrix_order, lapack_int itype, char jobz, lapack_int* iwork, lapack_int* ifail ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpgvx( &itype, &jobz, &range, &uplo, &n, ap, bp, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, work, rwork, iwork, ifail, @@ -52,7 +52,7 @@ lapack_int LAPACKE_zhpgvx_work( int matrix_order, lapack_int itype, char jobz, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ncols_z = ( LAPACKE_lsame( range, 'a' ) || LAPACKE_lsame( range, 'v' ) ) ? n : ( LAPACKE_lsame( range, 'i' ) ? (iu-il+1) : 1); @@ -91,8 +91,8 @@ lapack_int LAPACKE_zhpgvx_work( int matrix_order, lapack_int itype, char jobz, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, bp, bp_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, bp, bp_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpgvx( &itype, &jobz, &range, &uplo, &n, ap_t, bp_t, &vl, &vu, &il, &iu, &abstol, m, w, z_t, &ldz_t, work, rwork, iwork, diff --git a/lapacke/src/lapacke_zhprfs.c b/lapacke/src/lapacke_zhprfs.c index 624531ab..3d61ef5a 100644 --- a/lapacke/src/lapacke_zhprfs.c +++ b/lapacke/src/lapacke_zhprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, const lapack_int* ipiv, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zhprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhprfs", -1 ); return -1; } @@ -56,10 +56,10 @@ lapack_int LAPACKE_zhprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zhp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_zhprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhprfs_work( matrix_order, uplo, n, nrhs, ap, afp, ipiv, b, + info = LAPACKE_zhprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhprfs_work.c b/lapacke/src/lapacke_zhprfs_work.c index 6426ac52..8e3c216d 100644 --- a/lapacke/src/lapacke_zhprfs_work.c +++ b/lapacke/src/lapacke_zhprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, @@ -44,14 +44,14 @@ lapack_int LAPACKE_zhprfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhprfs( &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -99,10 +99,10 @@ lapack_int LAPACKE_zhprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_zhprfs( &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zhpsv.c b/lapacke/src/lapacke_zhpsv.c index 509a87b7..60097612 100644 --- a/lapacke/src/lapacke_zhpsv.c +++ b/lapacke/src/lapacke_zhpsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhpsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpsv", -1 ); return -1; } @@ -47,9 +47,9 @@ lapack_int LAPACKE_zhpsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zhp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_zhpsv_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_zhpsv_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_zhpsv_work.c b/lapacke/src/lapacke_zhpsv_work.c index 40301432..49d8b9b4 100644 --- a/lapacke/src/lapacke_zhpsv_work.c +++ b/lapacke/src/lapacke_zhpsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhpsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpsv( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; lapack_complex_double* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_zhpsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhpsv( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhpsvx.c b/lapacke/src/lapacke_zhpsvx.c index b3c85620..a4e80a23 100644 --- a/lapacke/src/lapacke_zhpsvx.c +++ b/lapacke/src/lapacke_zhpsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zhpsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* afp, lapack_int* ipiv, const lapack_complex_double* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_zhpsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhpsvx", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_zhpsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_zhp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_zhpsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhpsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_zhpsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zhpsvx_work.c b/lapacke/src/lapacke_zhpsvx_work.c index 84ed8e49..44bada6f 100644 --- a/lapacke/src/lapacke_zhpsvx_work.c +++ b/lapacke/src/lapacke_zhpsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhpsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zhpsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* afp, lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_zhpsvx_work( int matrix_order, char fact, char uplo, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhpsvx( &fact, &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -98,10 +98,10 @@ lapack_int LAPACKE_zhpsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zhp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_zhpsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_zhptrd.c b/lapacke/src/lapacke_zhptrd.c index a866347a..e350921a 100644 --- a/lapacke/src/lapacke_zhptrd.c +++ b/lapacke/src/lapacke_zhptrd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhptrd( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrd( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, double* d, double* e, lapack_complex_double* tau ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhptrd", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_zhptrd( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_zhptrd_work( matrix_order, uplo, n, ap, d, e, tau ); + return LAPACKE_zhptrd_work( matrix_layout, uplo, n, ap, d, e, tau ); } diff --git a/lapacke/src/lapacke_zhptrd_work.c b/lapacke/src/lapacke_zhptrd_work.c index 665fcaf0..411d4fe3 100644 --- a/lapacke/src/lapacke_zhptrd_work.c +++ b/lapacke/src/lapacke_zhptrd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhptrd_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrd_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, double* d, double* e, lapack_complex_double* tau ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhptrd( &uplo, &n, ap, d, e, tau, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -55,7 +55,7 @@ lapack_int LAPACKE_zhptrd_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhptrd( &uplo, &n, ap_t, d, e, tau, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhptrf.c b/lapacke/src/lapacke_zhptrf.c index 17bd7593..4abf5dc9 100644 --- a/lapacke/src/lapacke_zhptrf.c +++ b/lapacke/src/lapacke_zhptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_zhptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_zhptrf_work( matrix_order, uplo, n, ap, ipiv ); + return LAPACKE_zhptrf_work( matrix_layout, uplo, n, ap, ipiv ); } diff --git a/lapacke/src/lapacke_zhptrf_work.c b/lapacke/src/lapacke_zhptrf_work.c index 3c6bf063..5c7e95d6 100644 --- a/lapacke/src/lapacke_zhptrf_work.c +++ b/lapacke/src/lapacke_zhptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhptrf( &uplo, &n, ap, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_zhptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhptrf( &uplo, &n, ap_t, ipiv, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhptri.c b/lapacke/src/lapacke_zhptri.c index 897dfcaa..e5d254b4 100644 --- a/lapacke/src/lapacke_zhptri.c +++ b/lapacke/src/lapacke_zhptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhptri", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_zhptri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhptri_work( matrix_order, uplo, n, ap, ipiv, work ); + info = LAPACKE_zhptri_work( matrix_layout, uplo, n, ap, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zhptri_work.c b/lapacke/src/lapacke_zhptri_work.c index 1b45c0d4..9a4c1706 100644 --- a/lapacke/src/lapacke_zhptri_work.c +++ b/lapacke/src/lapacke_zhptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhptri( &uplo, &n, ap, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_zhptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhptri( &uplo, &n, ap_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhptrs.c b/lapacke/src/lapacke_zhptrs.c index d40a7654..60bb2d1c 100644 --- a/lapacke/src/lapacke_zhptrs.c +++ b/lapacke/src/lapacke_zhptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhptrs", -1 ); return -1; } @@ -47,9 +47,9 @@ lapack_int LAPACKE_zhptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zhp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_zhptrs_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_zhptrs_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_zhptrs_work.c b/lapacke/src/lapacke_zhptrs_work.c index 4df1af16..2489fb2f 100644 --- a/lapacke/src/lapacke_zhptrs_work.c +++ b/lapacke/src/lapacke_zhptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zhptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhptrs( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; lapack_complex_double* ap_t = NULL; @@ -72,8 +72,8 @@ lapack_int LAPACKE_zhptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zhp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zhp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zhptrs( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zhsein.c b/lapacke/src/lapacke_zhsein.c index 8a75f2ab..68417e49 100644 --- a/lapacke/src/lapacke_zhsein.c +++ b/lapacke/src/lapacke_zhsein.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhsein( int matrix_order, char job, char eigsrc, char initv, +lapack_int LAPACKE_zhsein( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_double* h, lapack_int ldh, lapack_complex_double* w, lapack_complex_double* vl, @@ -44,22 +44,22 @@ lapack_int LAPACKE_zhsein( int matrix_order, char job, char eigsrc, char initv, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhsein", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, h, ldh ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, h, ldh ) ) { return -7; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'l' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'r' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -80,7 +80,7 @@ lapack_int LAPACKE_zhsein( int matrix_order, char job, char eigsrc, char initv, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zhsein_work( matrix_order, job, eigsrc, initv, select, n, h, + info = LAPACKE_zhsein_work( matrix_layout, job, eigsrc, initv, select, n, h, ldh, w, vl, ldvl, vr, ldvr, mm, m, work, rwork, ifaill, ifailr ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zhsein_work.c b/lapacke/src/lapacke_zhsein_work.c index fb82fbee..cd905afe 100644 --- a/lapacke/src/lapacke_zhsein_work.c +++ b/lapacke/src/lapacke_zhsein_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhsein_work( int matrix_order, char job, char eigsrc, +lapack_int LAPACKE_zhsein_work( int matrix_layout, char job, char eigsrc, char initv, const lapack_logical* select, lapack_int n, const lapack_complex_double* h, lapack_int ldh, lapack_complex_double* w, @@ -44,14 +44,14 @@ lapack_int LAPACKE_zhsein_work( int matrix_order, char job, char eigsrc, lapack_int* ifaill, lapack_int* ifailr ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhsein( &job, &eigsrc, &initv, select, &n, h, &ldh, w, vl, &ldvl, vr, &ldvr, &mm, m, work, rwork, ifaill, ifailr, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldh_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -100,14 +100,14 @@ lapack_int LAPACKE_zhsein_work( int matrix_order, char job, char eigsrc, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, h, ldh, h_t, ldh_t ); + LAPACKE_zge_trans( matrix_layout, n, n, h, ldh, h_t, ldh_t ); if( ( LAPACKE_lsame( job, 'l' ) || LAPACKE_lsame( job, 'b' ) ) && LAPACKE_lsame( initv, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( job, 'r' ) || LAPACKE_lsame( job, 'b' ) ) && LAPACKE_lsame( initv, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_zhsein( &job, &eigsrc, &initv, select, &n, h_t, &ldh_t, w, vl_t, diff --git a/lapacke/src/lapacke_zhseqr.c b/lapacke/src/lapacke_zhseqr.c index be5684ec..ca1450aa 100644 --- a/lapacke/src/lapacke_zhseqr.c +++ b/lapacke/src/lapacke_zhseqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhseqr( int matrix_order, char job, char compz, lapack_int n, +lapack_int LAPACKE_zhseqr( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* h, lapack_int ldh, lapack_complex_double* w, lapack_complex_double* z, @@ -43,23 +43,23 @@ lapack_int LAPACKE_zhseqr( int matrix_order, char job, char compz, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zhseqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, h, ldh ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, h, ldh ) ) { return -7; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -10; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zhseqr_work( matrix_order, job, compz, n, ilo, ihi, h, ldh, + info = LAPACKE_zhseqr_work( matrix_layout, job, compz, n, ilo, ihi, h, ldh, w, z, ldz, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -73,7 +73,7 @@ lapack_int LAPACKE_zhseqr( int matrix_order, char job, char compz, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zhseqr_work( matrix_order, job, compz, n, ilo, ihi, h, ldh, + info = LAPACKE_zhseqr_work( matrix_layout, job, compz, n, ilo, ihi, h, ldh, w, z, ldz, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zhseqr_work.c b/lapacke/src/lapacke_zhseqr_work.c index 6cdbb5f2..6c6b05ed 100644 --- a/lapacke/src/lapacke_zhseqr_work.c +++ b/lapacke/src/lapacke_zhseqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zhseqr_work( int matrix_order, char job, char compz, +lapack_int LAPACKE_zhseqr_work( int matrix_layout, char job, char compz, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* h, lapack_int ldh, lapack_complex_double* w, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zhseqr_work( int matrix_order, char job, char compz, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zhseqr( &job, &compz, &n, &ilo, &ihi, h, &ldh, w, z, &ldz, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldh_t = MAX(1,n); lapack_int ldz_t = MAX(1,n); lapack_complex_double* h_t = NULL; @@ -87,9 +87,9 @@ lapack_int LAPACKE_zhseqr_work( int matrix_order, char job, char compz, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, h, ldh, h_t, ldh_t ); + LAPACKE_zge_trans( matrix_layout, n, n, h, ldh, h_t, ldh_t ); if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_zge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_zhseqr( &job, &compz, &n, &ilo, &ihi, h_t, &ldh_t, w, z_t, diff --git a/lapacke/src/lapacke_zlacp2.c b/lapacke/src/lapacke_zlacp2.c index ffcaac91..d80fbaf5 100644 --- a/lapacke/src/lapacke_zlacp2.c +++ b/lapacke/src/lapacke_zlacp2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlacp2( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlacp2( int matrix_layout, char uplo, lapack_int m, lapack_int n, const double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlacp2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif - return LAPACKE_zlacp2_work( matrix_order, uplo, m, n, a, lda, b, ldb ); + return LAPACKE_zlacp2_work( matrix_layout, uplo, m, n, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_zlacp2_work.c b/lapacke/src/lapacke_zlacp2_work.c index 8ece4914..5196d7a3 100644 --- a/lapacke/src/lapacke_zlacp2_work.c +++ b/lapacke/src/lapacke_zlacp2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,18 +34,18 @@ #include "lapacke.h" #include "lapacke_utils.h" -lapack_int LAPACKE_zlacp2_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlacp2_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlacp2( &uplo, &m, &n, a, &lda, b, &ldb ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,m); double* a_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_zlacp2_work( int matrix_order, char uplo, lapack_int m, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_dge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_dge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zlacp2( &uplo, &m, &n, a_t, &lda_t, b_t, &ldb_t ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlacpy.c b/lapacke/src/lapacke_zlacpy.c index 651af186..787bfa2c 100644 --- a/lapacke/src/lapacke_zlacpy.c +++ b/lapacke/src/lapacke_zlacpy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlacpy( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlacpy( int matrix_layout, char uplo, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlacpy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif - return LAPACKE_zlacpy_work( matrix_order, uplo, m, n, a, lda, b, ldb ); + return LAPACKE_zlacpy_work( matrix_layout, uplo, m, n, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_zlacpy_work.c b/lapacke/src/lapacke_zlacpy_work.c index 6ccf1330..ad5d32f0 100644 --- a/lapacke/src/lapacke_zlacpy_work.c +++ b/lapacke/src/lapacke_zlacpy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlacpy_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlacpy_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + 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_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,m); lapack_complex_double* a_t = NULL; @@ -75,7 +75,7 @@ lapack_int LAPACKE_zlacpy_work( int matrix_order, char uplo, lapack_int m, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zlacpy( &uplo, &m, &n, a_t, &lda_t, b_t, &ldb_t ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlag2c.c b/lapacke/src/lapacke_zlag2c.c index fc330610..6008da5a 100644 --- a/lapacke/src/lapacke_zlag2c.c +++ b/lapacke/src/lapacke_zlag2c.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlag2c( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlag2c( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_float* sa, lapack_int ldsa ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlag2c", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zlag2c_work( matrix_order, m, n, a, lda, sa, ldsa ); + return LAPACKE_zlag2c_work( matrix_layout, m, n, a, lda, sa, ldsa ); } diff --git a/lapacke/src/lapacke_zlag2c_work.c b/lapacke/src/lapacke_zlag2c_work.c index 8b7bebdb..cb9751ac 100644 --- a/lapacke/src/lapacke_zlag2c_work.c +++ b/lapacke/src/lapacke_zlag2c_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlag2c_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlag2c_work( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_float* sa, lapack_int ldsa ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlag2c( &m, &n, a, &lda, sa, &ldsa, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldsa_t = MAX(1,m); lapack_complex_double* a_t = NULL; @@ -74,7 +74,7 @@ lapack_int LAPACKE_zlag2c_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zlag2c( &m, &n, a_t, &lda_t, sa_t, &ldsa_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zlagge.c b/lapacke/src/lapacke_zlagge.c index 3162190a..86c1ab12 100644 --- a/lapacke/src/lapacke_zlagge.c +++ b/lapacke/src/lapacke_zlagge.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlagge( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlagge( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlagge", -1 ); return -1; } @@ -58,7 +58,7 @@ lapack_int LAPACKE_zlagge( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zlagge_work( matrix_order, m, n, kl, ku, d, a, lda, iseed, + info = LAPACKE_zlagge_work( matrix_layout, m, n, kl, ku, d, a, lda, iseed, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zlagge_work.c b/lapacke/src/lapacke_zlagge_work.c index dfc51706..6b56103b 100644 --- a/lapacke/src/lapacke_zlagge_work.c +++ b/lapacke/src/lapacke_zlagge_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlagge_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlagge_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlagge( &m, &n, &kl, &ku, d, a, &lda, iseed, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_zlaghe.c b/lapacke/src/lapacke_zlaghe.c index bef5e797..e1319d1a 100644 --- a/lapacke/src/lapacke_zlaghe.c +++ b/lapacke/src/lapacke_zlaghe.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlaghe( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_zlaghe( int matrix_layout, lapack_int n, lapack_int k, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlaghe", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_zlaghe( int matrix_order, lapack_int n, lapack_int k, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zlaghe_work( matrix_order, n, k, d, a, lda, iseed, work ); + info = LAPACKE_zlaghe_work( matrix_layout, n, k, d, a, lda, iseed, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zlaghe_work.c b/lapacke/src/lapacke_zlaghe_work.c index dc0a88e6..5f343388 100644 --- a/lapacke/src/lapacke_zlaghe_work.c +++ b/lapacke/src/lapacke_zlaghe_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlaghe_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_zlaghe_work( int matrix_layout, lapack_int n, lapack_int k, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlaghe( &n, &k, d, a, &lda, iseed, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_zlagsy.c b/lapacke/src/lapacke_zlagsy.c index f08a5c50..0478ff58 100644 --- a/lapacke/src/lapacke_zlagsy.c +++ b/lapacke/src/lapacke_zlagsy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlagsy( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_zlagsy( int matrix_layout, lapack_int n, lapack_int k, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlagsy", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_zlagsy( int matrix_order, lapack_int n, lapack_int k, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zlagsy_work( matrix_order, n, k, d, a, lda, iseed, work ); + info = LAPACKE_zlagsy_work( matrix_layout, n, k, d, a, lda, iseed, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zlagsy_work.c b/lapacke/src/lapacke_zlagsy_work.c index 82e96264..8b6a0b36 100644 --- a/lapacke/src/lapacke_zlagsy_work.c +++ b/lapacke/src/lapacke_zlagsy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlagsy_work( int matrix_order, lapack_int n, lapack_int k, +lapack_int LAPACKE_zlagsy_work( int matrix_layout, lapack_int n, lapack_int k, const double* d, lapack_complex_double* a, lapack_int lda, lapack_int* iseed, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlagsy( &n, &k, d, a, &lda, iseed, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_zlange.c b/lapacke/src/lapacke_zlange.c index 725bb278..c7945126 100644 --- a/lapacke/src/lapacke_zlange.c +++ b/lapacke/src/lapacke_zlange.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -double LAPACKE_zlange( int matrix_order, char norm, lapack_int m, +double LAPACKE_zlange( int matrix_layout, char norm, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; double res = 0.; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlange", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } #endif @@ -59,7 +59,7 @@ double LAPACKE_zlange( int matrix_order, char norm, lapack_int m, } } /* Call middle-level interface */ - res = LAPACKE_zlange_work( matrix_order, norm, m, n, a, lda, work ); + res = LAPACKE_zlange_work( matrix_layout, norm, m, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) ) { LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zlange_work.c b/lapacke/src/lapacke_zlange_work.c index 03ae6725..6eb40083 100644 --- a/lapacke/src/lapacke_zlange_work.c +++ b/lapacke/src/lapacke_zlange_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -double LAPACKE_zlange_work( int matrix_order, char norm, lapack_int m, +double LAPACKE_zlange_work( int matrix_layout, char norm, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* work ) { lapack_int info = 0; double res = 0.; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ res = LAPACK_zlange( &norm, &m, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ double LAPACKE_zlange_work( int matrix_order, char norm, lapack_int m, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ res = LAPACK_zlange( &norm, &m, &n, a_t, &lda_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlanhe.c b/lapacke/src/lapacke_zlanhe.c index f1625cb0..b125218d 100644 --- a/lapacke/src/lapacke_zlanhe.c +++ b/lapacke/src/lapacke_zlanhe.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -double LAPACKE_zlanhe( int matrix_order, char norm, char uplo, lapack_int n, +double LAPACKE_zlanhe( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; double res = 0.; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlanhe", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } #endif @@ -59,7 +59,7 @@ double LAPACKE_zlanhe( int matrix_order, char norm, char uplo, lapack_int n, } } /* Call middle-level interface */ - res = LAPACKE_zlanhe_work( matrix_order, norm, uplo, n, a, lda, work ); + res = LAPACKE_zlanhe_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || LAPACKE_lsame( norm, '0' ) ) { diff --git a/lapacke/src/lapacke_zlanhe_work.c b/lapacke/src/lapacke_zlanhe_work.c index a676f7ff..4b4b6098 100644 --- a/lapacke/src/lapacke_zlanhe_work.c +++ b/lapacke/src/lapacke_zlanhe_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -double LAPACKE_zlanhe_work( int matrix_order, char norm, char uplo, +double LAPACKE_zlanhe_work( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* work ) { lapack_int info = 0; double res = 0.; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ res = LAPACK_zlanhe( &norm, &uplo, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ double LAPACKE_zlanhe_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ res = LAPACK_zlanhe( &norm, &uplo, &n, a_t, &lda_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlansy.c b/lapacke/src/lapacke_zlansy.c index 89143784..6935933f 100644 --- a/lapacke/src/lapacke_zlansy.c +++ b/lapacke/src/lapacke_zlansy.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -double LAPACKE_zlansy( int matrix_order, char norm, char uplo, lapack_int n, +double LAPACKE_zlansy( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; double res = 0.; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlansy", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } #endif @@ -59,7 +59,7 @@ double LAPACKE_zlansy( int matrix_order, char norm, char uplo, lapack_int n, } } /* Call middle-level interface */ - res = LAPACKE_zlansy_work( matrix_order, norm, uplo, n, a, lda, work ); + res = LAPACKE_zlansy_work( matrix_layout, norm, uplo, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || LAPACKE_lsame( norm, '0' ) ) { diff --git a/lapacke/src/lapacke_zlansy_work.c b/lapacke/src/lapacke_zlansy_work.c index 72315990..2cdd2211 100644 --- a/lapacke/src/lapacke_zlansy_work.c +++ b/lapacke/src/lapacke_zlansy_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -double LAPACKE_zlansy_work( int matrix_order, char norm, char uplo, +double LAPACKE_zlansy_work( int matrix_layout, char norm, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* work ) { lapack_int info = 0; double res = 0.; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ res = LAPACK_zlansy( &norm, &uplo, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ double LAPACKE_zlansy_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ res = LAPACK_zlansy( &norm, &uplo, &n, a_t, &lda_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlantr.c b/lapacke/src/lapacke_zlantr.c index 887bc2ee..27c77dc3 100644 --- a/lapacke/src/lapacke_zlantr.c +++ b/lapacke/src/lapacke_zlantr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -double LAPACKE_zlantr( int matrix_order, char norm, char uplo, char diag, +double LAPACKE_zlantr( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; double res = 0.; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlantr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ztr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } #endif @@ -60,7 +60,7 @@ double LAPACKE_zlantr( int matrix_order, char norm, char uplo, char diag, } } /* Call middle-level interface */ - res = LAPACKE_zlantr_work( matrix_order, norm, uplo, diag, m, n, a, lda, + res = LAPACKE_zlantr_work( matrix_layout, norm, uplo, diag, m, n, a, lda, work ); /* Release memory and exit */ if( LAPACKE_lsame( norm, 'i' ) || LAPACKE_lsame( norm, '1' ) || diff --git a/lapacke/src/lapacke_zlantr_work.c b/lapacke/src/lapacke_zlantr_work.c index 65e74142..e9f00361 100644 --- a/lapacke/src/lapacke_zlantr_work.c +++ b/lapacke/src/lapacke_zlantr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -double LAPACKE_zlantr_work( int matrix_order, char norm, char uplo, +double LAPACKE_zlantr_work( int matrix_layout, char norm, char uplo, char diag, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* work ) { lapack_int info = 0; double res = 0.; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ res = LAPACK_zlantr( &norm, &uplo, &diag, &m, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ double LAPACKE_zlantr_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ztr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_ztr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ res = LAPACK_zlantr( &norm, &uplo, &diag, &m, &n, a_t, &lda_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlapmr.c b/lapacke/src/lapacke_zlapmr.c index 8dc6cdf4..28c5ebea 100644 --- a/lapacke/src/lapacke_zlapmr.c +++ b/lapacke/src/lapacke_zlapmr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlapmr( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_zlapmr( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, lapack_complex_double* x, lapack_int ldx, lapack_int* k ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlapmr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, x, ldx ) ) { return -5; } #endif - return LAPACKE_zlapmr_work( matrix_order, forwrd, m, n, x, ldx, k ); + return LAPACKE_zlapmr_work( matrix_layout, forwrd, m, n, x, ldx, k ); } diff --git a/lapacke/src/lapacke_zlapmr_work.c b/lapacke/src/lapacke_zlapmr_work.c index 973c09ef..1cc32052 100644 --- a/lapacke/src/lapacke_zlapmr_work.c +++ b/lapacke/src/lapacke_zlapmr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlapmr_work( int matrix_order, lapack_logical forwrd, +lapack_int LAPACKE_zlapmr_work( int matrix_layout, lapack_logical forwrd, lapack_int m, lapack_int n, lapack_complex_double* x, lapack_int ldx, lapack_int* k ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlapmr( &forwrd, &m, &n, x, &ldx, k ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldx_t = MAX(1,m); lapack_complex_double* x_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zlapmr_work( int matrix_order, lapack_logical forwrd, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, x, ldx, x_t, ldx_t ); + LAPACKE_zge_trans( matrix_layout, m, n, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zlapmr( &forwrd, &m, &n, x_t, &ldx_t, k ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlarfb.c b/lapacke/src/lapacke_zlarfb.c index 90377535..6a910ee3 100644 --- a/lapacke/src/lapacke_zlarfb.c +++ b/lapacke/src/lapacke_zlarfb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_zlarfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct, lapack_int ldwork = ( side=='l')?n:(( side=='r')?m:1); lapack_complex_double* work = NULL; lapack_int ncols_v, nrows_v; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlarfb", -1 ); return -1; } @@ -60,16 +60,16 @@ lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct, ( ( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( side, 'r' ) ) ? n : ( LAPACKE_lsame( storev, 'r' ) ? k : 1) ); - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -13; } - if( LAPACKE_zge_nancheck( matrix_order, k, k, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, k, k, t, ldt ) ) { return -11; } if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'f' ) ) { - if( LAPACKE_ztr_nancheck( matrix_order, 'l', 'u', k, v, ldv ) ) + if( LAPACKE_ztr_nancheck( matrix_layout, 'l', 'u', k, v, ldv ) ) return -9; - if( LAPACKE_zge_nancheck( matrix_order, nrows_v-k, ncols_v, &v[k*ldv], + if( LAPACKE_zge_nancheck( matrix_layout, nrows_v-k, ncols_v, &v[k*ldv], ldv ) ) return -9; } else if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'b' ) ) { @@ -77,15 +77,15 @@ lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct, LAPACKE_xerbla( "LAPACKE_zlarfb", -8 ); return -8; } - if( LAPACKE_ztr_nancheck( matrix_order, 'u', 'u', k, + if( LAPACKE_ztr_nancheck( matrix_layout, 'u', 'u', k, &v[(nrows_v-k)*ldv], ldv ) ) return -9; - if( LAPACKE_zge_nancheck( matrix_order, nrows_v-k, ncols_v, v, ldv ) ) + if( LAPACKE_zge_nancheck( matrix_layout, nrows_v-k, ncols_v, v, ldv ) ) return -9; } else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) { - if( LAPACKE_ztr_nancheck( matrix_order, 'u', 'u', k, v, ldv ) ) + if( LAPACKE_ztr_nancheck( matrix_layout, 'u', 'u', k, v, ldv ) ) return -9; - if( LAPACKE_zge_nancheck( matrix_order, nrows_v, ncols_v-k, &v[k], + if( LAPACKE_zge_nancheck( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv ) ) return -9; } else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) { @@ -93,10 +93,10 @@ lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct, LAPACKE_xerbla( "LAPACKE_zlarfb", -8 ); return -8; } - if( LAPACKE_ztr_nancheck( matrix_order, 'l', 'u', k, &v[ncols_v-k], + if( LAPACKE_ztr_nancheck( matrix_layout, 'l', 'u', k, &v[ncols_v-k], ldv ) ) return -9; - if( LAPACKE_zge_nancheck( matrix_order, nrows_v, ncols_v-k, v, ldv ) ) + if( LAPACKE_zge_nancheck( matrix_layout, nrows_v, ncols_v-k, v, ldv ) ) return -9; } #endif @@ -108,7 +108,7 @@ lapack_int LAPACKE_zlarfb( int matrix_order, char side, char trans, char direct, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zlarfb_work( matrix_order, side, trans, direct, storev, m, n, + info = LAPACKE_zlarfb_work( matrix_layout, side, trans, direct, storev, m, n, k, v, ldv, t, ldt, c, ldc, work, ldwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zlarfb_work.c b/lapacke/src/lapacke_zlarfb_work.c index 84e9046c..b69abaf3 100644 --- a/lapacke/src/lapacke_zlarfb_work.c +++ b/lapacke/src/lapacke_zlarfb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zlarfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* v, lapack_int ldv, @@ -45,14 +45,14 @@ lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans, lapack_int nrows_v, ncols_v; lapack_int ldc_t, ldt_t, ldv_t; lapack_complex_double *v_t = NULL, *t_t = NULL, *c_t = NULL; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v, &ldv, t, &ldt, c, &ldc, work, &ldwork ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { nrows_v = ( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( side, 'l' ) ) ? m : ( ( LAPACKE_lsame( storev, 'c' ) && @@ -104,8 +104,8 @@ lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans, } /* Transpose input matrices */ if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'f' ) ) { - LAPACKE_ztr_trans( matrix_order, 'l', 'u', k, v, ldv, v_t, ldv_t ); - LAPACKE_zge_trans( matrix_order, nrows_v-k, ncols_v, &v[k*ldv], ldv, + LAPACKE_ztr_trans( matrix_layout, 'l', 'u', k, v, ldv, v_t, ldv_t ); + LAPACKE_zge_trans( matrix_layout, nrows_v-k, ncols_v, &v[k*ldv], ldv, &v_t[k], ldv_t ); } else if( LAPACKE_lsame( storev, 'c' ) && LAPACKE_lsame( direct, 'b' ) ) { @@ -113,14 +113,14 @@ lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans, LAPACKE_xerbla( "LAPACKE_zlarfb_work", -8 ); return -8; } - LAPACKE_ztr_trans( matrix_order, 'u', 'u', k, &v[(nrows_v-k)*ldv], + LAPACKE_ztr_trans( matrix_layout, 'u', 'u', k, &v[(nrows_v-k)*ldv], ldv, &v_t[nrows_v-k], ldv_t ); - LAPACKE_zge_trans( matrix_order, nrows_v-k, ncols_v, v, ldv, v_t, + LAPACKE_zge_trans( matrix_layout, nrows_v-k, ncols_v, v, ldv, v_t, ldv_t ); } else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) { - LAPACKE_ztr_trans( matrix_order, 'u', 'u', k, v, ldv, v_t, ldv_t ); - LAPACKE_zge_trans( matrix_order, nrows_v, ncols_v-k, &v[k], ldv, + LAPACKE_ztr_trans( matrix_layout, 'u', 'u', k, v, ldv, v_t, ldv_t ); + LAPACKE_zge_trans( matrix_layout, nrows_v, ncols_v-k, &v[k], ldv, &v_t[k*ldv_t], ldv_t ); } else if( LAPACKE_lsame( storev, 'r' ) && LAPACKE_lsame( direct, 'f' ) ) { @@ -128,13 +128,13 @@ lapack_int LAPACKE_zlarfb_work( int matrix_order, char side, char trans, LAPACKE_xerbla( "LAPACKE_zlarfb_work", -8 ); return -8; } - LAPACKE_ztr_trans( matrix_order, 'l', 'u', k, &v[ncols_v-k], ldv, + LAPACKE_ztr_trans( matrix_layout, 'l', 'u', k, &v[ncols_v-k], ldv, &v_t[(ncols_v-k)*ldv_t], ldv_t ); - LAPACKE_zge_trans( matrix_order, nrows_v, ncols_v-k, v, ldv, v_t, + LAPACKE_zge_trans( matrix_layout, nrows_v, ncols_v-k, v, ldv, v_t, ldv_t ); } - LAPACKE_zge_trans( matrix_order, k, k, t, ldt, t_t, ldt_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, k, k, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zlarfb( &side, &trans, &direct, &storev, &m, &n, &k, v_t, &ldv_t, t_t, &ldt_t, c_t, &ldc_t, work, &ldwork ); diff --git a/lapacke/src/lapacke_zlarft.c b/lapacke/src/lapacke_zlarft.c index ad6058d2..0175d267 100644 --- a/lapacke/src/lapacke_zlarft.c +++ b/lapacke/src/lapacke_zlarft.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlarft( int matrix_order, char direct, char storev, +lapack_int LAPACKE_zlarft( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* tau, lapack_complex_double* t, lapack_int ldt ) { lapack_int ncols_v, nrows_v; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlarft", -1 ); return -1; } @@ -53,10 +53,10 @@ lapack_int LAPACKE_zlarft( int matrix_order, char direct, char storev, if( LAPACKE_z_nancheck( k, tau, 1 ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, nrows_v, ncols_v, v, ldv ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_v, ncols_v, v, ldv ) ) { return -6; } #endif - return LAPACKE_zlarft_work( matrix_order, direct, storev, n, k, v, ldv, tau, + return LAPACKE_zlarft_work( matrix_layout, direct, storev, n, k, v, ldv, tau, t, ldt ); } diff --git a/lapacke/src/lapacke_zlarft_work.c b/lapacke/src/lapacke_zlarft_work.c index 01fe9f01..7a4748b0 100644 --- a/lapacke/src/lapacke_zlarft_work.c +++ b/lapacke/src/lapacke_zlarft_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlarft_work( int matrix_order, char direct, char storev, +lapack_int LAPACKE_zlarft_work( int matrix_layout, char direct, char storev, lapack_int n, lapack_int k, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* tau, @@ -43,13 +43,13 @@ lapack_int LAPACKE_zlarft_work( int matrix_order, char direct, char storev, lapack_int nrows_v, ncols_v; lapack_int ldt_t, ldv_t; lapack_complex_double *v_t = NULL, *t_t = NULL; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlarft( &direct, &storev, &n, &k, v, &ldv, tau, t, &ldt ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { nrows_v = LAPACKE_lsame( storev, 'c' ) ? n : ( LAPACKE_lsame( storev, 'r' ) ? k : 1); ncols_v = LAPACKE_lsame( storev, 'c' ) ? k : @@ -82,7 +82,7 @@ lapack_int LAPACKE_zlarft_work( int matrix_order, char direct, char storev, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, nrows_v, ncols_v, v, ldv, v_t, ldv_t ); + LAPACKE_zge_trans( matrix_layout, nrows_v, ncols_v, v, ldv, v_t, ldv_t ); /* Call LAPACK function and adjust info */ LAPACK_zlarft( &direct, &storev, &n, &k, v_t, &ldv_t, tau, t_t, &ldt_t ); diff --git a/lapacke/src/lapacke_zlarfx.c b/lapacke/src/lapacke_zlarfx.c index 5bf6235c..b1b1ec58 100644 --- a/lapacke/src/lapacke_zlarfx.c +++ b/lapacke/src/lapacke_zlarfx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlarfx( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_zlarfx( int matrix_layout, char side, lapack_int m, lapack_int n, const lapack_complex_double* v, lapack_complex_double tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlarfx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -7; } if( LAPACKE_z_nancheck( 1, &tau, 1 ) ) { @@ -54,6 +54,6 @@ lapack_int LAPACKE_zlarfx( int matrix_order, char side, lapack_int m, return -5; } #endif - return LAPACKE_zlarfx_work( matrix_order, side, m, n, v, tau, c, ldc, + return LAPACKE_zlarfx_work( matrix_layout, side, m, n, v, tau, c, ldc, work ); } diff --git a/lapacke/src/lapacke_zlarfx_work.c b/lapacke/src/lapacke_zlarfx_work.c index b9299ba4..a6ad300d 100644 --- a/lapacke/src/lapacke_zlarfx_work.c +++ b/lapacke/src/lapacke_zlarfx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlarfx_work( int matrix_order, char side, lapack_int m, +lapack_int LAPACKE_zlarfx_work( int matrix_layout, char side, lapack_int m, lapack_int n, const lapack_complex_double* v, lapack_complex_double tau, lapack_complex_double* c, lapack_int ldc, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlarfx( &side, &m, &n, v, &tau, c, &ldc, work ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldc_t = MAX(1,m); lapack_complex_double* c_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_zlarfx_work( int matrix_order, char side, lapack_int m, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zlarfx( &side, &m, &n, v, &tau, c_t, &ldc_t, work ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlaset.c b/lapacke/src/lapacke_zlaset.c index 2376d8e0..9b4725be 100644 --- a/lapacke/src/lapacke_zlaset.c +++ b/lapacke/src/lapacke_zlaset.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlaset( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlaset( int matrix_layout, char uplo, lapack_int m, lapack_int n, lapack_complex_double alpha, lapack_complex_double beta, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlaset", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -7; } if( LAPACKE_z_nancheck( 1, &alpha, 1 ) ) { @@ -54,5 +54,5 @@ lapack_int LAPACKE_zlaset( int matrix_order, char uplo, lapack_int m, return -6; } #endif - return LAPACKE_zlaset_work( matrix_order, uplo, m, n, alpha, beta, a, lda ); + return LAPACKE_zlaset_work( matrix_layout, uplo, m, n, alpha, beta, a, lda ); } diff --git a/lapacke/src/lapacke_zlaset_work.c b/lapacke/src/lapacke_zlaset_work.c index 504e7188..4f6ea796 100644 --- a/lapacke/src/lapacke_zlaset_work.c +++ b/lapacke/src/lapacke_zlaset_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlaset_work( int matrix_order, char uplo, lapack_int m, +lapack_int LAPACKE_zlaset_work( int matrix_layout, char uplo, lapack_int m, lapack_int n, lapack_complex_double alpha, lapack_complex_double beta, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + 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_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zlaset_work( int matrix_order, char uplo, lapack_int m, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zlaset( &uplo, &m, &n, &alpha, &beta, a_t, &lda_t ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlaswp.c b/lapacke/src/lapacke_zlaswp.c index 147db872..765e35a3 100644 --- a/lapacke/src/lapacke_zlaswp.c +++ b/lapacke/src/lapacke_zlaswp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlaswp( int matrix_order, lapack_int n, +lapack_int LAPACKE_zlaswp( int matrix_layout, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlaswp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, lda, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, lda, n, a, lda ) ) { return -3; } #endif - return LAPACKE_zlaswp_work( matrix_order, n, a, lda, k1, k2, ipiv, incx ); + return LAPACKE_zlaswp_work( matrix_layout, n, a, lda, k1, k2, ipiv, incx ); } diff --git a/lapacke/src/lapacke_zlaswp_work.c b/lapacke/src/lapacke_zlaswp_work.c index 46219724..219ed6ed 100644 --- a/lapacke/src/lapacke_zlaswp_work.c +++ b/lapacke/src/lapacke_zlaswp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlaswp_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_zlaswp_work( int matrix_layout, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int k1, lapack_int k2, const lapack_int* ipiv, lapack_int incx ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlaswp( &n, a, &lda, &k1, &k2, ipiv, &incx ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,lda); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zlaswp_work( int matrix_order, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, lda, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, lda, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zlaswp( &n, a_t, &lda_t, &k1, &k2, ipiv, &incx ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zlatms.c b/lapacke/src/lapacke_zlatms.c index 86c52603..ca078796 100644 --- a/lapacke/src/lapacke_zlatms.c +++ b/lapacke/src/lapacke_zlatms.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlatms( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlatms( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, double* d, lapack_int mode, double cond, double dmax, lapack_int kl, lapack_int ku, char pack, @@ -41,13 +41,13 @@ lapack_int LAPACKE_zlatms( int matrix_order, lapack_int m, lapack_int n, { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlatms", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -14; } if( LAPACKE_d_nancheck( 1, &cond, 1 ) ) { @@ -68,7 +68,7 @@ lapack_int LAPACKE_zlatms( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zlatms_work( matrix_order, m, n, dist, iseed, sym, d, mode, + info = LAPACKE_zlatms_work( matrix_layout, m, n, dist, iseed, sym, d, mode, cond, dmax, kl, ku, pack, a, lda, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zlatms_work.c b/lapacke/src/lapacke_zlatms_work.c index a06db9aa..a8869287 100644 --- a/lapacke/src/lapacke_zlatms_work.c +++ b/lapacke/src/lapacke_zlatms_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlatms_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zlatms_work( int matrix_layout, lapack_int m, lapack_int n, char dist, lapack_int* iseed, char sym, double* d, lapack_int mode, double cond, double dmax, lapack_int kl, lapack_int ku, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zlatms_work( int matrix_order, lapack_int m, lapack_int n, lapack_int lda, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlatms( &m, &n, &dist, iseed, &sym, d, &mode, &cond, &dmax, &kl, &ku, &pack, a, &lda, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_zlatms_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zlatms( &m, &n, &dist, iseed, &sym, d, &mode, &cond, &dmax, &kl, &ku, &pack, a_t, &lda_t, work, &info ); diff --git a/lapacke/src/lapacke_zlauum.c b/lapacke/src/lapacke_zlauum.c index f35bbcc2..ab6b589d 100644 --- a/lapacke/src/lapacke_zlauum.c +++ b/lapacke/src/lapacke_zlauum.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlauum( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zlauum( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zlauum", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zlauum_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_zlauum_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_zlauum_work.c b/lapacke/src/lapacke_zlauum_work.c index e52e774c..1a512eb7 100644 --- a/lapacke/src/lapacke_zlauum_work.c +++ b/lapacke/src/lapacke_zlauum_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zlauum_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zlauum_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zlauum( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_zlauum_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zlauum( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpbcon.c b/lapacke/src/lapacke_zpbcon.c index a502d351..0f9ddddc 100644 --- a/lapacke/src/lapacke_zpbcon.c +++ b/lapacke/src/lapacke_zpbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbcon( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double anorm, double* rcond ) { lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -5; } if( LAPACKE_d_nancheck( 1, &anorm, 1 ) ) { @@ -66,7 +66,7 @@ lapack_int LAPACKE_zpbcon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zpbcon_work( matrix_order, uplo, n, kd, ab, ldab, anorm, + info = LAPACKE_zpbcon_work( matrix_layout, uplo, n, kd, ab, ldab, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zpbcon_work.c b/lapacke/src/lapacke_zpbcon_work.c index bfd9b58b..f066fa8c 100644 --- a/lapacke/src/lapacke_zpbcon_work.c +++ b/lapacke/src/lapacke_zpbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbcon_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double anorm, double* rcond, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpbcon( &uplo, &n, &kd, ab, &ldab, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_complex_double* ab_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_zpbcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_zpbcon( &uplo, &n, &kd, ab_t, &ldab_t, &anorm, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zpbequ.c b/lapacke/src/lapacke_zpbequ.c index d98c00da..cb851675 100644 --- a/lapacke/src/lapacke_zpbequ.c +++ b/lapacke/src/lapacke_zpbequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbequ( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double* s, double* scond, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpbequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -5; } #endif - return LAPACKE_zpbequ_work( matrix_order, uplo, n, kd, ab, ldab, s, scond, + return LAPACKE_zpbequ_work( matrix_layout, uplo, n, kd, ab, ldab, s, scond, amax ); } diff --git a/lapacke/src/lapacke_zpbequ_work.c b/lapacke/src/lapacke_zpbequ_work.c index 85383a94..bb9ecb89 100644 --- a/lapacke/src/lapacke_zpbequ_work.c +++ b/lapacke/src/lapacke_zpbequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbequ_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double* s, double* scond, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpbequ( &uplo, &n, &kd, ab, &ldab, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_complex_double* ab_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zpbequ_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_zpbequ( &uplo, &n, &kd, ab_t, &ldab_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpbrfs.c b/lapacke/src/lapacke_zpbrfs.c index e8aa6d06..093af8ac 100644 --- a/lapacke/src/lapacke_zpbrfs.c +++ b/lapacke/src/lapacke_zpbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbrfs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* afb, lapack_int ldafb, @@ -44,22 +44,22 @@ lapack_int LAPACKE_zpbrfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, afb, ldafb ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, afb, ldafb ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_zpbrfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zpbrfs_work( matrix_order, uplo, n, kd, nrhs, ab, ldab, afb, + info = LAPACKE_zpbrfs_work( matrix_layout, uplo, n, kd, nrhs, ab, ldab, afb, ldafb, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zpbrfs_work.c b/lapacke/src/lapacke_zpbrfs_work.c index fc3d292f..d5e1b9eb 100644 --- a/lapacke/src/lapacke_zpbrfs_work.c +++ b/lapacke/src/lapacke_zpbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, @@ -45,14 +45,14 @@ lapack_int LAPACKE_zpbrfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpbrfs( &uplo, &n, &kd, &nrhs, ab, &ldab, afb, &ldafb, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldafb_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); @@ -111,11 +111,11 @@ lapack_int LAPACKE_zpbrfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, afb, ldafb, afb_t, + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, afb, ldafb, afb_t, ldafb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zpbrfs( &uplo, &n, &kd, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, diff --git a/lapacke/src/lapacke_zpbstf.c b/lapacke/src/lapacke_zpbstf.c index 2cd2cd24..ac7ab328 100644 --- a/lapacke/src/lapacke_zpbstf.c +++ b/lapacke/src/lapacke_zpbstf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbstf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbstf( int matrix_layout, char uplo, lapack_int n, lapack_int kb, lapack_complex_double* bb, lapack_int ldbb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpbstf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kb, bb, ldbb ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kb, bb, ldbb ) ) { return -5; } #endif - return LAPACKE_zpbstf_work( matrix_order, uplo, n, kb, bb, ldbb ); + return LAPACKE_zpbstf_work( matrix_layout, uplo, n, kb, bb, ldbb ); } diff --git a/lapacke/src/lapacke_zpbstf_work.c b/lapacke/src/lapacke_zpbstf_work.c index c83e374b..2f1e0838 100644 --- a/lapacke/src/lapacke_zpbstf_work.c +++ b/lapacke/src/lapacke_zpbstf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbstf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbstf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kb, lapack_complex_double* bb, lapack_int ldbb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpbstf( &uplo, &n, &kb, bb, &ldbb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldbb_t = MAX(1,kb+1); lapack_complex_double* bb_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_zpbstf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpb_trans( matrix_order, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); + LAPACKE_zpb_trans( matrix_layout, uplo, n, kb, bb, ldbb, bb_t, ldbb_t ); /* Call LAPACK function and adjust info */ LAPACK_zpbstf( &uplo, &n, &kb, bb_t, &ldbb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpbsv.c b/lapacke/src/lapacke_zpbsv.c index 724c4542..84d24070 100644 --- a/lapacke/src/lapacke_zpbsv.c +++ b/lapacke/src/lapacke_zpbsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbsv( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpbsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_zpbsv_work( matrix_order, uplo, n, kd, nrhs, ab, ldab, b, + return LAPACKE_zpbsv_work( matrix_layout, uplo, n, kd, nrhs, ab, ldab, b, ldb ); } diff --git a/lapacke/src/lapacke_zpbsv_work.c b/lapacke/src/lapacke_zpbsv_work.c index 87c520d9..c83ecc4f 100644 --- a/lapacke/src/lapacke_zpbsv_work.c +++ b/lapacke/src/lapacke_zpbsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpbsv( &uplo, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_complex_double* ab_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_zpbsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zpbsv( &uplo, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_zpbsvx.c b/lapacke/src/lapacke_zpbsvx.c index dc8263a4..f32a0cda 100644 --- a/lapacke/src/lapacke_zpbsvx.c +++ b/lapacke/src/lapacke_zpbsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zpbsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, lapack_int ldafb, @@ -45,21 +45,21 @@ lapack_int LAPACKE_zpbsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpbsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -7; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, afb, ldafb ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, afb, ldafb ) ) { return -9; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -81,7 +81,7 @@ lapack_int LAPACKE_zpbsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zpbsvx_work( matrix_order, fact, uplo, n, kd, nrhs, ab, ldab, + info = LAPACKE_zpbsvx_work( matrix_layout, fact, uplo, n, kd, nrhs, ab, ldab, afb, ldafb, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zpbsvx_work.c b/lapacke/src/lapacke_zpbsvx_work.c index 2f1a2c93..7b9d0a43 100644 --- a/lapacke/src/lapacke_zpbsvx_work.c +++ b/lapacke/src/lapacke_zpbsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zpbsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* afb, lapack_int ldafb, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zpbsvx_work( int matrix_order, char fact, char uplo, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpbsvx( &fact, &uplo, &n, &kd, &nrhs, ab, &ldab, afb, &ldafb, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, @@ -52,7 +52,7 @@ lapack_int LAPACKE_zpbsvx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldafb_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); @@ -111,12 +111,12 @@ lapack_int LAPACKE_zpbsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, afb, ldafb, afb_t, + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, afb, ldafb, afb_t, ldafb_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zpbsvx( &fact, &uplo, &n, &kd, &nrhs, ab_t, &ldab_t, afb_t, &ldafb_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, diff --git a/lapacke/src/lapacke_zpbtrf.c b/lapacke/src/lapacke_zpbtrf.c index 729293dd..b72db856 100644 --- a/lapacke/src/lapacke_zpbtrf.c +++ b/lapacke/src/lapacke_zpbtrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbtrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbtrf( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpbtrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -5; } #endif - return LAPACKE_zpbtrf_work( matrix_order, uplo, n, kd, ab, ldab ); + return LAPACKE_zpbtrf_work( matrix_layout, uplo, n, kd, ab, ldab ); } diff --git a/lapacke/src/lapacke_zpbtrf_work.c b/lapacke/src/lapacke_zpbtrf_work.c index 5ee9959b..5c042ce3 100644 --- a/lapacke/src/lapacke_zpbtrf_work.c +++ b/lapacke/src/lapacke_zpbtrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbtrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbtrf_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_complex_double* ab, lapack_int ldab ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpbtrf( &uplo, &n, &kd, ab, &ldab, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_complex_double* ab_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_zpbtrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_zpbtrf( &uplo, &n, &kd, ab_t, &ldab_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpbtrs.c b/lapacke/src/lapacke_zpbtrs.c index 0af74727..1a7ceaf3 100644 --- a/lapacke/src/lapacke_zpbtrs.c +++ b/lapacke/src/lapacke_zpbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbtrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbtrs( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpb_nancheck( matrix_order, uplo, n, kd, ab, ldab ) ) { + if( LAPACKE_zpb_nancheck( matrix_layout, uplo, n, kd, ab, ldab ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_zpbtrs_work( matrix_order, uplo, n, kd, nrhs, ab, ldab, b, + return LAPACKE_zpbtrs_work( matrix_layout, uplo, n, kd, nrhs, ab, ldab, b, ldb ); } diff --git a/lapacke/src/lapacke_zpbtrs_work.c b/lapacke/src/lapacke_zpbtrs_work.c index d0476615..eb7bc66a 100644 --- a/lapacke/src/lapacke_zpbtrs_work.c +++ b/lapacke/src/lapacke_zpbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpbtrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpbtrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpbtrs( &uplo, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_complex_double* ab_t = NULL; @@ -77,8 +77,8 @@ lapack_int LAPACKE_zpbtrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpb_trans( matrix_order, uplo, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpb_trans( matrix_layout, uplo, n, kd, ab, ldab, ab_t, ldab_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zpbtrs( &uplo, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_zpftrf.c b/lapacke/src/lapacke_zpftrf.c index 468080ea..ea74d4a8 100644 --- a/lapacke/src/lapacke_zpftrf.c +++ b/lapacke/src/lapacke_zpftrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpftrf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftrf( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_double* a ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpftrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_zpftrf( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_zpftrf_work( matrix_order, transr, uplo, n, a ); + return LAPACKE_zpftrf_work( matrix_layout, transr, uplo, n, a ); } diff --git a/lapacke/src/lapacke_zpftrf_work.c b/lapacke/src/lapacke_zpftrf_work.c index e926f373..ea6c97b5 100644 --- a/lapacke/src/lapacke_zpftrf_work.c +++ b/lapacke/src/lapacke_zpftrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpftrf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftrf_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_double* a ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpftrf( &transr, &uplo, &n, a, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_zpftrf_work( int matrix_order, char transr, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpf_trans( matrix_order, transr, uplo, n, a, a_t ); + LAPACKE_zpf_trans( matrix_layout, transr, uplo, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_zpftrf( &transr, &uplo, &n, a_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpftri.c b/lapacke/src/lapacke_zpftri.c index 9e3707e7..8dd1995d 100644 --- a/lapacke/src/lapacke_zpftri.c +++ b/lapacke/src/lapacke_zpftri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpftri( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftri( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_double* a ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpftri", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_zpftri( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_zpftri_work( matrix_order, transr, uplo, n, a ); + return LAPACKE_zpftri_work( matrix_layout, transr, uplo, n, a ); } diff --git a/lapacke/src/lapacke_zpftri_work.c b/lapacke/src/lapacke_zpftri_work.c index 911f8520..e9057451 100644 --- a/lapacke/src/lapacke_zpftri_work.c +++ b/lapacke/src/lapacke_zpftri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftri_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_complex_double* a ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpftri( &transr, &uplo, &n, a, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_zpftri_work( int matrix_order, char transr, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpf_trans( matrix_order, transr, uplo, n, a, a_t ); + LAPACKE_zpf_trans( matrix_layout, transr, uplo, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_zpftri( &transr, &uplo, &n, a_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpftrs.c b/lapacke/src/lapacke_zpftrs.c index ae30bd01..f5cf20df 100644 --- a/lapacke/src/lapacke_zpftrs.c +++ b/lapacke/src/lapacke_zpftrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpftrs( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftrs( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpftrs", -1 ); return -1; } @@ -47,10 +47,10 @@ lapack_int LAPACKE_zpftrs( int matrix_order, char transr, char uplo, if( LAPACKE_zpf_nancheck( n, a ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_zpftrs_work( matrix_order, transr, uplo, n, nrhs, a, b, + return LAPACKE_zpftrs_work( matrix_layout, transr, uplo, n, nrhs, a, b, ldb ); } diff --git a/lapacke/src/lapacke_zpftrs_work.c b/lapacke/src/lapacke_zpftrs_work.c index 472a3401..f0876a60 100644 --- a/lapacke/src/lapacke_zpftrs_work.c +++ b/lapacke/src/lapacke_zpftrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpftrs_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_zpftrs_work( int matrix_layout, char transr, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpftrs( &transr, &uplo, &n, &nrhs, a, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; lapack_complex_double* a_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_zpftrs_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zpf_trans( matrix_order, transr, uplo, n, a, a_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpf_trans( matrix_layout, transr, uplo, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_zpftrs( &transr, &uplo, &n, &nrhs, a_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpocon.c b/lapacke/src/lapacke_zpocon.c index 8f1e30eb..3f02939b 100644 --- a/lapacke/src/lapacke_zpocon.c +++ b/lapacke/src/lapacke_zpocon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpocon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpocon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double anorm, double* rcond ) { lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpocon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_d_nancheck( 1, &anorm, 1 ) ) { @@ -66,7 +66,7 @@ lapack_int LAPACKE_zpocon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zpocon_work( matrix_order, uplo, n, a, lda, anorm, rcond, + info = LAPACKE_zpocon_work( matrix_layout, uplo, n, a, lda, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zpocon_work.c b/lapacke/src/lapacke_zpocon_work.c index c7734329..0b485038 100644 --- a/lapacke/src/lapacke_zpocon_work.c +++ b/lapacke/src/lapacke_zpocon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpocon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpocon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double anorm, double* rcond, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpocon( &uplo, &n, a, &lda, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zpocon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zpocon( &uplo, &n, a_t, &lda_t, &anorm, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zpoequ.c b/lapacke/src/lapacke_zpoequ.c index 7086c54e..f7960656 100644 --- a/lapacke/src/lapacke_zpoequ.c +++ b/lapacke/src/lapacke_zpoequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpoequ( int matrix_order, lapack_int n, +lapack_int LAPACKE_zpoequ( int matrix_layout, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpoequ", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -3; } #endif - return LAPACKE_zpoequ_work( matrix_order, n, a, lda, s, scond, amax ); + return LAPACKE_zpoequ_work( matrix_layout, n, a, lda, s, scond, amax ); } diff --git a/lapacke/src/lapacke_zpoequ_work.c b/lapacke/src/lapacke_zpoequ_work.c index a94c7914..7f3b2301 100644 --- a/lapacke/src/lapacke_zpoequ_work.c +++ b/lapacke/src/lapacke_zpoequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpoequ_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_zpoequ_work( int matrix_layout, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpoequ( &n, a, &lda, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_zpoequ_work( int matrix_order, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zpoequ( &n, a_t, &lda_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpoequb.c b/lapacke/src/lapacke_zpoequb.c index b25082d3..a6ddeea7 100644 --- a/lapacke/src/lapacke_zpoequb.c +++ b/lapacke/src/lapacke_zpoequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpoequb( int matrix_order, lapack_int n, +lapack_int LAPACKE_zpoequb( int matrix_layout, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpoequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -3; } #endif - return LAPACKE_zpoequb_work( matrix_order, n, a, lda, s, scond, amax ); + return LAPACKE_zpoequb_work( matrix_layout, n, a, lda, s, scond, amax ); } diff --git a/lapacke/src/lapacke_zpoequb_work.c b/lapacke/src/lapacke_zpoequb_work.c index 7b10673d..94e37b23 100644 --- a/lapacke/src/lapacke_zpoequb_work.c +++ b/lapacke/src/lapacke_zpoequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpoequb_work( int matrix_order, lapack_int n, +lapack_int LAPACKE_zpoequb_work( int matrix_layout, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpoequb( &n, a, &lda, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_zpoequb_work( int matrix_order, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zpoequb( &n, a_t, &lda_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zporfs.c b/lapacke/src/lapacke_zporfs.c index 508aa357..9acc3471 100644 --- a/lapacke/src/lapacke_zporfs.c +++ b/lapacke/src/lapacke_zporfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zporfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zporfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_complex_double* b, @@ -43,22 +43,22 @@ lapack_int LAPACKE_zporfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zporfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -11; } #endif @@ -75,7 +75,7 @@ lapack_int LAPACKE_zporfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zporfs_work( matrix_order, uplo, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_zporfs_work( matrix_layout, uplo, n, nrhs, a, lda, af, ldaf, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zporfs_work.c b/lapacke/src/lapacke_zporfs_work.c index 17e35aee..2e5231cd 100644 --- a/lapacke/src/lapacke_zporfs_work.c +++ b/lapacke/src/lapacke_zporfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zporfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zporfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_complex_double* b, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zporfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zporfs( &uplo, &n, &nrhs, a, &lda, af, &ldaf, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -107,10 +107,10 @@ lapack_int LAPACKE_zporfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zporfs( &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zporfsx.c b/lapacke/src/lapacke_zporfsx.c index 0bc11ed9..6c0f7d88 100644 --- a/lapacke/src/lapacke_zporfsx.c +++ b/lapacke/src/lapacke_zporfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zporfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zporfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, @@ -47,19 +47,19 @@ lapack_int LAPACKE_zporfsx( int matrix_order, char uplo, char equed, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zporfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -11; } if( nparams>0 ) { @@ -72,7 +72,7 @@ lapack_int LAPACKE_zporfsx( int matrix_order, char uplo, char equed, return -10; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -13; } #endif @@ -89,7 +89,7 @@ lapack_int LAPACKE_zporfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zporfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_zporfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_zporfsx_work.c b/lapacke/src/lapacke_zporfsx_work.c index 430930d2..f1c7a288 100644 --- a/lapacke/src/lapacke_zporfsx_work.c +++ b/lapacke/src/lapacke_zporfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zporfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zporfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zporfsx_work( int matrix_order, char uplo, char equed, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zporfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, err_bnds_norm, @@ -55,7 +55,7 @@ lapack_int LAPACKE_zporfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -127,10 +127,10 @@ lapack_int LAPACKE_zporfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zporfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, &n_err_bnds, diff --git a/lapacke/src/lapacke_zposv.c b/lapacke/src/lapacke_zposv.c index fd97d093..c8c127b7 100644 --- a/lapacke/src/lapacke_zposv.c +++ b/lapacke/src/lapacke_zposv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zposv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zposv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zposv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_zposv_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb ); + return LAPACKE_zposv_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_zposv_work.c b/lapacke/src/lapacke_zposv_work.c index 2f5badf9..fbb90904 100644 --- a/lapacke/src/lapacke_zposv_work.c +++ b/lapacke/src/lapacke_zposv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zposv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zposv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zposv( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_zposv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zposv( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zposvx.c b/lapacke/src/lapacke_zposvx.c index 3daceca9..7269ef03 100644 --- a/lapacke/src/lapacke_zposvx.c +++ b/lapacke/src/lapacke_zposvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zposvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zposvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, char* equed, double* s, @@ -44,21 +44,21 @@ lapack_int LAPACKE_zposvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zposvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -80,7 +80,7 @@ lapack_int LAPACKE_zposvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zposvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_zposvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zposvx_work.c b/lapacke/src/lapacke_zposvx_work.c index 48ca7286..9bfbec97 100644 --- a/lapacke/src/lapacke_zposvx_work.c +++ b/lapacke/src/lapacke_zposvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zposvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zposvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -44,14 +44,14 @@ lapack_int LAPACKE_zposvx_work( int matrix_order, char fact, char uplo, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zposvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -109,11 +109,11 @@ lapack_int LAPACKE_zposvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zposvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, diff --git a/lapacke/src/lapacke_zposvxx.c b/lapacke/src/lapacke_zposvxx.c index 9a4479dc..75fdabfc 100644 --- a/lapacke/src/lapacke_zposvxx.c +++ b/lapacke/src/lapacke_zposvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zposvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zposvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -47,21 +47,21 @@ lapack_int LAPACKE_zposvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zposvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( nparams>0 ) { @@ -88,7 +88,7 @@ lapack_int LAPACKE_zposvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zposvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_zposvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_zposvxx_work.c b/lapacke/src/lapacke_zposvxx_work.c index 72b859b6..1fcaa97e 100644 --- a/lapacke/src/lapacke_zposvxx_work.c +++ b/lapacke/src/lapacke_zposvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zposvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zposvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, &n_err_bnds, @@ -56,7 +56,7 @@ lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -128,11 +128,11 @@ lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zpo_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zposvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, berr, @@ -152,9 +152,9 @@ lapack_int LAPACKE_zposvxx_work( int matrix_order, char fact, char uplo, LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_zpotrf.c b/lapacke/src/lapacke_zpotrf.c index f7c4c6af..ee2b598e 100644 --- a/lapacke/src/lapacke_zpotrf.c +++ b/lapacke/src/lapacke_zpotrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpotrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpotrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zpotrf_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_zpotrf_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_zpotrf_work.c b/lapacke/src/lapacke_zpotrf_work.c index 107a6b33..a7051267 100644 --- a/lapacke/src/lapacke_zpotrf_work.c +++ b/lapacke/src/lapacke_zpotrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpotrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpotrf( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_zpotrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zpotrf( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpotri.c b/lapacke/src/lapacke_zpotri.c index 4f3d74e8..933f1a57 100644 --- a/lapacke/src/lapacke_zpotri.c +++ b/lapacke/src/lapacke_zpotri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpotri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpotri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif - return LAPACKE_zpotri_work( matrix_order, uplo, n, a, lda ); + return LAPACKE_zpotri_work( matrix_layout, uplo, n, a, lda ); } diff --git a/lapacke/src/lapacke_zpotri_work.c b/lapacke/src/lapacke_zpotri_work.c index b24bc4d3..615c0167 100644 --- a/lapacke/src/lapacke_zpotri_work.c +++ b/lapacke/src/lapacke_zpotri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpotri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpotri( &uplo, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -60,7 +60,7 @@ lapack_int LAPACKE_zpotri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zpotri( &uplo, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpotrs.c b/lapacke/src/lapacke_zpotrs.c index ce61b541..98c5e8bc 100644 --- a/lapacke/src/lapacke_zpotrs.c +++ b/lapacke/src/lapacke_zpotrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpotrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpotrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_zpotrs_work( matrix_order, uplo, n, nrhs, a, lda, b, ldb ); + return LAPACKE_zpotrs_work( matrix_layout, uplo, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_zpotrs_work.c b/lapacke/src/lapacke_zpotrs_work.c index a65295ef..71a1979d 100644 --- a/lapacke/src/lapacke_zpotrs_work.c +++ b/lapacke/src/lapacke_zpotrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpotrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpotrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpotrs( &uplo, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_zpotrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zpotrs( &uplo, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zppcon.c b/lapacke/src/lapacke_zppcon.c index 82f5c01b..4149ca70 100644 --- a/lapacke/src/lapacke_zppcon.c +++ b/lapacke/src/lapacke_zppcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zppcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, double anorm, double* rcond ) { lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zppcon", -1 ); return -1; } @@ -66,7 +66,7 @@ lapack_int LAPACKE_zppcon( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zppcon_work( matrix_order, uplo, n, ap, anorm, rcond, work, + info = LAPACKE_zppcon_work( matrix_layout, uplo, n, ap, anorm, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zppcon_work.c b/lapacke/src/lapacke_zppcon_work.c index 02d0d0d6..725a7016 100644 --- a/lapacke/src/lapacke_zppcon_work.c +++ b/lapacke/src/lapacke_zppcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zppcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, double anorm, double* rcond, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zppcon( &uplo, &n, ap, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_zppcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zppcon( &uplo, &n, ap_t, &anorm, rcond, work, rwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zppequ.c b/lapacke/src/lapacke_zppequ.c index c8653488..2920f7dd 100644 --- a/lapacke/src/lapacke_zppequ.c +++ b/lapacke/src/lapacke_zppequ.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zppequ( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppequ( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, double* s, double* scond, double* amax ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zppequ", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_zppequ( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_zppequ_work( matrix_order, uplo, n, ap, s, scond, amax ); + return LAPACKE_zppequ_work( matrix_layout, uplo, n, ap, s, scond, amax ); } diff --git a/lapacke/src/lapacke_zppequ_work.c b/lapacke/src/lapacke_zppequ_work.c index 08ed44e6..14a39c77 100644 --- a/lapacke/src/lapacke_zppequ_work.c +++ b/lapacke/src/lapacke_zppequ_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zppequ_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppequ_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, double* s, double* scond, double* amax ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zppequ( &uplo, &n, ap, s, scond, amax, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -55,7 +55,7 @@ lapack_int LAPACKE_zppequ_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zppequ( &uplo, &n, ap_t, s, scond, amax, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpprfs.c b/lapacke/src/lapacke_zpprfs.c index 8e79547f..5439a355 100644 --- a/lapacke/src/lapacke_zpprfs.c +++ b/lapacke/src/lapacke_zpprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, const lapack_complex_double* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_zpprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpprfs", -1 ); return -1; } @@ -55,10 +55,10 @@ lapack_int LAPACKE_zpprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -9; } #endif @@ -75,7 +75,7 @@ lapack_int LAPACKE_zpprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zpprfs_work( matrix_order, uplo, n, nrhs, ap, afp, b, ldb, x, + info = LAPACKE_zpprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zpprfs_work.c b/lapacke/src/lapacke_zpprfs_work.c index 84157d55..9f746ea1 100644 --- a/lapacke/src/lapacke_zpprfs_work.c +++ b/lapacke/src/lapacke_zpprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, @@ -43,14 +43,14 @@ lapack_int LAPACKE_zpprfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpprfs( &uplo, &n, &nrhs, ap, afp, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -98,10 +98,10 @@ lapack_int LAPACKE_zpprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_zpp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_zpprfs( &uplo, &n, &nrhs, ap_t, afp_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zppsv.c b/lapacke/src/lapacke_zppsv.c index 0f350b17..e0e87afe 100644 --- a/lapacke/src/lapacke_zppsv.c +++ b/lapacke/src/lapacke_zppsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zppsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zppsv", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_zppsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } #endif - return LAPACKE_zppsv_work( matrix_order, uplo, n, nrhs, ap, b, ldb ); + return LAPACKE_zppsv_work( matrix_layout, uplo, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_zppsv_work.c b/lapacke/src/lapacke_zppsv_work.c index 61434a88..e6883b34 100644 --- a/lapacke/src/lapacke_zppsv_work.c +++ b/lapacke/src/lapacke_zppsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zppsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zppsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zppsv( &uplo, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; lapack_complex_double* ap_t = NULL; @@ -70,8 +70,8 @@ lapack_int LAPACKE_zppsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zppsv( &uplo, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zppsvx.c b/lapacke/src/lapacke_zppsvx.c index db91df8e..7a625b63 100644 --- a/lapacke/src/lapacke_zppsvx.c +++ b/lapacke/src/lapacke_zppsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zppsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zppsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_complex_double* afp, char* equed, double* s, lapack_complex_double* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_zppsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zppsvx", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_zppsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_zpp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } if( LAPACKE_lsame( fact, 'f' ) && LAPACKE_lsame( *equed, 'y' ) ) { @@ -79,7 +79,7 @@ lapack_int LAPACKE_zppsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zppsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_zppsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zppsvx_work.c b/lapacke/src/lapacke_zppsvx_work.c index e1253f2c..6bbf3426 100644 --- a/lapacke/src/lapacke_zppsvx_work.c +++ b/lapacke/src/lapacke_zppsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zppsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zppsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_complex_double* afp, char* equed, @@ -44,14 +44,14 @@ lapack_int LAPACKE_zppsvx_work( int matrix_order, char fact, char uplo, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zppsvx( &fact, &uplo, &n, &nrhs, ap, afp, equed, s, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -99,10 +99,10 @@ lapack_int LAPACKE_zppsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zpp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_zppsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, equed, s, b_t, diff --git a/lapacke/src/lapacke_zpptrf.c b/lapacke/src/lapacke_zpptrf.c index 08075fe6..8fdd8ca3 100644 --- a/lapacke/src/lapacke_zpptrf.c +++ b/lapacke/src/lapacke_zpptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_zpptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_zpptrf_work( matrix_order, uplo, n, ap ); + return LAPACKE_zpptrf_work( matrix_layout, uplo, n, ap ); } diff --git a/lapacke/src/lapacke_zpptrf_work.c b/lapacke/src/lapacke_zpptrf_work.c index 6966b360..9ae49432 100644 --- a/lapacke/src/lapacke_zpptrf_work.c +++ b/lapacke/src/lapacke_zpptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpptrf( &uplo, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_zpptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zpptrf( &uplo, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpptri.c b/lapacke/src/lapacke_zpptri.c index 21393ee1..ab671170 100644 --- a/lapacke/src/lapacke_zpptri.c +++ b/lapacke/src/lapacke_zpptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpptri", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_zpptri( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_zpptri_work( matrix_order, uplo, n, ap ); + return LAPACKE_zpptri_work( matrix_layout, uplo, n, ap ); } diff --git a/lapacke/src/lapacke_zpptri_work.c b/lapacke/src/lapacke_zpptri_work.c index b541dc95..4bf06219 100644 --- a/lapacke/src/lapacke_zpptri_work.c +++ b/lapacke/src/lapacke_zpptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpptri( &uplo, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_zpptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zpptri( &uplo, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpptrs.c b/lapacke/src/lapacke_zpptrs.c index 40eb932b..eb111691 100644 --- a/lapacke/src/lapacke_zpptrs.c +++ b/lapacke/src/lapacke_zpptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpptrs", -1 ); return -1; } @@ -46,9 +46,9 @@ lapack_int LAPACKE_zpptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zpp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } #endif - return LAPACKE_zpptrs_work( matrix_order, uplo, n, nrhs, ap, b, ldb ); + return LAPACKE_zpptrs_work( matrix_layout, uplo, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_zpptrs_work.c b/lapacke/src/lapacke_zpptrs_work.c index 6df83e79..2be54c7a 100644 --- a/lapacke/src/lapacke_zpptrs_work.c +++ b/lapacke/src/lapacke_zpptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpptrs( &uplo, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; lapack_complex_double* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_zpptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zpptrs( &uplo, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpstrf.c b/lapacke/src/lapacke_zpstrf.c index 8967d098..3a5a426a 100644 --- a/lapacke/src/lapacke_zpstrf.c +++ b/lapacke/src/lapacke_zpstrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpstrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpstrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* piv, lapack_int* rank, double tol ) { lapack_int info = 0; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpstrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zpo_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zpo_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_d_nancheck( 1, &tol, 1 ) ) { @@ -59,7 +59,7 @@ lapack_int LAPACKE_zpstrf( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zpstrf_work( matrix_order, uplo, n, a, lda, piv, rank, tol, + info = LAPACKE_zpstrf_work( matrix_layout, uplo, n, a, lda, piv, rank, tol, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zpstrf_work.c b/lapacke/src/lapacke_zpstrf_work.c index 3b8df213..b2b3d7da 100644 --- a/lapacke/src/lapacke_zpstrf_work.c +++ b/lapacke/src/lapacke_zpstrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpstrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpstrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* piv, lapack_int* rank, double tol, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpstrf( &uplo, &n, a, &lda, piv, rank, &tol, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zpstrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zpo_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zpo_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zpstrf( &uplo, &n, a_t, &lda_t, piv, rank, &tol, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zpteqr.c b/lapacke/src/lapacke_zpteqr.c index 22db0182..58baa333 100644 --- a/lapacke/src/lapacke_zpteqr.c +++ b/lapacke/src/lapacke_zpteqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpteqr( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zpteqr( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz ) { @@ -41,7 +41,7 @@ lapack_int LAPACKE_zpteqr( int matrix_order, char compz, lapack_int n, /* Additional scalars declarations for work arrays */ lapack_int lwork; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpteqr", -1 ); return -1; } @@ -54,7 +54,7 @@ lapack_int LAPACKE_zpteqr( int matrix_order, char compz, lapack_int n, return -5; } if( LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } @@ -72,7 +72,7 @@ lapack_int LAPACKE_zpteqr( int matrix_order, char compz, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zpteqr_work( matrix_order, compz, n, d, e, z, ldz, work ); + info = LAPACKE_zpteqr_work( matrix_layout, compz, n, d, e, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zpteqr_work.c b/lapacke/src/lapacke_zpteqr_work.c index f0899343..b53f817c 100644 --- a/lapacke/src/lapacke_zpteqr_work.c +++ b/lapacke/src/lapacke_zpteqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zpteqr_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpteqr( &compz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zpteqr_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_zge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_zpteqr( &compz, &n, d, e, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_zptrfs.c b/lapacke/src/lapacke_zptrfs.c index 7a923cfa..1b75d5d8 100644 --- a/lapacke/src/lapacke_zptrfs.c +++ b/lapacke/src/lapacke_zptrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zptrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zptrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, const double* df, const lapack_complex_double* ef, @@ -44,13 +44,13 @@ lapack_int LAPACKE_zptrfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zptrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } if( LAPACKE_d_nancheck( n, d, 1 ) ) { @@ -65,7 +65,7 @@ lapack_int LAPACKE_zptrfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_z_nancheck( n-1, ef, 1 ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -11; } #endif @@ -82,7 +82,7 @@ lapack_int LAPACKE_zptrfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zptrfs_work( matrix_order, uplo, n, nrhs, d, e, df, ef, b, + info = LAPACKE_zptrfs_work( matrix_layout, uplo, n, nrhs, d, e, df, ef, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zptrfs_work.c b/lapacke/src/lapacke_zptrfs_work.c index 10f0ce0f..9178d08a 100644 --- a/lapacke/src/lapacke_zptrfs_work.c +++ b/lapacke/src/lapacke_zptrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zptrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zptrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, const double* df, @@ -44,14 +44,14 @@ lapack_int LAPACKE_zptrfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zptrfs( &uplo, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -83,8 +83,8 @@ lapack_int LAPACKE_zptrfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zptrfs( &uplo, &n, &nrhs, d, e, df, ef, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zptsv.c b/lapacke/src/lapacke_zptsv.c index 2aec21de..7e282cf4 100644 --- a/lapacke/src/lapacke_zptsv.c +++ b/lapacke/src/lapacke_zptsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zptsv( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zptsv( int matrix_layout, lapack_int n, lapack_int nrhs, double* d, lapack_complex_double* e, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zptsv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -6; } if( LAPACKE_d_nancheck( n, d, 1 ) ) { @@ -53,5 +53,5 @@ lapack_int LAPACKE_zptsv( int matrix_order, lapack_int n, lapack_int nrhs, return -5; } #endif - return LAPACKE_zptsv_work( matrix_order, n, nrhs, d, e, b, ldb ); + return LAPACKE_zptsv_work( matrix_layout, n, nrhs, d, e, b, ldb ); } diff --git a/lapacke/src/lapacke_zptsv_work.c b/lapacke/src/lapacke_zptsv_work.c index ccd909e9..2f2df104 100644 --- a/lapacke/src/lapacke_zptsv_work.c +++ b/lapacke/src/lapacke_zptsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, +lapack_int LAPACKE_zptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, double* d, lapack_complex_double* e, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zptsv( &n, &nrhs, d, e, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zptsv_work( int matrix_order, lapack_int n, lapack_int nrhs, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zptsv( &n, &nrhs, d, e, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zptsvx.c b/lapacke/src/lapacke_zptsvx.c index 2aa7809f..24279df9 100644 --- a/lapacke/src/lapacke_zptsvx.c +++ b/lapacke/src/lapacke_zptsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zptsvx( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_zptsvx( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, double* df, lapack_complex_double* ef, @@ -44,13 +44,13 @@ lapack_int LAPACKE_zptsvx( int matrix_order, char fact, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zptsvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } if( LAPACKE_d_nancheck( n, d, 1 ) ) { @@ -83,7 +83,7 @@ lapack_int LAPACKE_zptsvx( int matrix_order, char fact, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zptsvx_work( matrix_order, fact, n, nrhs, d, e, df, ef, b, + info = LAPACKE_zptsvx_work( matrix_layout, fact, n, nrhs, d, e, df, ef, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zptsvx_work.c b/lapacke/src/lapacke_zptsvx_work.c index 026ca63e..ca27bd23 100644 --- a/lapacke/src/lapacke_zptsvx_work.c +++ b/lapacke/src/lapacke_zptsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zptsvx_work( int matrix_order, char fact, lapack_int n, +lapack_int LAPACKE_zptsvx_work( int matrix_layout, char fact, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, double* df, lapack_complex_double* ef, @@ -43,14 +43,14 @@ lapack_int LAPACKE_zptsvx_work( int matrix_order, char fact, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zptsvx( &fact, &n, &nrhs, d, e, df, ef, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -82,7 +82,7 @@ lapack_int LAPACKE_zptsvx_work( int matrix_order, char fact, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zptsvx( &fact, &n, &nrhs, d, e, df, ef, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zpttrs.c b/lapacke/src/lapacke_zpttrs.c index a5455727..851ae72e 100644 --- a/lapacke/src/lapacke_zpttrs.c +++ b/lapacke/src/lapacke_zpttrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpttrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpttrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zpttrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } if( LAPACKE_d_nancheck( n, d, 1 ) ) { @@ -54,5 +54,5 @@ lapack_int LAPACKE_zpttrs( int matrix_order, char uplo, lapack_int n, return -6; } #endif - return LAPACKE_zpttrs_work( matrix_order, uplo, n, nrhs, d, e, b, ldb ); + return LAPACKE_zpttrs_work( matrix_layout, uplo, n, nrhs, d, e, b, ldb ); } diff --git a/lapacke/src/lapacke_zpttrs_work.c b/lapacke/src/lapacke_zpttrs_work.c index abb22500..27942a43 100644 --- a/lapacke/src/lapacke_zpttrs_work.c +++ b/lapacke/src/lapacke_zpttrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zpttrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zpttrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const double* d, const lapack_complex_double* e, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zpttrs( &uplo, &n, &nrhs, d, e, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_zpttrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zpttrs( &uplo, &n, &nrhs, d, e, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zspcon.c b/lapacke/src/lapacke_zspcon.c index 85ce7fae..626aa2f1 100644 --- a/lapacke/src/lapacke_zspcon.c +++ b/lapacke/src/lapacke_zspcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zspcon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zspcon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_int* ipiv, double anorm, double* rcond ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zspcon", -1 ); return -1; } @@ -60,7 +60,7 @@ lapack_int LAPACKE_zspcon( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zspcon_work( matrix_order, uplo, n, ap, ipiv, anorm, rcond, + info = LAPACKE_zspcon_work( matrix_layout, uplo, n, ap, ipiv, anorm, rcond, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zspcon_work.c b/lapacke/src/lapacke_zspcon_work.c index 40cb637f..6f139610 100644 --- a/lapacke/src/lapacke_zspcon_work.c +++ b/lapacke/src/lapacke_zspcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zspcon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zspcon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zspcon( &uplo, &n, ap, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_zspcon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zspcon( &uplo, &n, ap_t, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsprfs.c b/lapacke/src/lapacke_zsprfs.c index 63644999..129b4270 100644 --- a/lapacke/src/lapacke_zsprfs.c +++ b/lapacke/src/lapacke_zsprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsprfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsprfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, const lapack_int* ipiv, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zsprfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsprfs", -1 ); return -1; } @@ -56,10 +56,10 @@ lapack_int LAPACKE_zsprfs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zsp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_zsprfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zsprfs_work( matrix_order, uplo, n, nrhs, ap, afp, ipiv, b, + info = LAPACKE_zsprfs_work( matrix_layout, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsprfs_work.c b/lapacke/src/lapacke_zsprfs_work.c index e58c42df..377f5161 100644 --- a/lapacke/src/lapacke_zsprfs_work.c +++ b/lapacke/src/lapacke_zsprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsprfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsprfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* afp, @@ -44,14 +44,14 @@ lapack_int LAPACKE_zsprfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsprfs( &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -99,10 +99,10 @@ lapack_int LAPACKE_zsprfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_zsp_trans( matrix_order, uplo, n, ap, ap_t ); - LAPACKE_zsp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, ap, ap_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, afp, afp_t ); /* Call LAPACK function and adjust info */ LAPACK_zsprfs( &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zspsv.c b/lapacke/src/lapacke_zspsv.c index 2c92fa51..cf5c6613 100644 --- a/lapacke/src/lapacke_zspsv.c +++ b/lapacke/src/lapacke_zspsv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zspsv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zspsv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zspsv", -1 ); return -1; } @@ -47,9 +47,9 @@ lapack_int LAPACKE_zspsv( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zsp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_zspsv_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_zspsv_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_zspsv_work.c b/lapacke/src/lapacke_zspsv_work.c index 14f6fa66..b32fbbe8 100644 --- a/lapacke/src/lapacke_zspsv_work.c +++ b/lapacke/src/lapacke_zspsv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zspsv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zspsv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* ap, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zspsv( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; lapack_complex_double* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_zspsv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zspsv( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zspsvx.c b/lapacke/src/lapacke_zspsvx.c index f149bd77..40ffb73b 100644 --- a/lapacke/src/lapacke_zspsvx.c +++ b/lapacke/src/lapacke_zspsvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zspsvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zspsvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* afp, lapack_int* ipiv, const lapack_complex_double* b, lapack_int ldb, @@ -43,7 +43,7 @@ lapack_int LAPACKE_zspsvx( int matrix_order, char fact, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zspsvx", -1 ); return -1; } @@ -57,7 +57,7 @@ lapack_int LAPACKE_zspsvx( int matrix_order, char fact, char uplo, lapack_int n, if( LAPACKE_zsp_nancheck( n, ap ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif @@ -74,7 +74,7 @@ lapack_int LAPACKE_zspsvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zspsvx_work( matrix_order, fact, uplo, n, nrhs, ap, afp, + info = LAPACKE_zspsvx_work( matrix_layout, fact, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zspsvx_work.c b/lapacke/src/lapacke_zspsvx_work.c index aa0ea42d..9fd23fcf 100644 --- a/lapacke/src/lapacke_zspsvx_work.c +++ b/lapacke/src/lapacke_zspsvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zspsvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zspsvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* afp, lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_zspsvx_work( int matrix_order, char fact, char uplo, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zspsvx( &fact, &uplo, &n, &nrhs, ap, afp, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -98,10 +98,10 @@ lapack_int LAPACKE_zspsvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, ap, ap_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zsp_trans( matrix_order, uplo, n, afp, afp_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, afp, afp_t ); } /* Call LAPACK function and adjust info */ LAPACK_zspsvx( &fact, &uplo, &n, &nrhs, ap_t, afp_t, ipiv, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_zsptrf.c b/lapacke/src/lapacke_zsptrf.c index 34847fb6..872cdb13 100644 --- a/lapacke/src/lapacke_zsptrf.c +++ b/lapacke/src/lapacke_zsptrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,10 +33,10 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsptrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, lapack_int* ipiv ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsptrf", -1 ); return -1; } @@ -46,5 +46,5 @@ lapack_int LAPACKE_zsptrf( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_zsptrf_work( matrix_order, uplo, n, ap, ipiv ); + return LAPACKE_zsptrf_work( matrix_layout, uplo, n, ap, ipiv ); } diff --git a/lapacke/src/lapacke_zsptrf_work.c b/lapacke/src/lapacke_zsptrf_work.c index c6df8c57..63059761 100644 --- a/lapacke/src/lapacke_zsptrf_work.c +++ b/lapacke/src/lapacke_zsptrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsptrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, lapack_int* ipiv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsptrf( &uplo, &n, ap, ipiv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_zsptrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zsptrf( &uplo, &n, ap_t, ipiv, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsptri.c b/lapacke/src/lapacke_zsptri.c index d40cd1b6..bfa3026e 100644 --- a/lapacke/src/lapacke_zsptri.c +++ b/lapacke/src/lapacke_zsptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsptri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsptri", -1 ); return -1; } @@ -56,7 +56,7 @@ lapack_int LAPACKE_zsptri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsptri_work( matrix_order, uplo, n, ap, ipiv, work ); + info = LAPACKE_zsptri_work( matrix_layout, uplo, n, ap, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zsptri_work.c b/lapacke/src/lapacke_zsptri_work.c index c86f318e..19e96f6a 100644 --- a/lapacke/src/lapacke_zsptri_work.c +++ b/lapacke/src/lapacke_zsptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsptri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsptri( &uplo, &n, ap, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_zsptri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zsptri( &uplo, &n, ap_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsptrs.c b/lapacke/src/lapacke_zsptrs.c index 0be46121..a6ed6e5d 100644 --- a/lapacke/src/lapacke_zsptrs.c +++ b/lapacke/src/lapacke_zsptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,12 +33,12 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsptrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsptrs", -1 ); return -1; } @@ -47,9 +47,9 @@ lapack_int LAPACKE_zsptrs( int matrix_order, char uplo, lapack_int n, if( LAPACKE_zsp_nancheck( n, ap ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -7; } #endif - return LAPACKE_zsptrs_work( matrix_order, uplo, n, nrhs, ap, ipiv, b, ldb ); + return LAPACKE_zsptrs_work( matrix_layout, uplo, n, nrhs, ap, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_zsptrs_work.c b/lapacke/src/lapacke_zsptrs_work.c index f91c251c..65eef367 100644 --- a/lapacke/src/lapacke_zsptrs_work.c +++ b/lapacke/src/lapacke_zsptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsptrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsptrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsptrs( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; lapack_complex_double* ap_t = NULL; @@ -72,8 +72,8 @@ lapack_int LAPACKE_zsptrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zsp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zsp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zsptrs( &uplo, &n, &nrhs, ap_t, ipiv, b_t, &ldb_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zstedc.c b/lapacke/src/lapacke_zstedc.c index 225aabdc..747651dd 100644 --- a/lapacke/src/lapacke_zstedc.c +++ b/lapacke/src/lapacke_zstedc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zstedc( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zstedc( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz ) { @@ -47,7 +47,7 @@ lapack_int LAPACKE_zstedc( int matrix_order, char compz, lapack_int n, lapack_int iwork_query; double rwork_query; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zstedc", -1 ); return -1; } @@ -60,13 +60,13 @@ lapack_int LAPACKE_zstedc( int matrix_order, char compz, lapack_int n, return -5; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zstedc_work( matrix_order, compz, n, d, e, z, ldz, + info = LAPACKE_zstedc_work( matrix_layout, compz, n, d, e, z, ldz, &work_query, lwork, &rwork_query, lrwork, &iwork_query, liwork ); if( info != 0 ) { @@ -93,7 +93,7 @@ lapack_int LAPACKE_zstedc( int matrix_order, char compz, lapack_int n, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zstedc_work( matrix_order, compz, n, d, e, z, ldz, work, + info = LAPACKE_zstedc_work( matrix_layout, compz, n, d, e, z, ldz, work, lwork, rwork, lrwork, iwork, liwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zstedc_work.c b/lapacke/src/lapacke_zstedc_work.c index fafc47ee..91aece10 100644 --- a/lapacke/src/lapacke_zstedc_work.c +++ b/lapacke/src/lapacke_zstedc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zstedc_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zstedc_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz, lapack_complex_double* work, lapack_int lwork, double* rwork, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zstedc_work( int matrix_order, char compz, lapack_int n, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zstedc( &compz, &n, d, e, z, &ldz, work, &lwork, rwork, &lrwork, iwork, &liwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; /* Check leading dimension(s) */ @@ -75,7 +75,7 @@ lapack_int LAPACKE_zstedc_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_zge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_zstedc( &compz, &n, d, e, z_t, &ldz_t, work, &lwork, rwork, diff --git a/lapacke/src/lapacke_zstegr.c b/lapacke/src/lapacke_zstegr.c index bb6245a5..f73750d4 100644 --- a/lapacke/src/lapacke_zstegr.c +++ b/lapacke/src/lapacke_zstegr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zstegr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zstegr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zstegr( int matrix_order, char jobz, char range, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zstegr", -1 ); return -1; } @@ -74,7 +74,7 @@ lapack_int LAPACKE_zstegr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zstegr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_zstegr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -94,7 +94,7 @@ lapack_int LAPACKE_zstegr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zstegr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_zstegr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zstegr_work.c b/lapacke/src/lapacke_zstegr_work.c index 3ed18949..c2c37712 100644 --- a/lapacke/src/lapacke_zstegr_work.c +++ b/lapacke/src/lapacke_zstegr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zstegr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zstegr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, double abstol, lapack_int* m, double* w, @@ -43,7 +43,7 @@ lapack_int LAPACKE_zstegr_work( int matrix_order, char jobz, char range, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zstegr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, &abstol, m, w, z, &ldz, isuppz, work, &lwork, iwork, &liwork, @@ -51,7 +51,7 @@ lapack_int LAPACKE_zstegr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_zstein.c b/lapacke/src/lapacke_zstein.c index a8e26afa..b5ce99af 100644 --- a/lapacke/src/lapacke_zstein.c +++ b/lapacke/src/lapacke_zstein.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zstein( int matrix_order, lapack_int n, const double* d, +lapack_int LAPACKE_zstein( int matrix_layout, lapack_int n, const double* d, const double* e, lapack_int m, const double* w, const lapack_int* iblock, const lapack_int* isplit, lapack_complex_double* z, lapack_int ldz, @@ -42,7 +42,7 @@ lapack_int LAPACKE_zstein( int matrix_order, lapack_int n, const double* d, lapack_int info = 0; lapack_int* iwork = NULL; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zstein", -1 ); return -1; } @@ -70,7 +70,7 @@ lapack_int LAPACKE_zstein( int matrix_order, lapack_int n, const double* d, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zstein_work( matrix_order, n, d, e, m, w, iblock, isplit, z, + info = LAPACKE_zstein_work( matrix_layout, n, d, e, m, w, iblock, isplit, z, ldz, work, iwork, ifailv ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zstein_work.c b/lapacke/src/lapacke_zstein_work.c index 8ac79f36..fe764746 100644 --- a/lapacke/src/lapacke_zstein_work.c +++ b/lapacke/src/lapacke_zstein_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zstein_work( int matrix_order, lapack_int n, const double* d, +lapack_int LAPACKE_zstein_work( int matrix_layout, lapack_int n, const double* d, const double* e, lapack_int m, const double* w, const lapack_int* iblock, const lapack_int* isplit, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zstein_work( int matrix_order, lapack_int n, const double* d, lapack_int* ifailv ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zstein( &n, d, e, &m, w, iblock, isplit, z, &ldz, work, iwork, ifailv, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_zstemr.c b/lapacke/src/lapacke_zstemr.c index beec8bfa..f5ae1344 100644 --- a/lapacke/src/lapacke_zstemr.c +++ b/lapacke/src/lapacke_zstemr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zstemr( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zstemr( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* m, double* w, lapack_complex_double* z, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zstemr( int matrix_order, char jobz, char range, double* work = NULL; lapack_int iwork_query; double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zstemr", -1 ); return -1; } @@ -67,7 +67,7 @@ lapack_int LAPACKE_zstemr( int matrix_order, char jobz, char range, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zstemr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_zstemr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, m, w, z, ldz, nzc, isuppz, tryrac, &work_query, lwork, &iwork_query, liwork ); if( info != 0 ) { @@ -87,7 +87,7 @@ lapack_int LAPACKE_zstemr( int matrix_order, char jobz, char range, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zstemr_work( matrix_order, jobz, range, n, d, e, vl, vu, il, + info = LAPACKE_zstemr_work( matrix_layout, jobz, range, n, d, e, vl, vu, il, iu, m, w, z, ldz, nzc, isuppz, tryrac, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zstemr_work.c b/lapacke/src/lapacke_zstemr_work.c index bd9f42b0..10eab93f 100644 --- a/lapacke/src/lapacke_zstemr_work.c +++ b/lapacke/src/lapacke_zstemr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zstemr_work( int matrix_order, char jobz, char range, +lapack_int LAPACKE_zstemr_work( int matrix_layout, char jobz, char range, lapack_int n, double* d, double* e, double vl, double vu, lapack_int il, lapack_int iu, lapack_int* m, double* w, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zstemr_work( int matrix_order, char jobz, char range, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zstemr( &jobz, &range, &n, d, e, &vl, &vu, &il, &iu, m, w, z, &ldz, &nzc, isuppz, tryrac, work, &lwork, iwork, &liwork, @@ -52,7 +52,7 @@ lapack_int LAPACKE_zstemr_work( int matrix_order, char jobz, char range, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; /* Check leading dimension(s) */ diff --git a/lapacke/src/lapacke_zsteqr.c b/lapacke/src/lapacke_zsteqr.c index c0ce29a2..22782a3e 100644 --- a/lapacke/src/lapacke_zsteqr.c +++ b/lapacke/src/lapacke_zsteqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsteqr( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zsteqr( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz ) { @@ -41,7 +41,7 @@ lapack_int LAPACKE_zsteqr( int matrix_order, char compz, lapack_int n, /* Additional scalars declarations for work arrays */ lapack_int lwork; double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsteqr", -1 ); return -1; } @@ -54,7 +54,7 @@ lapack_int LAPACKE_zsteqr( int matrix_order, char compz, lapack_int n, return -5; } if( LAPACKE_lsame( compz, 'i' ) || LAPACKE_lsame( compz, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -6; } } @@ -72,7 +72,7 @@ lapack_int LAPACKE_zsteqr( int matrix_order, char compz, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsteqr_work( matrix_order, compz, n, d, e, z, ldz, work ); + info = LAPACKE_zsteqr_work( matrix_layout, compz, n, d, e, z, ldz, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zsteqr_work.c b/lapacke/src/lapacke_zsteqr_work.c index e6446de3..29503d2d 100644 --- a/lapacke/src/lapacke_zsteqr_work.c +++ b/lapacke/src/lapacke_zsteqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsteqr_work( int matrix_order, char compz, lapack_int n, +lapack_int LAPACKE_zsteqr_work( int matrix_layout, char compz, lapack_int n, double* d, double* e, lapack_complex_double* z, lapack_int ldz, double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsteqr( &compz, &n, d, e, z, &ldz, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldz_t = MAX(1,n); lapack_complex_double* z_t = NULL; /* Check leading dimension(s) */ @@ -65,7 +65,7 @@ lapack_int LAPACKE_zsteqr_work( int matrix_order, char compz, lapack_int n, } /* Transpose input matrices */ if( LAPACKE_lsame( compz, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_zge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_zsteqr( &compz, &n, d, e, z_t, &ldz_t, work, &info ); diff --git a/lapacke/src/lapacke_zsycon.c b/lapacke/src/lapacke_zsycon.c index 26e50503..d599cf68 100644 --- a/lapacke/src/lapacke_zsycon.c +++ b/lapacke/src/lapacke_zsycon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsycon( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsycon( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsycon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } if( LAPACKE_d_nancheck( 1, &anorm, 1 ) ) { @@ -60,7 +60,7 @@ lapack_int LAPACKE_zsycon( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsycon_work( matrix_order, uplo, n, a, lda, ipiv, anorm, + info = LAPACKE_zsycon_work( matrix_layout, uplo, n, a, lda, ipiv, anorm, rcond, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsycon_work.c b/lapacke/src/lapacke_zsycon_work.c index 91622d9a..cf476199 100644 --- a/lapacke/src/lapacke_zsycon_work.c +++ b/lapacke/src/lapacke_zsycon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsycon_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsycon_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, double anorm, double* rcond, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsycon( &uplo, &n, a, &lda, ipiv, &anorm, rcond, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zsycon_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zsycon( &uplo, &n, a_t, &lda_t, ipiv, &anorm, rcond, work, &info ); diff --git a/lapacke/src/lapacke_zsyconv.c b/lapacke/src/lapacke_zsyconv.c index 3b046694..d4833582 100644 --- a/lapacke/src/lapacke_zsyconv.c +++ b/lapacke/src/lapacke_zsyconv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyconv( int matrix_order, char uplo, char way, lapack_int n, +lapack_int LAPACKE_zsyconv( int matrix_layout, char uplo, char way, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsyconv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, lda, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, lda, n, a, lda ) ) { return -5; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_zsyconv( int matrix_order, char uplo, char way, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsyconv_work( matrix_order, uplo, way, n, a, lda, ipiv, + info = LAPACKE_zsyconv_work( matrix_layout, uplo, way, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsyconv_work.c b/lapacke/src/lapacke_zsyconv_work.c index f42d165e..de0ef757 100644 --- a/lapacke/src/lapacke_zsyconv_work.c +++ b/lapacke/src/lapacke_zsyconv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyconv_work( int matrix_order, char uplo, char way, +lapack_int LAPACKE_zsyconv_work( int matrix_layout, char uplo, char way, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsyconv( &uplo, &way, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,lda); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zsyconv_work( int matrix_order, char uplo, char way, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, lda, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, lda, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zsyconv( &uplo, &way, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsyequb.c b/lapacke/src/lapacke_zsyequb.c index 85d5551b..de5296b5 100644 --- a/lapacke/src/lapacke_zsyequb.c +++ b/lapacke/src/lapacke_zsyequb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyequb( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyequb( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsyequb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_zsyequb( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsyequb_work( matrix_order, uplo, n, a, lda, s, scond, amax, + info = LAPACKE_zsyequb_work( matrix_layout, uplo, n, a, lda, s, scond, amax, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsyequb_work.c b/lapacke/src/lapacke_zsyequb_work.c index 28a5ec3b..177032ac 100644 --- a/lapacke/src/lapacke_zsyequb_work.c +++ b/lapacke/src/lapacke_zsyequb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyequb_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyequb_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* s, double* scond, double* amax, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsyequb( &uplo, &n, a, &lda, s, scond, amax, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zsyequb_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zsyequb( &uplo, &n, a_t, &lda_t, s, scond, amax, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsyr.c b/lapacke/src/lapacke_zsyr.c index e33d4e67..b6dfa445 100644 --- a/lapacke/src/lapacke_zsyr.c +++ b/lapacke/src/lapacke_zsyr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyr( int matrix_layout, char uplo, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* x, lapack_int incx, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsyr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -7; } if( LAPACKE_z_nancheck( 1, &alpha, 1 ) ) { @@ -54,6 +54,6 @@ lapack_int LAPACKE_zsyr( int matrix_order, char uplo, lapack_int n, return -5; } #endif - return LAPACKE_zsyr_work( matrix_order, uplo, n, alpha, x, incx, a, + return LAPACKE_zsyr_work( matrix_layout, uplo, n, alpha, x, incx, a, lda ); } diff --git a/lapacke/src/lapacke_zsyr_work.c b/lapacke/src/lapacke_zsyr_work.c index 8fb87820..6d8e9f77 100644 --- a/lapacke/src/lapacke_zsyr_work.c +++ b/lapacke/src/lapacke_zsyr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* x, lapack_int incx, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsyr( &uplo, &n, &alpha, x, &incx, a, &lda ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_zsyr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zsyr( &uplo, &n, &alpha, x, &incx, a_t, &lda_t ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zsyrfs.c b/lapacke/src/lapacke_zsyrfs.c index c3219a1e..e172b980 100644 --- a/lapacke/src/lapacke_zsyrfs.c +++ b/lapacke/src/lapacke_zsyrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyrfs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyrfs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -44,22 +44,22 @@ lapack_int LAPACKE_zsyrfs( int matrix_order, char uplo, lapack_int n, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsyrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -76,7 +76,7 @@ lapack_int LAPACKE_zsyrfs( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zsyrfs_work( matrix_order, uplo, n, nrhs, a, lda, af, ldaf, + info = LAPACKE_zsyrfs_work( matrix_layout, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsyrfs_work.c b/lapacke/src/lapacke_zsyrfs_work.c index b00ee134..b877cd89 100644 --- a/lapacke/src/lapacke_zsyrfs_work.c +++ b/lapacke/src/lapacke_zsyrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyrfs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyrfs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, const lapack_int* ipiv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_zsyrfs_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsyrfs( &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -108,10 +108,10 @@ lapack_int LAPACKE_zsyrfs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zsyrfs( &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_zsyrfsx.c b/lapacke/src/lapacke_zsyrfsx.c index dbdaea19..f707b998 100644 --- a/lapacke/src/lapacke_zsyrfsx.c +++ b/lapacke/src/lapacke_zsyrfsx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyrfsx( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zsyrfsx( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, lapack_int ldaf, @@ -47,19 +47,19 @@ lapack_int LAPACKE_zsyrfsx( int matrix_order, char uplo, char equed, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsyrfsx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -12; } if( nparams>0 ) { @@ -72,7 +72,7 @@ lapack_int LAPACKE_zsyrfsx( int matrix_order, char uplo, char equed, return -11; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -14; } #endif @@ -89,7 +89,7 @@ lapack_int LAPACKE_zsyrfsx( int matrix_order, char uplo, char equed, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zsyrfsx_work( matrix_order, uplo, equed, n, nrhs, a, lda, af, + info = LAPACKE_zsyrfsx_work( matrix_layout, uplo, equed, n, nrhs, a, lda, af, ldaf, ipiv, s, b, ldb, x, ldx, rcond, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_zsyrfsx_work.c b/lapacke/src/lapacke_zsyrfsx_work.c index f94fc2a6..ebf1341d 100644 --- a/lapacke/src/lapacke_zsyrfsx_work.c +++ b/lapacke/src/lapacke_zsyrfsx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyrfsx_work( int matrix_order, char uplo, char equed, +lapack_int LAPACKE_zsyrfsx_work( int matrix_layout, char uplo, char equed, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* af, @@ -48,7 +48,7 @@ lapack_int LAPACKE_zsyrfsx_work( int matrix_order, char uplo, char equed, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsyrfsx( &uplo, &equed, &n, &nrhs, a, &lda, af, &ldaf, ipiv, s, b, &ldb, x, &ldx, rcond, berr, &n_err_bnds, @@ -57,7 +57,7 @@ lapack_int LAPACKE_zsyrfsx_work( int matrix_order, char uplo, char equed, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -129,10 +129,10 @@ lapack_int LAPACKE_zsyrfsx_work( int matrix_order, char uplo, char equed, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_zsyrfsx( &uplo, &equed, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, s, b_t, &ldb_t, x_t, &ldx_t, rcond, berr, diff --git a/lapacke/src/lapacke_zsysv.c b/lapacke/src/lapacke_zsysv.c index 908e56e5..de971b71 100644 --- a/lapacke/src/lapacke_zsysv.c +++ b/lapacke/src/lapacke_zsysv.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsysv( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) @@ -42,21 +42,21 @@ lapack_int LAPACKE_zsysv( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsysv", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zsysv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_zsysv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -70,7 +70,7 @@ lapack_int LAPACKE_zsysv( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsysv_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_zsysv_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsysv_rook.c b/lapacke/src/lapacke_zsysv_rook.c index 7db4d647..b97ef2eb 100644 --- a/lapacke/src/lapacke_zsysv_rook.c +++ b/lapacke/src/lapacke_zsysv_rook.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsysv_rook( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv_rook( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) @@ -42,21 +42,21 @@ lapack_int LAPACKE_zsysv_rook( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsysv_rook", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zsysv_rook_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, + info = LAPACKE_zsysv_rook_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -70,7 +70,7 @@ lapack_int LAPACKE_zsysv_rook( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsysv_rook_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, + info = LAPACKE_zsysv_rook_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsysv_rook_work.c b/lapacke/src/lapacke_zsysv_rook_work.c index 249d924f..c002f254 100644 --- a/lapacke/src/lapacke_zsysv_rook_work.c +++ b/lapacke/src/lapacke_zsysv_rook_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsysv_rook_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv_rook_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zsysv_rook_work( int matrix_order, char uplo, lapack_int n, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsysv_rook( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_zsysv_rook_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zsysv_rook( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zsysv_work.c b/lapacke/src/lapacke_zsysv_work.c index 265960ad..a078f559 100644 --- a/lapacke/src/lapacke_zsysv_work.c +++ b/lapacke/src/lapacke_zsysv_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsysv_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsysv_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsysv( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_zsysv_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zsysv( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zsysvx.c b/lapacke/src/lapacke_zsysvx.c index 047604cb..b241f377 100644 --- a/lapacke/src/lapacke_zsysvx.c +++ b/lapacke/src/lapacke_zsysvx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsysvx( int matrix_order, char fact, char uplo, lapack_int n, +lapack_int LAPACKE_zsysvx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, lapack_int* ipiv, @@ -46,21 +46,21 @@ lapack_int LAPACKE_zsysvx( int matrix_order, char fact, char uplo, lapack_int n, double* rwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsysvx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -11; } #endif @@ -71,7 +71,7 @@ lapack_int LAPACKE_zsysvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zsysvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_zsysvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, &work_query, lwork, rwork ); if( info != 0 ) { @@ -86,7 +86,7 @@ lapack_int LAPACKE_zsysvx( int matrix_order, char fact, char uplo, lapack_int n, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zsysvx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_zsysvx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, lwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zsysvx_work.c b/lapacke/src/lapacke_zsysvx_work.c index 54cff737..06b248a8 100644 --- a/lapacke/src/lapacke_zsysvx_work.c +++ b/lapacke/src/lapacke_zsysvx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsysvx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zsysvx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -45,7 +45,7 @@ lapack_int LAPACKE_zsysvx_work( int matrix_order, char fact, char uplo, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsysvx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, b, &ldb, x, &ldx, rcond, ferr, berr, work, &lwork, rwork, @@ -53,7 +53,7 @@ lapack_int LAPACKE_zsysvx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -118,11 +118,11 @@ lapack_int LAPACKE_zsysvx_work( int matrix_order, char fact, char uplo, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zsysvx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, b_t, &ldb_t, x_t, &ldx_t, rcond, ferr, berr, work, diff --git a/lapacke/src/lapacke_zsysvxx.c b/lapacke/src/lapacke_zsysvxx.c index 6d2c1b84..256c0b62 100644 --- a/lapacke/src/lapacke_zsysvxx.c +++ b/lapacke/src/lapacke_zsysvxx.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsysvxx( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zsysvxx( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -48,21 +48,21 @@ lapack_int LAPACKE_zsysvxx( int matrix_order, char fact, char uplo, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsysvxx", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -6; } if( LAPACKE_lsame( fact, 'f' ) ) { - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, af, ldaf ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, af, ldaf ) ) { return -8; } } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -13; } if( nparams>0 ) { @@ -89,7 +89,7 @@ lapack_int LAPACKE_zsysvxx( int matrix_order, char fact, char uplo, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_zsysvxx_work( matrix_order, fact, uplo, n, nrhs, a, lda, af, + info = LAPACKE_zsysvxx_work( matrix_layout, fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, equed, s, b, ldb, x, ldx, rcond, rpvgrw, berr, n_err_bnds, err_bnds_norm, err_bnds_comp, nparams, params, work, rwork ); diff --git a/lapacke/src/lapacke_zsysvxx_work.c b/lapacke/src/lapacke_zsysvxx_work.c index 81d356d1..e486e8bc 100644 --- a/lapacke/src/lapacke_zsysvxx_work.c +++ b/lapacke/src/lapacke_zsysvxx_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo, +lapack_int LAPACKE_zsysvxx_work( int matrix_layout, char fact, char uplo, lapack_int n, lapack_int nrhs, lapack_complex_double* a, lapack_int lda, lapack_complex_double* af, lapack_int ldaf, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsysvxx( &fact, &uplo, &n, &nrhs, a, &lda, af, &ldaf, ipiv, equed, s, b, &ldb, x, &ldx, rcond, rpvgrw, berr, @@ -56,7 +56,7 @@ lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldaf_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); @@ -128,11 +128,11 @@ lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); if( LAPACKE_lsame( fact, 'f' ) ) { - LAPACKE_zsy_trans( matrix_order, uplo, n, af, ldaf, af_t, ldaf_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, af, ldaf, af_t, ldaf_t ); } - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zsysvxx( &fact, &uplo, &n, &nrhs, a_t, &lda_t, af_t, &ldaf_t, ipiv, equed, s, b_t, &ldb_t, x_t, &ldx_t, rcond, rpvgrw, @@ -154,9 +154,9 @@ lapack_int LAPACKE_zsysvxx_work( int matrix_order, char fact, char uplo, } LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, nrhs, x_t, ldx_t, x, ldx ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_norm_t, - nrhs, err_bnds_norm, nrhs ); + nrhs, err_bnds_norm, n_err_bnds ); LAPACKE_dge_trans( LAPACK_COL_MAJOR, nrhs, n_err_bnds, err_bnds_comp_t, - nrhs, err_bnds_comp, nrhs ); + nrhs, err_bnds_comp, n_err_bnds ); /* Release memory and exit */ LAPACKE_free( err_bnds_comp_t ); exit_level_5: diff --git a/lapacke/src/lapacke_zsyswapr.c b/lapacke/src/lapacke_zsyswapr.c index fa2780c5..f487a92f 100644 --- a/lapacke/src/lapacke_zsyswapr.c +++ b/lapacke/src/lapacke_zsyswapr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyswapr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyswapr( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int i1, lapack_int i2 ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsyswapr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, n ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, n ) ) { return -4; } #endif - return LAPACKE_zsyswapr_work( matrix_order, uplo, n, a, i1, i2 ); + return LAPACKE_zsyswapr_work( matrix_layout, uplo, n, a, i1, i2 ); } diff --git a/lapacke/src/lapacke_zsyswapr_work.c b/lapacke/src/lapacke_zsyswapr_work.c index bfdb53e4..dfb62beb 100644 --- a/lapacke/src/lapacke_zsyswapr_work.c +++ b/lapacke/src/lapacke_zsyswapr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsyswapr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsyswapr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int i1, lapack_int i2 ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsyswapr( &uplo, &n, a, &i1, &i2 ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_zsyswapr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, n, a_t, n ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, n, a_t, n ); /* Call LAPACK function and adjust info */ LAPACK_zsyswapr( &uplo, &n, a_t, &i1, &i2 ); info = 0; /* LAPACK call is ok! */ diff --git a/lapacke/src/lapacke_zsytrf.c b/lapacke/src/lapacke_zsytrf.c index 4b612043..f6380670 100644 --- a/lapacke/src/lapacke_zsytrf.c +++ b/lapacke/src/lapacke_zsytrf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytrf( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrf( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zsytrf( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsytrf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zsytrf_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_zsytrf_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zsytrf( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsytrf_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_zsytrf_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsytrf_work.c b/lapacke/src/lapacke_zsytrf_work.c index d98316c0..2f48659d 100644 --- a/lapacke/src/lapacke_zsytrf_work.c +++ b/lapacke/src/lapacke_zsytrf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytrf_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrf_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsytrf( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zsytrf_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zsytrf( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsytri.c b/lapacke/src/lapacke_zsytri.c index 367a46dd..c18a775b 100644 --- a/lapacke/src/lapacke_zsytri.c +++ b/lapacke/src/lapacke_zsytri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytri( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsytri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_zsytri( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsytri_work( matrix_order, uplo, n, a, lda, ipiv, work ); + info = LAPACKE_zsytri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zsytri2.c b/lapacke/src/lapacke_zsytri2.c index 6b28673a..80030ec5 100644 --- a/lapacke/src/lapacke_zsytri2.c +++ b/lapacke/src/lapacke_zsytri2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytri2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri2( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_zsytri2( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsytri2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zsytri2_work( matrix_order, uplo, n, a, lda, ipiv, + info = LAPACKE_zsytri2_work( matrix_layout, uplo, n, a, lda, ipiv, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_zsytri2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsytri2_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_zsytri2_work( matrix_layout, uplo, n, a, lda, ipiv, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsytri2_work.c b/lapacke/src/lapacke_zsytri2_work.c index a5cdd16d..9b9ee670 100644 --- a/lapacke/src/lapacke_zsytri2_work.c +++ b/lapacke/src/lapacke_zsytri2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytri2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri2_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsytri2( &uplo, &n, a, &lda, ipiv, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zsytri2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zsytri2( &uplo, &n, a_t, &lda_t, ipiv, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsytri2x.c b/lapacke/src/lapacke_zsytri2x.c index 4e187a22..bfb2fdd1 100644 --- a/lapacke/src/lapacke_zsytri2x.c +++ b/lapacke/src/lapacke_zsytri2x.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytri2x( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri2x( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_int nb ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsytri2x", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -4; } #endif @@ -57,7 +57,7 @@ lapack_int LAPACKE_zsytri2x( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsytri2x_work( matrix_order, uplo, n, a, lda, ipiv, work, + info = LAPACKE_zsytri2x_work( matrix_layout, uplo, n, a, lda, ipiv, work, nb ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsytri2x_work.c b/lapacke/src/lapacke_zsytri2x_work.c index a11a6303..c53879c2 100644 --- a/lapacke/src/lapacke_zsytri2x_work.c +++ b/lapacke/src/lapacke_zsytri2x_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytri2x_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri2x_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work, lapack_int nb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsytri2x( &uplo, &n, a, &lda, ipiv, work, &nb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zsytri2x_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zsytri2x( &uplo, &n, a_t, &lda_t, ipiv, work, &nb, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsytri_work.c b/lapacke/src/lapacke_zsytri_work.c index 6a2bf257..bdeb9605 100644 --- a/lapacke/src/lapacke_zsytri_work.c +++ b/lapacke/src/lapacke_zsytri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytri_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytri_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsytri( &uplo, &n, a, &lda, ipiv, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -62,7 +62,7 @@ lapack_int LAPACKE_zsytri_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zsytri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zsytrs.c b/lapacke/src/lapacke_zsytrs.c index 9e19dd83..88887d90 100644 --- a/lapacke/src/lapacke_zsytrs.c +++ b/lapacke/src/lapacke_zsytrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytrs( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrs( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsytrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_zsytrs_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + return LAPACKE_zsytrs_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb ); } diff --git a/lapacke/src/lapacke_zsytrs2.c b/lapacke/src/lapacke_zsytrs2.c index 51136b58..1193404e 100644 --- a/lapacke/src/lapacke_zsytrs2.c +++ b/lapacke/src/lapacke_zsytrs2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,23 +33,23 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytrs2( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrs2( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zsytrs2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_order, uplo, n, a, lda ) ) { + if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif @@ -61,7 +61,7 @@ lapack_int LAPACKE_zsytrs2( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zsytrs2_work( matrix_order, uplo, n, nrhs, a, lda, ipiv, b, + info = LAPACKE_zsytrs2_work( matrix_layout, uplo, n, nrhs, a, lda, ipiv, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zsytrs2_work.c b/lapacke/src/lapacke_zsytrs2_work.c index ec7a90f1..350742a6 100644 --- a/lapacke/src/lapacke_zsytrs2_work.c +++ b/lapacke/src/lapacke_zsytrs2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytrs2_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrs2_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, @@ -41,13 +41,13 @@ lapack_int LAPACKE_zsytrs2_work( int matrix_order, char uplo, lapack_int n, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsytrs2( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -78,8 +78,8 @@ lapack_int LAPACKE_zsytrs2_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zsytrs2( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_zsytrs_work.c b/lapacke/src/lapacke_zsytrs_work.c index 93f5432b..4d471669 100644 --- a/lapacke/src/lapacke_zsytrs_work.c +++ b/lapacke/src/lapacke_zsytrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zsytrs_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zsytrs_work( int matrix_layout, char uplo, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_int* ipiv, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zsytrs( &uplo, &n, &nrhs, a, &lda, ipiv, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -76,8 +76,8 @@ lapack_int LAPACKE_zsytrs_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zsy_trans( matrix_order, uplo, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_zsytrs( &uplo, &n, &nrhs, a_t, &lda_t, ipiv, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_ztbcon.c b/lapacke/src/lapacke_ztbcon.c index 9497c436..e23e60c7 100644 --- a/lapacke/src/lapacke_ztbcon.c +++ b/lapacke/src/lapacke_ztbcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztbcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ztbcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double* rcond ) @@ -41,13 +41,13 @@ lapack_int LAPACKE_ztbcon( int matrix_order, char norm, char uplo, char diag, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztbcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_ztb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -7; } #endif @@ -64,7 +64,7 @@ lapack_int LAPACKE_ztbcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztbcon_work( matrix_order, norm, uplo, diag, n, kd, ab, ldab, + info = LAPACKE_ztbcon_work( matrix_layout, norm, uplo, diag, n, kd, ab, ldab, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztbcon_work.c b/lapacke/src/lapacke_ztbcon_work.c index df139a40..523365a6 100644 --- a/lapacke/src/lapacke_ztbcon_work.c +++ b/lapacke/src/lapacke_ztbcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztbcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ztbcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab, double* rcond, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztbcon( &norm, &uplo, &diag, &n, &kd, ab, &ldab, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_complex_double* ab_t = NULL; /* Check leading dimension(s) */ @@ -64,7 +64,7 @@ lapack_int LAPACKE_ztbcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ztb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_ztb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); /* Call LAPACK function and adjust info */ LAPACK_ztbcon( &norm, &uplo, &diag, &n, &kd, ab_t, &ldab_t, rcond, work, diff --git a/lapacke/src/lapacke_ztbrfs.c b/lapacke/src/lapacke_ztbrfs.c index 86433017..b4181552 100644 --- a/lapacke/src/lapacke_ztbrfs.c +++ b/lapacke/src/lapacke_ztbrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztbrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztbrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, const lapack_complex_double* b, lapack_int ldb, @@ -43,19 +43,19 @@ lapack_int LAPACKE_ztbrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztbrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_ztb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -12; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_ztbrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztbrfs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + info = LAPACKE_ztbrfs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ztbrfs_work.c b/lapacke/src/lapacke_ztbrfs_work.c index 3c295028..f32567d3 100644 --- a/lapacke/src/lapacke_ztbrfs_work.c +++ b/lapacke/src/lapacke_ztbrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztbrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztbrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, @@ -43,14 +43,14 @@ lapack_int LAPACKE_ztbrfs_work( int matrix_order, char uplo, char trans, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztbrfs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -95,10 +95,10 @@ lapack_int LAPACKE_ztbrfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_ztb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_ztb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_ztbrfs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ztbtrs.c b/lapacke/src/lapacke_ztbtrs.c index 648e0f23..237eeab7 100644 --- a/lapacke/src/lapacke_ztbtrs.c +++ b/lapacke/src/lapacke_ztbtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztbtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztbtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, lapack_int ldab, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztbtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztb_nancheck( matrix_order, uplo, diag, n, kd, ab, ldab ) ) { + if( LAPACKE_ztb_nancheck( matrix_layout, uplo, diag, n, kd, ab, ldab ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -10; } #endif - return LAPACKE_ztbtrs_work( matrix_order, uplo, trans, diag, n, kd, nrhs, + return LAPACKE_ztbtrs_work( matrix_layout, uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb ); } diff --git a/lapacke/src/lapacke_ztbtrs_work.c b/lapacke/src/lapacke_ztbtrs_work.c index b0a0e0b0..6c672970 100644 --- a/lapacke/src/lapacke_ztbtrs_work.c +++ b/lapacke/src/lapacke_ztbtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztbtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztbtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int kd, lapack_int nrhs, const lapack_complex_double* ab, @@ -41,14 +41,14 @@ lapack_int LAPACKE_ztbtrs_work( int matrix_order, char uplo, char trans, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztbtrs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab, &ldab, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldab_t = MAX(1,kd+1); lapack_int ldb_t = MAX(1,n); lapack_complex_double* ab_t = NULL; @@ -79,9 +79,9 @@ lapack_int LAPACKE_ztbtrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ztb_trans( matrix_order, uplo, diag, n, kd, ab, ldab, ab_t, + LAPACKE_ztb_trans( matrix_layout, uplo, diag, n, kd, ab, ldab, ab_t, ldab_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ztbtrs( &uplo, &trans, &diag, &n, &kd, &nrhs, ab_t, &ldab_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_ztfsm.c b/lapacke/src/lapacke_ztfsm.c index dc86e40b..9e162800 100644 --- a/lapacke/src/lapacke_ztfsm.c +++ b/lapacke/src/lapacke_ztfsm.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztfsm( int matrix_order, char transr, char side, char uplo, +lapack_int LAPACKE_ztfsm( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztfsm", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( IS_Z_NONZERO(alpha) ) { - if( LAPACKE_ztf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_ztf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -10; } } @@ -54,11 +54,11 @@ lapack_int LAPACKE_ztfsm( int matrix_order, char transr, char side, char uplo, return -9; } if( IS_Z_NONZERO(alpha) ) { - if( LAPACKE_zge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -11; } } #endif - return LAPACKE_ztfsm_work( matrix_order, transr, side, uplo, trans, diag, m, + return LAPACKE_ztfsm_work( matrix_layout, transr, side, uplo, trans, diag, m, n, alpha, a, b, ldb ); } diff --git a/lapacke/src/lapacke_ztfsm_work.c b/lapacke/src/lapacke_ztfsm_work.c index 3afab3d2..2a7638b5 100644 --- a/lapacke/src/lapacke_ztfsm_work.c +++ b/lapacke/src/lapacke_ztfsm_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztfsm_work( int matrix_order, char transr, char side, +lapack_int LAPACKE_ztfsm_work( int matrix_layout, char transr, char side, char uplo, char trans, char diag, lapack_int m, lapack_int n, lapack_complex_double alpha, const lapack_complex_double* a, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztfsm( &transr, &side, &uplo, &trans, &diag, &m, &n, &alpha, a, b, &ldb ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,m); lapack_complex_double* b_t = NULL; lapack_complex_double* a_t = NULL; @@ -75,10 +75,10 @@ lapack_int LAPACKE_ztfsm_work( int matrix_order, char transr, char side, } /* Transpose input matrices */ if( IS_Z_NONZERO(alpha) ) { - LAPACKE_zge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); } if( IS_Z_NONZERO(alpha) ) { - LAPACKE_ztf_trans( matrix_order, transr, uplo, diag, n, a, a_t ); + LAPACKE_ztf_trans( matrix_layout, transr, uplo, diag, n, a, a_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztfsm( &transr, &side, &uplo, &trans, &diag, &m, &n, &alpha, a_t, diff --git a/lapacke/src/lapacke_ztftri.c b/lapacke/src/lapacke_ztftri.c index 0a96a1c3..07630437 100644 --- a/lapacke/src/lapacke_ztftri.c +++ b/lapacke/src/lapacke_ztftri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztftri( int matrix_order, char transr, char uplo, char diag, +lapack_int LAPACKE_ztftri( int matrix_layout, char transr, char uplo, char diag, lapack_int n, lapack_complex_double* a ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztftri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztf_nancheck( matrix_order, transr, uplo, diag, n, a ) ) { + if( LAPACKE_ztf_nancheck( matrix_layout, transr, uplo, diag, n, a ) ) { return -6; } #endif - return LAPACKE_ztftri_work( matrix_order, transr, uplo, diag, n, a ); + return LAPACKE_ztftri_work( matrix_layout, transr, uplo, diag, n, a ); } diff --git a/lapacke/src/lapacke_ztftri_work.c b/lapacke/src/lapacke_ztftri_work.c index b5c23c90..aa6ea461 100644 --- a/lapacke/src/lapacke_ztftri_work.c +++ b/lapacke/src/lapacke_ztftri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztftri_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztftri_work( int matrix_layout, char transr, char uplo, char diag, lapack_int n, lapack_complex_double* a ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztftri( &transr, &uplo, &diag, &n, a, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* a_t = NULL; /* Allocate memory for temporary array(s) */ a_t = (lapack_complex_double*) @@ -55,7 +55,7 @@ lapack_int LAPACKE_ztftri_work( int matrix_order, char transr, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ztf_trans( matrix_order, transr, uplo, diag, n, a, a_t ); + LAPACKE_ztf_trans( matrix_layout, transr, uplo, diag, n, a, a_t ); /* Call LAPACK function and adjust info */ LAPACK_ztftri( &transr, &uplo, &diag, &n, a_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztfttp.c b/lapacke/src/lapacke_ztfttp.c index ef58902e..775af257 100644 --- a/lapacke/src/lapacke_ztfttp.c +++ b/lapacke/src/lapacke_ztfttp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztfttp( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztfttp( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* arf, lapack_complex_double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztfttp", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_ztfttp( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_ztfttp_work( matrix_order, transr, uplo, n, arf, ap ); + return LAPACKE_ztfttp_work( matrix_layout, transr, uplo, n, arf, ap ); } diff --git a/lapacke/src/lapacke_ztfttp_work.c b/lapacke/src/lapacke_ztfttp_work.c index d43ff507..a4e81cd9 100644 --- a/lapacke/src/lapacke_ztfttp_work.c +++ b/lapacke/src/lapacke_ztfttp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztfttp_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztfttp_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* arf, lapack_complex_double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztfttp( &transr, &uplo, &n, arf, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; lapack_complex_double* arf_t = NULL; /* Allocate memory for temporary array(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_ztfttp_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpf_trans( matrix_order, transr, uplo, n, arf, arf_t ); + LAPACKE_zpf_trans( matrix_layout, transr, uplo, n, arf, arf_t ); /* Call LAPACK function and adjust info */ LAPACK_ztfttp( &transr, &uplo, &n, arf_t, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztfttr.c b/lapacke/src/lapacke_ztfttr.c index 6283b758..b5da2b8a 100644 --- a/lapacke/src/lapacke_ztfttr.c +++ b/lapacke/src/lapacke_ztfttr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztfttr( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztfttr( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* arf, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztfttr", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_ztfttr( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_ztfttr_work( matrix_order, transr, uplo, n, arf, a, lda ); + return LAPACKE_ztfttr_work( matrix_layout, transr, uplo, n, arf, a, lda ); } diff --git a/lapacke/src/lapacke_ztfttr_work.c b/lapacke/src/lapacke_ztfttr_work.c index bf04180d..7728851d 100644 --- a/lapacke/src/lapacke_ztfttr_work.c +++ b/lapacke/src/lapacke_ztfttr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztfttr_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztfttr_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* arf, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztfttr( &transr, &uplo, &n, arf, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; lapack_complex_double* arf_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_ztfttr_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpf_trans( matrix_order, transr, uplo, n, arf, arf_t ); + LAPACKE_zpf_trans( matrix_layout, transr, uplo, n, arf, arf_t ); /* Call LAPACK function and adjust info */ LAPACK_ztfttr( &transr, &uplo, &n, arf_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztgevc.c b/lapacke/src/lapacke_ztgevc.c index 6e3ce94e..6e852711 100644 --- a/lapacke/src/lapacke_ztgevc.c +++ b/lapacke/src/lapacke_ztgevc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ztgevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* s, lapack_int lds, const lapack_complex_double* p, lapack_int ldp, @@ -44,25 +44,25 @@ lapack_int LAPACKE_ztgevc( int matrix_order, char side, char howmny, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztgevc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, p, ldp ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, p, ldp ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, s, lds ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, s, lds ) ) { return -6; } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'l' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'r' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -80,7 +80,7 @@ lapack_int LAPACKE_ztgevc( int matrix_order, char side, char howmny, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztgevc_work( matrix_order, side, howmny, select, n, s, lds, + info = LAPACKE_ztgevc_work( matrix_layout, side, howmny, select, n, s, lds, p, ldp, vl, ldvl, vr, ldvr, mm, m, work, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ztgevc_work.c b/lapacke/src/lapacke_ztgevc_work.c index dfaf35fc..237f2fc8 100644 --- a/lapacke/src/lapacke_ztgevc_work.c +++ b/lapacke/src/lapacke_ztgevc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ztgevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* s, lapack_int lds, const lapack_complex_double* p, lapack_int ldp, @@ -43,14 +43,14 @@ lapack_int LAPACKE_ztgevc_work( int matrix_order, char side, char howmny, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztgevc( &side, &howmny, select, &n, s, &lds, p, &ldp, vl, &ldvl, vr, &ldvr, &mm, m, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldp_t = MAX(1,n); lapack_int lds_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); @@ -112,15 +112,15 @@ lapack_int LAPACKE_ztgevc_work( int matrix_order, char side, char howmny, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, s, lds, s_t, lds_t ); - LAPACKE_zge_trans( matrix_order, n, n, p, ldp, p_t, ldp_t ); + LAPACKE_zge_trans( matrix_layout, n, n, s, lds, s_t, lds_t ); + LAPACKE_zge_trans( matrix_layout, n, n, p, ldp, p_t, ldp_t ); if( ( LAPACKE_lsame( side, 'l' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( side, 'r' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztgevc( &side, &howmny, select, &n, s_t, &lds_t, p_t, &ldp_t, diff --git a/lapacke/src/lapacke_ztgexc.c b/lapacke/src/lapacke_ztgexc.c index 9a1a523a..e242a0f5 100644 --- a/lapacke/src/lapacke_ztgexc.c +++ b/lapacke/src/lapacke_ztgexc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgexc( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_ztgexc( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -41,29 +41,29 @@ lapack_int LAPACKE_ztgexc( int matrix_order, lapack_logical wantq, lapack_complex_double* z, lapack_int ldz, lapack_int ifst, lapack_int ilst ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztgexc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -7; } if( wantq ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -9; } } if( wantz ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -11; } } #endif - return LAPACKE_ztgexc_work( matrix_order, wantq, wantz, n, a, lda, b, ldb, + return LAPACKE_ztgexc_work( matrix_layout, wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, ifst, ilst ); } diff --git a/lapacke/src/lapacke_ztgexc_work.c b/lapacke/src/lapacke_ztgexc_work.c index 907ef6a6..4a41d119 100644 --- a/lapacke/src/lapacke_ztgexc_work.c +++ b/lapacke/src/lapacke_ztgexc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgexc_work( int matrix_order, lapack_logical wantq, +lapack_int LAPACKE_ztgexc_work( int matrix_layout, lapack_logical wantq, lapack_logical wantz, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ztgexc_work( int matrix_order, lapack_logical wantq, lapack_int ifst, lapack_int ilst ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztgexc( &wantq, &wantz, &n, a, &lda, b, &ldb, q, &ldq, z, &ldz, &ifst, &ilst, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -111,13 +111,13 @@ lapack_int LAPACKE_ztgexc_work( int matrix_order, lapack_logical wantq, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( wantq ) { - LAPACKE_zge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_zge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( wantz ) { - LAPACKE_zge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_zge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztgexc( &wantq, &wantz, &n, a_t, &lda_t, b_t, &ldb_t, q_t, diff --git a/lapacke/src/lapacke_ztgsen.c b/lapacke/src/lapacke_ztgsen.c index 658cf24b..70a6495c 100644 --- a/lapacke/src/lapacke_ztgsen.c +++ b/lapacke/src/lapacke_ztgsen.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgsen( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_ztgsen( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, lapack_complex_double* a, lapack_int lda, @@ -51,31 +51,31 @@ lapack_int LAPACKE_ztgsen( int matrix_order, lapack_int ijob, lapack_complex_double* work = NULL; lapack_int iwork_query; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztgsen", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } if( wantq ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -13; } } if( wantz ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, z, ldz ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, z, ldz ) ) { return -15; } } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ztgsen_work( matrix_order, ijob, wantq, wantz, select, n, a, + info = LAPACKE_ztgsen_work( matrix_layout, ijob, wantq, wantz, select, n, a, lda, b, ldb, alpha, beta, q, ldq, z, ldz, m, pl, pr, dif, &work_query, lwork, &iwork_query, liwork ); @@ -99,7 +99,7 @@ lapack_int LAPACKE_ztgsen( int matrix_order, lapack_int ijob, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztgsen_work( matrix_order, ijob, wantq, wantz, select, n, a, + info = LAPACKE_ztgsen_work( matrix_layout, ijob, wantq, wantz, select, n, a, lda, b, ldb, alpha, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ztgsen_work.c b/lapacke/src/lapacke_ztgsen_work.c index 0929e62c..b2c075b7 100644 --- a/lapacke/src/lapacke_ztgsen_work.c +++ b/lapacke/src/lapacke_ztgsen_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgsen_work( int matrix_order, lapack_int ijob, +lapack_int LAPACKE_ztgsen_work( int matrix_layout, lapack_int ijob, lapack_logical wantq, lapack_logical wantz, const lapack_logical* select, lapack_int n, lapack_complex_double* a, lapack_int lda, @@ -48,7 +48,7 @@ lapack_int LAPACKE_ztgsen_work( int matrix_order, lapack_int ijob, lapack_int liwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztgsen( &ijob, &wantq, &wantz, select, &n, a, &lda, b, &ldb, alpha, beta, q, &ldq, z, &ldz, m, pl, pr, dif, work, @@ -56,7 +56,7 @@ lapack_int LAPACKE_ztgsen_work( int matrix_order, lapack_int ijob, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldq_t = MAX(1,n); @@ -125,13 +125,13 @@ lapack_int LAPACKE_ztgsen_work( int matrix_order, lapack_int ijob, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( wantq ) { - LAPACKE_zge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_zge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } if( wantz ) { - LAPACKE_zge_trans( matrix_order, n, n, z, ldz, z_t, ldz_t ); + LAPACKE_zge_trans( matrix_layout, n, n, z, ldz, z_t, ldz_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztgsen( &ijob, &wantq, &wantz, select, &n, a_t, &lda_t, b_t, diff --git a/lapacke/src/lapacke_ztgsja.c b/lapacke/src/lapacke_ztgsja.c index 83dbfcd0..dc280b87 100644 --- a/lapacke/src/lapacke_ztgsja.c +++ b/lapacke/src/lapacke_ztgsja.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgsja( int matrix_order, char jobu, char jobv, char jobq, +lapack_int LAPACKE_ztgsja( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, @@ -46,20 +46,20 @@ lapack_int LAPACKE_ztgsja( int matrix_order, char jobu, char jobv, char jobq, { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztgsja", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, p, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, p, n, b, ldb ) ) { return -12; } if( LAPACKE_lsame( jobq, 'i' ) || LAPACKE_lsame( jobq, 'q' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -22; } } @@ -70,12 +70,12 @@ lapack_int LAPACKE_ztgsja( int matrix_order, char jobu, char jobv, char jobq, return -15; } if( LAPACKE_lsame( jobu, 'i' ) || LAPACKE_lsame( jobu, 'u' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, m, m, u, ldu ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, m, u, ldu ) ) { return -18; } } if( LAPACKE_lsame( jobv, 'i' ) || LAPACKE_lsame( jobv, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, p, p, v, ldv ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, p, p, v, ldv ) ) { return -20; } } @@ -88,7 +88,7 @@ lapack_int LAPACKE_ztgsja( int matrix_order, char jobu, char jobv, char jobq, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ztgsja_work( matrix_order, jobu, jobv, jobq, m, p, n, k, l, + info = LAPACKE_ztgsja_work( matrix_layout, jobu, jobv, jobq, m, p, n, k, l, a, lda, b, ldb, tola, tolb, alpha, beta, u, ldu, v, ldv, q, ldq, work, ncycle ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ztgsja_work.c b/lapacke/src/lapacke_ztgsja_work.c index 88937bce..3a91a2d9 100644 --- a/lapacke/src/lapacke_ztgsja_work.c +++ b/lapacke/src/lapacke_ztgsja_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgsja_work( int matrix_order, char jobu, char jobv, +lapack_int LAPACKE_ztgsja_work( int matrix_layout, char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_int k, lapack_int l, lapack_complex_double* a, lapack_int lda, @@ -46,7 +46,7 @@ lapack_int LAPACKE_ztgsja_work( int matrix_order, char jobu, char jobv, lapack_int* ncycle ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztgsja( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a, &lda, b, &ldb, &tola, &tolb, alpha, beta, u, &ldu, v, &ldv, q, @@ -54,7 +54,7 @@ lapack_int LAPACKE_ztgsja_work( int matrix_order, char jobu, char jobv, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,p); lapack_int ldq_t = MAX(1,n); @@ -132,16 +132,16 @@ lapack_int LAPACKE_ztgsja_work( int matrix_order, char jobu, char jobv, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, p, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, p, n, b, ldb, b_t, ldb_t ); if( LAPACKE_lsame( jobu, 'u' ) ) { - LAPACKE_zge_trans( matrix_order, m, m, u, ldu, u_t, ldu_t ); + LAPACKE_zge_trans( matrix_layout, m, m, u, ldu, u_t, ldu_t ); } if( LAPACKE_lsame( jobv, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, p, p, v, ldv, v_t, ldv_t ); + LAPACKE_zge_trans( matrix_layout, p, p, v, ldv, v_t, ldv_t ); } if( LAPACKE_lsame( jobq, 'q' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_zge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztgsja( &jobu, &jobv, &jobq, &m, &p, &n, &k, &l, a_t, &lda_t, diff --git a/lapacke/src/lapacke_ztgsna.c b/lapacke/src/lapacke_ztgsna.c index 5e5ac424..f1ee68fa 100644 --- a/lapacke/src/lapacke_ztgsna.c +++ b/lapacke/src/lapacke_ztgsna.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ztgsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -47,25 +47,25 @@ lapack_int LAPACKE_ztgsna( int matrix_order, char job, char howmny, lapack_int* iwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztgsna", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -10; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -12; } } @@ -79,7 +79,7 @@ lapack_int LAPACKE_ztgsna( int matrix_order, char job, char howmny, } } /* Query optimal working array(s) size */ - info = LAPACKE_ztgsna_work( matrix_order, job, howmny, select, n, a, lda, b, + info = LAPACKE_ztgsna_work( matrix_layout, job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, &work_query, lwork, iwork ); if( info != 0 ) { @@ -96,7 +96,7 @@ lapack_int LAPACKE_ztgsna( int matrix_order, char job, char howmny, } } /* Call middle-level interface */ - info = LAPACKE_ztgsna_work( matrix_order, job, howmny, select, n, a, lda, b, + info = LAPACKE_ztgsna_work( matrix_layout, job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ztgsna_work.c b/lapacke/src/lapacke_ztgsna_work.c index 3bc4db71..65770e94 100644 --- a/lapacke/src/lapacke_ztgsna_work.c +++ b/lapacke/src/lapacke_ztgsna_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ztgsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -46,14 +46,14 @@ lapack_int LAPACKE_ztgsna_work( int matrix_order, char job, char howmny, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztgsna( &job, &howmny, select, &n, a, &lda, b, &ldb, vl, &ldvl, vr, &ldvr, s, dif, &mm, m, work, &lwork, iwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); @@ -122,13 +122,13 @@ lapack_int LAPACKE_ztgsna_work( int matrix_order, char job, char howmny, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); + 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 ); if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztgsna( &job, &howmny, select, &n, a_t, &lda_t, b_t, &ldb_t, diff --git a/lapacke/src/lapacke_ztgsyl.c b/lapacke/src/lapacke_ztgsyl.c index a6272da9..f56db787 100644 --- a/lapacke/src/lapacke_ztgsyl.c +++ b/lapacke/src/lapacke_ztgsyl.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgsyl( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_ztgsyl( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -48,28 +48,28 @@ lapack_int LAPACKE_ztgsyl( int matrix_order, char trans, lapack_int ijob, lapack_int* iwork = NULL; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztgsyl", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, m, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, m, a, lda ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } - if( LAPACKE_zge_nancheck( matrix_order, m, m, d, ldd ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, m, d, ldd ) ) { return -12; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, e, lde ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, e, lde ) ) { return -14; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, f, ldf ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, f, ldf ) ) { return -16; } #endif @@ -80,7 +80,7 @@ lapack_int LAPACKE_ztgsyl( int matrix_order, char trans, lapack_int ijob, goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_ztgsyl_work( matrix_order, trans, ijob, m, n, a, lda, b, ldb, + info = LAPACKE_ztgsyl_work( matrix_layout, trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, &work_query, lwork, iwork ); if( info != 0 ) { @@ -95,7 +95,7 @@ lapack_int LAPACKE_ztgsyl( int matrix_order, char trans, lapack_int ijob, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztgsyl_work( matrix_order, trans, ijob, m, n, a, lda, b, ldb, + info = LAPACKE_ztgsyl_work( matrix_layout, trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, work, lwork, iwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ztgsyl_work.c b/lapacke/src/lapacke_ztgsyl_work.c index 9dbe5a9e..f3afcf8e 100644 --- a/lapacke/src/lapacke_ztgsyl_work.c +++ b/lapacke/src/lapacke_ztgsyl_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztgsyl_work( int matrix_order, char trans, lapack_int ijob, +lapack_int LAPACKE_ztgsyl_work( int matrix_layout, char trans, lapack_int ijob, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -46,7 +46,7 @@ lapack_int LAPACKE_ztgsyl_work( int matrix_order, char trans, lapack_int ijob, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztgsyl( &trans, &ijob, &m, &n, a, &lda, b, &ldb, c, &ldc, d, &ldd, e, &lde, f, &ldf, scale, dif, work, &lwork, iwork, @@ -54,7 +54,7 @@ lapack_int LAPACKE_ztgsyl_work( int matrix_order, char trans, lapack_int ijob, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,n); lapack_int ldc_t = MAX(1,m); @@ -143,12 +143,12 @@ lapack_int LAPACKE_ztgsyl_work( int matrix_order, char trans, lapack_int ijob, goto exit_level_5; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, m, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); - LAPACKE_zge_trans( matrix_order, m, m, d, ldd, d_t, ldd_t ); - LAPACKE_zge_trans( matrix_order, n, n, e, lde, e_t, lde_t ); - LAPACKE_zge_trans( matrix_order, m, n, f, ldf, f_t, ldf_t ); + LAPACKE_zge_trans( matrix_layout, m, m, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, m, m, d, ldd, d_t, ldd_t ); + LAPACKE_zge_trans( matrix_layout, n, n, e, lde, e_t, lde_t ); + LAPACKE_zge_trans( matrix_layout, m, n, f, ldf, f_t, ldf_t ); /* Call LAPACK function and adjust info */ LAPACK_ztgsyl( &trans, &ijob, &m, &n, a_t, &lda_t, b_t, &ldb_t, c_t, &ldc_t, d_t, &ldd_t, e_t, &lde_t, f_t, &ldf_t, scale, diff --git a/lapacke/src/lapacke_ztpcon.c b/lapacke/src/lapacke_ztpcon.c index 8a03067f..8ce96064 100644 --- a/lapacke/src/lapacke_ztpcon.c +++ b/lapacke/src/lapacke_ztpcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ztpcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_double* ap, double* rcond ) { lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztpcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_ztp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -6; } #endif @@ -63,7 +63,7 @@ lapack_int LAPACKE_ztpcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztpcon_work( matrix_order, norm, uplo, diag, n, ap, rcond, + info = LAPACKE_ztpcon_work( matrix_layout, norm, uplo, diag, n, ap, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztpcon_work.c b/lapacke/src/lapacke_ztpcon_work.c index 0e5d1ff3..eb22c96b 100644 --- a/lapacke/src/lapacke_ztpcon_work.c +++ b/lapacke/src/lapacke_ztpcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ztpcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_double* ap, double* rcond, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztpcon( &norm, &uplo, &diag, &n, ap, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -56,7 +56,7 @@ lapack_int LAPACKE_ztpcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ztp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_ztp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ztpcon( &norm, &uplo, &diag, &n, ap_t, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ztpmqrt.c b/lapacke/src/lapacke_ztpmqrt.c index 9e1dabd6..718a3158 100644 --- a/lapacke/src/lapacke_ztpmqrt.c +++ b/lapacke/src/lapacke_ztpmqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpmqrt( int matrix_order, char side, char trans, +lapack_int LAPACKE_ztpmqrt( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const lapack_complex_double* v, lapack_int ldv, @@ -43,22 +43,22 @@ lapack_int LAPACKE_ztpmqrt( int matrix_order, char side, char trans, { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztpmqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, k, m, a, lda ) ) { return -13; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -15; } - if( LAPACKE_zge_nancheck( matrix_order, ldt, nb, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, ldt, nb, t, ldt ) ) { return -11; } - if( LAPACKE_zge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -9; } #endif @@ -70,7 +70,7 @@ lapack_int LAPACKE_ztpmqrt( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ztpmqrt_work( matrix_order, side, trans, m, n, k, l, nb, v, + info = LAPACKE_ztpmqrt_work( matrix_layout, side, trans, m, n, k, l, nb, v, ldv, t, ldt, a, lda, b, ldb, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztpmqrt_work.c b/lapacke/src/lapacke_ztpmqrt_work.c index 411d5f01..fa4cd346 100644 --- a/lapacke/src/lapacke_ztpmqrt_work.c +++ b/lapacke/src/lapacke_ztpmqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpmqrt_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_ztpmqrt_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, lapack_int nb, const lapack_complex_double* v, lapack_int ldv, @@ -43,14 +43,14 @@ lapack_int LAPACKE_ztpmqrt_work( int matrix_order, char side, char trans, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztpmqrt( &side, &trans, &m, &n, &k, &l, &nb, v, &ldv, t, &ldt, a, &lda, b, &ldb, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k; lapack_int lda_t = MAX(1,k); lapack_int ldb_t = MAX(1,m); @@ -107,10 +107,10 @@ lapack_int LAPACKE_ztpmqrt_work( int matrix_order, char side, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_zge_trans( matrix_order, ldt, nb, t, ldt, t_t, ldt_t ); - LAPACKE_zge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_zge_trans( matrix_layout, ldt, nb, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ztpmqrt( &side, &trans, &m, &n, &k, &l, &nb, v_t, &ldv_t, t_t, &ldt_t, a_t, &lda_t, b_t, &ldb_t, work, &info ); diff --git a/lapacke/src/lapacke_ztpqrt.c b/lapacke/src/lapacke_ztpqrt.c index fc674a49..ac8dbdec 100644 --- a/lapacke/src/lapacke_ztpqrt.c +++ b/lapacke/src/lapacke_ztpqrt.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpqrt( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ztpqrt( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -41,16 +41,16 @@ lapack_int LAPACKE_ztpqrt( int matrix_order, lapack_int m, lapack_int n, { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztpqrt", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -6; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -8; } #endif @@ -62,7 +62,7 @@ lapack_int LAPACKE_ztpqrt( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ztpqrt_work( matrix_order, m, n, l, nb, a, lda, b, ldb, t, + info = LAPACKE_ztpqrt_work( matrix_layout, m, n, l, nb, a, lda, b, ldb, t, ldt, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztpqrt2.c b/lapacke/src/lapacke_ztpqrt2.c index 49ad429d..6228c10d 100644 --- a/lapacke/src/lapacke_ztpqrt2.c +++ b/lapacke/src/lapacke_ztpqrt2.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpqrt2( int matrix_order, +lapack_int LAPACKE_ztpqrt2( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* t, lapack_int ldt ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztpqrt2", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -6; } #endif - return LAPACKE_ztpqrt2_work( matrix_order, m, n, l, a, lda, b, ldb, t, ldt ); + return LAPACKE_ztpqrt2_work( matrix_layout, m, n, l, a, lda, b, ldb, t, ldt ); } diff --git a/lapacke/src/lapacke_ztpqrt2_work.c b/lapacke/src/lapacke_ztpqrt2_work.c index f9bfacfc..94218f41 100644 --- a/lapacke/src/lapacke_ztpqrt2_work.c +++ b/lapacke/src/lapacke_ztpqrt2_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpqrt2_work( int matrix_order, +lapack_int LAPACKE_ztpqrt2_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, lapack_complex_double* t, lapack_int ldt ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztpqrt2( &m, &n, &l, a, &lda, b, &ldb, t, &ldt, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,m); lapack_int ldt_t = MAX(1,n); @@ -89,8 +89,8 @@ lapack_int LAPACKE_ztpqrt2_work( int matrix_order, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ztpqrt2( &m, &n, &l, a_t, &lda_t, b_t, &ldb_t, t_t, &ldt_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztpqrt_work.c b/lapacke/src/lapacke_ztpqrt_work.c index 220b25d0..f7f42611 100644 --- a/lapacke/src/lapacke_ztpqrt_work.c +++ b/lapacke/src/lapacke_ztpqrt_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpqrt_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ztpqrt_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int l, lapack_int nb, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_ztpqrt_work( int matrix_order, lapack_int m, lapack_int n, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztpqrt( &m, &n, &l, &nb, a, &lda, b, &ldb, t, &ldt, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,m); lapack_int ldt_t = MAX(1,nb); @@ -91,8 +91,8 @@ lapack_int LAPACKE_ztpqrt_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ztpqrt( &m, &n, &l, &nb, a_t, &lda_t, b_t, &ldb_t, t_t, &ldt_t, work, &info ); diff --git a/lapacke/src/lapacke_ztprfb.c b/lapacke/src/lapacke_ztprfb.c index af10c52e..c6495739 100644 --- a/lapacke/src/lapacke_ztprfb.c +++ b/lapacke/src/lapacke_ztprfb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztprfb( int matrix_order, char side, char trans, char direct, +lapack_int LAPACKE_ztprfb( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_double* v, lapack_int ldv, @@ -44,23 +44,23 @@ lapack_int LAPACKE_ztprfb( int matrix_order, char side, char trans, char direct, lapack_int info = 0; lapack_int ldwork; lapack_int work_size; - double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + lapack_complex_double* work = NULL; + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztprfb", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, k, m, a, lda ) ) { return -14; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, b, ldb ) ) { return -16; } - if( LAPACKE_zge_nancheck( matrix_order, ldt, k, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, ldt, k, t, ldt ) ) { return -12; } - if( LAPACKE_zge_nancheck( matrix_order, ldv, k, v, ldv ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, ldv, k, v, ldv ) ) { return -10; } #endif @@ -74,14 +74,14 @@ lapack_int LAPACKE_ztprfb( int matrix_order, char side, char trans, char direct, } /* Allocate memory for working array(s) */ - work = (double*) - LAPACKE_malloc( sizeof(double) * work_size ); + work = (lapack_complex_double*) + LAPACKE_malloc( sizeof(lapack_complex_double) * work_size ); if( work == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ztprfb_work( matrix_order, side, trans, direct, storev, m, n, + info = LAPACKE_ztprfb_work( matrix_layout, side, trans, direct, storev, m, n, k, l, v, ldv, t, ldt, a, lda, b, ldb, work, ldwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ztprfb_work.c b/lapacke/src/lapacke_ztprfb_work.c index ba4cc24e..7d2282df 100644 --- a/lapacke/src/lapacke_ztprfb_work.c +++ b/lapacke/src/lapacke_ztprfb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztprfb_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_ztprfb_work( int matrix_layout, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_double* v, lapack_int ldv, const lapack_complex_double* t, lapack_int ldt, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb, - const double* work, lapack_int ldwork ) + lapack_complex_double* work, lapack_int ldwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztprfb( &side, &trans, &direct, &storev, &m, &n, &k, &l, v, &ldv, t, &ldt, a, &lda, b, &ldb, work, &ldwork ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'r' ) ? k : k; lapack_int lda_t = MAX(1,k); lapack_int ldb_t = MAX(1,m); @@ -107,10 +107,10 @@ lapack_int LAPACKE_ztprfb_work( int matrix_order, char side, char trans, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, ldv, k, v, ldv, v_t, ldv_t ); - LAPACKE_zge_trans( matrix_order, ldt, k, t, ldt, t_t, ldt_t ); - LAPACKE_zge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, ldv, k, v, ldv, v_t, ldv_t ); + LAPACKE_zge_trans( matrix_layout, ldt, k, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ztprfb( &side, &trans, &direct, &storev, &m, &n, &k, &l, v_t, &ldv_t, t_t, &ldt_t, a_t, &lda_t, b_t, &ldb_t, work, diff --git a/lapacke/src/lapacke_ztprfs.c b/lapacke/src/lapacke_ztprfs.c index 385cd774..de6897c4 100644 --- a/lapacke/src/lapacke_ztprfs.c +++ b/lapacke/src/lapacke_ztprfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztprfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztprfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* b, lapack_int ldb, @@ -43,19 +43,19 @@ lapack_int LAPACKE_ztprfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztprfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_ztp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -10; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_ztprfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztprfs_work( matrix_order, uplo, trans, diag, n, nrhs, ap, b, + info = LAPACKE_ztprfs_work( matrix_layout, uplo, trans, diag, n, nrhs, ap, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztprfs_work.c b/lapacke/src/lapacke_ztprfs_work.c index bc9b60e0..b9aabc2c 100644 --- a/lapacke/src/lapacke_ztprfs_work.c +++ b/lapacke/src/lapacke_ztprfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztprfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztprfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, const lapack_complex_double* b, lapack_int ldb, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ztprfs_work( int matrix_order, char uplo, char trans, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztprfs( &uplo, &trans, &diag, &n, &nrhs, ap, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); lapack_complex_double* b_t = NULL; @@ -89,9 +89,9 @@ lapack_int LAPACKE_ztprfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); - LAPACKE_ztp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_ztp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ztprfs( &uplo, &trans, &diag, &n, &nrhs, ap_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ztptri.c b/lapacke/src/lapacke_ztptri.c index 236cae43..4351b9d1 100644 --- a/lapacke/src/lapacke_ztptri.c +++ b/lapacke/src/lapacke_ztptri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztptri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_ztptri( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztptri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_ztp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -5; } #endif - return LAPACKE_ztptri_work( matrix_order, uplo, diag, n, ap ); + return LAPACKE_ztptri_work( matrix_layout, uplo, diag, n, ap ); } diff --git a/lapacke/src/lapacke_ztptri_work.c b/lapacke/src/lapacke_ztptri_work.c index bad8ba6a..58c3fa80 100644 --- a/lapacke/src/lapacke_ztptri_work.c +++ b/lapacke/src/lapacke_ztptri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,17 +33,17 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztptri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_ztptri_work( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztptri( &uplo, &diag, &n, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; /* Allocate memory for temporary array(s) */ ap_t = (lapack_complex_double*) @@ -54,7 +54,7 @@ lapack_int LAPACKE_ztptri_work( int matrix_order, char uplo, char diag, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ztp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_ztp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ztptri( &uplo, &diag, &n, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztptrs.c b/lapacke/src/lapacke_ztptrs.c index ac2051db..634a67b3 100644 --- a/lapacke/src/lapacke_ztptrs.c +++ b/lapacke/src/lapacke_ztptrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztptrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztptrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztptrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztp_nancheck( matrix_order, uplo, diag, n, ap ) ) { + if( LAPACKE_ztp_nancheck( matrix_layout, uplo, diag, n, ap ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -8; } #endif - return LAPACKE_ztptrs_work( matrix_order, uplo, trans, diag, n, nrhs, ap, b, + return LAPACKE_ztptrs_work( matrix_layout, uplo, trans, diag, n, nrhs, ap, b, ldb ); } diff --git a/lapacke/src/lapacke_ztptrs_work.c b/lapacke/src/lapacke_ztptrs_work.c index c635c556..acf5a847 100644 --- a/lapacke/src/lapacke_ztptrs_work.c +++ b/lapacke/src/lapacke_ztptrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztptrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztptrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* ap, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztptrs( &uplo, &trans, &diag, &n, &nrhs, ap, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldb_t = MAX(1,n); lapack_complex_double* b_t = NULL; lapack_complex_double* ap_t = NULL; @@ -71,8 +71,8 @@ lapack_int LAPACKE_ztptrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_ztp_trans( matrix_order, uplo, diag, n, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ztp_trans( matrix_layout, uplo, diag, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ztptrs( &uplo, &trans, &diag, &n, &nrhs, ap_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_ztpttf.c b/lapacke/src/lapacke_ztpttf.c index 9928fc15..f888c6f5 100644 --- a/lapacke/src/lapacke_ztpttf.c +++ b/lapacke/src/lapacke_ztpttf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztpttf( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* ap, lapack_complex_double* arf ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztpttf", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_ztpttf( int matrix_order, char transr, char uplo, return -5; } #endif - return LAPACKE_ztpttf_work( matrix_order, transr, uplo, n, ap, arf ); + return LAPACKE_ztpttf_work( matrix_layout, transr, uplo, n, ap, arf ); } diff --git a/lapacke/src/lapacke_ztpttf_work.c b/lapacke/src/lapacke_ztpttf_work.c index fbe8eec1..dcf52edd 100644 --- a/lapacke/src/lapacke_ztpttf_work.c +++ b/lapacke/src/lapacke_ztpttf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztpttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* ap, lapack_complex_double* arf ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztpttf( &transr, &uplo, &n, ap, arf, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_complex_double* ap_t = NULL; lapack_complex_double* arf_t = NULL; /* Allocate memory for temporary array(s) */ @@ -63,7 +63,7 @@ lapack_int LAPACKE_ztpttf_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ztpttf( &transr, &uplo, &n, ap_t, arf_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztpttr.c b/lapacke/src/lapacke_ztpttr.c index 56c5ad24..7a2aaccb 100644 --- a/lapacke/src/lapacke_ztpttr.c +++ b/lapacke/src/lapacke_ztpttr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,11 +33,11 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpttr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ztpttr( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztpttr", -1 ); return -1; } @@ -47,5 +47,5 @@ lapack_int LAPACKE_ztpttr( int matrix_order, char uplo, lapack_int n, return -4; } #endif - return LAPACKE_ztpttr_work( matrix_order, uplo, n, ap, a, lda ); + return LAPACKE_ztpttr_work( matrix_layout, uplo, n, ap, a, lda ); } diff --git a/lapacke/src/lapacke_ztpttr_work.c b/lapacke/src/lapacke_ztpttr_work.c index 3f484f4a..b755cb9f 100644 --- a/lapacke/src/lapacke_ztpttr_work.c +++ b/lapacke/src/lapacke_ztpttr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztpttr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ztpttr_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztpttr( &uplo, &n, ap, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; lapack_complex_double* ap_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_ztpttr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_ztpttr( &uplo, &n, ap_t, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztrcon.c b/lapacke/src/lapacke_ztrcon.c index f7c1778e..23e4c5ce 100644 --- a/lapacke/src/lapacke_ztrcon.c +++ b/lapacke/src/lapacke_ztrcon.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrcon( int matrix_order, char norm, char uplo, char diag, +lapack_int LAPACKE_ztrcon( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* rcond ) { lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrcon", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ztr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -6; } #endif @@ -63,7 +63,7 @@ lapack_int LAPACKE_ztrcon( int matrix_order, char norm, char uplo, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztrcon_work( matrix_order, norm, uplo, diag, n, a, lda, + info = LAPACKE_ztrcon_work( matrix_layout, norm, uplo, diag, n, a, lda, rcond, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztrcon_work.c b/lapacke/src/lapacke_ztrcon_work.c index 5801cc82..6c414e2d 100644 --- a/lapacke/src/lapacke_ztrcon_work.c +++ b/lapacke/src/lapacke_ztrcon_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,21 +33,21 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrcon_work( int matrix_order, char norm, char uplo, +lapack_int LAPACKE_ztrcon_work( int matrix_layout, char norm, char uplo, char diag, lapack_int n, const lapack_complex_double* a, lapack_int lda, double* rcond, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrcon( &norm, &uplo, &diag, &n, a, &lda, rcond, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -64,7 +64,7 @@ lapack_int LAPACKE_ztrcon_work( int matrix_order, char norm, char uplo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ztr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_ztr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ztrcon( &norm, &uplo, &diag, &n, a_t, &lda_t, rcond, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ztrevc.c b/lapacke/src/lapacke_ztrevc.c index 674cb425..0e8908d2 100644 --- a/lapacke/src/lapacke_ztrevc.c +++ b/lapacke/src/lapacke_ztrevc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrevc( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ztrevc( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* vl, lapack_int ldvl, @@ -43,22 +43,22 @@ lapack_int LAPACKE_ztrevc( int matrix_order, char side, char howmny, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrevc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'l' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -8; } } if( LAPACKE_lsame( side, 'b' ) || LAPACKE_lsame( side, 'r' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -10; } } @@ -76,7 +76,7 @@ lapack_int LAPACKE_ztrevc( int matrix_order, char side, char howmny, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztrevc_work( matrix_order, side, howmny, select, n, t, ldt, + info = LAPACKE_ztrevc_work( matrix_layout, side, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, mm, m, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztrevc_work.c b/lapacke/src/lapacke_ztrevc_work.c index a9984aff..9b632dfa 100644 --- a/lapacke/src/lapacke_ztrevc_work.c +++ b/lapacke/src/lapacke_ztrevc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrevc_work( int matrix_order, char side, char howmny, +lapack_int LAPACKE_ztrevc_work( int matrix_layout, char side, char howmny, const lapack_logical* select, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* vl, lapack_int ldvl, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ztrevc_work( int matrix_order, char side, char howmny, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrevc( &side, &howmny, select, &n, t, &ldt, vl, &ldvl, vr, &ldvr, &mm, m, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldt_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -98,14 +98,14 @@ lapack_int LAPACKE_ztrevc_work( int matrix_order, char side, char howmny, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( ( LAPACKE_lsame( side, 'l' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( ( LAPACKE_lsame( side, 'r' ) || LAPACKE_lsame( side, 'b' ) ) && LAPACKE_lsame( howmny, 'b' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztrevc( &side, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t, diff --git a/lapacke/src/lapacke_ztrexc.c b/lapacke/src/lapacke_ztrexc.c index b300731b..7d4a0601 100644 --- a/lapacke/src/lapacke_ztrexc.c +++ b/lapacke/src/lapacke_ztrexc.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,26 +33,26 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrexc( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_ztrexc( int matrix_layout, char compq, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* q, lapack_int ldq, lapack_int ifst, lapack_int ilst ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrexc", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -6; } } - if( LAPACKE_zge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -4; } #endif - return LAPACKE_ztrexc_work( matrix_order, compq, n, t, ldt, q, ldq, ifst, + return LAPACKE_ztrexc_work( matrix_layout, compq, n, t, ldt, q, ldq, ifst, ilst ); } diff --git a/lapacke/src/lapacke_ztrexc_work.c b/lapacke/src/lapacke_ztrexc_work.c index 2434b104..7b3ba3cd 100644 --- a/lapacke/src/lapacke_ztrexc_work.c +++ b/lapacke/src/lapacke_ztrexc_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrexc_work( int matrix_order, char compq, lapack_int n, +lapack_int LAPACKE_ztrexc_work( int matrix_layout, char compq, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* q, lapack_int ldq, lapack_int ifst, lapack_int ilst ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrexc( &compq, &n, t, &ldt, q, &ldq, &ifst, &ilst, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); lapack_complex_double* t_t = NULL; @@ -78,9 +78,9 @@ lapack_int LAPACKE_ztrexc_work( int matrix_order, char compq, lapack_int n, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_zge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztrexc( &compq, &n, t_t, &ldt_t, q_t, &ldq_t, &ifst, &ilst, diff --git a/lapacke/src/lapacke_ztrrfs.c b/lapacke/src/lapacke_ztrrfs.c index 605aae58..418f1597 100644 --- a/lapacke/src/lapacke_ztrrfs.c +++ b/lapacke/src/lapacke_ztrrfs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrrfs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztrrfs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -43,19 +43,19 @@ lapack_int LAPACKE_ztrrfs( int matrix_order, char uplo, char trans, char diag, lapack_int info = 0; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrrfs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ztr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, x, ldx ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, x, ldx ) ) { return -11; } #endif @@ -72,7 +72,7 @@ lapack_int LAPACKE_ztrrfs( int matrix_order, char uplo, char trans, char diag, goto exit_level_1; } /* Call middle-level interface */ - info = LAPACKE_ztrrfs_work( matrix_order, uplo, trans, diag, n, nrhs, a, + info = LAPACKE_ztrrfs_work( matrix_layout, uplo, trans, diag, n, nrhs, a, lda, b, ldb, x, ldx, ferr, berr, work, rwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztrrfs_work.c b/lapacke/src/lapacke_ztrrfs_work.c index 093ef2c5..7bfad811 100644 --- a/lapacke/src/lapacke_ztrrfs_work.c +++ b/lapacke/src/lapacke_ztrrfs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrrfs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztrrfs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ztrrfs_work( int matrix_order, char uplo, char trans, lapack_complex_double* work, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrrfs( &uplo, &trans, &diag, &n, &nrhs, a, &lda, b, &ldb, x, &ldx, ferr, berr, work, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_int ldx_t = MAX(1,n); @@ -94,9 +94,9 @@ lapack_int LAPACKE_ztrrfs_work( int matrix_order, char uplo, char trans, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_ztr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, x, ldx, x_t, ldx_t ); + LAPACKE_ztr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, x, ldx, x_t, ldx_t ); /* Call LAPACK function and adjust info */ LAPACK_ztrrfs( &uplo, &trans, &diag, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, x_t, &ldx_t, ferr, berr, work, rwork, &info ); diff --git a/lapacke/src/lapacke_ztrsen.c b/lapacke/src/lapacke_ztrsen.c index 168cc170..4b8d8dad 100644 --- a/lapacke/src/lapacke_ztrsen.c +++ b/lapacke/src/lapacke_ztrsen.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrsen( int matrix_order, char job, char compq, +lapack_int LAPACKE_ztrsen( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* q, lapack_int ldq, @@ -44,23 +44,23 @@ lapack_int LAPACKE_ztrsen( int matrix_order, char job, char compq, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrsen", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ if( LAPACKE_lsame( compq, 'v' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, n, q, ldq ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, q, ldq ) ) { return -8; } } - if( LAPACKE_zge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ztrsen_work( matrix_order, job, compq, select, n, t, ldt, q, + info = LAPACKE_ztrsen_work( matrix_layout, job, compq, select, n, t, ldt, q, ldq, w, m, s, sep, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_ztrsen( int matrix_order, char job, char compq, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ztrsen_work( matrix_order, job, compq, select, n, t, ldt, q, + info = LAPACKE_ztrsen_work( matrix_layout, job, compq, select, n, t, ldt, q, ldq, w, m, s, sep, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_ztrsen_work.c b/lapacke/src/lapacke_ztrsen_work.c index 21679545..21a7b8fa 100644 --- a/lapacke/src/lapacke_ztrsen_work.c +++ b/lapacke/src/lapacke_ztrsen_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrsen_work( int matrix_order, char job, char compq, +lapack_int LAPACKE_ztrsen_work( int matrix_layout, char job, char compq, const lapack_logical* select, lapack_int n, lapack_complex_double* t, lapack_int ldt, lapack_complex_double* q, lapack_int ldq, @@ -42,14 +42,14 @@ lapack_int LAPACKE_ztrsen_work( int matrix_order, char job, char compq, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrsen( &job, &compq, select, &n, t, &ldt, q, &ldq, w, m, s, sep, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_int ldt_t = MAX(1,n); lapack_complex_double* t_t = NULL; @@ -88,9 +88,9 @@ lapack_int LAPACKE_ztrsen_work( int matrix_order, char job, char compq, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( compq, 'v' ) ) { - LAPACKE_zge_trans( matrix_order, n, n, q, ldq, q_t, ldq_t ); + LAPACKE_zge_trans( matrix_layout, n, n, q, ldq, q_t, ldq_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztrsen( &job, &compq, select, &n, t_t, &ldt_t, q_t, &ldq_t, w, m, diff --git a/lapacke/src/lapacke_ztrsna.c b/lapacke/src/lapacke_ztrsna.c index 66afa522..34a1ad15 100644 --- a/lapacke/src/lapacke_ztrsna.c +++ b/lapacke/src/lapacke_ztrsna.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrsna( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ztrsna( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* t, lapack_int ldt, const lapack_complex_double* vl, lapack_int ldvl, @@ -45,22 +45,22 @@ lapack_int LAPACKE_ztrsna( int matrix_order, char job, char howmny, lapack_int ldwork = LAPACKE_lsame( job, 'e' ) ? 1 : MAX(1,n) ; double* rwork = NULL; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrsna", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, t, ldt ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, t, ldt ) ) { return -6; } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vl, ldvl ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vl, ldvl ) ) { return -8; } } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - if( LAPACKE_zge_nancheck( matrix_order, n, mm, vr, ldvr ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, mm, vr, ldvr ) ) { return -10; } } @@ -83,7 +83,7 @@ lapack_int LAPACKE_ztrsna( int matrix_order, char job, char howmny, } } /* Call middle-level interface */ - info = LAPACKE_ztrsna_work( matrix_order, job, howmny, select, n, t, ldt, + info = LAPACKE_ztrsna_work( matrix_layout, job, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, s, sep, mm, m, work, ldwork, rwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_ztrsna_work.c b/lapacke/src/lapacke_ztrsna_work.c index 91b28918..4aea6408 100644 --- a/lapacke/src/lapacke_ztrsna_work.c +++ b/lapacke/src/lapacke_ztrsna_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrsna_work( int matrix_order, char job, char howmny, +lapack_int LAPACKE_ztrsna_work( int matrix_layout, char job, char howmny, const lapack_logical* select, lapack_int n, const lapack_complex_double* t, lapack_int ldt, const lapack_complex_double* vl, @@ -45,14 +45,14 @@ lapack_int LAPACKE_ztrsna_work( int matrix_order, char job, char howmny, double* rwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrsna( &job, &howmny, select, &n, t, &ldt, vl, &ldvl, vr, &ldvr, s, sep, &mm, m, work, &ldwork, rwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldt_t = MAX(1,n); lapack_int ldvl_t = MAX(1,n); lapack_int ldvr_t = MAX(1,n); @@ -101,12 +101,12 @@ lapack_int LAPACKE_ztrsna_work( int matrix_order, char job, char howmny, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, t, ldt, t_t, ldt_t ); + LAPACKE_zge_trans( matrix_layout, n, n, t, ldt, t_t, ldt_t ); if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vl, ldvl, vl_t, ldvl_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vl, ldvl, vl_t, ldvl_t ); } if( LAPACKE_lsame( job, 'b' ) || LAPACKE_lsame( job, 'e' ) ) { - LAPACKE_zge_trans( matrix_order, n, mm, vr, ldvr, vr_t, ldvr_t ); + LAPACKE_zge_trans( matrix_layout, n, mm, vr, ldvr, vr_t, ldvr_t ); } /* Call LAPACK function and adjust info */ LAPACK_ztrsna( &job, &howmny, select, &n, t_t, &ldt_t, vl_t, &ldvl_t, diff --git a/lapacke/src/lapacke_ztrsyl.c b/lapacke/src/lapacke_ztrsyl.c index d4c64f3f..ea7908fa 100644 --- a/lapacke/src/lapacke_ztrsyl.c +++ b/lapacke/src/lapacke_ztrsyl.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,29 +33,29 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrsyl( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_ztrsyl( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, lapack_complex_double* c, lapack_int ldc, double* scale ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrsyl", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, m, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, m, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, n, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { return -9; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } #endif - return LAPACKE_ztrsyl_work( matrix_order, trana, tranb, isgn, m, n, a, lda, + return LAPACKE_ztrsyl_work( matrix_layout, trana, tranb, isgn, m, n, a, lda, b, ldb, c, ldc, scale ); } diff --git a/lapacke/src/lapacke_ztrsyl_work.c b/lapacke/src/lapacke_ztrsyl_work.c index 3b9d3641..4c7b8c25 100644 --- a/lapacke/src/lapacke_ztrsyl_work.c +++ b/lapacke/src/lapacke_ztrsyl_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrsyl_work( int matrix_order, char trana, char tranb, +lapack_int LAPACKE_ztrsyl_work( int matrix_layout, char trana, char tranb, lapack_int isgn, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* b, lapack_int ldb, @@ -41,14 +41,14 @@ lapack_int LAPACKE_ztrsyl_work( int matrix_order, char trana, char tranb, double* scale ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrsyl( &trana, &tranb, &isgn, &m, &n, a, &lda, b, &ldb, c, &ldc, scale, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_int ldb_t = MAX(1,n); lapack_int ldc_t = MAX(1,m); @@ -91,9 +91,9 @@ lapack_int LAPACKE_ztrsyl_work( int matrix_order, char trana, char tranb, goto exit_level_2; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, m, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, n, b, ldb, b_t, ldb_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, m, m, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, b, ldb, b_t, ldb_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_ztrsyl( &trana, &tranb, &isgn, &m, &n, a_t, &lda_t, b_t, &ldb_t, c_t, &ldc_t, scale, &info ); diff --git a/lapacke/src/lapacke_ztrtri.c b/lapacke/src/lapacke_ztrtri.c index 6a876bc9..197f432d 100644 --- a/lapacke/src/lapacke_ztrtri.c +++ b/lapacke/src/lapacke_ztrtri.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrtri( int matrix_order, char uplo, char diag, lapack_int n, +lapack_int LAPACKE_ztrtri( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_double* a, lapack_int lda ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrtri", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ztr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -5; } #endif - return LAPACKE_ztrtri_work( matrix_order, uplo, diag, n, a, lda ); + return LAPACKE_ztrtri_work( matrix_layout, uplo, diag, n, a, lda ); } diff --git a/lapacke/src/lapacke_ztrtri_work.c b/lapacke/src/lapacke_ztrtri_work.c index f099f51d..ea6e1f63 100644 --- a/lapacke/src/lapacke_ztrtri_work.c +++ b/lapacke/src/lapacke_ztrtri_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrtri_work( int matrix_order, char uplo, char diag, +lapack_int LAPACKE_ztrtri_work( int matrix_layout, char uplo, char diag, lapack_int n, lapack_complex_double* a, lapack_int lda ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrtri( &uplo, &diag, &n, a, &lda, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -61,7 +61,7 @@ lapack_int LAPACKE_ztrtri_work( int matrix_order, char uplo, char diag, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_ztr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_ztr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ztrtri( &uplo, &diag, &n, a_t, &lda_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztrtrs.c b/lapacke/src/lapacke_ztrtrs.c index fec91dc5..3ab3523d 100644 --- a/lapacke/src/lapacke_ztrtrs.c +++ b/lapacke/src/lapacke_ztrtrs.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,24 +33,24 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrtrs( int matrix_order, char uplo, char trans, char diag, +lapack_int LAPACKE_ztrtrs( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrtrs", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_ztr_nancheck( matrix_order, uplo, diag, n, a, lda ) ) { + if( LAPACKE_ztr_nancheck( matrix_layout, uplo, diag, n, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, n, nrhs, b, ldb ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, nrhs, b, ldb ) ) { return -9; } #endif - return LAPACKE_ztrtrs_work( matrix_order, uplo, trans, diag, n, nrhs, a, + return LAPACKE_ztrtrs_work( matrix_layout, uplo, trans, diag, n, nrhs, a, lda, b, ldb ); } diff --git a/lapacke/src/lapacke_ztrtrs_work.c b/lapacke/src/lapacke_ztrtrs_work.c index 176c60c2..cbba789f 100644 --- a/lapacke/src/lapacke_ztrtrs_work.c +++ b/lapacke/src/lapacke_ztrtrs_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrtrs_work( int matrix_order, char uplo, char trans, +lapack_int LAPACKE_ztrtrs_work( int matrix_layout, char uplo, char trans, char diag, lapack_int n, lapack_int nrhs, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrtrs( &uplo, &trans, &diag, &n, &nrhs, a, &lda, b, &ldb, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_int ldb_t = MAX(1,n); lapack_complex_double* a_t = NULL; @@ -77,8 +77,8 @@ lapack_int LAPACKE_ztrtrs_work( int matrix_order, char uplo, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_ztr_trans( matrix_order, uplo, diag, n, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, n, nrhs, b, ldb, b_t, ldb_t ); + LAPACKE_ztr_trans( matrix_layout, uplo, diag, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, nrhs, b, ldb, b_t, ldb_t ); /* Call LAPACK function and adjust info */ LAPACK_ztrtrs( &uplo, &trans, &diag, &n, &nrhs, a_t, &lda_t, b_t, &ldb_t, &info ); diff --git a/lapacke/src/lapacke_ztrttf.c b/lapacke/src/lapacke_ztrttf.c index 34a638d1..bb321936 100644 --- a/lapacke/src/lapacke_ztrttf.c +++ b/lapacke/src/lapacke_ztrttf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrttf( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztrttf( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* arf ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrttf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } #endif - return LAPACKE_ztrttf_work( matrix_order, transr, uplo, n, a, lda, arf ); + return LAPACKE_ztrttf_work( matrix_layout, transr, uplo, n, a, lda, arf ); } diff --git a/lapacke/src/lapacke_ztrttf_work.c b/lapacke/src/lapacke_ztrttf_work.c index 43282837..4a801195 100644 --- a/lapacke/src/lapacke_ztrttf_work.c +++ b/lapacke/src/lapacke_ztrttf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrttf_work( int matrix_order, char transr, char uplo, +lapack_int LAPACKE_ztrttf_work( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* arf ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrttf( &transr, &uplo, &n, a, &lda, arf, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; lapack_complex_double* arf_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_ztrttf_work( int matrix_order, char transr, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ztrttf( &transr, &uplo, &n, a_t, &lda_t, arf_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztrttp.c b/lapacke/src/lapacke_ztrttp.c index 59761150..770e9e86 100644 --- a/lapacke/src/lapacke_ztrttp.c +++ b/lapacke/src/lapacke_ztrttp.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrttp( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ztrttp( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* ap ) { - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztrttp", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } #endif - return LAPACKE_ztrttp_work( matrix_order, uplo, n, a, lda, ap ); + return LAPACKE_ztrttp_work( matrix_layout, uplo, n, a, lda, ap ); } diff --git a/lapacke/src/lapacke_ztrttp_work.c b/lapacke/src/lapacke_ztrttp_work.c index be2b4aa0..debb183d 100644 --- a/lapacke/src/lapacke_ztrttp_work.c +++ b/lapacke/src/lapacke_ztrttp_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,18 +33,18 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztrttp_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_ztrttp_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* a, lapack_int lda, lapack_complex_double* ap ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztrttp( &uplo, &n, a, &lda, ap, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; lapack_complex_double* ap_t = NULL; @@ -69,7 +69,7 @@ lapack_int LAPACKE_ztrttp_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ztrttp( &uplo, &n, a_t, &lda_t, ap_t, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_ztzrzf.c b/lapacke/src/lapacke_ztzrzf.c index b16a2292..79fb3eb6 100644 --- a/lapacke/src/lapacke_ztzrzf.c +++ b/lapacke/src/lapacke_ztzrzf.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztzrzf( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ztzrzf( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau ) { @@ -41,18 +41,18 @@ lapack_int LAPACKE_ztzrzf( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_ztzrzf", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -4; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_ztzrzf_work( matrix_order, m, n, a, lda, tau, &work_query, + info = LAPACKE_ztzrzf_work( matrix_layout, m, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -66,7 +66,7 @@ lapack_int LAPACKE_ztzrzf( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_ztzrzf_work( matrix_order, m, n, a, lda, tau, work, lwork ); + info = LAPACKE_ztzrzf_work( matrix_layout, m, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_ztzrzf_work.c b/lapacke/src/lapacke_ztzrzf_work.c index 3e840c10..73ff9351 100644 --- a/lapacke/src/lapacke_ztzrzf_work.c +++ b/lapacke/src/lapacke_ztzrzf_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_ztzrzf_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_ztzrzf_work( int matrix_layout, lapack_int m, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_ztzrzf( &m, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_ztzrzf_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_ztzrzf( &m, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zunbdb.c b/lapacke/src/lapacke_zunbdb.c index 7bc12b85..9b02be67 100644 --- a/lapacke/src/lapacke_zunbdb.c +++ b/lapacke/src/lapacke_zunbdb.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunbdb( int matrix_order, char trans, char signs, +lapack_int LAPACKE_zunbdb( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_double* x11, lapack_int ldx11, lapack_complex_double* x12, lapack_int ldx12, @@ -50,7 +50,7 @@ lapack_int LAPACKE_zunbdb( int matrix_order, char trans, char signs, lapack_complex_double* work = NULL; lapack_complex_double work_query; lapack_int nrows_x11, nrows_x12, nrows_x21, nrows_x22; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunbdb", -1 ); return -1; } @@ -60,21 +60,21 @@ lapack_int LAPACKE_zunbdb( int matrix_order, char trans, char signs, nrows_x12 = ( LAPACKE_lsame( trans, 'n' ) ? p : m-q); nrows_x21 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : q); nrows_x22 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : m-q); - if( LAPACKE_zge_nancheck( matrix_order, nrows_x11, q, x11, ldx11 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_x11, q, x11, ldx11 ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, nrows_x12, m-q, x12, ldx12 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_x12, m-q, x12, ldx12 ) ) { return -9; } - if( LAPACKE_zge_nancheck( matrix_order, nrows_x21, q, x21, ldx21 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_x21, q, x21, ldx21 ) ) { return -11; } - if( LAPACKE_zge_nancheck( matrix_order, nrows_x22, m-q, x22, ldx22 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_x22, m-q, x22, ldx22 ) ) { return -13; } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunbdb_work( matrix_order, trans, signs, m, p, q, x11, ldx11, + info = LAPACKE_zunbdb_work( matrix_layout, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, phi, taup1, taup2, tauq1, tauq2, &work_query, lwork ); @@ -90,7 +90,7 @@ lapack_int LAPACKE_zunbdb( int matrix_order, char trans, char signs, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunbdb_work( matrix_order, trans, signs, m, p, q, x11, ldx11, + info = LAPACKE_zunbdb_work( matrix_layout, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, phi, taup1, taup2, tauq1, tauq2, work, lwork ); /* Release memory and exit */ diff --git a/lapacke/src/lapacke_zunbdb_work.c b/lapacke/src/lapacke_zunbdb_work.c index 4f08da3f..2fcf2a97 100644 --- a/lapacke/src/lapacke_zunbdb_work.c +++ b/lapacke/src/lapacke_zunbdb_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunbdb_work( int matrix_order, char trans, char signs, +lapack_int LAPACKE_zunbdb_work( int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_double* x11, lapack_int ldx11, lapack_complex_double* x12, lapack_int ldx12, @@ -47,7 +47,7 @@ lapack_int LAPACKE_zunbdb_work( int matrix_order, char trans, char signs, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunbdb( &trans, &signs, &m, &p, &q, x11, &ldx11, x12, &ldx12, x21, &ldx21, x22, &ldx22, theta, phi, taup1, taup2, @@ -55,7 +55,7 @@ lapack_int LAPACKE_zunbdb_work( int matrix_order, char trans, char signs, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_x11 = ( LAPACKE_lsame( trans, 'n' ) ? p : q); lapack_int nrows_x12 = ( LAPACKE_lsame( trans, 'n' ) ? p : m-q); lapack_int nrows_x21 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : q); @@ -126,13 +126,13 @@ lapack_int LAPACKE_zunbdb_work( int matrix_order, char trans, char signs, goto exit_level_3; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, nrows_x11, q, x11, ldx11, x11_t, + LAPACKE_zge_trans( matrix_layout, nrows_x11, q, x11, ldx11, x11_t, ldx11_t ); - LAPACKE_zge_trans( matrix_order, nrows_x12, m-q, x12, ldx12, x12_t, + LAPACKE_zge_trans( matrix_layout, nrows_x12, m-q, x12, ldx12, x12_t, ldx12_t ); - LAPACKE_zge_trans( matrix_order, nrows_x21, q, x21, ldx21, x21_t, + LAPACKE_zge_trans( matrix_layout, nrows_x21, q, x21, ldx21, x21_t, ldx21_t ); - LAPACKE_zge_trans( matrix_order, nrows_x22, m-q, x22, ldx22, x22_t, + LAPACKE_zge_trans( matrix_layout, nrows_x22, m-q, x22, ldx22, x22_t, ldx22_t ); /* Call LAPACK function and adjust info */ LAPACK_zunbdb( &trans, &signs, &m, &p, &q, x11_t, &ldx11_t, x12_t, diff --git a/lapacke/src/lapacke_zuncsd.c b/lapacke/src/lapacke_zuncsd.c index bbc4d7e0..191051e8 100644 --- a/lapacke/src/lapacke_zuncsd.c +++ b/lapacke/src/lapacke_zuncsd.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zuncsd( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_zuncsd( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_double* x11, lapack_int ldx11, @@ -55,7 +55,7 @@ lapack_int LAPACKE_zuncsd( int matrix_order, char jobu1, char jobu2, double rwork_query; lapack_complex_double work_query; lapack_int nrows_x11, nrows_x12, nrows_x21, nrows_x22; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zuncsd", -1 ); return -1; } @@ -65,27 +65,27 @@ lapack_int LAPACKE_zuncsd( int matrix_order, char jobu1, char jobu2, nrows_x12 = ( LAPACKE_lsame( trans, 'n' ) ? p : m-q); nrows_x21 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : q); nrows_x22 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : m-q); - if( LAPACKE_zge_nancheck( matrix_order, nrows_x11, q, x11, ldx11 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_x11, q, x11, ldx11 ) ) { return -11; } - if( LAPACKE_zge_nancheck( matrix_order, nrows_x12, m-q, x12, ldx12 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_x12, m-q, x12, ldx12 ) ) { return -13; } - if( LAPACKE_zge_nancheck( matrix_order, nrows_x21, q, x21, ldx21 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_x21, q, x21, ldx21 ) ) { return -15; } - if( LAPACKE_zge_nancheck( matrix_order, nrows_x22, m-q, x22, ldx22 ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, nrows_x22, m-q, x22, ldx22 ) ) { return -17; } #endif /* Allocate memory for working array(s) */ - iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * MAX(1,m-q) ); + iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * MAX(1,m-MIN(MIN(p,m-p),MIN(q,m-q))) ); if( iwork == NULL ) { info = LAPACK_WORK_MEMORY_ERROR; goto exit_level_0; } /* Query optimal working array(s) size */ - info = LAPACKE_zuncsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_zuncsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, &work_query, @@ -108,7 +108,7 @@ lapack_int LAPACKE_zuncsd( int matrix_order, char jobu1, char jobu2, goto exit_level_2; } /* Call middle-level interface */ - info = LAPACKE_zuncsd_work( matrix_order, jobu1, jobu2, jobv1t, jobv2t, + info = LAPACKE_zuncsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, work, lwork, diff --git a/lapacke/src/lapacke_zuncsd_work.c b/lapacke/src/lapacke_zuncsd_work.c index e4e348ec..4c30efe7 100644 --- a/lapacke/src/lapacke_zuncsd_work.c +++ b/lapacke/src/lapacke_zuncsd_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zuncsd_work( int matrix_order, char jobu1, char jobu2, +lapack_int LAPACKE_zuncsd_work( int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, lapack_complex_double* x11, @@ -50,7 +50,7 @@ lapack_int LAPACKE_zuncsd_work( int matrix_order, char jobu1, char jobu2, lapack_int* iwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zuncsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m, &p, &q, x11, &ldx11, x12, &ldx12, x21, &ldx21, x22, &ldx22, @@ -59,7 +59,7 @@ lapack_int LAPACKE_zuncsd_work( int matrix_order, char jobu1, char jobu2, if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nrows_x11 = ( LAPACKE_lsame( trans, 'n' ) ? p : q); lapack_int nrows_x12 = ( LAPACKE_lsame( trans, 'n' ) ? p : m-q); lapack_int nrows_x21 = ( LAPACKE_lsame( trans, 'n' ) ? m-p : q); @@ -200,13 +200,13 @@ lapack_int LAPACKE_zuncsd_work( int matrix_order, char jobu1, char jobu2, } } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, nrows_x11, q, x11, ldx11, x11_t, + LAPACKE_zge_trans( matrix_layout, nrows_x11, q, x11, ldx11, x11_t, ldx11_t ); - LAPACKE_zge_trans( matrix_order, nrows_x12, m-q, x12, ldx12, x12_t, + LAPACKE_zge_trans( matrix_layout, nrows_x12, m-q, x12, ldx12, x12_t, ldx12_t ); - LAPACKE_zge_trans( matrix_order, nrows_x21, q, x21, ldx21, x21_t, + LAPACKE_zge_trans( matrix_layout, nrows_x21, q, x21, ldx21, x21_t, ldx21_t ); - LAPACKE_zge_trans( matrix_order, nrows_x22, m-q, x22, ldx22, x22_t, + LAPACKE_zge_trans( matrix_layout, nrows_x22, m-q, x22, ldx22, x22_t, ldx22_t ); /* Call LAPACK function and adjust info */ LAPACK_zuncsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &trans, &signs, &m, &p, diff --git a/lapacke/src/lapacke_zungbr.c b/lapacke/src/lapacke_zungbr.c index 35a95feb..52696680 100644 --- a/lapacke/src/lapacke_zungbr.c +++ b/lapacke/src/lapacke_zungbr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungbr( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_zungbr( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_zungbr( int matrix_order, char vect, lapack_int m, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zungbr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -6; } if( LAPACKE_z_nancheck( MIN(m,k), tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_zungbr( int matrix_order, char vect, lapack_int m, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zungbr_work( matrix_order, vect, m, n, k, a, lda, tau, + info = LAPACKE_zungbr_work( matrix_layout, vect, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_zungbr( int matrix_order, char vect, lapack_int m, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zungbr_work( matrix_order, vect, m, n, k, a, lda, tau, work, + info = LAPACKE_zungbr_work( matrix_layout, vect, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zungbr_work.c b/lapacke/src/lapacke_zungbr_work.c index 82d1554c..c605786a 100644 --- a/lapacke/src/lapacke_zungbr_work.c +++ b/lapacke/src/lapacke_zungbr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungbr_work( int matrix_order, char vect, lapack_int m, +lapack_int LAPACKE_zungbr_work( int matrix_layout, char vect, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zungbr( &vect, &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -69,7 +69,7 @@ lapack_int LAPACKE_zungbr_work( int matrix_order, char vect, lapack_int m, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zungbr( &vect, &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zunghr.c b/lapacke/src/lapacke_zunghr.c index 97c2c511..916128f1 100644 --- a/lapacke/src/lapacke_zunghr.c +++ b/lapacke/src/lapacke_zunghr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunghr( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_zunghr( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_zunghr( int matrix_order, lapack_int n, lapack_int ilo, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunghr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -5; } if( LAPACKE_z_nancheck( n-1, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_zunghr( int matrix_order, lapack_int n, lapack_int ilo, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunghr_work( matrix_order, n, ilo, ihi, a, lda, tau, + info = LAPACKE_zunghr_work( matrix_layout, n, ilo, ihi, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_zunghr( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunghr_work( matrix_order, n, ilo, ihi, a, lda, tau, work, + info = LAPACKE_zunghr_work( matrix_layout, n, ilo, ihi, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunghr_work.c b/lapacke/src/lapacke_zunghr_work.c index e3fa7c0c..cc64293b 100644 --- a/lapacke/src/lapacke_zunghr_work.c +++ b/lapacke/src/lapacke_zunghr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunghr_work( int matrix_order, lapack_int n, lapack_int ilo, +lapack_int LAPACKE_zunghr_work( int matrix_layout, lapack_int n, lapack_int ilo, lapack_int ihi, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunghr( &n, &ilo, &ihi, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -69,7 +69,7 @@ lapack_int LAPACKE_zunghr_work( int matrix_order, lapack_int n, lapack_int ilo, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zunghr( &n, &ilo, &ihi, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zunglq.c b/lapacke/src/lapacke_zunglq.c index 20237306..98dfbda9 100644 --- a/lapacke/src/lapacke_zunglq.c +++ b/lapacke/src/lapacke_zunglq.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunglq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zunglq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_zunglq( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunglq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_zunglq( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunglq_work( matrix_order, m, n, k, a, lda, tau, &work_query, + info = LAPACKE_zunglq_work( matrix_layout, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_zunglq( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunglq_work( matrix_order, m, n, k, a, lda, tau, work, + info = LAPACKE_zunglq_work( matrix_layout, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunglq_work.c b/lapacke/src/lapacke_zunglq_work.c index f1663410..9ba98b82 100644 --- a/lapacke/src/lapacke_zunglq_work.c +++ b/lapacke/src/lapacke_zunglq_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunglq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zunglq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunglq( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_zunglq_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zunglq( &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zungql.c b/lapacke/src/lapacke_zungql.c index b3429014..9f9ff885 100644 --- a/lapacke/src/lapacke_zungql.c +++ b/lapacke/src/lapacke_zungql.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungql( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungql( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_zungql( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zungql", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_zungql( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zungql_work( matrix_order, m, n, k, a, lda, tau, &work_query, + info = LAPACKE_zungql_work( matrix_layout, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_zungql( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zungql_work( matrix_order, m, n, k, a, lda, tau, work, + info = LAPACKE_zungql_work( matrix_layout, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zungql_work.c b/lapacke/src/lapacke_zungql_work.c index 6674d8cd..b4b967a6 100644 --- a/lapacke/src/lapacke_zungql_work.c +++ b/lapacke/src/lapacke_zungql_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungql_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungql_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zungql( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_zungql_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zungql( &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zungqr.c b/lapacke/src/lapacke_zungqr.c index 75e231e1..53da5c13 100644 --- a/lapacke/src/lapacke_zungqr.c +++ b/lapacke/src/lapacke_zungqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungqr( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungqr( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_zungqr( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zungqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_zungqr( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zungqr_work( matrix_order, m, n, k, a, lda, tau, &work_query, + info = LAPACKE_zungqr_work( matrix_layout, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_zungqr( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zungqr_work( matrix_order, m, n, k, a, lda, tau, work, + info = LAPACKE_zungqr_work( matrix_layout, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zungqr_work.c b/lapacke/src/lapacke_zungqr_work.c index a51dc32e..507e4cbe 100644 --- a/lapacke/src/lapacke_zungqr_work.c +++ b/lapacke/src/lapacke_zungqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungqr_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungqr_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zungqr( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_zungqr_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zungqr( &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zungrq.c b/lapacke/src/lapacke_zungrq.c index 4d3e2b6d..f5417481 100644 --- a/lapacke/src/lapacke_zungrq.c +++ b/lapacke/src/lapacke_zungrq.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungrq( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungrq( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_zungrq( int matrix_order, lapack_int m, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zungrq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ) ) { return -5; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_zungrq( int matrix_order, lapack_int m, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zungrq_work( matrix_order, m, n, k, a, lda, tau, &work_query, + info = LAPACKE_zungrq_work( matrix_layout, m, n, k, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_zungrq( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zungrq_work( matrix_order, m, n, k, a, lda, tau, work, + info = LAPACKE_zungrq_work( matrix_layout, m, n, k, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zungrq_work.c b/lapacke/src/lapacke_zungrq_work.c index 3473f028..6a9ee670 100644 --- a/lapacke/src/lapacke_zungrq_work.c +++ b/lapacke/src/lapacke_zungrq_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungrq_work( int matrix_order, lapack_int m, lapack_int n, +lapack_int LAPACKE_zungrq_work( int matrix_layout, lapack_int m, lapack_int n, lapack_int k, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zungrq( &m, &n, &k, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,m); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -68,7 +68,7 @@ lapack_int LAPACKE_zungrq_work( int matrix_order, lapack_int m, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zungrq( &m, &n, &k, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zungtr.c b/lapacke/src/lapacke_zungtr.c index 0c67d7e9..a7dd855d 100644 --- a/lapacke/src/lapacke_zungtr.c +++ b/lapacke/src/lapacke_zungtr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zungtr( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau ) { @@ -41,13 +41,13 @@ lapack_int LAPACKE_zungtr( int matrix_order, char uplo, lapack_int n, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zungtr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, n, n, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, n, n, a, lda ) ) { return -4; } if( LAPACKE_z_nancheck( n-1, tau, 1 ) ) { @@ -55,7 +55,7 @@ lapack_int LAPACKE_zungtr( int matrix_order, char uplo, lapack_int n, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zungtr_work( matrix_order, uplo, n, a, lda, tau, &work_query, + info = LAPACKE_zungtr_work( matrix_layout, uplo, n, a, lda, tau, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -69,7 +69,7 @@ lapack_int LAPACKE_zungtr( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zungtr_work( matrix_order, uplo, n, a, lda, tau, work, + info = LAPACKE_zungtr_work( matrix_layout, uplo, n, a, lda, tau, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zungtr_work.c b/lapacke/src/lapacke_zungtr_work.c index 7b50c877..2f1fd2dc 100644 --- a/lapacke/src/lapacke_zungtr_work.c +++ b/lapacke/src/lapacke_zungtr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,19 +33,19 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zungtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zungtr_work( int matrix_layout, char uplo, lapack_int n, lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zungtr( &uplo, &n, a, &lda, tau, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,n); lapack_complex_double* a_t = NULL; /* Check leading dimension(s) */ @@ -67,7 +67,7 @@ lapack_int LAPACKE_zungtr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, n, n, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, n, n, a, lda, a_t, lda_t ); /* Call LAPACK function and adjust info */ LAPACK_zungtr( &uplo, &n, a_t, &lda_t, tau, work, &lwork, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zunmbr.c b/lapacke/src/lapacke_zunmbr.c index 827a25c5..e0d902a2 100644 --- a/lapacke/src/lapacke_zunmbr.c +++ b/lapacke/src/lapacke_zunmbr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmbr( int matrix_order, char vect, char side, char trans, +lapack_int LAPACKE_zunmbr( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zunmbr( int matrix_order, char vect, char side, char trans, lapack_complex_double* work = NULL; lapack_complex_double work_query; lapack_int nq, r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunmbr", -1 ); return -1; } @@ -52,10 +52,10 @@ lapack_int LAPACKE_zunmbr( int matrix_order, char vect, char side, char trans, /* Optionally check input matrices for NaNs */ nq = LAPACKE_lsame( side, 'l' ) ? m : n; r = LAPACKE_lsame( vect, 'q' ) ? nq : MIN(nq,k); - if( LAPACKE_zge_nancheck( matrix_order, r, MIN(nq,k), a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, r, MIN(nq,k), a, lda ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } if( LAPACKE_z_nancheck( MIN(nq,k), tau, 1 ) ) { @@ -63,7 +63,7 @@ lapack_int LAPACKE_zunmbr( int matrix_order, char vect, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunmbr_work( matrix_order, vect, side, trans, m, n, k, a, + info = LAPACKE_zunmbr_work( matrix_layout, vect, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -77,7 +77,7 @@ lapack_int LAPACKE_zunmbr( int matrix_order, char vect, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunmbr_work( matrix_order, vect, side, trans, m, n, k, a, + info = LAPACKE_zunmbr_work( matrix_layout, vect, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunmbr_work.c b/lapacke/src/lapacke_zunmbr_work.c index 57084a89..b04686f9 100644 --- a/lapacke/src/lapacke_zunmbr_work.c +++ b/lapacke/src/lapacke_zunmbr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmbr_work( int matrix_order, char vect, char side, +lapack_int LAPACKE_zunmbr_work( int matrix_layout, char vect, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zunmbr_work( int matrix_order, char vect, char side, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunmbr( &vect, &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int nq = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int r = LAPACKE_lsame( vect, 'q' ) ? nq : MIN(nq,k); lapack_int lda_t = MAX(1,r); @@ -88,8 +88,8 @@ lapack_int LAPACKE_zunmbr_work( int matrix_order, char vect, char side, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, r, MIN(nq,k), a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, r, MIN(nq,k), a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zunmbr( &vect, &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zunmhr.c b/lapacke/src/lapacke_zunmhr.c index a16ad284..a3f647aa 100644 --- a/lapacke/src/lapacke_zunmhr.c +++ b/lapacke/src/lapacke_zunmhr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmhr( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmhr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -44,17 +44,17 @@ lapack_int LAPACKE_zunmhr( int matrix_order, char side, char trans, lapack_complex_double* work = NULL; lapack_complex_double work_query; lapack_int r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunmhr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_zge_nancheck( matrix_order, r, r, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, r, r, a, lda ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } if( LAPACKE_z_nancheck( m-1, tau, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_zunmhr( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunmhr_work( matrix_order, side, trans, m, n, ilo, ihi, a, + info = LAPACKE_zunmhr_work( matrix_layout, side, trans, m, n, ilo, ihi, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_zunmhr( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunmhr_work( matrix_order, side, trans, m, n, ilo, ihi, a, + info = LAPACKE_zunmhr_work( matrix_layout, side, trans, m, n, ilo, ihi, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunmhr_work.c b/lapacke/src/lapacke_zunmhr_work.c index e19c33f7..5411c4d2 100644 --- a/lapacke/src/lapacke_zunmhr_work.c +++ b/lapacke/src/lapacke_zunmhr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmhr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmhr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int ilo, lapack_int ihi, const lapack_complex_double* a, lapack_int lda, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zunmhr_work( int matrix_order, char side, char trans, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunmhr( &side, &trans, &m, &n, &ilo, &ihi, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int lda_t = MAX(1,r); lapack_int ldc_t = MAX(1,m); @@ -86,8 +86,8 @@ lapack_int LAPACKE_zunmhr_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, r, r, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, r, r, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zunmhr( &side, &trans, &m, &n, &ilo, &ihi, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zunmlq.c b/lapacke/src/lapacke_zunmlq.c index ec910e8c..1bbb1687 100644 --- a/lapacke/src/lapacke_zunmlq.c +++ b/lapacke/src/lapacke_zunmlq.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmlq( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmlq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -43,16 +43,16 @@ lapack_int LAPACKE_zunmlq( int matrix_order, char side, char trans, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunmlq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, k, m, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -60,7 +60,7 @@ lapack_int LAPACKE_zunmlq( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunmlq_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_zunmlq_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_zunmlq( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunmlq_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_zunmlq_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunmlq_work.c b/lapacke/src/lapacke_zunmlq_work.c index 8677ac0b..7390ca99 100644 --- a/lapacke/src/lapacke_zunmlq_work.c +++ b/lapacke/src/lapacke_zunmlq_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmlq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmlq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zunmlq_work( int matrix_order, char side, char trans, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunmlq( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,k); lapack_int ldc_t = MAX(1,m); lapack_complex_double* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_zunmlq_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zunmlq( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zunmql.c b/lapacke/src/lapacke_zunmql.c index 2f3b3080..927a17ca 100644 --- a/lapacke/src/lapacke_zunmql.c +++ b/lapacke/src/lapacke_zunmql.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmql( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmql( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -44,17 +44,17 @@ lapack_int LAPACKE_zunmql( int matrix_order, char side, char trans, lapack_complex_double* work = NULL; lapack_int r; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunmql", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_zge_nancheck( matrix_order, r, k, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, r, k, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_zunmql( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunmql_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_zunmql_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_zunmql( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunmql_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_zunmql_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunmql_work.c b/lapacke/src/lapacke_zunmql_work.c index 3157b404..0c370ec3 100644 --- a/lapacke/src/lapacke_zunmql_work.c +++ b/lapacke/src/lapacke_zunmql_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmql_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmql_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zunmql_work( int matrix_order, char side, char trans, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunmql( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int lda_t = MAX(1,r); lapack_int ldc_t = MAX(1,m); @@ -85,8 +85,8 @@ lapack_int LAPACKE_zunmql_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, r, k, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, r, k, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zunmql( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zunmqr.c b/lapacke/src/lapacke_zunmqr.c index 0a220ffe..acf64d2e 100644 --- a/lapacke/src/lapacke_zunmqr.c +++ b/lapacke/src/lapacke_zunmqr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmqr( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmqr( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -44,17 +44,17 @@ lapack_int LAPACKE_zunmqr( int matrix_order, char side, char trans, lapack_complex_double* work = NULL; lapack_complex_double work_query; lapack_int r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunmqr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_zge_nancheck( matrix_order, r, k, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, r, k, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_zunmqr( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunmqr_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_zunmqr_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_zunmqr( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunmqr_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_zunmqr_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunmqr_work.c b/lapacke/src/lapacke_zunmqr_work.c index 36b2d5a6..6efb2d05 100644 --- a/lapacke/src/lapacke_zunmqr_work.c +++ b/lapacke/src/lapacke_zunmqr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmqr_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmqr_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zunmqr_work( int matrix_order, char side, char trans, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunmqr( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int lda_t = MAX(1,r); lapack_int ldc_t = MAX(1,m); @@ -85,8 +85,8 @@ lapack_int LAPACKE_zunmqr_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, r, k, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, r, k, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zunmqr( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zunmrq.c b/lapacke/src/lapacke_zunmrq.c index 0ac4a35c..e011a13b 100644 --- a/lapacke/src/lapacke_zunmrq.c +++ b/lapacke/src/lapacke_zunmrq.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmrq( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmrq( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -43,16 +43,16 @@ lapack_int LAPACKE_zunmrq( int matrix_order, char side, char trans, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunmrq", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, k, m, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -60,7 +60,7 @@ lapack_int LAPACKE_zunmrq( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunmrq_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_zunmrq_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_zunmrq( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunmrq_work( matrix_order, side, trans, m, n, k, a, lda, tau, + info = LAPACKE_zunmrq_work( matrix_layout, side, trans, m, n, k, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunmrq_work.c b/lapacke/src/lapacke_zunmrq_work.c index 85a2902b..ff6a944a 100644 --- a/lapacke/src/lapacke_zunmrq_work.c +++ b/lapacke/src/lapacke_zunmrq_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmrq_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmrq_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zunmrq_work( int matrix_order, char side, char trans, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunmrq( &side, &trans, &m, &n, &k, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,k); lapack_int ldc_t = MAX(1,m); lapack_complex_double* a_t = NULL; @@ -84,8 +84,8 @@ lapack_int LAPACKE_zunmrq_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zunmrq( &side, &trans, &m, &n, &k, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zunmrz.c b/lapacke/src/lapacke_zunmrz.c index e67dbfaf..61954e82 100644 --- a/lapacke/src/lapacke_zunmrz.c +++ b/lapacke/src/lapacke_zunmrz.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmrz( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmrz( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -43,16 +43,16 @@ lapack_int LAPACKE_zunmrz( int matrix_order, char side, char trans, lapack_int lwork = -1; lapack_complex_double* work = NULL; lapack_complex_double work_query; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunmrz", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ - if( LAPACKE_zge_nancheck( matrix_order, k, m, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, k, m, a, lda ) ) { return -8; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -11; } if( LAPACKE_z_nancheck( k, tau, 1 ) ) { @@ -60,7 +60,7 @@ lapack_int LAPACKE_zunmrz( int matrix_order, char side, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunmrz_work( matrix_order, side, trans, m, n, k, l, a, lda, + info = LAPACKE_zunmrz_work( matrix_layout, side, trans, m, n, k, l, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -74,7 +74,7 @@ lapack_int LAPACKE_zunmrz( int matrix_order, char side, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunmrz_work( matrix_order, side, trans, m, n, k, l, a, lda, + info = LAPACKE_zunmrz_work( matrix_layout, side, trans, m, n, k, l, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunmrz_work.c b/lapacke/src/lapacke_zunmrz_work.c index 8635edf7..9962f2dd 100644 --- a/lapacke/src/lapacke_zunmrz_work.c +++ b/lapacke/src/lapacke_zunmrz_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmrz_work( int matrix_order, char side, char trans, +lapack_int LAPACKE_zunmrz_work( int matrix_layout, char side, char trans, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const lapack_complex_double* a, lapack_int lda, @@ -42,14 +42,14 @@ lapack_int LAPACKE_zunmrz_work( int matrix_order, char side, char trans, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunmrz( &side, &trans, &m, &n, &k, &l, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int lda_t = MAX(1,k); lapack_int ldc_t = MAX(1,m); lapack_complex_double* a_t = NULL; @@ -85,8 +85,8 @@ lapack_int LAPACKE_zunmrz_work( int matrix_order, char side, char trans, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, k, m, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, k, m, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zunmrz( &side, &trans, &m, &n, &k, &l, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zunmtr.c b/lapacke/src/lapacke_zunmtr.c index 34140888..0b10f38f 100644 --- a/lapacke/src/lapacke_zunmtr.c +++ b/lapacke/src/lapacke_zunmtr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_zunmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -44,17 +44,17 @@ lapack_int LAPACKE_zunmtr( int matrix_order, char side, char uplo, char trans, lapack_complex_double* work = NULL; lapack_complex_double work_query; lapack_int r; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zunmtr", -1 ); return -1; } #ifndef LAPACK_DISABLE_NAN_CHECK /* Optionally check input matrices for NaNs */ r = LAPACKE_lsame( side, 'l' ) ? m : n; - if( LAPACKE_zge_nancheck( matrix_order, r, r, a, lda ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, r, r, a, lda ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -10; } if( LAPACKE_z_nancheck( m-1, tau, 1 ) ) { @@ -62,7 +62,7 @@ lapack_int LAPACKE_zunmtr( int matrix_order, char side, char uplo, char trans, } #endif /* Query optimal working array(s) size */ - info = LAPACKE_zunmtr_work( matrix_order, side, uplo, trans, m, n, a, lda, + info = LAPACKE_zunmtr_work( matrix_layout, side, uplo, trans, m, n, a, lda, tau, c, ldc, &work_query, lwork ); if( info != 0 ) { goto exit_level_0; @@ -76,7 +76,7 @@ lapack_int LAPACKE_zunmtr( int matrix_order, char side, char uplo, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zunmtr_work( matrix_order, side, uplo, trans, m, n, a, lda, + info = LAPACKE_zunmtr_work( matrix_layout, side, uplo, trans, m, n, a, lda, tau, c, ldc, work, lwork ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zunmtr_work.c b/lapacke/src/lapacke_zunmtr_work.c index 1bc73a4b..65178652 100644 --- a/lapacke/src/lapacke_zunmtr_work.c +++ b/lapacke/src/lapacke_zunmtr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zunmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_zunmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* a, lapack_int lda, const lapack_complex_double* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zunmtr_work( int matrix_order, char side, char uplo, lapack_complex_double* work, lapack_int lwork ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zunmtr( &side, &uplo, &trans, &m, &n, a, &lda, tau, c, &ldc, work, &lwork, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int lda_t = MAX(1,r); lapack_int ldc_t = MAX(1,m); @@ -85,8 +85,8 @@ lapack_int LAPACKE_zunmtr_work( int matrix_order, char side, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, r, r, a, lda, a_t, lda_t ); - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zge_trans( matrix_layout, r, r, a, lda, a_t, lda_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); /* Call LAPACK function and adjust info */ LAPACK_zunmtr( &side, &uplo, &trans, &m, &n, a_t, &lda_t, tau, c_t, &ldc_t, work, &lwork, &info ); diff --git a/lapacke/src/lapacke_zupgtr.c b/lapacke/src/lapacke_zupgtr.c index f6b8f7bb..3d8684a1 100644 --- a/lapacke/src/lapacke_zupgtr.c +++ b/lapacke/src/lapacke_zupgtr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,14 +33,14 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zupgtr( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zupgtr( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, lapack_complex_double* q, lapack_int ldq ) { lapack_int info = 0; lapack_complex_double* work = NULL; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zupgtr", -1 ); return -1; } @@ -61,7 +61,7 @@ lapack_int LAPACKE_zupgtr( int matrix_order, char uplo, lapack_int n, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zupgtr_work( matrix_order, uplo, n, ap, tau, q, ldq, work ); + info = LAPACKE_zupgtr_work( matrix_layout, uplo, n, ap, tau, q, ldq, work ); /* Release memory and exit */ LAPACKE_free( work ); exit_level_0: diff --git a/lapacke/src/lapacke_zupgtr_work.c b/lapacke/src/lapacke_zupgtr_work.c index abf9b0bd..8f7e799a 100644 --- a/lapacke/src/lapacke_zupgtr_work.c +++ b/lapacke/src/lapacke_zupgtr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,20 +33,20 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zupgtr_work( int matrix_order, char uplo, lapack_int n, +lapack_int LAPACKE_zupgtr_work( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, lapack_complex_double* q, lapack_int ldq, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zupgtr( &uplo, &n, ap, tau, q, &ldq, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int ldq_t = MAX(1,n); lapack_complex_double* q_t = NULL; lapack_complex_double* ap_t = NULL; @@ -71,7 +71,7 @@ lapack_int LAPACKE_zupgtr_work( int matrix_order, char uplo, lapack_int n, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zpp_trans( matrix_order, uplo, n, ap, ap_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, n, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zupgtr( &uplo, &n, ap_t, tau, q_t, &ldq_t, work, &info ); if( info < 0 ) { diff --git a/lapacke/src/lapacke_zupmtr.c b/lapacke/src/lapacke_zupmtr.c index 7e8eede8..a6361714 100644 --- a/lapacke/src/lapacke_zupmtr.c +++ b/lapacke/src/lapacke_zupmtr.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans, +lapack_int LAPACKE_zupmtr( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, @@ -44,7 +44,7 @@ lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans, lapack_int lwork; lapack_complex_double* work = NULL; lapack_int r ; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_zupmtr", -1 ); return -1; } @@ -54,7 +54,7 @@ lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans, if( LAPACKE_zpp_nancheck( r, ap ) ) { return -7; } - if( LAPACKE_zge_nancheck( matrix_order, m, n, c, ldc ) ) { + if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) { return -9; } if( LAPACKE_z_nancheck( m-1, tau, 1 ) ) { @@ -77,7 +77,7 @@ lapack_int LAPACKE_zupmtr( int matrix_order, char side, char uplo, char trans, goto exit_level_0; } /* Call middle-level interface */ - info = LAPACKE_zupmtr_work( matrix_order, side, uplo, trans, m, n, ap, tau, + info = LAPACKE_zupmtr_work( matrix_layout, side, uplo, trans, m, n, ap, tau, c, ldc, work ); /* Release memory and exit */ LAPACKE_free( work ); diff --git a/lapacke/src/lapacke_zupmtr_work.c b/lapacke/src/lapacke_zupmtr_work.c index e5732599..e13336b7 100644 --- a/lapacke/src/lapacke_zupmtr_work.c +++ b/lapacke/src/lapacke_zupmtr_work.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,7 +33,7 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_zupmtr_work( int matrix_order, char side, char uplo, +lapack_int LAPACKE_zupmtr_work( int matrix_layout, char side, char uplo, char trans, lapack_int m, lapack_int n, const lapack_complex_double* ap, const lapack_complex_double* tau, @@ -41,14 +41,14 @@ lapack_int LAPACKE_zupmtr_work( int matrix_order, char side, char uplo, lapack_complex_double* work ) { lapack_int info = 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ LAPACK_zupmtr( &side, &uplo, &trans, &m, &n, ap, tau, c, &ldc, work, &info ); if( info < 0 ) { info = info - 1; } - } else if( matrix_order == LAPACK_ROW_MAJOR ) { + } else if( matrix_layout == LAPACK_ROW_MAJOR ) { lapack_int r = LAPACKE_lsame( side, 'l' ) ? m : n; lapack_int ldc_t = MAX(1,m); lapack_complex_double* c_t = NULL; @@ -74,8 +74,8 @@ lapack_int LAPACKE_zupmtr_work( int matrix_order, char side, char uplo, goto exit_level_1; } /* Transpose input matrices */ - LAPACKE_zge_trans( matrix_order, m, n, c, ldc, c_t, ldc_t ); - LAPACKE_zpp_trans( matrix_order, uplo, r, ap, ap_t ); + LAPACKE_zge_trans( matrix_layout, m, n, c, ldc, c_t, ldc_t ); + LAPACKE_zpp_trans( matrix_layout, uplo, r, ap, ap_t ); /* Call LAPACK function and adjust info */ LAPACK_zupmtr( &side, &uplo, &trans, &m, &n, ap_t, tau, c_t, &ldc_t, work, &info ); diff --git a/lapacke/utils/lapacke_cgb_nancheck.c b/lapacke/utils/lapacke_cgb_nancheck.c index 9a662cc1..9446b355 100644 --- a/lapacke/utils/lapacke_cgb_nancheck.c +++ b/lapacke/utils/lapacke_cgb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_cgb_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_cgb_nancheck( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float *ab, @@ -44,7 +44,7 @@ lapack_logical LAPACKE_cgb_nancheck( int matrix_order, lapack_int m, if( ab == NULL ) return (lapack_logical) 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < n; j++ ) { for( i = MAX( ku-j, 0 ); i < MIN3( ldab, m+ku-j, kl+ku+1 ); i++ ) { @@ -52,7 +52,7 @@ lapack_logical LAPACKE_cgb_nancheck( int matrix_order, lapack_int m, return (lapack_logical) 1; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { for( j = 0; j < MIN( n, ldab ); j++ ) { for( i = MAX( ku-j, 0 ); i < MIN( m+ku-j, kl+ku+1 ); i++ ) { if( LAPACK_CISNAN( ab[(size_t)i*ldab+j] ) ) diff --git a/lapacke/utils/lapacke_cgb_trans.c b/lapacke/utils/lapacke_cgb_trans.c index 7a3dd219..43f57667 100644 --- a/lapacke/utils/lapacke_cgb_trans.c +++ b/lapacke/utils/lapacke_cgb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_cgb_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_cgb_trans( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) @@ -46,14 +46,14 @@ void LAPACKE_cgb_trans( int matrix_order, lapack_int m, lapack_int n, if( in == NULL || out == NULL ) return; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < MIN( ldout, n ); j++ ) { for( i = MAX( ku-j, 0 ); i < MIN3( ldin, m+ku-j, kl+ku+1 ); i++ ) { out[(size_t)i*ldout+j] = in[i+(size_t)j*ldin]; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { /* TODO: interchange loops for performance. * This is just reference impemeltation. */ diff --git a/lapacke/utils/lapacke_cge_nancheck.c b/lapacke/utils/lapacke_cge_nancheck.c index 9f2e3307..67eb3d5c 100644 --- a/lapacke/utils/lapacke_cge_nancheck.c +++ b/lapacke/utils/lapacke_cge_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_cge_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_cge_nancheck( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float *a, lapack_int lda ) @@ -43,14 +43,14 @@ lapack_logical LAPACKE_cge_nancheck( int matrix_order, lapack_int m, if( a == NULL ) return (lapack_logical) 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < n; j++ ) { for( i = 0; i < MIN( m, lda ); i++ ) { if( LAPACK_CISNAN( a[i+(size_t)j*lda] ) ) return (lapack_logical) 1; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { for( i = 0; i < m; i++ ) { for( j = 0; j < MIN( n, lda ); j++ ) { if( LAPACK_CISNAN( a[(size_t)i*lda+j] ) ) diff --git a/lapacke/utils/lapacke_cge_trans.c b/lapacke/utils/lapacke_cge_trans.c index 3b9263a1..d110a417 100644 --- a/lapacke/utils/lapacke_cge_trans.c +++ b/lapacke/utils/lapacke_cge_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * layout or vice versa. */ -void LAPACKE_cge_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_cge_trans( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* in, lapack_int ldin, lapack_complex_float* out, lapack_int ldout ) { @@ -45,10 +45,10 @@ void LAPACKE_cge_trans( int matrix_order, lapack_int m, lapack_int n, if( in == NULL || out == NULL ) return; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { x = n; y = m; - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { x = m; y = n; } else { diff --git a/lapacke/utils/lapacke_cgg_nancheck.c b/lapacke/utils/lapacke_cgg_nancheck.c index 17e62ee0..d480ce54 100644 --- a/lapacke/utils/lapacke_cgg_nancheck.c +++ b/lapacke/utils/lapacke_cgg_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_cgg_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_cgg_nancheck( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float *a, lapack_int lda ) { - return LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ); + return LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ); } diff --git a/lapacke/utils/lapacke_cgg_trans.c b/lapacke/utils/lapacke_cgg_trans.c index 9a04c157..89022593 100644 --- a/lapacke/utils/lapacke_cgg_trans.c +++ b/lapacke/utils/lapacke_cgg_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_cgg_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_cgg_trans( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_float* in, lapack_int ldin, lapack_complex_float* out, lapack_int ldout ) { - LAPACKE_cge_trans( matrix_order, m, n, in, ldin, out, ldout ); + LAPACKE_cge_trans( matrix_layout, m, n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_chb_nancheck.c b/lapacke/utils/lapacke_chb_nancheck.c index ed21f3c0..5b63d3b3 100644 --- a/lapacke/utils/lapacke_chb_nancheck.c +++ b/lapacke/utils/lapacke_chb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,15 +34,15 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_chb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_chb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - return LAPACKE_cgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_cgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - return LAPACKE_cgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_cgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } return (lapack_logical) 0; } diff --git a/lapacke/utils/lapacke_chb_trans.c b/lapacke/utils/lapacke_chb_trans.c index f8614e93..a5bb186d 100644 --- a/lapacke/utils/lapacke_chb_trans.c +++ b/lapacke/utils/lapacke_chb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,14 +37,14 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_chb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_chb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - LAPACKE_cgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, ldout ); + LAPACKE_cgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - LAPACKE_cgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, ldout ); + LAPACKE_cgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_che_nancheck.c b/lapacke/utils/lapacke_che_nancheck.c index e9d9eeb2..c071ac8a 100644 --- a/lapacke/utils/lapacke_che_nancheck.c +++ b/lapacke/utils/lapacke_che_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_che_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_che_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *a, lapack_int lda ) { - return LAPACKE_ctr_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_ctr_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_che_trans.c b/lapacke/utils/lapacke_che_trans.c index b15aa75a..831988a8 100644 --- a/lapacke/utils/lapacke_che_trans.c +++ b/lapacke/utils/lapacke_che_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_che_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_che_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) { - LAPACKE_ctr_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_ctr_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_chp_nancheck.c b/lapacke/utils/lapacke_chp_nancheck.c index 2d55b959..5e51e237 100644 --- a/lapacke/utils/lapacke_chp_nancheck.c +++ b/lapacke/utils/lapacke_chp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_chp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_chp_trans.c b/lapacke/utils/lapacke_chp_trans.c index 79a45dee..9d8a3c03 100644 --- a/lapacke/utils/lapacke_chp_trans.c +++ b/lapacke/utils/lapacke_chp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_chp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_chp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ) { - LAPACKE_ctp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_ctp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_chs_nancheck.c b/lapacke/utils/lapacke_chs_nancheck.c index 6d9b90d4..ffe179dd 100644 --- a/lapacke/utils/lapacke_chs_nancheck.c +++ b/lapacke/utils/lapacke_chs_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_chs_nancheck( int matrix_order, lapack_int n, +lapack_logical LAPACKE_chs_nancheck( int matrix_layout, lapack_int n, const lapack_complex_float *a, lapack_int lda ) { @@ -43,15 +43,15 @@ lapack_logical LAPACKE_chs_nancheck( int matrix_order, lapack_int n, if( a == NULL ) return (lapack_logical) 0; /* Check subdiagonal first */ - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { subdiag_nans = LAPACKE_c_nancheck( n-1, &a[1], lda+1 ); - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { subdiag_nans = LAPACKE_c_nancheck( n-1, &a[lda], lda+1 ); } else { return (lapack_logical) 0; } /* Check upper triangular if subdiagonal has no NaNs. */ - return subdiag_nans || LAPACKE_ctr_nancheck( matrix_order, 'u', 'n', + return subdiag_nans || LAPACKE_ctr_nancheck( matrix_layout, 'u', 'n', n, a, lda); } diff --git a/lapacke/utils/lapacke_chs_trans.c b/lapacke/utils/lapacke_chs_trans.c index da4309d1..aa10f813 100644 --- a/lapacke/utils/lapacke_chs_trans.c +++ b/lapacke/utils/lapacke_chs_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,17 +37,17 @@ * layout or vice versa. */ -void LAPACKE_chs_trans( int matrix_order, lapack_int n, +void LAPACKE_chs_trans( int matrix_layout, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) { if( in == NULL || out == NULL ) return; /* Convert subdiagonal first */ - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { LAPACKE_cge_trans( LAPACK_COL_MAJOR, 1, n-1, &in[1], ldin+1, &out[ldout], ldout+1 ); - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { LAPACKE_cge_trans( LAPACK_ROW_MAJOR, n-1, 1, &in[ldin], ldin+1, &out[1], ldout+1 ); } else { @@ -55,5 +55,5 @@ void LAPACKE_chs_trans( int matrix_order, lapack_int n, } /* Convert upper triangular. */ - LAPACKE_ctr_trans( matrix_order, 'u', 'n', n, in, ldin, out, ldout); + LAPACKE_ctr_trans( matrix_layout, 'u', 'n', n, in, ldin, out, ldout); } diff --git a/lapacke/utils/lapacke_cpb_nancheck.c b/lapacke/utils/lapacke_cpb_nancheck.c index 1fea0c81..b557c4b0 100644 --- a/lapacke/utils/lapacke_cpb_nancheck.c +++ b/lapacke/utils/lapacke_cpb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,15 +34,15 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_cpb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_cpb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - return LAPACKE_cgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_cgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - return LAPACKE_cgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_cgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } return (lapack_logical) 0; } diff --git a/lapacke/utils/lapacke_cpb_trans.c b/lapacke/utils/lapacke_cpb_trans.c index 478ec7bf..93d54026 100644 --- a/lapacke/utils/lapacke_cpb_trans.c +++ b/lapacke/utils/lapacke_cpb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,14 +37,14 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_cpb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_cpb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - LAPACKE_cgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, ldout ); + LAPACKE_cgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - LAPACKE_cgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, ldout ); + LAPACKE_cgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_cpf_nancheck.c b/lapacke/utils/lapacke_cpf_nancheck.c index c317eac2..a1f14fd6 100644 --- a/lapacke/utils/lapacke_cpf_nancheck.c +++ b/lapacke/utils/lapacke_cpf_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -35,7 +35,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to * check 1d array for NaNs. It doesn't depend upon uplo, transr or - * matrix_order. + * matrix_layout. */ lapack_logical LAPACKE_cpf_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_cpf_trans.c b/lapacke/utils/lapacke_cpf_trans.c index 57d64ae7..961f937a 100644 --- a/lapacke/utils/lapacke_cpf_trans.c +++ b/lapacke/utils/lapacke_cpf_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_cpf_trans( int matrix_order, char transr, char uplo, +void LAPACKE_cpf_trans( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ) { - LAPACKE_ctf_trans( matrix_order, transr, uplo, 'n', n, in, out ); + LAPACKE_ctf_trans( matrix_layout, transr, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_cpo_nancheck.c b/lapacke/utils/lapacke_cpo_nancheck.c index 00c8b82e..9cf668ea 100644 --- a/lapacke/utils/lapacke_cpo_nancheck.c +++ b/lapacke/utils/lapacke_cpo_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_cpo_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_cpo_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *a, lapack_int lda ) { - return LAPACKE_ctr_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_ctr_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_cpo_trans.c b/lapacke/utils/lapacke_cpo_trans.c index 3e1baba0..ca36c3c5 100644 --- a/lapacke/utils/lapacke_cpo_trans.c +++ b/lapacke/utils/lapacke_cpo_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_cpo_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_cpo_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) { - LAPACKE_ctr_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_ctr_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_cpp_nancheck.c b/lapacke/utils/lapacke_cpp_nancheck.c index 39259559..fc00ce2d 100644 --- a/lapacke/utils/lapacke_cpp_nancheck.c +++ b/lapacke/utils/lapacke_cpp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_cpp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_cpp_trans.c b/lapacke/utils/lapacke_cpp_trans.c index e01bd7c2..80ecb7fb 100644 --- a/lapacke/utils/lapacke_cpp_trans.c +++ b/lapacke/utils/lapacke_cpp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_cpp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_cpp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ) { - LAPACKE_ctp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_ctp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_csp_nancheck.c b/lapacke/utils/lapacke_csp_nancheck.c index ff904b42..56d53c74 100644 --- a/lapacke/utils/lapacke_csp_nancheck.c +++ b/lapacke/utils/lapacke_csp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_csp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_csp_trans.c b/lapacke/utils/lapacke_csp_trans.c index 2b8d7b86..4b329b52 100644 --- a/lapacke/utils/lapacke_csp_trans.c +++ b/lapacke/utils/lapacke_csp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_csp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_csp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ) { - LAPACKE_ctp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_ctp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_csy_nancheck.c b/lapacke/utils/lapacke_csy_nancheck.c index 27272d69..001718d7 100644 --- a/lapacke/utils/lapacke_csy_nancheck.c +++ b/lapacke/utils/lapacke_csy_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_csy_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_csy_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *a, lapack_int lda ) { - return LAPACKE_ctr_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_ctr_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_csy_trans.c b/lapacke/utils/lapacke_csy_trans.c index 88858b9c..2d43d145 100644 --- a/lapacke/utils/lapacke_csy_trans.c +++ b/lapacke/utils/lapacke_csy_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_csy_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_csy_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) { - LAPACKE_ctr_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_ctr_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_ctb_nancheck.c b/lapacke/utils/lapacke_ctb_nancheck.c index 1b0a858e..a46f67f8 100644 --- a/lapacke/utils/lapacke_ctb_nancheck.c +++ b/lapacke/utils/lapacke_ctb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_ctb_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ctb_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_float* ab, lapack_int ldab ) @@ -43,11 +43,11 @@ lapack_logical LAPACKE_ctb_nancheck( int matrix_order, char uplo, char diag, if( ab == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ @@ -58,27 +58,27 @@ lapack_logical LAPACKE_ctb_nancheck( int matrix_order, char uplo, char diag, /* Unit case, diagonal should be excluded from the check for NaN. */ if( colmaj ) { if( upper ) { - return LAPACKE_cgb_nancheck( matrix_order, n-1, n-1, 0, kd-1, + return LAPACKE_cgb_nancheck( matrix_layout, n-1, n-1, 0, kd-1, &ab[ldab], ldab ); } else { - return LAPACKE_cgb_nancheck( matrix_order, n-1, n-1, kd-1, 0, + return LAPACKE_cgb_nancheck( matrix_layout, n-1, n-1, kd-1, 0, &ab[1], ldab ); } } else { if( upper ) { - return LAPACKE_cgb_nancheck( matrix_order, n-1, n-1, 0, kd-1, + return LAPACKE_cgb_nancheck( matrix_layout, n-1, n-1, 0, kd-1, &ab[1], ldab ); } else { - return LAPACKE_cgb_nancheck( matrix_order, n-1, n-1, kd-1, 0, + return LAPACKE_cgb_nancheck( matrix_layout, n-1, n-1, kd-1, 0, &ab[ldab], ldab ); } } } else { /* Non-unit case */ if( upper ) { - return LAPACKE_cgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_cgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else { - return LAPACKE_cgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_cgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } } } diff --git a/lapacke/utils/lapacke_ctb_trans.c b/lapacke/utils/lapacke_ctb_trans.c index 7c48e2ed..23149cc3 100644 --- a/lapacke/utils/lapacke_ctb_trans.c +++ b/lapacke/utils/lapacke_ctb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_ctb_trans( int matrix_order, char uplo, char diag, +void LAPACKE_ctb_trans( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) @@ -46,11 +46,11 @@ void LAPACKE_ctb_trans( int matrix_order, char uplo, char diag, if( in == NULL || out == NULL ) return; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ @@ -61,28 +61,28 @@ void LAPACKE_ctb_trans( int matrix_order, char uplo, char diag, /* Unit case, diagonal excluded from transposition */ if( colmaj ) { if( upper ) { - LAPACKE_cgb_trans( matrix_order, n-1, n-1, 0, kd-1, + LAPACKE_cgb_trans( matrix_layout, n-1, n-1, 0, kd-1, &in[ldin], ldin, &out[1], ldout ); } else { - LAPACKE_cgb_trans( matrix_order, n-1, n-1, kd-1, 0, + LAPACKE_cgb_trans( matrix_layout, n-1, n-1, kd-1, 0, &in[1], ldin, &out[ldout], ldout ); } } else { if( upper ) { - LAPACKE_cgb_trans( matrix_order, n-1, n-1, 0, kd-1, + LAPACKE_cgb_trans( matrix_layout, n-1, n-1, 0, kd-1, &in[1], ldin, &out[ldout], ldout ); } else { - LAPACKE_cgb_trans( matrix_order, n-1, n-1, kd-1, 0, + LAPACKE_cgb_trans( matrix_layout, n-1, n-1, kd-1, 0, &in[ldin], ldin, &out[1], ldout ); } } } else { /* Non-unit case */ if( upper ) { - LAPACKE_cgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, + LAPACKE_cgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else { - LAPACKE_cgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, + LAPACKE_cgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_ctf_nancheck.c b/lapacke/utils/lapacke_ctf_nancheck.c index 1a2d5def..084bbf1f 100644 --- a/lapacke/utils/lapacke_ctf_nancheck.c +++ b/lapacke/utils/lapacke_ctf_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_ctf_nancheck( int matrix_order, char transr, +lapack_logical LAPACKE_ctf_nancheck( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const lapack_complex_float *a ) @@ -45,12 +45,12 @@ lapack_logical LAPACKE_ctf_nancheck( int matrix_order, char transr, if( a == NULL ) return (lapack_logical) 0; - rowmaj = (matrix_order == LAPACK_ROW_MAJOR); + rowmaj = (matrix_layout == LAPACK_ROW_MAJOR); ntr = LAPACKE_lsame( transr, 'n' ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !rowmaj && ( matrix_order != LAPACK_COL_MAJOR ) ) || + if( ( !rowmaj && ( matrix_layout != LAPACK_COL_MAJOR ) ) || ( !ntr && !LAPACKE_lsame( transr, 't' ) && !LAPACKE_lsame( transr, 'c' ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || diff --git a/lapacke/utils/lapacke_ctf_trans.c b/lapacke/utils/lapacke_ctf_trans.c index fd641b0e..5de54dc7 100644 --- a/lapacke/utils/lapacke_ctf_trans.c +++ b/lapacke/utils/lapacke_ctf_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -38,7 +38,7 @@ * This functions does copy diagonal for both unit and non-unit cases. */ -void LAPACKE_ctf_trans( int matrix_order, char transr, char uplo, char diag, +void LAPACKE_ctf_trans( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ) { @@ -47,12 +47,12 @@ void LAPACKE_ctf_trans( int matrix_order, char transr, char uplo, char diag, if( in == NULL || out == NULL ) return ; - rowmaj = (matrix_order == LAPACK_ROW_MAJOR); + rowmaj = (matrix_layout == LAPACK_ROW_MAJOR); ntr = LAPACKE_lsame( transr, 'n' ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !rowmaj && ( matrix_order != LAPACK_COL_MAJOR ) ) || + if( ( !rowmaj && ( matrix_layout != LAPACK_COL_MAJOR ) ) || ( !ntr && !LAPACKE_lsame( transr, 't' ) && !LAPACKE_lsame( transr, 'c' ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || diff --git a/lapacke/utils/lapacke_ctp_nancheck.c b/lapacke/utils/lapacke_ctp_nancheck.c index 2d144825..97d1ab08 100644 --- a/lapacke/utils/lapacke_ctp_nancheck.c +++ b/lapacke/utils/lapacke_ctp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ -lapack_logical LAPACKE_ctp_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ctp_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *ap ) { @@ -46,11 +46,11 @@ lapack_logical LAPACKE_ctp_nancheck( int matrix_order, char uplo, char diag, if( ap == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_ctp_trans.c b/lapacke/utils/lapacke_ctp_trans.c index e9877dc1..2c51ddd6 100644 --- a/lapacke/utils/lapacke_ctp_trans.c +++ b/lapacke/utils/lapacke_ctp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_ctp_trans( int matrix_order, char uplo, char diag, +void LAPACKE_ctp_trans( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *in, lapack_complex_float *out ) { @@ -46,11 +46,11 @@ void LAPACKE_ctp_trans( int matrix_order, char uplo, char diag, if( in == NULL || out == NULL ) return ; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_ctr_nancheck.c b/lapacke/utils/lapacke_ctr_nancheck.c index 411218f3..1ce2c747 100644 --- a/lapacke/utils/lapacke_ctr_nancheck.c +++ b/lapacke/utils/lapacke_ctr_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_ctr_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ctr_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *a, lapack_int lda ) @@ -44,11 +44,11 @@ lapack_logical LAPACKE_ctr_nancheck( int matrix_order, char uplo, char diag, if( a == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_ctr_trans.c b/lapacke/utils/lapacke_ctr_trans.c index 601aca40..f4fa41e0 100644 --- a/lapacke/utils/lapacke_ctr_trans.c +++ b/lapacke/utils/lapacke_ctr_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * layout or vice versa. */ -void LAPACKE_ctr_trans( int matrix_order, char uplo, char diag, lapack_int n, +void LAPACKE_ctr_trans( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_float *in, lapack_int ldin, lapack_complex_float *out, lapack_int ldout ) { @@ -46,11 +46,11 @@ void LAPACKE_ctr_trans( int matrix_order, char uplo, char diag, lapack_int n, if( in == NULL || out == NULL ) return ; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_dgb_nancheck.c b/lapacke/utils/lapacke_dgb_nancheck.c index fc869623..5fa13e75 100644 --- a/lapacke/utils/lapacke_dgb_nancheck.c +++ b/lapacke/utils/lapacke_dgb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dgb_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_dgb_nancheck( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double *ab, @@ -44,7 +44,7 @@ lapack_logical LAPACKE_dgb_nancheck( int matrix_order, lapack_int m, if( ab == NULL ) return (lapack_logical) 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < n; j++ ) { for( i = MAX( ku-j, 0 ); i < MIN3( ldab, m+ku-j, kl+ku+1 ); i++ ) { @@ -52,7 +52,7 @@ lapack_logical LAPACKE_dgb_nancheck( int matrix_order, lapack_int m, return (lapack_logical) 1; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { for( j = 0; j < MIN( n, ldab ); j++ ) { for( i = MAX( ku-j, 0 ); i < MIN( m+ku-j, kl+ku+1 ); i++ ) { if( LAPACK_DISNAN( ab[(size_t)i*ldab+j] ) ) diff --git a/lapacke/utils/lapacke_dgb_trans.c b/lapacke/utils/lapacke_dgb_trans.c index b48986ed..8930a6e5 100644 --- a/lapacke/utils/lapacke_dgb_trans.c +++ b/lapacke/utils/lapacke_dgb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_dgb_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_dgb_trans( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const double *in, lapack_int ldin, double *out, lapack_int ldout ) @@ -46,14 +46,14 @@ void LAPACKE_dgb_trans( int matrix_order, lapack_int m, lapack_int n, if( in == NULL || out == NULL ) return; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < MIN( ldout, n ); j++ ) { for( i = MAX( ku-j, 0 ); i < MIN3( ldin, m+ku-j, kl+ku+1 ); i++ ) { out[(size_t)i*ldout+j] = in[i+(size_t)j*ldin]; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { /* TODO: interchange loops for performance. * This is just reference impemeltation. */ diff --git a/lapacke/utils/lapacke_dge_nancheck.c b/lapacke/utils/lapacke_dge_nancheck.c index 27938cdf..fcb85ea1 100644 --- a/lapacke/utils/lapacke_dge_nancheck.c +++ b/lapacke/utils/lapacke_dge_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dge_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_dge_nancheck( int matrix_layout, lapack_int m, lapack_int n, const double *a, lapack_int lda ) @@ -43,14 +43,14 @@ lapack_logical LAPACKE_dge_nancheck( int matrix_order, lapack_int m, if( a == NULL ) return (lapack_logical) 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < n; j++ ) { for( i = 0; i < MIN( m, lda ); i++ ) { if( LAPACK_DISNAN( a[i+(size_t)j*lda] ) ) return (lapack_logical) 1; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { for( i = 0; i < m; i++ ) { for( j = 0; j < MIN( n, lda ); j++ ) { if( LAPACK_DISNAN( a[(size_t)i*lda+j] ) ) diff --git a/lapacke/utils/lapacke_dge_trans.c b/lapacke/utils/lapacke_dge_trans.c index 689a3ec7..4dd71f33 100644 --- a/lapacke/utils/lapacke_dge_trans.c +++ b/lapacke/utils/lapacke_dge_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * layout or vice versa. */ -void LAPACKE_dge_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_dge_trans( int matrix_layout, lapack_int m, lapack_int n, const double* in, lapack_int ldin, double* out, lapack_int ldout ) { @@ -45,10 +45,10 @@ void LAPACKE_dge_trans( int matrix_order, lapack_int m, lapack_int n, if( in == NULL || out == NULL ) return; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { x = n; y = m; - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { x = m; y = n; } else { diff --git a/lapacke/utils/lapacke_dgg_nancheck.c b/lapacke/utils/lapacke_dgg_nancheck.c index fc945614..573e7e4e 100644 --- a/lapacke/utils/lapacke_dgg_nancheck.c +++ b/lapacke/utils/lapacke_dgg_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dgg_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_dgg_nancheck( int matrix_layout, lapack_int m, lapack_int n, const double *a, lapack_int lda ) { - return LAPACKE_dge_nancheck( matrix_order, m, n, a, lda ); + return LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ); } diff --git a/lapacke/utils/lapacke_dgg_trans.c b/lapacke/utils/lapacke_dgg_trans.c index 544d6053..09526c32 100644 --- a/lapacke/utils/lapacke_dgg_trans.c +++ b/lapacke/utils/lapacke_dgg_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_dgg_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_dgg_trans( int matrix_layout, lapack_int m, lapack_int n, const double* in, lapack_int ldin, double* out, lapack_int ldout ) { - LAPACKE_dge_trans( matrix_order, m, n, in, ldin, out, ldout ); + LAPACKE_dge_trans( matrix_layout, m, n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_dhs_nancheck.c b/lapacke/utils/lapacke_dhs_nancheck.c index 7af62a97..b0ded003 100644 --- a/lapacke/utils/lapacke_dhs_nancheck.c +++ b/lapacke/utils/lapacke_dhs_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dhs_nancheck( int matrix_order, lapack_int n, +lapack_logical LAPACKE_dhs_nancheck( int matrix_layout, lapack_int n, const double *a, lapack_int lda ) { @@ -43,15 +43,15 @@ lapack_logical LAPACKE_dhs_nancheck( int matrix_order, lapack_int n, if( a == NULL ) return (lapack_logical) 0; /* Check subdiagonal first */ - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { subdiag_nans = LAPACKE_d_nancheck( n-1, &a[1], lda+1 ); - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { subdiag_nans = LAPACKE_d_nancheck( n-1, &a[lda], lda+1 ); } else { return (lapack_logical) 0; } /* Check upper triangular if subdiagonal has no NaNs. */ - return subdiag_nans || LAPACKE_dtr_nancheck( matrix_order, 'u', 'n', + return subdiag_nans || LAPACKE_dtr_nancheck( matrix_layout, 'u', 'n', n, a, lda); } diff --git a/lapacke/utils/lapacke_dhs_trans.c b/lapacke/utils/lapacke_dhs_trans.c index b631d11b..0a5635a4 100644 --- a/lapacke/utils/lapacke_dhs_trans.c +++ b/lapacke/utils/lapacke_dhs_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,17 +37,17 @@ * layout or vice versa. */ -void LAPACKE_dhs_trans( int matrix_order, lapack_int n, +void LAPACKE_dhs_trans( int matrix_layout, lapack_int n, const double *in, lapack_int ldin, double *out, lapack_int ldout ) { if( in == NULL || out == NULL ) return; /* Convert subdiagonal first */ - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { LAPACKE_dge_trans( LAPACK_COL_MAJOR, 1, n-1, &in[1], ldin+1, &out[ldout], ldout+1 ); - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { LAPACKE_dge_trans( LAPACK_ROW_MAJOR, n-1, 1, &in[ldin], ldin+1, &out[1], ldout+1 ); } else { @@ -55,5 +55,5 @@ void LAPACKE_dhs_trans( int matrix_order, lapack_int n, } /* Convert upper triangular. */ - LAPACKE_dtr_trans( matrix_order, 'u', 'n', n, in, ldin, out, ldout); + LAPACKE_dtr_trans( matrix_layout, 'u', 'n', n, in, ldin, out, ldout); } diff --git a/lapacke/utils/lapacke_dpb_nancheck.c b/lapacke/utils/lapacke_dpb_nancheck.c index 8ea609bb..af21e725 100644 --- a/lapacke/utils/lapacke_dpb_nancheck.c +++ b/lapacke/utils/lapacke_dpb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,15 +34,15 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dpb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_dpb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - return LAPACKE_dgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_dgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - return LAPACKE_dgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_dgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } return (lapack_logical) 0; } diff --git a/lapacke/utils/lapacke_dpb_trans.c b/lapacke/utils/lapacke_dpb_trans.c index 1365e59b..8ce4de73 100644 --- a/lapacke/utils/lapacke_dpb_trans.c +++ b/lapacke/utils/lapacke_dpb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,14 +37,14 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_dpb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dpb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double *in, lapack_int ldin, double *out, lapack_int ldout ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - LAPACKE_dgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, ldout ); + LAPACKE_dgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - LAPACKE_dgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, ldout ); + LAPACKE_dgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_dpf_nancheck.c b/lapacke/utils/lapacke_dpf_nancheck.c index 86433a9d..69c4cfdb 100644 --- a/lapacke/utils/lapacke_dpf_nancheck.c +++ b/lapacke/utils/lapacke_dpf_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -35,7 +35,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to * check 1d array for NaNs. It doesn't depend upon uplo, transr or - * matrix_order. + * matrix_layout. */ lapack_logical LAPACKE_dpf_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_dpf_trans.c b/lapacke/utils/lapacke_dpf_trans.c index 3b4ccfe3..8e2365d7 100644 --- a/lapacke/utils/lapacke_dpf_trans.c +++ b/lapacke/utils/lapacke_dpf_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_dpf_trans( int matrix_order, char transr, char uplo, +void LAPACKE_dpf_trans( int matrix_layout, char transr, char uplo, lapack_int n, const double *in, double *out ) { - LAPACKE_dtf_trans( matrix_order, transr, uplo, 'n', n, in, out ); + LAPACKE_dtf_trans( matrix_layout, transr, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_dpo_nancheck.c b/lapacke/utils/lapacke_dpo_nancheck.c index ae8902a7..2b9ded76 100644 --- a/lapacke/utils/lapacke_dpo_nancheck.c +++ b/lapacke/utils/lapacke_dpo_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dpo_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_dpo_nancheck( int matrix_layout, char uplo, lapack_int n, const double *a, lapack_int lda ) { - return LAPACKE_dtr_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_dtr_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_dpo_trans.c b/lapacke/utils/lapacke_dpo_trans.c index 9aee5786..49cbe44e 100644 --- a/lapacke/utils/lapacke_dpo_trans.c +++ b/lapacke/utils/lapacke_dpo_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_dpo_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dpo_trans( int matrix_layout, char uplo, lapack_int n, const double *in, lapack_int ldin, double *out, lapack_int ldout ) { - LAPACKE_dtr_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_dtr_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_dpp_nancheck.c b/lapacke/utils/lapacke_dpp_nancheck.c index a11365f5..21449671 100644 --- a/lapacke/utils/lapacke_dpp_nancheck.c +++ b/lapacke/utils/lapacke_dpp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_dpp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_dpp_trans.c b/lapacke/utils/lapacke_dpp_trans.c index bd4a4b41..031d3f9d 100644 --- a/lapacke/utils/lapacke_dpp_trans.c +++ b/lapacke/utils/lapacke_dpp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_dpp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dpp_trans( int matrix_layout, char uplo, lapack_int n, const double *in, double *out ) { - LAPACKE_dtp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_dtp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_dsb_nancheck.c b/lapacke/utils/lapacke_dsb_nancheck.c index 95abc712..4bd62ab2 100644 --- a/lapacke/utils/lapacke_dsb_nancheck.c +++ b/lapacke/utils/lapacke_dsb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,15 +34,15 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dsb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_dsb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - return LAPACKE_dgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_dgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - return LAPACKE_dgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_dgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } return (lapack_logical) 0; } diff --git a/lapacke/utils/lapacke_dsb_trans.c b/lapacke/utils/lapacke_dsb_trans.c index 064a4ef2..1ebbebba 100644 --- a/lapacke/utils/lapacke_dsb_trans.c +++ b/lapacke/utils/lapacke_dsb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,14 +37,14 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_dsb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dsb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const double *in, lapack_int ldin, double *out, lapack_int ldout ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - LAPACKE_dgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, ldout ); + LAPACKE_dgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - LAPACKE_dgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, ldout ); + LAPACKE_dgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_dsp_nancheck.c b/lapacke/utils/lapacke_dsp_nancheck.c index 4abd8c03..2eada7c9 100644 --- a/lapacke/utils/lapacke_dsp_nancheck.c +++ b/lapacke/utils/lapacke_dsp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_dsp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_dsp_trans.c b/lapacke/utils/lapacke_dsp_trans.c index a0b79656..c95bc32c 100644 --- a/lapacke/utils/lapacke_dsp_trans.c +++ b/lapacke/utils/lapacke_dsp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_dsp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dsp_trans( int matrix_layout, char uplo, lapack_int n, const double *in, double *out ) { - LAPACKE_dtp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_dtp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_dsy_nancheck.c b/lapacke/utils/lapacke_dsy_nancheck.c index 6d0e0528..3492cb42 100644 --- a/lapacke/utils/lapacke_dsy_nancheck.c +++ b/lapacke/utils/lapacke_dsy_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dsy_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_dsy_nancheck( int matrix_layout, char uplo, lapack_int n, const double *a, lapack_int lda ) { - return LAPACKE_dtr_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_dtr_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_dsy_trans.c b/lapacke/utils/lapacke_dsy_trans.c index f651088f..262ec7fd 100644 --- a/lapacke/utils/lapacke_dsy_trans.c +++ b/lapacke/utils/lapacke_dsy_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_dsy_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_dsy_trans( int matrix_layout, char uplo, lapack_int n, const double *in, lapack_int ldin, double *out, lapack_int ldout ) { - LAPACKE_dtr_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_dtr_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_dtb_nancheck.c b/lapacke/utils/lapacke_dtb_nancheck.c index bbe46519..58e4a3b0 100644 --- a/lapacke/utils/lapacke_dtb_nancheck.c +++ b/lapacke/utils/lapacke_dtb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dtb_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_dtb_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const double* ab, lapack_int ldab ) @@ -43,11 +43,11 @@ lapack_logical LAPACKE_dtb_nancheck( int matrix_order, char uplo, char diag, if( ab == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ @@ -58,27 +58,27 @@ lapack_logical LAPACKE_dtb_nancheck( int matrix_order, char uplo, char diag, /* Unit case, diagonal should be excluded from the check for NaN. */ if( colmaj ) { if( upper ) { - return LAPACKE_dgb_nancheck( matrix_order, n-1, n-1, 0, kd-1, + return LAPACKE_dgb_nancheck( matrix_layout, n-1, n-1, 0, kd-1, &ab[ldab], ldab ); } else { - return LAPACKE_dgb_nancheck( matrix_order, n-1, n-1, kd-1, 0, + return LAPACKE_dgb_nancheck( matrix_layout, n-1, n-1, kd-1, 0, &ab[1], ldab ); } } else { if( upper ) { - return LAPACKE_dgb_nancheck( matrix_order, n-1, n-1, 0, kd-1, + return LAPACKE_dgb_nancheck( matrix_layout, n-1, n-1, 0, kd-1, &ab[1], ldab ); } else { - return LAPACKE_dgb_nancheck( matrix_order, n-1, n-1, kd-1, 0, + return LAPACKE_dgb_nancheck( matrix_layout, n-1, n-1, kd-1, 0, &ab[ldab], ldab ); } } } else { /* Non-unit case */ if( upper ) { - return LAPACKE_dgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_dgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else { - return LAPACKE_dgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_dgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } } } diff --git a/lapacke/utils/lapacke_dtb_trans.c b/lapacke/utils/lapacke_dtb_trans.c index ff4c845d..168c0e86 100644 --- a/lapacke/utils/lapacke_dtb_trans.c +++ b/lapacke/utils/lapacke_dtb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_dtb_trans( int matrix_order, char uplo, char diag, +void LAPACKE_dtb_trans( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const double *in, lapack_int ldin, double *out, lapack_int ldout ) @@ -46,11 +46,11 @@ void LAPACKE_dtb_trans( int matrix_order, char uplo, char diag, if( in == NULL || out == NULL ) return; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ @@ -61,28 +61,28 @@ void LAPACKE_dtb_trans( int matrix_order, char uplo, char diag, /* Unit case, diagonal excluded from transposition */ if( colmaj ) { if( upper ) { - LAPACKE_dgb_trans( matrix_order, n-1, n-1, 0, kd-1, + LAPACKE_dgb_trans( matrix_layout, n-1, n-1, 0, kd-1, &in[ldin], ldin, &out[1], ldout ); } else { - LAPACKE_dgb_trans( matrix_order, n-1, n-1, kd-1, 0, + LAPACKE_dgb_trans( matrix_layout, n-1, n-1, kd-1, 0, &in[1], ldin, &out[ldout], ldout ); } } else { if( upper ) { - LAPACKE_dgb_trans( matrix_order, n-1, n-1, 0, kd-1, + LAPACKE_dgb_trans( matrix_layout, n-1, n-1, 0, kd-1, &in[1], ldin, &out[ldout], ldout ); } else { - LAPACKE_dgb_trans( matrix_order, n-1, n-1, kd-1, 0, + LAPACKE_dgb_trans( matrix_layout, n-1, n-1, kd-1, 0, &in[ldin], ldin, &out[1], ldout ); } } } else { /* Non-unit case */ if( upper ) { - LAPACKE_dgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, + LAPACKE_dgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else { - LAPACKE_dgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, + LAPACKE_dgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_dtf_nancheck.c b/lapacke/utils/lapacke_dtf_nancheck.c index c9d5a0e0..450d1224 100644 --- a/lapacke/utils/lapacke_dtf_nancheck.c +++ b/lapacke/utils/lapacke_dtf_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dtf_nancheck( int matrix_order, char transr, +lapack_logical LAPACKE_dtf_nancheck( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const double *a ) @@ -45,12 +45,12 @@ lapack_logical LAPACKE_dtf_nancheck( int matrix_order, char transr, if( a == NULL ) return (lapack_logical) 0; - rowmaj = (matrix_order == LAPACK_ROW_MAJOR); + rowmaj = (matrix_layout == LAPACK_ROW_MAJOR); ntr = LAPACKE_lsame( transr, 'n' ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !rowmaj && ( matrix_order != LAPACK_COL_MAJOR ) ) || + if( ( !rowmaj && ( matrix_layout != LAPACK_COL_MAJOR ) ) || ( !ntr && !LAPACKE_lsame( transr, 't' ) && !LAPACKE_lsame( transr, 'c' ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || diff --git a/lapacke/utils/lapacke_dtf_trans.c b/lapacke/utils/lapacke_dtf_trans.c index 0b05a484..0a5d6fa3 100644 --- a/lapacke/utils/lapacke_dtf_trans.c +++ b/lapacke/utils/lapacke_dtf_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -38,7 +38,7 @@ * This functions does copy diagonal for both unit and non-unit cases. */ -void LAPACKE_dtf_trans( int matrix_order, char transr, char uplo, char diag, +void LAPACKE_dtf_trans( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const double *in, double *out ) { @@ -47,12 +47,12 @@ void LAPACKE_dtf_trans( int matrix_order, char transr, char uplo, char diag, if( in == NULL || out == NULL ) return ; - rowmaj = (matrix_order == LAPACK_ROW_MAJOR); + rowmaj = (matrix_layout == LAPACK_ROW_MAJOR); ntr = LAPACKE_lsame( transr, 'n' ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !rowmaj && ( matrix_order != LAPACK_COL_MAJOR ) ) || + if( ( !rowmaj && ( matrix_layout != LAPACK_COL_MAJOR ) ) || ( !ntr && !LAPACKE_lsame( transr, 't' ) && !LAPACKE_lsame( transr, 'c' ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || diff --git a/lapacke/utils/lapacke_dtp_nancheck.c b/lapacke/utils/lapacke_dtp_nancheck.c index fc4228fc..29666e27 100644 --- a/lapacke/utils/lapacke_dtp_nancheck.c +++ b/lapacke/utils/lapacke_dtp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ -lapack_logical LAPACKE_dtp_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_dtp_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const double *ap ) { @@ -46,11 +46,11 @@ lapack_logical LAPACKE_dtp_nancheck( int matrix_order, char uplo, char diag, if( ap == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_dtp_trans.c b/lapacke/utils/lapacke_dtp_trans.c index 81b58e05..483af39e 100644 --- a/lapacke/utils/lapacke_dtp_trans.c +++ b/lapacke/utils/lapacke_dtp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_dtp_trans( int matrix_order, char uplo, char diag, +void LAPACKE_dtp_trans( int matrix_layout, char uplo, char diag, lapack_int n, const double *in, double *out ) { @@ -46,11 +46,11 @@ void LAPACKE_dtp_trans( int matrix_order, char uplo, char diag, if( in == NULL || out == NULL ) return ; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_dtr_nancheck.c b/lapacke/utils/lapacke_dtr_nancheck.c index b10c9ae2..3033dd10 100644 --- a/lapacke/utils/lapacke_dtr_nancheck.c +++ b/lapacke/utils/lapacke_dtr_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_dtr_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_dtr_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const double *a, lapack_int lda ) @@ -44,11 +44,11 @@ lapack_logical LAPACKE_dtr_nancheck( int matrix_order, char uplo, char diag, if( a == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_dtr_trans.c b/lapacke/utils/lapacke_dtr_trans.c index fa61bbc1..e011d370 100644 --- a/lapacke/utils/lapacke_dtr_trans.c +++ b/lapacke/utils/lapacke_dtr_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * layout or vice versa. */ -void LAPACKE_dtr_trans( int matrix_order, char uplo, char diag, lapack_int n, +void LAPACKE_dtr_trans( int matrix_layout, char uplo, char diag, lapack_int n, const double *in, lapack_int ldin, double *out, lapack_int ldout ) { @@ -46,11 +46,11 @@ void LAPACKE_dtr_trans( int matrix_order, char uplo, char diag, lapack_int n, if( in == NULL || out == NULL ) return ; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_sgb_nancheck.c b/lapacke/utils/lapacke_sgb_nancheck.c index 2cec711c..dcebcf6b 100644 --- a/lapacke/utils/lapacke_sgb_nancheck.c +++ b/lapacke/utils/lapacke_sgb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_sgb_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_sgb_nancheck( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float *ab, @@ -44,7 +44,7 @@ lapack_logical LAPACKE_sgb_nancheck( int matrix_order, lapack_int m, if( ab == NULL ) return (lapack_logical) 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < n; j++ ) { for( i = MAX( ku-j, 0 ); i < MIN3( ldab, m+ku-j, kl+ku+1 ); i++ ) { @@ -52,7 +52,7 @@ lapack_logical LAPACKE_sgb_nancheck( int matrix_order, lapack_int m, return (lapack_logical) 1; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { for( j = 0; j < MIN( n, ldab ); j++ ) { for( i = MAX( ku-j, 0 ); i < MIN( m+ku-j, kl+ku+1 ); i++ ) { if( LAPACK_SISNAN( ab[(size_t)i*ldab+j] ) ) diff --git a/lapacke/utils/lapacke_sgb_trans.c b/lapacke/utils/lapacke_sgb_trans.c index 88a2944c..cfdce0e3 100644 --- a/lapacke/utils/lapacke_sgb_trans.c +++ b/lapacke/utils/lapacke_sgb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_sgb_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_sgb_trans( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const float *in, lapack_int ldin, float *out, lapack_int ldout ) @@ -46,14 +46,14 @@ void LAPACKE_sgb_trans( int matrix_order, lapack_int m, lapack_int n, if( in == NULL || out == NULL ) return; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < MIN( ldout, n ); j++ ) { for( i = MAX( ku-j, 0 ); i < MIN3( ldin, m+ku-j, kl+ku+1 ); i++ ) { out[(size_t)i*ldout+j] = in[i+(size_t)j*ldin]; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { /* TODO: interchange loops for performance. * This is just reference impemeltation. */ diff --git a/lapacke/utils/lapacke_sge_nancheck.c b/lapacke/utils/lapacke_sge_nancheck.c index 6c0401cf..a47e7e2b 100644 --- a/lapacke/utils/lapacke_sge_nancheck.c +++ b/lapacke/utils/lapacke_sge_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_sge_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_sge_nancheck( int matrix_layout, lapack_int m, lapack_int n, const float *a, lapack_int lda ) @@ -43,14 +43,14 @@ lapack_logical LAPACKE_sge_nancheck( int matrix_order, lapack_int m, if( a == NULL ) return (lapack_logical) 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < n; j++ ) { for( i = 0; i < MIN( m, lda ); i++ ) { if( LAPACK_SISNAN( a[i+(size_t)j*lda] ) ) return (lapack_logical) 1; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { for( i = 0; i < m; i++ ) { for( j = 0; j < MIN( n, lda ); j++ ) { if( LAPACK_SISNAN( a[(size_t)i*lda+j] ) ) diff --git a/lapacke/utils/lapacke_sge_trans.c b/lapacke/utils/lapacke_sge_trans.c index 6af94844..0e128e17 100644 --- a/lapacke/utils/lapacke_sge_trans.c +++ b/lapacke/utils/lapacke_sge_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * layout or vice versa. */ -void LAPACKE_sge_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_sge_trans( int matrix_layout, lapack_int m, lapack_int n, const float* in, lapack_int ldin, float* out, lapack_int ldout ) { @@ -45,10 +45,10 @@ void LAPACKE_sge_trans( int matrix_order, lapack_int m, lapack_int n, if( in == NULL || out == NULL ) return; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { x = n; y = m; - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { x = m; y = n; } else { diff --git a/lapacke/utils/lapacke_sgg_nancheck.c b/lapacke/utils/lapacke_sgg_nancheck.c index 769f111e..cb0c114f 100644 --- a/lapacke/utils/lapacke_sgg_nancheck.c +++ b/lapacke/utils/lapacke_sgg_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_sgg_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_sgg_nancheck( int matrix_layout, lapack_int m, lapack_int n, const float *a, lapack_int lda ) { - return LAPACKE_sge_nancheck( matrix_order, m, n, a, lda ); + return LAPACKE_sge_nancheck( matrix_layout, m, n, a, lda ); } diff --git a/lapacke/utils/lapacke_sgg_trans.c b/lapacke/utils/lapacke_sgg_trans.c index da508371..a077ae12 100644 --- a/lapacke/utils/lapacke_sgg_trans.c +++ b/lapacke/utils/lapacke_sgg_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_sgg_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_sgg_trans( int matrix_layout, lapack_int m, lapack_int n, const float* in, lapack_int ldin, float* out, lapack_int ldout ) { - LAPACKE_sge_trans( matrix_order, m, n, in, ldin, out, ldout ); + LAPACKE_sge_trans( matrix_layout, m, n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_shs_nancheck.c b/lapacke/utils/lapacke_shs_nancheck.c index 45fce94a..5a54a2f5 100644 --- a/lapacke/utils/lapacke_shs_nancheck.c +++ b/lapacke/utils/lapacke_shs_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_shs_nancheck( int matrix_order, lapack_int n, +lapack_logical LAPACKE_shs_nancheck( int matrix_layout, lapack_int n, const float *a, lapack_int lda ) { @@ -43,15 +43,15 @@ lapack_logical LAPACKE_shs_nancheck( int matrix_order, lapack_int n, if( a == NULL ) return (lapack_logical) 0; /* Check subdiagonal first */ - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { subdiag_nans = LAPACKE_s_nancheck( n-1, &a[1], lda+1 ); - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { subdiag_nans = LAPACKE_s_nancheck( n-1, &a[lda], lda+1 ); } else { return (lapack_logical) 0; } /* Check upper triangular if subdiagonal has no NaNs. */ - return subdiag_nans || LAPACKE_str_nancheck( matrix_order, 'u', 'n', + return subdiag_nans || LAPACKE_str_nancheck( matrix_layout, 'u', 'n', n, a, lda); } diff --git a/lapacke/utils/lapacke_shs_trans.c b/lapacke/utils/lapacke_shs_trans.c index 3b9d23f6..fc97bfaf 100644 --- a/lapacke/utils/lapacke_shs_trans.c +++ b/lapacke/utils/lapacke_shs_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,17 +37,17 @@ * layout or vice versa. */ -void LAPACKE_shs_trans( int matrix_order, lapack_int n, +void LAPACKE_shs_trans( int matrix_layout, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout ) { if( in == NULL || out == NULL ) return; /* Convert subdiagonal first */ - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { LAPACKE_sge_trans( LAPACK_COL_MAJOR, 1, n-1, &in[1], ldin+1, &out[ldout], ldout+1 ); - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { LAPACKE_sge_trans( LAPACK_ROW_MAJOR, n-1, 1, &in[ldin], ldin+1, &out[1], ldout+1 ); } else { @@ -55,5 +55,5 @@ void LAPACKE_shs_trans( int matrix_order, lapack_int n, } /* Convert upper triangular. */ - LAPACKE_str_trans( matrix_order, 'u', 'n', n, in, ldin, out, ldout); + LAPACKE_str_trans( matrix_layout, 'u', 'n', n, in, ldin, out, ldout); } diff --git a/lapacke/utils/lapacke_spb_nancheck.c b/lapacke/utils/lapacke_spb_nancheck.c index c652c590..b04b8892 100644 --- a/lapacke/utils/lapacke_spb_nancheck.c +++ b/lapacke/utils/lapacke_spb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,15 +34,15 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_spb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_spb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - return LAPACKE_sgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_sgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - return LAPACKE_sgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_sgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } return (lapack_logical) 0; } diff --git a/lapacke/utils/lapacke_spb_trans.c b/lapacke/utils/lapacke_spb_trans.c index 962cb596..5e27e79c 100644 --- a/lapacke/utils/lapacke_spb_trans.c +++ b/lapacke/utils/lapacke_spb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,14 +37,14 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_spb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_spb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float *in, lapack_int ldin, float *out, lapack_int ldout ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - LAPACKE_sgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, ldout ); + LAPACKE_sgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - LAPACKE_sgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, ldout ); + LAPACKE_sgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_spf_nancheck.c b/lapacke/utils/lapacke_spf_nancheck.c index 91412f09..0e5b4659 100644 --- a/lapacke/utils/lapacke_spf_nancheck.c +++ b/lapacke/utils/lapacke_spf_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -35,7 +35,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to * check 1d array for NaNs. It doesn't depend upon uplo, transr or - * matrix_order. + * matrix_layout. */ lapack_logical LAPACKE_spf_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_spf_trans.c b/lapacke/utils/lapacke_spf_trans.c index 15b3d9b2..10800da4 100644 --- a/lapacke/utils/lapacke_spf_trans.c +++ b/lapacke/utils/lapacke_spf_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_spf_trans( int matrix_order, char transr, char uplo, +void LAPACKE_spf_trans( int matrix_layout, char transr, char uplo, lapack_int n, const float *in, float *out ) { - LAPACKE_stf_trans( matrix_order, transr, uplo, 'n', n, in, out ); + LAPACKE_stf_trans( matrix_layout, transr, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_spo_nancheck.c b/lapacke/utils/lapacke_spo_nancheck.c index aea1d026..fff2e4d0 100644 --- a/lapacke/utils/lapacke_spo_nancheck.c +++ b/lapacke/utils/lapacke_spo_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_spo_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_spo_nancheck( int matrix_layout, char uplo, lapack_int n, const float *a, lapack_int lda ) { - return LAPACKE_str_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_str_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_spo_trans.c b/lapacke/utils/lapacke_spo_trans.c index b485c4d6..409e062a 100644 --- a/lapacke/utils/lapacke_spo_trans.c +++ b/lapacke/utils/lapacke_spo_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_spo_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_spo_trans( int matrix_layout, char uplo, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout ) { - LAPACKE_str_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_str_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_spp_nancheck.c b/lapacke/utils/lapacke_spp_nancheck.c index 9c416e0d..eae73fa5 100644 --- a/lapacke/utils/lapacke_spp_nancheck.c +++ b/lapacke/utils/lapacke_spp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_spp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_spp_trans.c b/lapacke/utils/lapacke_spp_trans.c index 6e49f2e4..658041d6 100644 --- a/lapacke/utils/lapacke_spp_trans.c +++ b/lapacke/utils/lapacke_spp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_spp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_spp_trans( int matrix_layout, char uplo, lapack_int n, const float *in, float *out ) { - LAPACKE_stp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_stp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_ssb_nancheck.c b/lapacke/utils/lapacke_ssb_nancheck.c index 7b4ab052..0874e766 100644 --- a/lapacke/utils/lapacke_ssb_nancheck.c +++ b/lapacke/utils/lapacke_ssb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,15 +34,15 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_ssb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_ssb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - return LAPACKE_sgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_sgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - return LAPACKE_sgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_sgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } return (lapack_logical) 0; } diff --git a/lapacke/utils/lapacke_ssb_trans.c b/lapacke/utils/lapacke_ssb_trans.c index 969dfd44..69825077 100644 --- a/lapacke/utils/lapacke_ssb_trans.c +++ b/lapacke/utils/lapacke_ssb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,14 +37,14 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_ssb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_ssb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const float *in, lapack_int ldin, float *out, lapack_int ldout ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - LAPACKE_sgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, ldout ); + LAPACKE_sgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - LAPACKE_sgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, ldout ); + LAPACKE_sgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_ssp_nancheck.c b/lapacke/utils/lapacke_ssp_nancheck.c index 5e3b7cc4..447724b0 100644 --- a/lapacke/utils/lapacke_ssp_nancheck.c +++ b/lapacke/utils/lapacke_ssp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_ssp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_ssp_trans.c b/lapacke/utils/lapacke_ssp_trans.c index 95f6033e..9583368e 100644 --- a/lapacke/utils/lapacke_ssp_trans.c +++ b/lapacke/utils/lapacke_ssp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,10 +37,10 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_ssp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_ssp_trans( int matrix_layout, char uplo, lapack_int n, const float *in, float *out ) { - LAPACKE_stp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_stp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_ssy_nancheck.c b/lapacke/utils/lapacke_ssy_nancheck.c index 2894a827..89e962e8 100644 --- a/lapacke/utils/lapacke_ssy_nancheck.c +++ b/lapacke/utils/lapacke_ssy_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_ssy_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_ssy_nancheck( int matrix_layout, char uplo, lapack_int n, const float *a, lapack_int lda ) { - return LAPACKE_str_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_str_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_ssy_trans.c b/lapacke/utils/lapacke_ssy_trans.c index ad49462c..8f95c786 100644 --- a/lapacke/utils/lapacke_ssy_trans.c +++ b/lapacke/utils/lapacke_ssy_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_ssy_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_ssy_trans( int matrix_layout, char uplo, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout ) { - LAPACKE_str_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_str_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_stb_nancheck.c b/lapacke/utils/lapacke_stb_nancheck.c index f8c36083..5a870561 100644 --- a/lapacke/utils/lapacke_stb_nancheck.c +++ b/lapacke/utils/lapacke_stb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_stb_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_stb_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const float* ab, lapack_int ldab ) @@ -43,11 +43,11 @@ lapack_logical LAPACKE_stb_nancheck( int matrix_order, char uplo, char diag, if( ab == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ @@ -58,27 +58,27 @@ lapack_logical LAPACKE_stb_nancheck( int matrix_order, char uplo, char diag, /* Unit case, diagonal should be excluded from the check for NaN. */ if( colmaj ) { if( upper ) { - return LAPACKE_sgb_nancheck( matrix_order, n-1, n-1, 0, kd-1, + return LAPACKE_sgb_nancheck( matrix_layout, n-1, n-1, 0, kd-1, &ab[ldab], ldab ); } else { - return LAPACKE_sgb_nancheck( matrix_order, n-1, n-1, kd-1, 0, + return LAPACKE_sgb_nancheck( matrix_layout, n-1, n-1, kd-1, 0, &ab[1], ldab ); } } else { if( upper ) { - return LAPACKE_sgb_nancheck( matrix_order, n-1, n-1, 0, kd-1, + return LAPACKE_sgb_nancheck( matrix_layout, n-1, n-1, 0, kd-1, &ab[1], ldab ); } else { - return LAPACKE_sgb_nancheck( matrix_order, n-1, n-1, kd-1, 0, + return LAPACKE_sgb_nancheck( matrix_layout, n-1, n-1, kd-1, 0, &ab[ldab], ldab ); } } } else { /* Non-unit case */ if( upper ) { - return LAPACKE_sgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_sgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else { - return LAPACKE_sgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_sgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } } } diff --git a/lapacke/utils/lapacke_stb_trans.c b/lapacke/utils/lapacke_stb_trans.c index e52a8e4c..2a2159db 100644 --- a/lapacke/utils/lapacke_stb_trans.c +++ b/lapacke/utils/lapacke_stb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_stb_trans( int matrix_order, char uplo, char diag, +void LAPACKE_stb_trans( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const float *in, lapack_int ldin, float *out, lapack_int ldout ) @@ -46,11 +46,11 @@ void LAPACKE_stb_trans( int matrix_order, char uplo, char diag, if( in == NULL || out == NULL ) return; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ @@ -61,28 +61,28 @@ void LAPACKE_stb_trans( int matrix_order, char uplo, char diag, /* Unit case, diagonal excluded from transposition */ if( colmaj ) { if( upper ) { - LAPACKE_sgb_trans( matrix_order, n-1, n-1, 0, kd-1, + LAPACKE_sgb_trans( matrix_layout, n-1, n-1, 0, kd-1, &in[ldin], ldin, &out[1], ldout ); } else { - LAPACKE_sgb_trans( matrix_order, n-1, n-1, kd-1, 0, + LAPACKE_sgb_trans( matrix_layout, n-1, n-1, kd-1, 0, &in[1], ldin, &out[ldout], ldout ); } } else { if( upper ) { - LAPACKE_sgb_trans( matrix_order, n-1, n-1, 0, kd-1, + LAPACKE_sgb_trans( matrix_layout, n-1, n-1, 0, kd-1, &in[1], ldin, &out[ldout], ldout ); } else { - LAPACKE_sgb_trans( matrix_order, n-1, n-1, kd-1, 0, + LAPACKE_sgb_trans( matrix_layout, n-1, n-1, kd-1, 0, &in[ldin], ldin, &out[1], ldout ); } } } else { /* Non-unit case */ if( upper ) { - LAPACKE_sgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, + LAPACKE_sgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else { - LAPACKE_sgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, + LAPACKE_sgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_stf_nancheck.c b/lapacke/utils/lapacke_stf_nancheck.c index 24c51e55..96861c22 100644 --- a/lapacke/utils/lapacke_stf_nancheck.c +++ b/lapacke/utils/lapacke_stf_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_stf_nancheck( int matrix_order, char transr, +lapack_logical LAPACKE_stf_nancheck( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const float *a ) @@ -45,12 +45,12 @@ lapack_logical LAPACKE_stf_nancheck( int matrix_order, char transr, if( a == NULL ) return (lapack_logical) 0; - rowmaj = (matrix_order == LAPACK_ROW_MAJOR); + rowmaj = (matrix_layout == LAPACK_ROW_MAJOR); ntr = LAPACKE_lsame( transr, 'n' ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !rowmaj && ( matrix_order != LAPACK_COL_MAJOR ) ) || + if( ( !rowmaj && ( matrix_layout != LAPACK_COL_MAJOR ) ) || ( !ntr && !LAPACKE_lsame( transr, 't' ) && !LAPACKE_lsame( transr, 'c' ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || diff --git a/lapacke/utils/lapacke_stf_trans.c b/lapacke/utils/lapacke_stf_trans.c index e67fa7fb..065329fa 100644 --- a/lapacke/utils/lapacke_stf_trans.c +++ b/lapacke/utils/lapacke_stf_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -38,7 +38,7 @@ * This functions does copy diagonal for both unit and non-unit cases. */ -void LAPACKE_stf_trans( int matrix_order, char transr, char uplo, char diag, +void LAPACKE_stf_trans( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const float *in, float *out ) { @@ -47,12 +47,12 @@ void LAPACKE_stf_trans( int matrix_order, char transr, char uplo, char diag, if( in == NULL || out == NULL ) return ; - rowmaj = (matrix_order == LAPACK_ROW_MAJOR); + rowmaj = (matrix_layout == LAPACK_ROW_MAJOR); ntr = LAPACKE_lsame( transr, 'n' ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !rowmaj && ( matrix_order != LAPACK_COL_MAJOR ) ) || + if( ( !rowmaj && ( matrix_layout != LAPACK_COL_MAJOR ) ) || ( !ntr && !LAPACKE_lsame( transr, 't' ) && !LAPACKE_lsame( transr, 'c' ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || diff --git a/lapacke/utils/lapacke_stp_nancheck.c b/lapacke/utils/lapacke_stp_nancheck.c index 9f479a70..2932d404 100644 --- a/lapacke/utils/lapacke_stp_nancheck.c +++ b/lapacke/utils/lapacke_stp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ -lapack_logical LAPACKE_stp_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_stp_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const float *ap ) { @@ -46,11 +46,11 @@ lapack_logical LAPACKE_stp_nancheck( int matrix_order, char uplo, char diag, if( ap == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_stp_trans.c b/lapacke/utils/lapacke_stp_trans.c index bd9d4fdd..23708422 100644 --- a/lapacke/utils/lapacke_stp_trans.c +++ b/lapacke/utils/lapacke_stp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_stp_trans( int matrix_order, char uplo, char diag, +void LAPACKE_stp_trans( int matrix_layout, char uplo, char diag, lapack_int n, const float *in, float *out ) { @@ -46,11 +46,11 @@ void LAPACKE_stp_trans( int matrix_order, char uplo, char diag, if( in == NULL || out == NULL ) return ; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_str_nancheck.c b/lapacke/utils/lapacke_str_nancheck.c index 730ea704..c149b7d3 100644 --- a/lapacke/utils/lapacke_str_nancheck.c +++ b/lapacke/utils/lapacke_str_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_str_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_str_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const float *a, lapack_int lda ) @@ -44,11 +44,11 @@ lapack_logical LAPACKE_str_nancheck( int matrix_order, char uplo, char diag, if( a == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_str_trans.c b/lapacke/utils/lapacke_str_trans.c index 85526ec0..3a7ec33d 100644 --- a/lapacke/utils/lapacke_str_trans.c +++ b/lapacke/utils/lapacke_str_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * layout or vice versa. */ -void LAPACKE_str_trans( int matrix_order, char uplo, char diag, lapack_int n, +void LAPACKE_str_trans( int matrix_layout, char uplo, char diag, lapack_int n, const float *in, lapack_int ldin, float *out, lapack_int ldout ) { @@ -46,11 +46,11 @@ void LAPACKE_str_trans( int matrix_order, char uplo, char diag, lapack_int n, if( in == NULL || out == NULL ) return ; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_zgb_nancheck.c b/lapacke/utils/lapacke_zgb_nancheck.c index c3021a25..019a7357 100644 --- a/lapacke/utils/lapacke_zgb_nancheck.c +++ b/lapacke/utils/lapacke_zgb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zgb_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_zgb_nancheck( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double *ab, @@ -44,7 +44,7 @@ lapack_logical LAPACKE_zgb_nancheck( int matrix_order, lapack_int m, if( ab == NULL ) return (lapack_logical) 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < n; j++ ) { for( i = MAX( ku-j, 0 ); i < MIN3( ldab, m+ku-j, kl+ku+1 ); i++ ) { @@ -52,7 +52,7 @@ lapack_logical LAPACKE_zgb_nancheck( int matrix_order, lapack_int m, return (lapack_logical) 1; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { for( j = 0; j < MIN( n, ldab ); j++ ) { for( i = MAX( ku-j, 0 ); i < MIN( m+ku-j, kl+ku+1 ); i++ ) { if( LAPACK_ZISNAN( ab[(size_t)i*ldab+j] ) ) diff --git a/lapacke/utils/lapacke_zgb_trans.c b/lapacke/utils/lapacke_zgb_trans.c index 28c471d2..c0b122aa 100644 --- a/lapacke/utils/lapacke_zgb_trans.c +++ b/lapacke/utils/lapacke_zgb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_zgb_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_zgb_trans( int matrix_layout, lapack_int m, lapack_int n, lapack_int kl, lapack_int ku, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) @@ -46,14 +46,14 @@ void LAPACKE_zgb_trans( int matrix_order, lapack_int m, lapack_int n, if( in == NULL || out == NULL ) return; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < MIN( ldout, n ); j++ ) { for( i = MAX( ku-j, 0 ); i < MIN3( ldin, m+ku-j, kl+ku+1 ); i++ ) { out[(size_t)i*ldout+j] = in[i+(size_t)j*ldin]; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { /* TODO: interchange loops for performance. * This is just reference impemeltation */ diff --git a/lapacke/utils/lapacke_zge_nancheck.c b/lapacke/utils/lapacke_zge_nancheck.c index e7602a4b..0aa9ae36 100644 --- a/lapacke/utils/lapacke_zge_nancheck.c +++ b/lapacke/utils/lapacke_zge_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zge_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_zge_nancheck( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *a, lapack_int lda ) @@ -43,14 +43,14 @@ lapack_logical LAPACKE_zge_nancheck( int matrix_order, lapack_int m, if( a == NULL ) return (lapack_logical) 0; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { for( j = 0; j < n; j++ ) { for( i = 0; i < MIN( m, lda ); i++ ) { if( LAPACK_ZISNAN( a[i+(size_t)j*lda] ) ) return (lapack_logical) 1; } } - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { for( i = 0; i < m; i++ ) { for( j = 0; j < MIN( n, lda ); j++ ) { if( LAPACK_ZISNAN( a[(size_t)i*lda+j] ) ) diff --git a/lapacke/utils/lapacke_zge_trans.c b/lapacke/utils/lapacke_zge_trans.c index d42ace1a..79090ecb 100644 --- a/lapacke/utils/lapacke_zge_trans.c +++ b/lapacke/utils/lapacke_zge_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * layout or vice versa. */ -void LAPACKE_zge_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_zge_trans( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* in, lapack_int ldin, lapack_complex_double* out, lapack_int ldout ) { @@ -45,10 +45,10 @@ void LAPACKE_zge_trans( int matrix_order, lapack_int m, lapack_int n, if( in == NULL || out == NULL ) return; - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { x = n; y = m; - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { x = m; y = n; } else { diff --git a/lapacke/utils/lapacke_zgg_nancheck.c b/lapacke/utils/lapacke_zgg_nancheck.c index da8989ed..9a97a757 100644 --- a/lapacke/utils/lapacke_zgg_nancheck.c +++ b/lapacke/utils/lapacke_zgg_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zgg_nancheck( int matrix_order, lapack_int m, +lapack_logical LAPACKE_zgg_nancheck( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *a, lapack_int lda ) { - return LAPACKE_zge_nancheck( matrix_order, m, n, a, lda ); + return LAPACKE_zge_nancheck( matrix_layout, m, n, a, lda ); } diff --git a/lapacke/utils/lapacke_zgg_trans.c b/lapacke/utils/lapacke_zgg_trans.c index e9fbcb15..c114c7a6 100644 --- a/lapacke/utils/lapacke_zgg_trans.c +++ b/lapacke/utils/lapacke_zgg_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_zgg_trans( int matrix_order, lapack_int m, lapack_int n, +void LAPACKE_zgg_trans( int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double* in, lapack_int ldin, lapack_complex_double* out, lapack_int ldout ) { - LAPACKE_zge_trans( matrix_order, m, n, in, ldin, out, ldout ); + LAPACKE_zge_trans( matrix_layout, m, n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_zhb_nancheck.c b/lapacke/utils/lapacke_zhb_nancheck.c index 30275909..9b8d7180 100644 --- a/lapacke/utils/lapacke_zhb_nancheck.c +++ b/lapacke/utils/lapacke_zhb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,15 +34,15 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zhb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zhb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - return LAPACKE_zgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_zgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - return LAPACKE_zgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_zgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } return (lapack_logical) 0; } diff --git a/lapacke/utils/lapacke_zhb_trans.c b/lapacke/utils/lapacke_zhb_trans.c index fb01f67f..7b84afad 100644 --- a/lapacke/utils/lapacke_zhb_trans.c +++ b/lapacke/utils/lapacke_zhb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,14 +37,14 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_zhb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zhb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - LAPACKE_zgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, ldout ); + LAPACKE_zgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - LAPACKE_zgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, ldout ); + LAPACKE_zgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_zhe_nancheck.c b/lapacke/utils/lapacke_zhe_nancheck.c index dfa726c7..ab63037e 100644 --- a/lapacke/utils/lapacke_zhe_nancheck.c +++ b/lapacke/utils/lapacke_zhe_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zhe_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zhe_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *a, lapack_int lda ) { - return LAPACKE_ztr_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_ztr_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_zhe_trans.c b/lapacke/utils/lapacke_zhe_trans.c index e0c7df7b..4c18c07a 100644 --- a/lapacke/utils/lapacke_zhe_trans.c +++ b/lapacke/utils/lapacke_zhe_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_zhe_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zhe_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) { - LAPACKE_ztr_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_ztr_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_zhp_nancheck.c b/lapacke/utils/lapacke_zhp_nancheck.c index aa6c8a34..694e1310 100644 --- a/lapacke/utils/lapacke_zhp_nancheck.c +++ b/lapacke/utils/lapacke_zhp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_zhp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_zhp_trans.c b/lapacke/utils/lapacke_zhp_trans.c index 88141e92..2501c7fd 100644 --- a/lapacke/utils/lapacke_zhp_trans.c +++ b/lapacke/utils/lapacke_zhp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_zhp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zhp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ) { - LAPACKE_ztp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_ztp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_zhs_nancheck.c b/lapacke/utils/lapacke_zhs_nancheck.c index 6ae00722..af73e7d4 100644 --- a/lapacke/utils/lapacke_zhs_nancheck.c +++ b/lapacke/utils/lapacke_zhs_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zhs_nancheck( int matrix_order, lapack_int n, +lapack_logical LAPACKE_zhs_nancheck( int matrix_layout, lapack_int n, const lapack_complex_double *a, lapack_int lda ) { @@ -43,15 +43,15 @@ lapack_logical LAPACKE_zhs_nancheck( int matrix_order, lapack_int n, if( a == NULL ) return (lapack_logical) 0; /* Check subdiagonal first */ - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { subdiag_nans = LAPACKE_z_nancheck( n-1, &a[1], lda+1 ); - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { subdiag_nans = LAPACKE_z_nancheck( n-1, &a[lda], lda+1 ); } else { return (lapack_logical) 0; } /* Check upper triangular if subdiagonal has no NaNs. */ - return subdiag_nans || LAPACKE_ztr_nancheck( matrix_order, 'u', 'n', + return subdiag_nans || LAPACKE_ztr_nancheck( matrix_layout, 'u', 'n', n, a, lda); } diff --git a/lapacke/utils/lapacke_zhs_trans.c b/lapacke/utils/lapacke_zhs_trans.c index cb9dab6c..95ab6a36 100644 --- a/lapacke/utils/lapacke_zhs_trans.c +++ b/lapacke/utils/lapacke_zhs_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,17 +37,17 @@ * layout or vice versa. */ -void LAPACKE_zhs_trans( int matrix_order, lapack_int n, +void LAPACKE_zhs_trans( int matrix_layout, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) { if( in == NULL || out == NULL ) return; /* Convert subdiagonal first */ - if( matrix_order == LAPACK_COL_MAJOR ) { + if( matrix_layout == LAPACK_COL_MAJOR ) { LAPACKE_zge_trans( LAPACK_COL_MAJOR, 1, n-1, &in[1], ldin+1, &out[ldout], ldout+1 ); - } else if ( matrix_order == LAPACK_ROW_MAJOR ) { + } else if ( matrix_layout == LAPACK_ROW_MAJOR ) { LAPACKE_zge_trans( LAPACK_ROW_MAJOR, n-1, 1, &in[ldin], ldin+1, &out[1], ldout+1 ); } else { @@ -55,5 +55,5 @@ void LAPACKE_zhs_trans( int matrix_order, lapack_int n, } /* Convert upper triangular. */ - LAPACKE_ztr_trans( matrix_order, 'u', 'n', n, in, ldin, out, ldout); + LAPACKE_ztr_trans( matrix_layout, 'u', 'n', n, in, ldin, out, ldout); } diff --git a/lapacke/utils/lapacke_zpb_nancheck.c b/lapacke/utils/lapacke_zpb_nancheck.c index 46974f6a..4c9d221c 100644 --- a/lapacke/utils/lapacke_zpb_nancheck.c +++ b/lapacke/utils/lapacke_zpb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,15 +34,15 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zpb_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zpb_nancheck( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - return LAPACKE_zgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_zgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - return LAPACKE_zgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_zgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } return (lapack_logical) 0; } diff --git a/lapacke/utils/lapacke_zpb_trans.c b/lapacke/utils/lapacke_zpb_trans.c index de74dec4..f175ebcc 100644 --- a/lapacke/utils/lapacke_zpb_trans.c +++ b/lapacke/utils/lapacke_zpb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,14 +37,14 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_zpb_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zpb_trans( int matrix_layout, char uplo, lapack_int n, lapack_int kd, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) { if( LAPACKE_lsame( uplo, 'u' ) ) { - LAPACKE_zgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, ldout ); + LAPACKE_zgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else if( LAPACKE_lsame( uplo, 'l' ) ) { - LAPACKE_zgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, ldout ); + LAPACKE_zgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_zpf_nancheck.c b/lapacke/utils/lapacke_zpf_nancheck.c index 8582dfe8..a0682290 100644 --- a/lapacke/utils/lapacke_zpf_nancheck.c +++ b/lapacke/utils/lapacke_zpf_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -35,7 +35,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to * check 1d array for NaNs. It doesn't depend upon uplo, transr or - * matrix_order. + * matrix_layout. */ lapack_logical LAPACKE_zpf_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_zpf_trans.c b/lapacke/utils/lapacke_zpf_trans.c index a2efd23e..c9c43b38 100644 --- a/lapacke/utils/lapacke_zpf_trans.c +++ b/lapacke/utils/lapacke_zpf_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_zpf_trans( int matrix_order, char transr, char uplo, +void LAPACKE_zpf_trans( int matrix_layout, char transr, char uplo, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ) { - LAPACKE_ztf_trans( matrix_order, transr, uplo, 'n', n, in, out ); + LAPACKE_ztf_trans( matrix_layout, transr, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_zpo_nancheck.c b/lapacke/utils/lapacke_zpo_nancheck.c index 7ede23bb..b88c3c7d 100644 --- a/lapacke/utils/lapacke_zpo_nancheck.c +++ b/lapacke/utils/lapacke_zpo_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zpo_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zpo_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *a, lapack_int lda ) { - return LAPACKE_ztr_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_ztr_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_zpo_trans.c b/lapacke/utils/lapacke_zpo_trans.c index a8771209..d58d37b0 100644 --- a/lapacke/utils/lapacke_zpo_trans.c +++ b/lapacke/utils/lapacke_zpo_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_zpo_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zpo_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) { - LAPACKE_ztr_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_ztr_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_zpp_nancheck.c b/lapacke/utils/lapacke_zpp_nancheck.c index f9589163..141a796a 100644 --- a/lapacke/utils/lapacke_zpp_nancheck.c +++ b/lapacke/utils/lapacke_zpp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_zpp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_zpp_trans.c b/lapacke/utils/lapacke_zpp_trans.c index 1fb208a8..70a5d7b4 100644 --- a/lapacke/utils/lapacke_zpp_trans.c +++ b/lapacke/utils/lapacke_zpp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_zpp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zpp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ) { - LAPACKE_ztp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_ztp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_zsp_nancheck.c b/lapacke/utils/lapacke_zsp_nancheck.c index 1267c380..d1a88641 100644 --- a/lapacke/utils/lapacke_zsp_nancheck.c +++ b/lapacke/utils/lapacke_zsp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ lapack_logical LAPACKE_zsp_nancheck( lapack_int n, diff --git a/lapacke/utils/lapacke_zsp_trans.c b/lapacke/utils/lapacke_zsp_trans.c index 278d4d85..76d504d4 100644 --- a/lapacke/utils/lapacke_zsp_trans.c +++ b/lapacke/utils/lapacke_zsp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_zsp_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zsp_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ) { - LAPACKE_ztp_trans( matrix_order, uplo, 'n', n, in, out ); + LAPACKE_ztp_trans( matrix_layout, uplo, 'n', n, in, out ); } diff --git a/lapacke/utils/lapacke_zsy_nancheck.c b/lapacke/utils/lapacke_zsy_nancheck.c index 2b063d61..e4456d9a 100644 --- a/lapacke/utils/lapacke_zsy_nancheck.c +++ b/lapacke/utils/lapacke_zsy_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_zsy_nancheck( int matrix_order, char uplo, +lapack_logical LAPACKE_zsy_nancheck( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *a, lapack_int lda ) { - return LAPACKE_ztr_nancheck( matrix_order, uplo, 'n', n, a, lda ); + return LAPACKE_ztr_nancheck( matrix_layout, uplo, 'n', n, a, lda ); } diff --git a/lapacke/utils/lapacke_zsy_trans.c b/lapacke/utils/lapacke_zsy_trans.c index fbea03cf..ff4c65a2 100644 --- a/lapacke/utils/lapacke_zsy_trans.c +++ b/lapacke/utils/lapacke_zsy_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,9 +37,9 @@ * layout or vice versa. */ -void LAPACKE_zsy_trans( int matrix_order, char uplo, lapack_int n, +void LAPACKE_zsy_trans( int matrix_layout, char uplo, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) { - LAPACKE_ztr_trans( matrix_order, uplo, 'n', n, in, ldin, out, ldout ); + LAPACKE_ztr_trans( matrix_layout, uplo, 'n', n, in, ldin, out, ldout ); } diff --git a/lapacke/utils/lapacke_ztb_nancheck.c b/lapacke/utils/lapacke_ztb_nancheck.c index 71c006f1..7c229730 100644 --- a/lapacke/utils/lapacke_ztb_nancheck.c +++ b/lapacke/utils/lapacke_ztb_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_ztb_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ztb_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_double* ab, lapack_int ldab ) @@ -43,11 +43,11 @@ lapack_logical LAPACKE_ztb_nancheck( int matrix_order, char uplo, char diag, if( ab == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ @@ -58,27 +58,27 @@ lapack_logical LAPACKE_ztb_nancheck( int matrix_order, char uplo, char diag, /* Unit case, diagonal should be excluded from the check for NaN. */ if( colmaj ) { if( upper ) { - return LAPACKE_zgb_nancheck( matrix_order, n-1, n-1, 0, kd-1, + return LAPACKE_zgb_nancheck( matrix_layout, n-1, n-1, 0, kd-1, &ab[ldab], ldab ); } else { - return LAPACKE_zgb_nancheck( matrix_order, n-1, n-1, kd-1, 0, + return LAPACKE_zgb_nancheck( matrix_layout, n-1, n-1, kd-1, 0, &ab[1], ldab ); } } else { if( upper ) { - return LAPACKE_zgb_nancheck( matrix_order, n-1, n-1, 0, kd-1, + return LAPACKE_zgb_nancheck( matrix_layout, n-1, n-1, 0, kd-1, &ab[1], ldab ); } else { - return LAPACKE_zgb_nancheck( matrix_order, n-1, n-1, kd-1, 0, + return LAPACKE_zgb_nancheck( matrix_layout, n-1, n-1, kd-1, 0, &ab[ldab], ldab ); } } } else { /* Non-unit case */ if( upper ) { - return LAPACKE_zgb_nancheck( matrix_order, n, n, 0, kd, ab, ldab ); + return LAPACKE_zgb_nancheck( matrix_layout, n, n, 0, kd, ab, ldab ); } else { - return LAPACKE_zgb_nancheck( matrix_order, n, n, kd, 0, ab, ldab ); + return LAPACKE_zgb_nancheck( matrix_layout, n, n, kd, 0, ab, ldab ); } } } diff --git a/lapacke/utils/lapacke_ztb_trans.c b/lapacke/utils/lapacke_ztb_trans.c index a2210cf0..868629b9 100644 --- a/lapacke/utils/lapacke_ztb_trans.c +++ b/lapacke/utils/lapacke_ztb_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_ztb_trans( int matrix_order, char uplo, char diag, +void LAPACKE_ztb_trans( int matrix_layout, char uplo, char diag, lapack_int n, lapack_int kd, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) @@ -46,11 +46,11 @@ void LAPACKE_ztb_trans( int matrix_order, char uplo, char diag, if( in == NULL || out == NULL ) return; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ @@ -61,28 +61,28 @@ void LAPACKE_ztb_trans( int matrix_order, char uplo, char diag, /* Unit case, diagonal excluded from transposition */ if( colmaj ) { if( upper ) { - LAPACKE_zgb_trans( matrix_order, n-1, n-1, 0, kd-1, + LAPACKE_zgb_trans( matrix_layout, n-1, n-1, 0, kd-1, &in[ldin], ldin, &out[1], ldout ); } else { - LAPACKE_zgb_trans( matrix_order, n-1, n-1, kd-1, 0, + LAPACKE_zgb_trans( matrix_layout, n-1, n-1, kd-1, 0, &in[1], ldin, &out[ldout], ldout ); } } else { if( upper ) { - LAPACKE_zgb_trans( matrix_order, n-1, n-1, 0, kd-1, + LAPACKE_zgb_trans( matrix_layout, n-1, n-1, 0, kd-1, &in[1], ldin, &out[ldout], ldout ); } else { - LAPACKE_zgb_trans( matrix_order, n-1, n-1, kd-1, 0, + LAPACKE_zgb_trans( matrix_layout, n-1, n-1, kd-1, 0, &in[ldin], ldin, &out[1], ldout ); } } } else { /* Non-unit case */ if( upper ) { - LAPACKE_zgb_trans( matrix_order, n, n, 0, kd, in, ldin, out, + LAPACKE_zgb_trans( matrix_layout, n, n, 0, kd, in, ldin, out, ldout ); } else { - LAPACKE_zgb_trans( matrix_order, n, n, kd, 0, in, ldin, out, + LAPACKE_zgb_trans( matrix_layout, n, n, kd, 0, in, ldin, out, ldout ); } } diff --git a/lapacke/utils/lapacke_ztf_nancheck.c b/lapacke/utils/lapacke_ztf_nancheck.c index 415b6f7c..4c899d59 100644 --- a/lapacke/utils/lapacke_ztf_nancheck.c +++ b/lapacke/utils/lapacke_ztf_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_ztf_nancheck( int matrix_order, char transr, +lapack_logical LAPACKE_ztf_nancheck( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const lapack_complex_double *a ) @@ -45,12 +45,12 @@ lapack_logical LAPACKE_ztf_nancheck( int matrix_order, char transr, if( a == NULL ) return (lapack_logical) 0; - rowmaj = (matrix_order == LAPACK_ROW_MAJOR); + rowmaj = (matrix_layout == LAPACK_ROW_MAJOR); ntr = LAPACKE_lsame( transr, 'n' ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !rowmaj && ( matrix_order != LAPACK_COL_MAJOR ) ) || + if( ( !rowmaj && ( matrix_layout != LAPACK_COL_MAJOR ) ) || ( !ntr && !LAPACKE_lsame( transr, 't' ) && !LAPACKE_lsame( transr, 'c' ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || diff --git a/lapacke/utils/lapacke_ztf_trans.c b/lapacke/utils/lapacke_ztf_trans.c index d73e1d38..566d95ae 100644 --- a/lapacke/utils/lapacke_ztf_trans.c +++ b/lapacke/utils/lapacke_ztf_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -38,7 +38,7 @@ * This functions does copy diagonal for both unit and non-unit cases. */ -void LAPACKE_ztf_trans( int matrix_order, char transr, char uplo, char diag, +void LAPACKE_ztf_trans( int matrix_layout, char transr, char uplo, char diag, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ) { @@ -47,12 +47,12 @@ void LAPACKE_ztf_trans( int matrix_order, char transr, char uplo, char diag, if( in == NULL || out == NULL ) return ; - rowmaj = (matrix_order == LAPACK_ROW_MAJOR); + rowmaj = (matrix_layout == LAPACK_ROW_MAJOR); ntr = LAPACKE_lsame( transr, 'n' ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !rowmaj && ( matrix_order != LAPACK_COL_MAJOR ) ) || + if( ( !rowmaj && ( matrix_layout != LAPACK_COL_MAJOR ) ) || ( !ntr && !LAPACKE_lsame( transr, 't' ) && !LAPACKE_lsame( transr, 'c' ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || diff --git a/lapacke/utils/lapacke_ztp_nancheck.c b/lapacke/utils/lapacke_ztp_nancheck.c index 93dfb38f..8e1eec97 100644 --- a/lapacke/utils/lapacke_ztp_nancheck.c +++ b/lapacke/utils/lapacke_ztp_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,10 +34,10 @@ /* Check a matrix for NaN entries. * Since matrix in packed format stored continiously it just required to - * check 1d array for NaNs. It doesn't depend upon uplo or matrix_order. + * check 1d array for NaNs. It doesn't depend upon uplo or matrix_layout. */ -lapack_logical LAPACKE_ztp_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ztp_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *ap ) { @@ -46,11 +46,11 @@ lapack_logical LAPACKE_ztp_nancheck( int matrix_order, char uplo, char diag, if( ap == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_ztp_trans.c b/lapacke/utils/lapacke_ztp_trans.c index b6fa248e..b3654e5f 100644 --- a/lapacke/utils/lapacke_ztp_trans.c +++ b/lapacke/utils/lapacke_ztp_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * column-major(Fortran) layout or vice versa. */ -void LAPACKE_ztp_trans( int matrix_order, char uplo, char diag, +void LAPACKE_ztp_trans( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *in, lapack_complex_double *out ) { @@ -46,11 +46,11 @@ void LAPACKE_ztp_trans( int matrix_order, char uplo, char diag, if( in == NULL || out == NULL ) return ; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); upper = LAPACKE_lsame( uplo, 'u' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !upper && !LAPACKE_lsame( uplo, 'l' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_ztr_nancheck.c b/lapacke/utils/lapacke_ztr_nancheck.c index 291ca90b..e8e792e8 100644 --- a/lapacke/utils/lapacke_ztr_nancheck.c +++ b/lapacke/utils/lapacke_ztr_nancheck.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -34,7 +34,7 @@ /* Check a matrix for NaN entries. */ -lapack_logical LAPACKE_ztr_nancheck( int matrix_order, char uplo, char diag, +lapack_logical LAPACKE_ztr_nancheck( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *a, lapack_int lda ) @@ -44,11 +44,11 @@ lapack_logical LAPACKE_ztr_nancheck( int matrix_order, char uplo, char diag, if( a == NULL ) return (lapack_logical) 0; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */ diff --git a/lapacke/utils/lapacke_ztr_trans.c b/lapacke/utils/lapacke_ztr_trans.c index f1cd29fd..23f17b9e 100644 --- a/lapacke/utils/lapacke_ztr_trans.c +++ b/lapacke/utils/lapacke_ztr_trans.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2010, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -37,7 +37,7 @@ * layout or vice versa. */ -void LAPACKE_ztr_trans( int matrix_order, char uplo, char diag, lapack_int n, +void LAPACKE_ztr_trans( int matrix_layout, char uplo, char diag, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout ) { @@ -46,11 +46,11 @@ void LAPACKE_ztr_trans( int matrix_order, char uplo, char diag, lapack_int n, if( in == NULL || out == NULL ) return ; - colmaj = ( matrix_order == LAPACK_COL_MAJOR ); + colmaj = ( matrix_layout == LAPACK_COL_MAJOR ); lower = LAPACKE_lsame( uplo, 'l' ); unit = LAPACKE_lsame( diag, 'u' ); - if( ( !colmaj && ( matrix_order != LAPACK_ROW_MAJOR ) ) || + if( ( !colmaj && ( matrix_layout != LAPACK_ROW_MAJOR ) ) || ( !lower && !LAPACKE_lsame( uplo, 'u' ) ) || ( !unit && !LAPACKE_lsame( diag, 'n' ) ) ) { /* Just exit if any of input parameters are wrong */