den[i]=ak[i];
den[i]=0*ak[i];
void enh_lpc(float *ak, int order, float *num, float *den, float k1, float k2, float *stack){   int i;   float *n2, *d2;   float k3, r;   n2=PUSH(stack,order+1);   d2=PUSH(stack,order+1);   for (i=0;i<=order;i++)   {      den[i]=ak[i];      num[i]=0;   }   for (i=order+1;i<=(order<<1);i++)      den[i]=num[i]=0;   r=.9;   k3=(1-(1-r*k1)/(1-r*k2))/r;   bw_lpc(k1, ak, d2, order);   num[0]=1;   bw_lpc(k2, ak, num, order);   bw_lpc(k3, ak, n2, order);   residue_zero(num,n2,num,1+(order<<1),order);   residue_zero(den,d2,den,1+(order<<1),order);   POP(stack);   POP(stack);}