phynexis-deps/armadillo-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove support for lapack::larnv

Browse Source
This commit is contained in:
conrad
2022-03-11 15:23:56 +10:00
parent 6ca0313f04
commit 367dee5274
4 changed files with 0 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files
include/armadillo_bits/def_lapack.hpp
-14
View File
@@ -259,9 +259,6 @@
#define arma_strevc strevc
#define arma_dtrevc dtrevc
#define arma_slarnv slarnv
#define arma_dlarnv dlarnv
#define arma_sgehrd sgehrd
#define arma_dgehrd dgehrd
#define arma_cgehrd cgehrd
@@ -498,9 +495,6 @@
#define arma_strevc STREVC
#define arma_dtrevc DTREVC
#define arma_slarnv SLARNV
#define arma_dlarnv DLARNV
#define arma_sgehrd SGEHRD
#define arma_dgehrd DGEHRD
#define arma_cgehrd CGEHRD
@@ -840,10 +834,6 @@ extern "C"
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, const blas_int* ldvl, float* vr, const blas_int* ldvr, const blas_int* mm, blas_int* m, float* work, blas_int* info, blas_len side_len, blas_len howmny_len) 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, const blas_int* ldvl, double* vr, const blas_int* ldvr, const blas_int* mm, blas_int* m, double* work, blas_int* info, blas_len side_len, blas_len howmny_len) ARMA_NOEXCEPT;
// generate a vector of random numbers
void arma_fortran(arma_slarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, float* x) ARMA_NOEXCEPT;
void arma_fortran(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, double* x) ARMA_NOEXCEPT;
// hessenberg decomposition
void arma_fortran(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi, float* a, const blas_int* lda, float* tao, float* work, const blas_int* lwork, blas_int* info) ARMA_NOEXCEPT;
void arma_fortran(arma_dgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi, double* a, const blas_int* lda, double* tao, double* work, const blas_int* lwork, blas_int* info) ARMA_NOEXCEPT;
@@ -1168,10 +1158,6 @@ extern "C"
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, const blas_int* ldvl, float* vr, const blas_int* ldvr, const blas_int* mm, blas_int* 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, const blas_int* ldvl, double* vr, const blas_int* ldvr, const blas_int* mm, blas_int* 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 blas_int* n, float* x) ARMA_NOEXCEPT;
void arma_fortran(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, double* x) ARMA_NOEXCEPT;
// hessenberg decomposition
void arma_fortran(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi, float* a, const blas_int* lda, float* tao, float* work, const blas_int* lwork, blas_int* info) ARMA_NOEXCEPT;
void arma_fortran(arma_dgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi, double* a, const blas_int* lda, double* tao, double* work, const blas_int* lwork, blas_int* info) ARMA_NOEXCEPT;
include/armadillo_bits/translate_lapack.hpp
-12
View File
@@ -1305,18 +1305,6 @@ namespace lapack
template<typename eT>
inline
void
larnv(blas_int* idist, blas_int* iseed, const blas_int* n, eT* x)
{
arma_type_check(( is_supported_blas_type<eT>::value == false ));
if( is_float<eT>::value) { typedef float T; arma_fortran(arma_slarnv)(idist, iseed, n, (T*)x); }
else if(is_double<eT>::value) { typedef double T; arma_fortran(arma_dlarnv)(idist, iseed, n, (T*)x); }
}
template<typename eT>
inline
void
src/wrapper1.cpp
-12
View File
@@ -1159,18 +1159,6 @@ extern "C"
void arma_fortran_with_prefix(arma_slarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, float* x)
{
arma_fortran_sans_prefix(arma_slarnv)(idist, iseed, n, x);
}
void arma_fortran_with_prefix(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, double* x)
{
arma_fortran_sans_prefix(arma_dlarnv)(idist, iseed, n, x);
}
void arma_fortran_with_prefix(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi, float* a, const blas_int* lda, float* tao, float* work, const blas_int* lwork, blas_int* info)
{
arma_fortran_sans_prefix(arma_sgehrd)(n, ilo, ihi, a, lda, tao, work, lwork, info);
src/wrapper2.cpp
-12
View File
@@ -1119,18 +1119,6 @@ extern "C"
void arma_fortran_with_prefix(arma_slarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, float* x)
{
arma_fortran_sans_prefix(arma_slarnv)(idist, iseed, n, x);
}
void arma_fortran_with_prefix(arma_dlarnv)(const blas_int* idist, blas_int* iseed, const blas_int* n, double* x)
{
arma_fortran_sans_prefix(arma_dlarnv)(idist, iseed, n, x);
}
void arma_fortran_with_prefix(arma_sgehrd)(const blas_int* n, const blas_int* ilo, const blas_int* ihi, float* a, const blas_int* lda, float* tao, float* work, const blas_int* lwork, blas_int* info)
{
arma_fortran_sans_prefix(arma_sgehrd)(n, ilo, ihi, a, lda, tao, work, lwork, info);