From 478ee433ae9baf0da20c5015ab7cafd9dbb90373 Mon Sep 17 00:00:00 2001
From: arno <arno>
Date: Mon, 3 Jul 2000 15:30:05 +0000
Subject: [PATCH] 	* 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.
---
 src/analysis/cktpzld.c | 6 +++---
 src/analysis/cktsens.c | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/analysis/cktpzld.c b/src/analysis/cktpzld.c
index d724d99f6..ada52b194 100644
--- a/src/analysis/cktpzld.c
+++ b/src/analysis/cktpzld.c
@@ -45,10 +45,10 @@ combine:
     /* See if any of the DEVload functions bailed. If not, proceed. */
     IGOP_( &type, &error, &length, "max" );
     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 {
-      return(error);
+	return(error);
     }
 #endif /* PARALLEL_ARCH */
 
diff --git a/src/analysis/cktsens.c b/src/analysis/cktsens.c
index 7ebc8e824..38a43418b 100644
--- a/src/analysis/cktsens.c
+++ b/src/analysis/cktsens.c
@@ -127,9 +127,9 @@ int sens_sens(CKTcircuit *ckt, int restart)
 		size = spGetSize(ckt->CKTmatrix, 1);
 
 		/* 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;