luke/ngspice
1
0
Fork 0
mirror of https://git.code.sf.net/p/ngspice/ngspice synced 2026-08-22 13:57:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed SMPcZeroCol

Browse Source
This commit is contained in:
Francesco Lannutti
2018-05-04 19:57:03 +02:00
committed by rlar
parent b0c2b1be6a
commit e02ffb95b8
1 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/maths/KLU/klusmp.c
+11 -1
View File
@@ -724,13 +724,23 @@ SMPcZeroCol (SMPmatrix *eMatrix, int Col)
Col = Matrix->ExtToIntColMap [Col] ; Col = Matrix->ExtToIntColMap [Col] ;
if (eMatrix->CKTkluMODE)
{
int i ;
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) for (Element = Matrix->FirstInCol [Col] ; Element != NULL ; Element = Element->NextInCol)
{ {
Element->Real = 0.0 ; Element->Real = 0.0 ;
Element->Imag = 0.0 ; Element->Imag = 0.0 ;
} }
return spError (Matrix) ; return spError (Matrix) ;
}
} }
/* /*