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

Maintain the KLU related changes under '#ifdef KLU'

This commit is contained in:
Francesco Lannutti 2020-03-15 00:25:54 +01:00 committed by Holger Vogt
parent a5885f0e95
commit f3127234aa
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/spicelib/analysis/cktic.c
View File

@ -25,6 +25,8 @@ CKTic(CKTcircuit *ckt)
for(node = ckt->CKTnodes;node != NULL; node = node->next) {
if(node->nsGiven) {
#ifdef KLU
if (ckt->CKTkluMODE) {
node->ptr = (double *) SMPfindElt (ckt->CKTmatrix, node->number, node->number, 0) ;
if (node->ptr == NULL) {
@ -32,14 +34,22 @@ CKTic(CKTcircuit *ckt)
printf ("Please specify an existing element for .nodeset\n") ;
}
} else {
#endif
node->ptr = SMPmakeElt(ckt->CKTmatrix,node->number,node->number);
#ifdef KLU
}
#endif
if(node->ptr == NULL) return(E_NOMEM);
ckt->CKThadNodeset = 1;
ckt->CKTrhsOld[node->number] = ckt->CKTrhs[node->number] = node->nodeset;
}
if(node->icGiven) {
if(! ( node->ptr)) {
#ifdef KLU
if (ckt->CKTkluMODE) {
node->ptr = (double *) SMPfindElt (ckt->CKTmatrix, node->number, node->number, 0) ;
if (node->ptr == NULL) {
@ -47,8 +57,14 @@ CKTic(CKTcircuit *ckt)
printf ("Please specify an existing element for .ic\n") ;
}
} else {
#endif
node->ptr = SMPmakeElt(ckt->CKTmatrix,node->number, node->number);
#ifdef KLU
}
#endif
if(node->ptr == NULL) return(E_NOMEM);
}
ckt->CKTrhsOld[node->number] = ckt->CKTrhs[node->number] = node->ic;