def_lapack.hpp (armadillo-10.8.2.tar.xz) | : | def_lapack.hpp (armadillo-11.0.0.tar.xz) | ||
---|---|---|---|---|
skipping to change at line 18 | skipping to change at line 18 | |||
// You may obtain a copy of the License at | // You may obtain a copy of the License at | |||
// http://www.apache.org/licenses/LICENSE-2.0 | // http://www.apache.org/licenses/LICENSE-2.0 | |||
// | // | |||
// Unless required by applicable law or agreed to in writing, software | // Unless required by applicable law or agreed to in writing, software | |||
// distributed under the License is distributed on an "AS IS" BASIS, | // distributed under the License is distributed on an "AS IS" BASIS, | |||
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | |||
// See the License for the specific language governing permissions and | // See the License for the specific language governing permissions and | |||
// limitations under the License. | // limitations under the License. | |||
// ------------------------------------------------------------------------ | // ------------------------------------------------------------------------ | |||
#ifdef ARMA_USE_LAPACK | #if defined(ARMA_USE_LAPACK) | |||
#if defined(dgetrf) || defined(DGETRF) | #if defined(dgetrf) || defined(DGETRF) | |||
#pragma message ("WARNING: detected possible interference with definitions of LAPACK functions;") | #pragma message ("WARNING: detected possible interference with definitions of LAPACK functions;") | |||
#pragma message ("WARNING: include the armadillo header before any other heade r as a workaround") | #pragma message ("WARNING: include the armadillo header before any other heade r as a workaround") | |||
#endif | #endif | |||
#if defined(ARMA_LAPACK_NOEXCEPT) | #if defined(ARMA_LAPACK_NOEXCEPT) | |||
#undef ARMA_NOEXCEPT | #undef ARMA_NOEXCEPT | |||
#define ARMA_NOEXCEPT noexcept | #define ARMA_NOEXCEPT noexcept | |||
#else | #else | |||
skipping to change at line 258 | skipping to change at line 258 | |||
#define arma_slahqr slahqr | #define arma_slahqr slahqr | |||
#define arma_dlahqr dlahqr | #define arma_dlahqr dlahqr | |||
#define arma_sstedc sstedc | #define arma_sstedc sstedc | |||
#define arma_dstedc dstedc | #define arma_dstedc dstedc | |||
#define arma_strevc strevc | #define arma_strevc strevc | |||
#define arma_dtrevc dtrevc | #define arma_dtrevc dtrevc | |||
#define arma_slarnv slarnv | ||||
#define arma_dlarnv dlarnv | ||||
#define arma_sgehrd sgehrd | #define arma_sgehrd sgehrd | |||
#define arma_dgehrd dgehrd | #define arma_dgehrd dgehrd | |||
#define arma_cgehrd cgehrd | #define arma_cgehrd cgehrd | |||
#define arma_zgehrd zgehrd | #define arma_zgehrd zgehrd | |||
#define arma_spstrf spstrf | #define arma_spstrf spstrf | |||
#define arma_dpstrf dpstrf | #define arma_dpstrf dpstrf | |||
#define arma_cpstrf cpstrf | #define arma_cpstrf cpstrf | |||
#define arma_zpstrf zpstrf | #define arma_zpstrf zpstrf | |||
skipping to change at line 497 | skipping to change at line 494 | |||
#define arma_slahqr SLAHQR | #define arma_slahqr SLAHQR | |||
#define arma_dlahqr DLAHQR | #define arma_dlahqr DLAHQR | |||
#define arma_sstedc SSTEDC | #define arma_sstedc SSTEDC | |||
#define arma_dstedc DSTEDC | #define arma_dstedc DSTEDC | |||
#define arma_strevc STREVC | #define arma_strevc STREVC | |||
#define arma_dtrevc DTREVC | #define arma_dtrevc DTREVC | |||
#define arma_slarnv SLARNV | ||||
#define arma_dlarnv DLARNV | ||||
#define arma_sgehrd SGEHRD | #define arma_sgehrd SGEHRD | |||
#define arma_dgehrd DGEHRD | #define arma_dgehrd DGEHRD | |||
#define arma_cgehrd CGEHRD | #define arma_cgehrd CGEHRD | |||
#define arma_zgehrd ZGEHRD | #define arma_zgehrd ZGEHRD | |||
#define arma_spstrf SPSTRF | #define arma_spstrf SPSTRF | |||
#define arma_dpstrf DPSTRF | #define arma_dpstrf DPSTRF | |||
#define arma_cpstrf CPSTRF | #define arma_cpstrf CPSTRF | |||
#define arma_zpstrf ZPSTRF | #define arma_zpstrf ZPSTRF | |||
skipping to change at line 836 | skipping to change at line 830 | |||
void arma_fortran(arma_dlahqr)(const blas_int* wantt, const blas_int* wantz, c onst blas_int* n, const blas_int* ilo, const blas_int* ihi, double* h, const bla s_int* ldh, double* wr, double* wi, const blas_int* iloz, const blas_int* ihiz, double* z, const blas_int* ldz, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_dlahqr)(const blas_int* wantt, const blas_int* wantz, c onst blas_int* n, const blas_int* ilo, const blas_int* ihi, double* h, const bla s_int* ldh, double* wr, double* wi, const blas_int* iloz, const blas_int* ihiz, double* z, const blas_int* ldz, blas_int* info) ARMA_NOEXCEPT; | |||
// calculate eigenvalues of a symmetric tridiagonal matrix | // calculate eigenvalues of a symmetric tridiagonal matrix | |||
void arma_fortran(arma_sstedc)(const char* compz, const blas_int* n, float* d , float* e, float* z, const blas_int* ldz, float* work, const blas_int* lwork , blas_int* iwork, const blas_int* liwork, blas_int* info, blas_len compz_len) A RMA_NOEXCEPT; | void arma_fortran(arma_sstedc)(const char* compz, const blas_int* n, float* d , float* e, float* z, const blas_int* ldz, float* work, const blas_int* lwork , blas_int* iwork, const blas_int* liwork, blas_int* info, blas_len compz_len) A RMA_NOEXCEPT; | |||
void arma_fortran(arma_dstedc)(const char* compz, const blas_int* n, double* d , double* e, double* z, const blas_int* ldz, double* work, const blas_int* lwork , blas_int* iwork, const blas_int* liwork, blas_int* info, blas_len compz_len) A RMA_NOEXCEPT; | void arma_fortran(arma_dstedc)(const char* compz, const blas_int* n, double* d , double* e, double* z, const blas_int* ldz, double* work, const blas_int* lwork , blas_int* iwork, const blas_int* liwork, blas_int* info, blas_len compz_len) A RMA_NOEXCEPT; | |||
// calculate eigenvectors of a Schur form matrix | // calculate eigenvectors of a Schur form matrix | |||
void arma_fortran(arma_strevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const float* t, const blas_int* ldt, float* vl, co nst blas_int* ldvl, float* vr, const blas_int* ldvr, const blas_int* mm, blas_i nt* m, float* work, blas_int* info, blas_len side_len, blas_len howmny_len) ARM A_NOEXCEPT; | void arma_fortran(arma_strevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const float* t, const blas_int* ldt, float* vl, co nst blas_int* ldvl, float* vr, const blas_int* ldvr, const blas_int* mm, blas_i nt* m, float* work, blas_int* info, blas_len side_len, blas_len howmny_len) ARM A_NOEXCEPT; | |||
void arma_fortran(arma_dtrevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const double* t, const blas_int* ldt, double* vl, co nst blas_int* ldvl, double* vr, const blas_int* ldvr, const blas_int* mm, blas_i nt* m, double* work, blas_int* info, blas_len side_len, blas_len howmny_len) ARM A_NOEXCEPT; | void arma_fortran(arma_dtrevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const double* t, const blas_int* ldt, double* vl, co nst blas_int* ldvl, double* vr, const blas_int* ldvr, const blas_int* mm, blas_i nt* m, double* work, blas_int* info, blas_len side_len, blas_len howmny_len) ARM A_NOEXCEPT; | |||
// generate a vector of random numbers | ||||
void arma_fortran(arma_slarnv)(const blas_int* idist, blas_int* iseed, const b | ||||
las_int* n, float* x) ARMA_NOEXCEPT; | ||||
void arma_fortran(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const b | ||||
las_int* n, double* x) ARMA_NOEXCEPT; | ||||
// hessenberg decomposition | // hessenberg decomposition | |||
void arma_fortran(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, float* a, const blas_int* lda, float* tao, float* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, float* a, const blas_int* lda, float* tao, float* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_dgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, double* a, const blas_int* lda, double* tao, double* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_dgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, double* a, const blas_int* lda, double* tao, double* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_cgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, blas_cxf* a, const blas_int* lda, blas_cxf* tao, blas_cxf* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_cgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, blas_cxf* a, const blas_int* lda, blas_cxf* tao, blas_cxf* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_zgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, blas_cxd* a, const blas_int* lda, blas_cxd* tao, blas_cxd* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_zgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, blas_cxd* a, const blas_int* lda, blas_cxd* tao, blas_cxd* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | |||
// pivoted cholesky | // pivoted cholesky | |||
void arma_fortran(arma_spstrf)(const char* uplo, const blas_int* n, float* a, const blas_int* lda, blas_int* piv, blas_int* rank, const float* tol, float * work, blas_int* info, blas_len uplo_len) ARMA_NOEXCEPT; | void arma_fortran(arma_spstrf)(const char* uplo, const blas_int* n, float* a, const blas_int* lda, blas_int* piv, blas_int* rank, const float* tol, float * work, blas_int* info, blas_len uplo_len) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_dpstrf)(const char* uplo, const blas_int* n, double* a, const blas_int* lda, blas_int* piv, blas_int* rank, const double* tol, double * work, blas_int* info, blas_len uplo_len) ARMA_NOEXCEPT; | void arma_fortran(arma_dpstrf)(const char* uplo, const blas_int* n, double* a, const blas_int* lda, blas_int* piv, blas_int* rank, const double* tol, double * work, blas_int* info, blas_len uplo_len) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_cpstrf)(const char* uplo, const blas_int* n, blas_cxf* a, const blas_int* lda, blas_int* piv, blas_int* rank, const float* tol, float * work, blas_int* info, blas_len uplo_len) ARMA_NOEXCEPT; | void arma_fortran(arma_cpstrf)(const char* uplo, const blas_int* n, blas_cxf* a, const blas_int* lda, blas_int* piv, blas_int* rank, const float* tol, float * work, blas_int* info, blas_len uplo_len) ARMA_NOEXCEPT; | |||
skipping to change at line 1163 | skipping to change at line 1153 | |||
void arma_fortran(arma_dlahqr)(const blas_int* wantt, const blas_int* wantz, c onst blas_int* n, const blas_int* ilo, const blas_int* ihi, double* h, const bla s_int* ldh, double* wr, double* wi, const blas_int* iloz, const blas_int* ihiz, double* z, const blas_int* ldz, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_dlahqr)(const blas_int* wantt, const blas_int* wantz, c onst blas_int* n, const blas_int* ilo, const blas_int* ihi, double* h, const bla s_int* ldh, double* wr, double* wi, const blas_int* iloz, const blas_int* ihiz, double* z, const blas_int* ldz, blas_int* info) ARMA_NOEXCEPT; | |||
// calculate eigenvalues of a symmetric tridiagonal matrix | // calculate eigenvalues of a symmetric tridiagonal matrix | |||
void arma_fortran(arma_sstedc)(const char* compz, const blas_int* n, float* d , float* e, float* z, const blas_int* ldz, float* work, const blas_int* lwork , blas_int* iwork, const blas_int* liwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_sstedc)(const char* compz, const blas_int* n, float* d , float* e, float* z, const blas_int* ldz, float* work, const blas_int* lwork , blas_int* iwork, const blas_int* liwork, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_dstedc)(const char* compz, const blas_int* n, double* d , double* e, double* z, const blas_int* ldz, double* work, const blas_int* lwork , blas_int* iwork, const blas_int* liwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_dstedc)(const char* compz, const blas_int* n, double* d , double* e, double* z, const blas_int* ldz, double* work, const blas_int* lwork , blas_int* iwork, const blas_int* liwork, blas_int* info) ARMA_NOEXCEPT; | |||
// calculate eigenvectors of a Schur form matrix | // calculate eigenvectors of a Schur form matrix | |||
void arma_fortran(arma_strevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const float* t, const blas_int* ldt, float* vl, co nst blas_int* ldvl, float* vr, const blas_int* ldvr, const blas_int* mm, blas_i nt* m, float* work, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_strevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const float* t, const blas_int* ldt, float* vl, co nst blas_int* ldvl, float* vr, const blas_int* ldvr, const blas_int* mm, blas_i nt* m, float* work, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_dtrevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const double* t, const blas_int* ldt, double* vl, co nst blas_int* ldvl, double* vr, const blas_int* ldvr, const blas_int* mm, blas_i nt* m, double* work, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_dtrevc)(const char* side, const char* howmny, blas_int* select, const blas_int* n, const double* t, const blas_int* ldt, double* vl, co nst blas_int* ldvl, double* vr, const blas_int* ldvr, const blas_int* mm, blas_i nt* m, double* work, blas_int* info) ARMA_NOEXCEPT; | |||
// generate a vector of random numbers | ||||
void arma_fortran(arma_slarnv)(const blas_int* idist, blas_int* iseed, const b | ||||
las_int* n, float* x) ARMA_NOEXCEPT; | ||||
void arma_fortran(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const b | ||||
las_int* n, double* x) ARMA_NOEXCEPT; | ||||
// hessenberg decomposition | // hessenberg decomposition | |||
void arma_fortran(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, float* a, const blas_int* lda, float* tao, float* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, float* a, const blas_int* lda, float* tao, float* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_dgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, double* a, const blas_int* lda, double* tao, double* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_dgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, double* a, const blas_int* lda, double* tao, double* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_cgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, blas_cxf* a, const blas_int* lda, blas_cxf* tao, blas_cxf* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_cgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, blas_cxf* a, const blas_int* lda, blas_cxf* tao, blas_cxf* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_zgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, blas_cxd* a, const blas_int* lda, blas_cxd* tao, blas_cxd* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_zgehrd)(const blas_int* n, const blas_int* ilo, const b las_int* ihi, blas_cxd* a, const blas_int* lda, blas_cxd* tao, blas_cxd* work, c onst blas_int* lwork, blas_int* info) ARMA_NOEXCEPT; | |||
// pivoted cholesky | // pivoted cholesky | |||
void arma_fortran(arma_spstrf)(const char* uplo, const blas_int* n, float* a, const blas_int* lda, blas_int* piv, blas_int* rank, const float* tol, float * work, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_spstrf)(const char* uplo, const blas_int* n, float* a, const blas_int* lda, blas_int* piv, blas_int* rank, const float* tol, float * work, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_dpstrf)(const char* uplo, const blas_int* n, double* a, const blas_int* lda, blas_int* piv, blas_int* rank, const double* tol, double * work, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_dpstrf)(const char* uplo, const blas_int* n, double* a, const blas_int* lda, blas_int* piv, blas_int* rank, const double* tol, double * work, blas_int* info) ARMA_NOEXCEPT; | |||
void arma_fortran(arma_cpstrf)(const char* uplo, const blas_int* n, blas_cxf* a, const blas_int* lda, blas_int* piv, blas_int* rank, const float* tol, float * work, blas_int* info) ARMA_NOEXCEPT; | void arma_fortran(arma_cpstrf)(const char* uplo, const blas_int* n, blas_cxf* a, const blas_int* lda, blas_int* piv, blas_int* rank, const float* tol, float * work, blas_int* info) ARMA_NOEXCEPT; | |||
End of changes. 5 change blocks. | ||||
19 lines changed or deleted | 1 lines changed or added |