/*	 This material contains proprietary software of Entropic Processing, Inc. Any reproduction, distribution, or publication without the the prior	    written permission of Entropic Processing, Inc. is strictly prohibited. Any public distribution of copies of this work authorized in writing by Entropic Processing, Inc. must bear the notice			       	Copyright 1986, Entropic Proccessing, Inc	(C) 1985, Entropic Processing, Inc.         */#ifdef SCCSstatic char *sccsid = "@(#)fowrdfilt.c	1.1 5/8/86";#endif	/* perform forward filtering */float   fowrd_filter (c, state, order, input)float   c[], state[], input;int     order;{    int     j;    double   t = input;    for (j = 1; j <= order; j++)	t += c[j] * state[j];    for (j = order; j > 1; j--)	state[j] = state[j - 1];    state[1] = t;    return (t);}