rz is never used in these methods.
gdouble rp, ip;
/* zero location in s-plane */
- gdouble rz = 0.0, iz = 0.0;
+ gdouble iz = 0.0;
/* transfer function coefficients for the z-plane */
gdouble x0, x1, x2, y1, y2;
gdouble angle = M_PI / (np * 2.0) + ((p - 1) * M_PI) / (np);
gdouble mag2;
- rz = 0.0;
iz = cos (angle);
- mag2 = rz * rz + iz * iz;
- rz /= mag2;
+ mag2 = iz * iz;
iz /= mag2;
}
gdouble rp, ip;
/* zero location in s-plane */
- gdouble rz = 0.0, iz = 0.0;
+ gdouble iz = 0.0;
/* transfer function coefficients for the z-plane */
gdouble x0, x1, x2, y1, y2;
gdouble angle = M_PI / (np * 2.0) + ((p - 1) * M_PI) / (np);
gdouble mag2;
- rz = 0.0;
iz = cos (angle);
- mag2 = rz * rz + iz * iz;
- rz /= mag2;
+ mag2 = iz * iz;
iz /= mag2;
}