GitHub-Proxy/eigen
1
0
Fork 0
mirror of https://gitlab.com/libeigen/eigen.git synced 2025-08-15 13:15:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

clean a bit SuperLU declarations

Browse Source
This commit is contained in:
Gael Guennebaud 2011-02-18 10:23:32 +01:00
parent 9195a224f3
commit 3345ea0ddd
2 changed files with 50 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
unsupported/Eigen/SuperLUSupport
View File

@ -10,18 +10,6 @@ typedef int int_t;
#include <supermatrix.h> #include <supermatrix.h>
#include <slu_util.h> #include <slu_util.h>
namespace SuperLU_S {
#include <slu_sdefs.h>
}
namespace SuperLU_D {
#include <slu_ddefs.h>
}
namespace SuperLU_C {
#include <slu_cdefs.h>
}
namespace SuperLU_Z {
#include <slu_zdefs.h>
}
namespace Eigen { struct SluMatrix; } namespace Eigen { struct SluMatrix; }
namespace Eigen { namespace Eigen {

45
unsupported/Eigen/src/SparseExtra/SuperLUSupport.h
View File

@ -25,8 +25,15 @@
#ifndef EIGEN_SUPERLUSUPPORT_H #ifndef EIGEN_SUPERLUSUPPORT_H
#define EIGEN_SUPERLUSUPPORT_H #define EIGEN_SUPERLUSUPPORT_H
// declaration of gssvx taken from GMM++ #define DECL_GSSVX(PREFIX,FLOATTYPE,KEYTYPE) \
#define DECL_GSSVX(NAMESPACE,FNAME,FLOATTYPE,KEYTYPE) \ extern "C" { \
typedef struct { FLOATTYPE for_lu; FLOATTYPE total_needed; int expansions; } PREFIX##mem_usage_t; \
extern void PREFIX##gssvx(superlu_options_t *, SuperMatrix *, int *, int *, int *, \
char *, FLOATTYPE *, FLOATTYPE *, SuperMatrix *, SuperMatrix *, \
void *, int, SuperMatrix *, SuperMatrix *, \
FLOATTYPE *, FLOATTYPE *, FLOATTYPE *, FLOATTYPE *, \
PREFIX##mem_usage_t *, SuperLUStat_t *, int *); \
} \
inline float SuperLU_gssvx(superlu_options_t *options, SuperMatrix *A, \ inline float SuperLU_gssvx(superlu_options_t *options, SuperMatrix *A, \
int *perm_c, int *perm_r, int *etree, char *equed, \ int *perm_c, int *perm_r, int *etree, char *equed, \
FLOATTYPE *R, FLOATTYPE *C, SuperMatrix *L, \ FLOATTYPE *R, FLOATTYPE *C, SuperMatrix *L, \
@ -35,18 +42,17 @@
FLOATTYPE *recip_pivot_growth, \ FLOATTYPE *recip_pivot_growth, \
FLOATTYPE *rcond, FLOATTYPE *ferr, FLOATTYPE *berr, \ FLOATTYPE *rcond, FLOATTYPE *ferr, FLOATTYPE *berr, \
SuperLUStat_t *stats, int *info, KEYTYPE) { \ SuperLUStat_t *stats, int *info, KEYTYPE) { \
using namespace NAMESPACE; \ PREFIX##mem_usage_t mem_usage; \
mem_usage_t mem_usage; \ PREFIX##gssvx(options, A, perm_c, perm_r, etree, equed, R, C, L, \
NAMESPACE::FNAME(options, A, perm_c, perm_r, etree, equed, R, C, L, \
U, work, lwork, B, X, recip_pivot_growth, rcond, \ U, work, lwork, B, X, recip_pivot_growth, rcond, \
ferr, berr, &mem_usage, stats, info); \ ferr, berr, &mem_usage, stats, info); \
return mem_usage.for_lu; /* bytes used by the factor storage */ \ return mem_usage.for_lu; /* bytes used by the factor storage */ \
} }
DECL_GSSVX(SuperLU_S,sgssvx,float,float) DECL_GSSVX(s,float,float)
DECL_GSSVX(SuperLU_C,cgssvx,float,std::complex<float>) DECL_GSSVX(c,float,std::complex<float>)
DECL_GSSVX(SuperLU_D,dgssvx,double,double) DECL_GSSVX(d,double,double)
DECL_GSSVX(SuperLU_Z,zgssvx,double,std::complex<double>) DECL_GSSVX(z,double,std::complex<double>)
#ifdef MILU_ALPHA #ifdef MILU_ALPHA
#define EIGEN_SUPERLU_HAS_ILU #define EIGEN_SUPERLU_HAS_ILU
@ -55,7 +61,13 @@ DECL_GSSVX(SuperLU_Z,zgssvx,double,std::complex<double>)
#ifdef EIGEN_SUPERLU_HAS_ILU #ifdef EIGEN_SUPERLU_HAS_ILU
// similarly for the incomplete factorization using gsisx // similarly for the incomplete factorization using gsisx
#define DECL_GSISX(NAMESPACE,FNAME,FLOATTYPE,KEYTYPE) \ #define DECL_GSISX(PREFIX,FLOATTYPE,KEYTYPE) \
extern "C" { \
extern void PREFIX##gsisx(superlu_options_t *, SuperMatrix *, int *, int *, int *, \
char *, FLOATTYPE *, FLOATTYPE *, SuperMatrix *, SuperMatrix *, \
void *, int, SuperMatrix *, SuperMatrix *, FLOATTYPE *, FLOATTYPE *, \
PREFIX##mem_usage_t *, SuperLUStat_t *, int *); \
} \
inline float SuperLU_gsisx(superlu_options_t *options, SuperMatrix *A, \ inline float SuperLU_gsisx(superlu_options_t *options, SuperMatrix *A, \
int *perm_c, int *perm_r, int *etree, char *equed, \ int *perm_c, int *perm_r, int *etree, char *equed, \
FLOATTYPE *R, FLOATTYPE *C, SuperMatrix *L, \ FLOATTYPE *R, FLOATTYPE *C, SuperMatrix *L, \
@ -64,18 +76,17 @@ DECL_GSSVX(SuperLU_Z,zgssvx,double,std::complex<double>)
FLOATTYPE *recip_pivot_growth, \ FLOATTYPE *recip_pivot_growth, \
FLOATTYPE *rcond, \ FLOATTYPE *rcond, \
SuperLUStat_t *stats, int *info, KEYTYPE) { \ SuperLUStat_t *stats, int *info, KEYTYPE) { \
using namespace NAMESPACE; \ PREFIX##mem_usage_t mem_usage; \
mem_usage_t mem_usage; \ PREFIX##gsisx(options, A, perm_c, perm_r, etree, equed, R, C, L, \
NAMESPACE::FNAME(options, A, perm_c, perm_r, etree, equed, R, C, L, \
U, work, lwork, B, X, recip_pivot_growth, rcond, \ U, work, lwork, B, X, recip_pivot_growth, rcond, \
&mem_usage, stats, info); \ &mem_usage, stats, info); \
return mem_usage.for_lu; /* bytes used by the factor storage */ \ return mem_usage.for_lu; /* bytes used by the factor storage */ \
} }
DECL_GSISX(SuperLU_S,sgsisx,float,float) DECL_GSISX(s,float,float)
DECL_GSISX(SuperLU_C,cgsisx,float,std::complex<float>) DECL_GSISX(c,float,std::complex<float>)
DECL_GSISX(SuperLU_D,dgsisx,double,double) DECL_GSISX(d,double,double)
DECL_GSISX(SuperLU_Z,zgsisx,double,std::complex<double>) DECL_GSISX(z,double,std::complex<double>)
#endif #endif