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

* src/analysis/cktsens.c: Matrixes cannot be created non-complex. 

Also added a check to detect an error condition on delta_Y =
	spCreate(...).

	* src/analysis/cktpzld.c: Formatting updates.
This commit is contained in:
arno 2000-07-03 15:30:05 +00:00
parent 7ac9278389
commit 478ee433ae
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/analysis/cktpzld.c
View File

@ -45,10 +45,10 @@ combine:
/* See if any of the DEVload functions bailed. If not, proceed. */ /* See if any of the DEVload functions bailed. If not, proceed. */
IGOP_( &type, &error, &length, "max" ); IGOP_( &type, &error, &length, "max" );
if (error == OK) { if (error == OK) {
SMPcCombine( ckt->CKTmatrix, ckt->CKTrhs, ckt->CKTrhsSpare, SMPcCombine(ckt->CKTmatrix, ckt->CKTrhs, ckt->CKTrhsSpare,
ckt->CKTirhs, ckt->CKTirhsSpare ); ckt->CKTirhs, ckt->CKTirhsSpare );
} else { } else {
return(error); return(error);
} }
#endif /* PARALLEL_ARCH */ #endif /* PARALLEL_ARCH */

6
src/analysis/cktsens.c
View File

@ -127,9 +127,9 @@ int sens_sens(CKTcircuit *ckt, int restart)
size = spGetSize(ckt->CKTmatrix, 1); size = spGetSize(ckt->CKTmatrix, 1);
/* Create the perturbation matrix */ /* Create the perturbation matrix */
/* XXX check error return, '1' is complex -- necessary? delta_Y = spCreate(size, 1, &error);
* only in ac */ if (error)
delta_Y = spCreate(size, !is_dc, &error); return error;
size += 1; size += 1;