This is allpole.m in view mode; [Download] [Up]
float allpole(x,jcount,npoles,past,c)
float x,*past,*c;
int *jcount,npoles;
{
register j,nfint;
for(j= *jcount, nfint=0; nfint<npoles; nfint++,j++)
x += (*(c+nfint) * *(past+j));
*(past+ *jcount) = *(past+*jcount+npoles) = x;
*jcount = (*jcount + 1) % npoles;
return(x);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.