Browse Source

* 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.
pre-master-46
arno 26 years ago
parent
commit
478ee433ae
  1. 6
      src/analysis/cktpzld.c
  2. 6
      src/analysis/cktsens.c

6
src/analysis/cktpzld.c

@ -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,
ckt->CKTirhs, ckt->CKTirhsSpare );
SMPcCombine(ckt->CKTmatrix, ckt->CKTrhs, ckt->CKTrhsSpare,
ckt->CKTirhs, ckt->CKTirhsSpare );
} else { } else {
return(error);
return(error);
} }
#endif /* PARALLEL_ARCH */ #endif /* PARALLEL_ARCH */

6
src/analysis/cktsens.c

@ -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?
* only in ac */
delta_Y = spCreate(size, !is_dc, &error);
delta_Y = spCreate(size, 1, &error);
if (error)
return error;
size += 1; size += 1;

Loading…
Cancel
Save