initialise all shc not just real part

PDLPorters · Feb 14, 2024 · 2d75dde · 2d75dde
1 parent 864669e
commit 2d75dde
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 */