From 2d75dde5902b723a49fd9e810bccb91bfb691041 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Wed, 14 Feb 2024 16:18:13 +0000
Subject: [PATCH] initialise all shc not just real part

---
 Basic/Math/cpoly.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Basic/Math/cpoly.c b/Basic/Math/cpoly.c
index 00c22115d..1ca2e8ba2 100644
--- a/Basic/Math/cpoly.c
+++ b/Basic/Math/cpoly.c
@@ -247,7 +247,7 @@ fprintf(stderr, "ENTRY deg=%d\n", degree);
   /* Make a copy of the coefficients */
   for (i=0;i<nn;i++) {
     pc[i] = opr[i] + I*opi[i];
-    shc[i] = cmod(pc[i]) + I*cimag(shc[i]);
+    shc[i] = cmod(pc[i]);
   }
 
   /* Scale the polynomial */