luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Compacted the flag for KLU matrix being Real or Complex to one single bit

This commit is contained in:
Francesco Lannutti 2020-03-14 23:29:39 +01:00
parent 1a7fdd192c
commit b2d80e9ecd
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/include/ngspice/smpdefs.h
View File

@ -25,28 +25,28 @@ Modified: 2000 AlansFixes
/* SMPmatrix structure - Francesco Lannutti (2012-02) */ /* SMPmatrix structure - Francesco Lannutti (2012-02) */
typedef struct sSMPmatrix { typedef struct sSMPmatrix {
MatrixFrame *SPmatrix ; /* pointer to sparse matrix */ MatrixFrame *SPmatrix ; /* pointer to sparse matrix */
#ifdef KLU #ifdef KLU
klu_common *CKTkluCommon ; /* KLU common object */ klu_common *CKTkluCommon ; /* KLU common object */
klu_symbolic *CKTkluSymbolic ; /* KLU symbolic object */ klu_symbolic *CKTkluSymbolic ; /* KLU symbolic object */
klu_numeric *CKTkluNumeric ; /* KLU numeric object */ klu_numeric *CKTkluNumeric ; /* KLU numeric object */
int *CKTkluAp ; /* KLU column pointer */ int *CKTkluAp ; /* KLU column pointer */
int *CKTkluAi ; /* KLU row pointer */ int *CKTkluAi ; /* KLU row pointer */
double *CKTkluAx ; /* KLU Real Elements */ double *CKTkluAx ; /* KLU Real Elements */
double *CKTkluAx_Complex ; /* KLU Complex Elements */ double *CKTkluAx_Complex ; /* KLU Complex Elements */
int CKTkluMatrixIsComplex ; /* KLU Matrix Is Complex Flag */ unsigned int CKTkluMatrixIsComplex:1 ; /* KLU Matrix Is Complex Flag */
#define CKTkluMatrixReal 0 /* KLU Matrix Real definition */ #define CKTkluMatrixReal 0 /* KLU Matrix Real definition */
#define CKTkluMatrixComplex 1 /* KLU Matrix Complex definition */ #define CKTkluMatrixComplex 1 /* KLU Matrix Complex definition */
double *CKTkluIntermediate ; /* KLU RHS Intermediate for Solve Real Step */ double *CKTkluIntermediate ; /* KLU RHS Intermediate for Solve Real Step */
double *CKTkluIntermediate_Complex ; /* KLU iRHS Intermediate for Solve Complex Step */ double *CKTkluIntermediate_Complex ; /* KLU iRHS Intermediate for Solve Complex Step */
BindElement *CKTbindStruct ; /* KLU - Sparse Binding Structure */ BindElement *CKTbindStruct ; /* KLU - Sparse Binding Structure */
double **CKTdiag_CSC ; /* KLU pointer to diagonal element to perform Gmin */ double **CKTdiag_CSC ; /* KLU pointer to diagonal element to perform Gmin */
int CKTkluN ; /* KLU N, copied */ int CKTkluN ; /* KLU N, copied */
int CKTklunz ; /* KLU nz, copied for AC Analysis */ int CKTklunz ; /* KLU nz, copied for AC Analysis */
unsigned int CKTkluMODE:1 ; /* KLU MODE parameter to enable KLU or not from the heuristic */ unsigned int CKTkluMODE:1 ; /* KLU MODE parameter to enable KLU or not from the heuristic */
#define CKTkluON 1 /* KLU MODE ON definition */ #define CKTkluON 1 /* KLU MODE ON definition */
#define CKTkluOFF 0 /* KLU MODE OFF definition */ #define CKTkluOFF 0 /* KLU MODE OFF definition */
#endif #endif
} SMPmatrix ; } SMPmatrix ;