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

Fixed SMPcZeroCol

This commit is contained in:
Francesco Lannutti 2016-06-19 01:21:46 +02:00 committed by rlar
parent ff9af114d4
commit 4f7a0acb7a
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/maths/KLU/klusmp.c
View File

@ -724,13 +724,23 @@ SMPcZeroCol (SMPmatrix *eMatrix, int Col)
Col = Matrix->ExtToIntColMap [Col] ; Col = Matrix->ExtToIntColMap [Col] ;
for (Element = Matrix->FirstInCol [Col] ; Element != NULL ; Element = Element->NextInCol) if (eMatrix->CKTkluMODE)
{ {
Element->Real = 0.0 ; int i ;
Element->Imag = 0.0 ; for (i = eMatrix->CKTkluAp [Col - 1] ; i < eMatrix->CKTkluAp [Col] ; i++)
{
eMatrix->CKTkluAx_Complex [2 * i] = 0 ;
eMatrix->CKTkluAx_Complex [2 * i + 1] = 0 ;
}
return 0 ;
} else {
for (Element = Matrix->FirstInCol [Col] ; Element != NULL ; Element = Element->NextInCol)
{
Element->Real = 0.0 ;
Element->Imag = 0.0 ;
}
return spError (Matrix) ;
} }
return spError (Matrix) ;
} }
/* /*