From b8cece5fbaf72c07eeb8eeb17ab3226e667a081f Mon Sep 17 00:00:00 2001
From: pnenzi <pnenzi>
Date: Thu, 14 Aug 2003 11:46:55 +0000
Subject: [PATCH] Modified code for CIDER simulator.

---
 src/maths/sparse/spalloc.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/maths/sparse/spalloc.c b/src/maths/sparse/spalloc.c
index b9e8e6e22..14321d66a 100644
--- a/src/maths/sparse/spalloc.c
+++ b/src/maths/sparse/spalloc.c
@@ -137,8 +137,9 @@ spCreate(int Size, int Complex, int *pError)
         return NULL;
     }
 
+
+#if 0  /* pn: skipped for cider */
     /* Test for valid type. */
-#if !REAL
     if (!Complex) {
 	*pError = spPANIC;
 	return NULL;