lpfilt.c File Reference

#include "f2c.h"

Include dependency graph for lpfilt.c:

Go to the source code of this file.

Functions
int	lpfilt_ (real *inbuf, real *lpbuf, integer *len, integer *nsamp)

Function Documentation

lpfilt_()

int lpfilt_	(	real *	inbuf,
		real *	lpbuf,
		integer *	len,
		integer *	nsamp
	)

Definition at line 83 of file lpfilt.c.

References inbuf(), lpc10_decoder_state::j, and len().

Referenced by analys_().

{
 /* System generated locals */
 integer i__1;

 /* Local variables */
 integer j;
 real t;

/* Arguments */
/* Parameters/constants */
/* Local variables that need not be saved */
/* Local state */
/* None */
 /* Parameter adjustments */
 --lpbuf;
 --inbuf;

 /* Function Body */
 i__1 = *len;
 for (j = *len + 1 - *nsamp; j <= i__1; ++j) {
 t = (inbuf[j] + inbuf[j - 30]) * -.0097201988f;
 t += (inbuf[j - 1] + inbuf[j - 29]) * -.0105179986f;
 t += (inbuf[j - 2] + inbuf[j - 28]) * -.0083479648f;
 t += (inbuf[j - 3] + inbuf[j - 27]) * 5.860774e-4f;
 t += (inbuf[j - 4] + inbuf[j - 26]) * .0130892089f;
 t += (inbuf[j - 5] + inbuf[j - 25]) * .0217052232f;
 t += (inbuf[j - 6] + inbuf[j - 24]) * .0184161253f;
 t += (inbuf[j - 7] + inbuf[j - 23]) * 3.39723e-4f;
 t += (inbuf[j - 8] + inbuf[j - 22]) * -.0260797087f;
 t += (inbuf[j - 9] + inbuf[j - 21]) * -.0455563702f;
 t += (inbuf[j - 10] + inbuf[j - 20]) * -.040306855f;
 t += (inbuf[j - 11] + inbuf[j - 19]) * 5.029835e-4f;
 t += (inbuf[j - 12] + inbuf[j - 18]) * .0729262903f;
 t += (inbuf[j - 13] + inbuf[j - 17]) * .1572008878f;
 t += (inbuf[j - 14] + inbuf[j - 16]) * .2247288674f;
 t += inbuf[j - 15] * .250535965f;
 lpbuf[j] = t;
 }
 return 0;
} /* lpfilt_ */