"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/wrapper1.cpp" between
armadillo-10.8.2.tar.xz and armadillo-11.0.0.tar.xz

About: Armadillo is a C++ linear algebra library (matrix maths) aiming towards a good balance between speed and ease of use.

wrapper1.cpp  (armadillo-10.8.2.tar.xz):wrapper1.cpp  (armadillo-11.0.0.tar.xz)
skipping to change at line 29 skipping to change at line 29
#include <limits> #include <limits>
#include <complex> #include <complex>
#include "armadillo_bits/config.hpp" #include "armadillo_bits/config.hpp"
#undef ARMA_USE_WRAPPER #undef ARMA_USE_WRAPPER
#undef ARMA_USE_FORTRAN_HIDDEN_ARGS #undef ARMA_USE_FORTRAN_HIDDEN_ARGS
#include "armadillo_bits/compiler_setup.hpp" #include "armadillo_bits/compiler_setup.hpp"
#include "armadillo_bits/typedef_elem.hpp" #include "armadillo_bits/typedef_elem.hpp"
#include "armadillo_bits/include_atlas.hpp"
#include "armadillo_bits/include_superlu.hpp" #include "armadillo_bits/include_superlu.hpp"
#if defined(ARMA_USE_EXTERN_RNG) #if defined(ARMA_USE_EXTERN_RNG)
#include <random> #include <random>
namespace arma namespace arma
{ {
// NOTE: arma_rng_cxx11_instance is kept only for compatibility with earlier
versions of armadillo
// TODO: remove arma_rng_cxx11_instance when the major version is bumped
#include "armadillo_bits/arma_rng_cxx11.hpp"
thread_local arma_rng_cxx11 arma_rng_cxx11_instance;
thread_local std::mt19937_64 mt19937_64_instance; thread_local std::mt19937_64 mt19937_64_instance;
} }
#endif #endif
#if defined(ARMA_USE_HDF5_ALT) #if defined(ARMA_USE_HDF5_ALT)
#undef H5_USE_110_API #undef H5_USE_110_API
#define H5_USE_110_API #define H5_USE_110_API
#include <hdf5.h> #include <hdf5.h>
skipping to change at line 65 skipping to change at line 58
// #pragma message ("disabling use of HDF5 due to its incompatible configura tion") // #pragma message ("disabling use of HDF5 due to its incompatible configura tion")
#undef ARMA_USE_HDF5_ALT #undef ARMA_USE_HDF5_ALT
#endif #endif
#endif #endif
namespace arma namespace arma
{ {
#include "armadillo_bits/def_blas.hpp" #include "armadillo_bits/def_blas.hpp"
#include "armadillo_bits/def_atlas.hpp"
#include "armadillo_bits/def_lapack.hpp" #include "armadillo_bits/def_lapack.hpp"
#include "armadillo_bits/def_arpack.hpp" #include "armadillo_bits/def_arpack.hpp"
#include "armadillo_bits/def_superlu.hpp" #include "armadillo_bits/def_superlu.hpp"
// no need to include def_hdf5.hpp -- it only contains #defines for when ARMA_US E_HDF5_ALT is not defined. // no need to include def_hdf5.hpp -- it only contains #defines for when ARMA_US E_HDF5_ALT is not defined.
#if defined(ARMA_USE_HDF5_ALT) #if defined(ARMA_USE_HDF5_ALT)
// Wrapper functions: arma::H5open() and arma::H5check_version() to hijack cal ls to H5open() and H5check_version() // Wrapper functions: arma::H5open() and arma::H5check_version() to hijack cal ls to H5open() and H5check_version()
herr_t H5open() herr_t H5open()
{ {
return ::H5open(); return ::H5open();
} }
herr_t H5check_version(unsigned majnum, unsigned minnum, unsigned relnum) herr_t H5check_version(unsigned majnum, unsigned minnum, unsigned relnum)
{ {
return ::H5check_version(majnum, minnum, relnum); return ::H5check_version(majnum, minnum, relnum);
} }
#endif #endif
// at this stage we have prototypes for the real blas, lapack and atlas function s // at this stage we have prototypes for actual BLAS and LAPACK functions
// now we make the wrapper functions // now we make the wrapper functions
extern "C" extern "C"
{ {
#if defined(ARMA_USE_BLAS) #if defined(ARMA_USE_BLAS)
float arma_fortran_with_prefix(arma_sasum)(const blas_int* n, const float* x , const blas_int* incx) float arma_fortran_with_prefix(arma_sasum)(const blas_int* n, const float* x , const blas_int* incx)
{ {
return arma_fortran_sans_prefix(arma_sasum)(n, x, incx); return arma_fortran_sans_prefix(arma_sasum)(n, x, incx);
skipping to change at line 183 skipping to change at line 177
arma_fortran_sans_prefix(arma_cherk)(uplo, transA, n, k, alpha, A, ldA, be ta, C, ldC); arma_fortran_sans_prefix(arma_cherk)(uplo, transA, n, k, alpha, A, ldA, be ta, C, ldC);
} }
void arma_fortran_with_prefix(arma_zherk)(const char* uplo, const char* tran sA, const blas_int* n, const blas_int* k, const double* alpha, const blas_cxd* A , const blas_int* ldA, const double* beta, blas_cxd* C, const blas_int* ldC) void arma_fortran_with_prefix(arma_zherk)(const char* uplo, const char* tran sA, const blas_int* n, const blas_int* k, const double* alpha, const blas_cxd* A , const blas_int* ldA, const double* beta, blas_cxd* C, const blas_int* ldC)
{ {
arma_fortran_sans_prefix(arma_zherk)(uplo, transA, n, k, alpha, A, ldA, be ta, C, ldC); arma_fortran_sans_prefix(arma_zherk)(uplo, transA, n, k, alpha, A, ldA, be ta, C, ldC);
} }
#endif #endif
#if defined(ARMA_USE_ATLAS)
float wrapper_cblas_sasum(const int N, const float *X, const int incX)
{
return cblas_sasum(N, X, incX);
}
double wrapper_cblas_dasum(const int N, const double *X, const int incX)
{
return cblas_dasum(N, X, incX);
}
float wrapper_cblas_snrm2(const int N, const float *X, const int incX)
{
return cblas_snrm2(N, X, incX);
}
double wrapper_cblas_dnrm2(const int N, const double *X, const int incX)
{
return cblas_dnrm2(N, X, incX);
}
float wrapper_cblas_sdot(const int N, const float *X, const int incX, const
float *Y, const int incY)
{
return cblas_sdot(N, X, incX, Y, incY);
}
double wrapper_cblas_ddot(const int N, const double *X, const int incX, cons
t double *Y, const int incY)
{
return cblas_ddot(N, X, incX, Y, incY);
}
void wrapper_cblas_cdotu_sub(const int N, const void *X, const int incX, con
st void *Y, const int incY, void *dotu)
{
cblas_cdotu_sub(N, X, incX, Y, incY, dotu);
}
void wrapper_cblas_zdotu_sub(const int N, const void *X, const int incX, con
st void *Y, const int incY, void *dotu)
{
cblas_zdotu_sub(N, X, incX, Y, incY, dotu);
}
void wrapper_cblas_sgemv(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
TRANS TransA, const int M, const int N, const float alpha, const float *A, const
int lda, const float *X, const int incX, const float beta, float *Y, const int
incY)
{
cblas_sgemv(layout, TransA, M, N, alpha, A, lda, X, incX, beta,
Y, incY);
}
void wrapper_cblas_dgemv(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
TRANS TransA, const int M, const int N, const double alpha, const double *A, con
st int lda, const double *X, const int incX, const double beta, double *Y, const
int incY)
{
cblas_dgemv(layout, TransA, M, N, alpha, A, lda, X, incX, beta,
Y, incY);
}
void wrapper_cblas_cgemv(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
TRANS TransA, const int M, const int N, const void *alpha, const void *A, const
int lda, const void *X, const int incX, const void *beta, void *Y, const int inc
Y)
{
cblas_cgemv(layout, TransA, M, N, alpha, A, lda, X, incX, beta,
Y, incY);
}
void wrapper_cblas_zgemv(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
TRANS TransA, const int M, const int N, const void *alpha, const void *A, const
int lda, const void *X, const int incX, const void *beta, void *Y, const int inc
Y)
{
cblas_zgemv(layout, TransA, M, N, alpha, A, lda, X, incX, beta,
Y, incY);
}
void wrapper_cblas_sgemm(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
TRANS TransA, const atlas_CBLAS_TRANS TransB, const int M, const int N, const in
t K, const float alpha, const float *A, const int lda, const float *B, const int
ldb, const float beta, float *C, const int ldc)
{
cblas_sgemm(layout, TransA, TransB, M, N, K, alpha, A, lda, B,
ldb, beta, C, ldc);
}
void wrapper_cblas_dgemm(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
TRANS TransA, const atlas_CBLAS_TRANS TransB, const int M, const int N, const in
t K, const double alpha, const double *A, const int lda, const double *B, const
int ldb, const double beta, double *C, const int ldc)
{
cblas_dgemm(layout, TransA, TransB, M, N, K, alpha, A, lda, B,
ldb, beta, C, ldc);
}
void wrapper_cblas_cgemm(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
TRANS TransA, const atlas_CBLAS_TRANS TransB, const int M, const int N, const in
t K, const void *alpha, const void *A, const int lda, const void *B, const int l
db, const void *beta, void *C, const int ldc)
{
cblas_cgemm(layout, TransA, TransB, M, N, K, alpha, A, lda, B,
ldb, beta, C, ldc);
}
void wrapper_cblas_zgemm(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
TRANS TransA, const atlas_CBLAS_TRANS TransB, const int M, const int N, const in
t K, const void *alpha, const void *A, const int lda, const void *B, const int l
db, const void *beta, void *C, const int ldc)
{
cblas_zgemm(layout, TransA, TransB, M, N, K, alpha, A, lda, B,
ldb, beta, C, ldc);
}
void wrapper_cblas_ssyrk(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
UPLO Uplo, const atlas_CBLAS_TRANS Trans, const int N, const int K, const float
alpha, const float *A, const int lda, const float beta, float *C, const int ldc)
{
cblas_ssyrk(layout, Uplo, Trans, N, K, alpha, A, lda, beta, C,
ldc);
}
void wrapper_cblas_dsyrk(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
UPLO Uplo, const atlas_CBLAS_TRANS Trans, const int N, const int K, const double
alpha, const double *A, const int lda, const double beta, double *C, const int
ldc)
{
cblas_dsyrk(layout, Uplo, Trans, N, K, alpha, A, lda, beta, C,
ldc);
}
void wrapper_cblas_cherk(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
UPLO Uplo, const atlas_CBLAS_TRANS Trans, const int N, const int K, const float
alpha, const void *A, const int lda, const float beta, void *C, const int ldc)
{
cblas_cherk(layout, Uplo, Trans, N, K, alpha, A, lda, beta, C,
ldc);
}
void wrapper_cblas_zherk(const atlas_CBLAS_LAYOUT layout, const atlas_CBLAS_
UPLO Uplo, const atlas_CBLAS_TRANS Trans, const int N, const int K, const double
alpha, const void *A, const int lda, const double beta, void *C, const int ldc)
{
cblas_zherk(layout, Uplo, Trans, N, K, alpha, A, lda, beta, C,
ldc);
}
#endif
#if defined(ARMA_USE_LAPACK) #if defined(ARMA_USE_LAPACK)
void arma_fortran_with_prefix(arma_sgetrf)(const blas_int* m, const blas_int * n, float* a, const blas_int* lda, blas_int* ipiv, blas_int* info) void arma_fortran_with_prefix(arma_sgetrf)(const blas_int* m, const blas_int * n, float* a, const blas_int* lda, blas_int* ipiv, blas_int* info)
{ {
arma_fortran_sans_prefix(arma_sgetrf)(m, n, a, lda, ipiv, info); arma_fortran_sans_prefix(arma_sgetrf)(m, n, a, lda, ipiv, info);
} }
void arma_fortran_with_prefix(arma_dgetrf)(const blas_int* m, const blas_int * n, double* a, const blas_int* lda, blas_int* ipiv, blas_int* info) void arma_fortran_with_prefix(arma_dgetrf)(const blas_int* m, const blas_int * n, double* a, const blas_int* lda, blas_int* ipiv, blas_int* info)
{ {
arma_fortran_sans_prefix(arma_dgetrf)(m, n, a, lda, ipiv, info); arma_fortran_sans_prefix(arma_dgetrf)(m, n, a, lda, ipiv, info);
skipping to change at line 1050 skipping to change at line 1148
void arma_fortran_with_prefix(arma_strevc)(const char* side, const char* how mny, 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_i nt* mm, blas_int* m, float* work, blas_int* info) void arma_fortran_with_prefix(arma_strevc)(const char* side, const char* how mny, 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_i nt* mm, blas_int* m, float* work, blas_int* info)
{ {
arma_fortran_sans_prefix(arma_strevc)(side, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, mm, m, work, info); arma_fortran_sans_prefix(arma_strevc)(side, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, mm, m, work, info);
} }
void arma_fortran_with_prefix(arma_dtrevc)(const char* side, const char* how mny, 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_i nt* mm, blas_int* m, double* work, blas_int* info) void arma_fortran_with_prefix(arma_dtrevc)(const char* side, const char* how mny, 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_i nt* mm, blas_int* m, double* work, blas_int* info)
{ {
arma_fortran_sans_prefix(arma_dtrevc)(side, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, mm, m, work, info); arma_fortran_sans_prefix(arma_dtrevc)(side, howmny, select, n, t, ldt, vl, ldvl, vr, ldvr, mm, m, work, info);
} }
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) 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, lwor k, info); arma_fortran_sans_prefix(arma_sgehrd)(n, ilo, ihi, a, lda, tao, work, lwor k, info);
} }
void arma_fortran_with_prefix(arma_dgehrd)(const blas_int* n, const blas_int * ilo, const blas_int* ihi, double* a, const blas_int* lda, double* tao, d ouble* work, const blas_int* lwork, blas_int* info) void arma_fortran_with_prefix(arma_dgehrd)(const blas_int* n, const blas_int * ilo, const blas_int* ihi, double* a, const blas_int* lda, double* tao, d ouble* work, const blas_int* lwork, blas_int* info)
{ {
arma_fortran_sans_prefix(arma_dgehrd)(n, ilo, ihi, a, lda, tao, work, lwor k, info); arma_fortran_sans_prefix(arma_dgehrd)(n, ilo, ihi, a, lda, tao, work, lwor k, info);
} }
skipping to change at line 1102 skipping to change at line 1190
arma_fortran_sans_prefix(arma_cpstrf)(uplo, n, a, lda, piv, rank, tol, wor k, info); arma_fortran_sans_prefix(arma_cpstrf)(uplo, n, a, lda, piv, rank, tol, wor k, info);
} }
void arma_fortran_with_prefix(arma_zpstrf)(const char* uplo, const blas_int* n, blas_cxd* a, const blas_int* lda, blas_int* piv, blas_int* rank, const doubl e* tol, double* work, blas_int* info) void arma_fortran_with_prefix(arma_zpstrf)(const char* uplo, const blas_int* n, blas_cxd* a, const blas_int* lda, blas_int* piv, blas_int* rank, const doubl e* tol, double* work, blas_int* info)
{ {
arma_fortran_sans_prefix(arma_zpstrf)(uplo, n, a, lda, piv, rank, tol, wor k, info); arma_fortran_sans_prefix(arma_zpstrf)(uplo, n, a, lda, piv, rank, tol, wor k, info);
} }
#endif #endif
#if defined(ARMA_USE_ATLAS)
float wrapper_cblas_sasum(const int N, const float *X, const int incX)
{
return cblas_sasum(N, X, incX);
}
double wrapper_cblas_dasum(const int N, const double *X, const int incX)
{
return cblas_dasum(N, X, incX);
}
float wrapper_cblas_snrm2(const int N, const float *X, const int incX)
{
return cblas_snrm2(N, X, incX);
}
double wrapper_cblas_dnrm2(const int N, const double *X, const int incX)
{
return cblas_dnrm2(N, X, incX);
}
float wrapper_cblas_sdot(const int N, const float *X, const int incX, const
float *Y, const int incY)
{
return cblas_sdot(N, X, incX, Y, incY);
}
double wrapper_cblas_ddot(const int N, const double *X, const int incX, cons
t double *Y, const int incY)
{
return cblas_ddot(N, X, incX, Y, incY);
}
void wrapper_cblas_cdotu_sub(const int N, const void *X, const int incX, con
st void *Y, const int incY, void *dotu)
{
cblas_cdotu_sub(N, X, incX, Y, incY, dotu);
}
void wrapper_cblas_zdotu_sub(const int N, const void *X, const int incX, con
st void *Y, const int incY, void *dotu)
{
cblas_zdotu_sub(N, X, incX, Y, incY, dotu);
}
void wrapper_cblas_sgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRAN
SPOSE TransA, const int M, const int N, const float alpha,
const float *A, const int lda, const float *X, cons
t int incX, const float beta, float *Y, const int incY)
{
cblas_sgemv(Order, TransA, M, N, alpha, A, lda, X, incX, beta,
Y, incY);
}
void wrapper_cblas_dgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRAN
SPOSE TransA, const int M, const int N, const double alpha,
const double *A, const int lda, const double *X, co
nst int incX, const double beta, double *Y, const int incY)
{
cblas_dgemv(Order, TransA, M, N, alpha, A, lda, X, incX, beta,
Y, incY);
}
void wrapper_cblas_cgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRAN
SPOSE TransA, const int M, const int N, const void *alpha,
const void *A, const int lda, const void *X, const
int incX, const void *beta, void *Y, const int incY)
{
cblas_cgemv(Order, TransA, M, N, alpha, A, lda, X, incX, beta,
Y, incY);
}
void wrapper_cblas_zgemv(const enum CBLAS_ORDER Order, const enum CBLAS_TRAN
SPOSE TransA, const int M, const int N, const void *alpha,
const void *A, const int lda, const void *X, const
int incX, const void *beta, void *Y, const int incY)
{
cblas_zgemv(Order, TransA, M, N, alpha, A, lda, X, incX, beta,
Y, incY);
}
void wrapper_cblas_sgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRAN
SPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
const int M, const int N, const int K, const float
alpha,
const float *A, const int lda, const float *B, cons
t int ldb, const float beta, float *C, const int ldc)
{
cblas_sgemm(Order, TransA, TransB, M, N, K, alpha, A, lda, B, l
db, beta, C, ldc);
}
void wrapper_cblas_dgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRAN
SPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
const int M, const int N, const int K, const double
alpha,
const double *A, const int lda, const double *B, co
nst int ldb, const double beta, double *C, const int ldc)
{
cblas_dgemm(Order, TransA, TransB, M, N, K, alpha, A, lda, B, l
db, beta, C, ldc);
}
void wrapper_cblas_cgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRAN
SPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
const int M, const int N, const int K, const void *
alpha,
const void *A, const int lda, const void *B, const
int ldb, const void *beta, void *C, const int ldc)
{
cblas_cgemm(Order, TransA, TransB, M, N, K, alpha, A, lda, B, l
db, beta, C, ldc);
}
void wrapper_cblas_zgemm(const enum CBLAS_ORDER Order, const enum CBLAS_TRAN
SPOSE TransA, const enum CBLAS_TRANSPOSE TransB,
const int M, const int N, const int K, const void *
alpha,
const void *A, const int lda, const void *B, const
int ldb, const void *beta, void *C, const int ldc)
{
cblas_zgemm(Order, TransA, TransB, M, N, K, alpha, A, lda, B, l
db, beta, C, ldc);
}
void wrapper_cblas_ssyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO
Uplo, const enum CBLAS_TRANSPOSE Trans,
const int N, const int K, const float alpha,
const float *A, const int lda, const float beta, fl
oat *C, const int ldc)
{
cblas_ssyrk(Order, Uplo, Trans, N, K, alpha, A, lda, beta, C, l
dc);
}
void wrapper_cblas_dsyrk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO
Uplo, const enum CBLAS_TRANSPOSE Trans,
const int N, const int K, const double alpha,
const double *A, const int lda, const double beta,
double *C, const int ldc)
{
cblas_dsyrk(Order, Uplo, Trans, N, K, alpha, A, lda, beta, C, l
dc);
}
void wrapper_cblas_cherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO
Uplo, const enum CBLAS_TRANSPOSE Trans,
const int N, const int K, const float alpha,
const void *A, const int lda, const float beta, voi
d *C, const int ldc)
{
cblas_cherk(Order, Uplo, Trans, N, K, alpha, A, lda, beta, C, l
dc);
}
void wrapper_cblas_zherk(const enum CBLAS_ORDER Order, const enum CBLAS_UPLO
Uplo, const enum CBLAS_TRANSPOSE Trans,
const int N, const int K, const double alpha,
const void *A, const int lda, const double beta, vo
id *C, const int ldc)
{
cblas_zherk(Order, Uplo, Trans, N, K, alpha, A, lda, beta, C, l
dc);
}
int wrapper_clapack_sgetrf(const enum CBLAS_ORDER Order, const int M, const
int N, float *A, const int lda, int *ipiv)
{
return clapack_sgetrf(Order, M, N, A, lda, ipiv);
}
int wrapper_clapack_dgetrf(const enum CBLAS_ORDER Order, const int M, const
int N, double *A, const int lda, int *ipiv)
{
return clapack_dgetrf(Order, M, N, A, lda, ipiv);
}
int wrapper_clapack_cgetrf(const enum CBLAS_ORDER Order, const int M, const
int N, void *A, const int lda, int *ipiv)
{
return clapack_cgetrf(Order, M, N, A, lda, ipiv);
}
int wrapper_clapack_zgetrf(const enum CBLAS_ORDER Order, const int M, const
int N, void *A, const int lda, int *ipiv)
{
return clapack_zgetrf(Order, M, N, A, lda, ipiv);
}
int wrapper_clapack_sgetri(const enum CBLAS_ORDER Order, const int N, float
*A, const int lda, const int *ipiv)
{
return clapack_sgetri(Order, N, A, lda, ipiv);
}
int wrapper_clapack_dgetri(const enum CBLAS_ORDER Order, const int N, double
*A, const int lda, const int *ipiv)
{
return clapack_dgetri(Order, N, A, lda, ipiv);
}
int wrapper_clapack_cgetri(const enum CBLAS_ORDER Order, const int N, void
*A, const int lda, const int *ipiv)
{
return clapack_cgetri(Order, N, A, lda, ipiv);
}
int wrapper_clapack_zgetri(const enum CBLAS_ORDER Order, const int N, void
*A, const int lda, const int *ipiv)
{
return clapack_zgetri(Order, N, A, lda, ipiv);
}
int wrapper_clapack_sgesv(const enum CBLAS_ORDER Order, const int N, const i
nt NRHS, float *A, const int lda, int *ipiv, float *B, const int ldb)
{
return clapack_sgesv(Order, N, NRHS, A, lda, ipiv, B, ldb);
}
int wrapper_clapack_dgesv(const enum CBLAS_ORDER Order, const int N, const i
nt NRHS, double *A, const int lda, int *ipiv, double *B, const int ldb)
{
return clapack_dgesv(Order, N, NRHS, A, lda, ipiv, B, ldb);
}
int wrapper_clapack_cgesv(const enum CBLAS_ORDER Order, const int N, const i
nt NRHS, void *A, const int lda, int *ipiv, void *B, const int ldb)
{
return clapack_cgesv(Order, N, NRHS, A, lda, ipiv, B, ldb);
}
int wrapper_clapack_zgesv(const enum CBLAS_ORDER Order, const int N, const i
nt NRHS, void *A, const int lda, int *ipiv, void *B, const int ldb)
{
return clapack_zgesv(Order, N, NRHS, A, lda, ipiv, B, ldb);
}
int wrapper_clapack_spotrf(const enum CBLAS_ORDER Order, const enum CBLAS_UP
LO Uplo, const int N, float *A, const int lda)
{
return clapack_spotrf(Order, Uplo, N, A, lda);
}
int wrapper_clapack_dpotrf(const enum CBLAS_ORDER Order, const enum CBLAS_UP
LO Uplo, const int N, double *A, const int lda)
{
return clapack_dpotrf(Order, Uplo, N, A, lda);
}
int wrapper_clapack_cpotrf(const enum CBLAS_ORDER Order, const enum CBLAS_UP
LO Uplo, const int N, void *A, const int lda)
{
return clapack_cpotrf(Order, Uplo, N, A, lda);
}
int wrapper_clapack_zpotrf(const enum CBLAS_ORDER Order, const enum CBLAS_UP
LO Uplo, const int N, void *A, const int lda)
{
return clapack_zpotrf(Order, Uplo, N, A, lda);
}
int wrapper_clapack_spotri(const enum CBLAS_ORDER Order, const enum CBLAS_UP
LO Uplo, const int N, float *A, const int lda)
{
return clapack_spotri(Order, Uplo, N, A, lda);
}
int wrapper_clapack_dpotri(const enum CBLAS_ORDER Order, const enum CBLAS_UP
LO Uplo, const int N, double *A, const int lda)
{
return clapack_dpotri(Order, Uplo, N, A, lda);
}
int wrapper_clapack_cpotri(const enum CBLAS_ORDER Order, const enum CBLAS_UP
LO Uplo, const int N, void *A, const int lda)
{
return clapack_cpotri(Order, Uplo, N, A, lda);
}
int wrapper_clapack_zpotri(const enum CBLAS_ORDER Order, const enum CBLAS_UP
LO Uplo, const int N, void *A, const int lda)
{
return clapack_zpotri(Order, Uplo, N, A, lda);
}
int wrapper_clapack_sposv(const enum CBLAS_ORDER Order, const enum CBLAS_UPL
O Uplo, const int N, const int NRHS, float *A, const int lda, float *B, const
int ldb)
{
return clapack_sposv(Order, Uplo, N, NRHS, A, lda, B, ldb);
}
int wrapper_clapack_dposv(const enum CBLAS_ORDER Order, const enum CBLAS_UPL
O Uplo, const int N, const int NRHS, double *A, const int lda, double *B, const
int ldb)
{
return clapack_dposv(Order, Uplo, N, NRHS, A, lda, B, ldb);
}
int wrapper_clapack_cposv(const enum CBLAS_ORDER Order, const enum CBLAS_UPL
O Uplo, const int N, const int NRHS, void *A, const int lda, void *B, const
int ldb)
{
return clapack_cposv(Order, Uplo, N, NRHS, A, lda, B, ldb);
}
int wrapper_clapack_zposv(const enum CBLAS_ORDER Order, const enum CBLAS_UPL
O Uplo, const int N, const int NRHS, void *A, const int lda, void *B, const
int ldb)
{
return clapack_zposv(Order, Uplo, N, NRHS, A, lda, B, ldb);
}
#endif
#if defined(ARMA_USE_ARPACK) #if defined(ARMA_USE_ARPACK)
void arma_fortran_with_prefix(arma_snaupd)(blas_int* ido, char* bmat, blas_i nt* n, char* which, blas_int* nev, float* tol, float* resid, blas_int* ncv, floa t* v, blas_int* ldv, blas_int* iparam, blas_int* ipntr, float* workd, float* wor kl, blas_int* lworkl, blas_int* info) void arma_fortran_with_prefix(arma_snaupd)(blas_int* ido, char* bmat, blas_i nt* n, char* which, blas_int* nev, float* tol, float* resid, blas_int* ncv, floa t* v, blas_int* ldv, blas_int* iparam, blas_int* ipntr, float* workd, float* wor kl, blas_int* lworkl, blas_int* info)
{ {
arma_fortran_sans_prefix(arma_snaupd)(ido, bmat, n, which, nev, tol, resid , ncv, v, ldv, iparam, ipntr, workd, workl, lworkl, info); arma_fortran_sans_prefix(arma_snaupd)(ido, bmat, n, which, nev, tol, resid , ncv, v, ldv, iparam, ipntr, workd, workl, lworkl, info);
} }
void arma_fortran_with_prefix(arma_dnaupd)(blas_int* ido, char* bmat, blas_i nt* n, char* which, blas_int* nev, double* tol, double* resid, blas_int* ncv, do uble* v, blas_int* ldv, blas_int* iparam, blas_int* ipntr, double* workd, double * workl, blas_int* lworkl, blas_int* info) void arma_fortran_with_prefix(arma_dnaupd)(blas_int* ido, char* bmat, blas_i nt* n, char* which, blas_int* nev, double* tol, double* resid, blas_int* ncv, do uble* v, blas_int* ldv, blas_int* iparam, blas_int* ipntr, double* workd, double * workl, blas_int* lworkl, blas_int* info)
{ {
arma_fortran_sans_prefix(arma_dnaupd)(ido, bmat, n, which, nev, tol, resid , ncv, v, ldv, iparam, ipntr, workd, workl, lworkl, info); arma_fortran_sans_prefix(arma_dnaupd)(ido, bmat, n, which, nev, tol, resid , ncv, v, ldv, iparam, ipntr, workd, workl, lworkl, info);
 End of changes. 7 change blocks. 
337 lines changed or deleted 155 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)