4
Revision 1.2 2000/01/05 08:20:39 markster
5
Some OSS fixes and a few lpc changes to make it actually work
7
* Revision 1.2 1996/08/20 20:23:46 jaf
8
* Removed all static local variables that were SAVE'd in the Fortran
9
* code, and put them in struct lpc10_decoder_state that is passed as an
12
* Removed init function, since all initialization is now done in
13
* init_lpc10_decoder_state().
15
* Revision 1.1 1996/08/19 22:32:34 jaf
21
#ifdef P_R_O_T_O_T_Y_P_E_S
22
extern int deemp_(real *x, integer *n, struct lpc10_decoder_state *st);
25
/* -- translated by f2c (version 19951025).
26
You must link the resulting object file with the libraries:
27
-lf2c -lm (in that order)
32
/* ***************************************************************** */
34
/* DEEMP Version 48 */
37
/* Revision 1.2 2000/01/05 08:20:39 markster
38
/* Some OSS fixes and a few lpc changes to make it actually work
40
* Revision 1.2 1996/08/20 20:23:46 jaf
41
* Removed all static local variables that were SAVE'd in the Fortran
42
* code, and put them in struct lpc10_decoder_state that is passed as an
45
* Removed init function, since all initialization is now done in
46
* init_lpc10_decoder_state().
48
* Revision 1.1 1996/08/19 22:32:34 jaf
51
/* Revision 1.3 1996/03/20 15:54:37 jaf */
52
/* Added comments about which indices of array arguments are read or */
55
/* Added entry INITDEEMP to reinitialize the local state variables, if */
58
/* Revision 1.2 1996/03/14 22:11:13 jaf */
59
/* Comments added explaining which of the local variables of this */
60
/* subroutine need to be saved from one invocation to the next, and which */
63
/* Revision 1.1 1996/02/07 14:44:53 jaf */
64
/* Initial revision */
67
/* ***************************************************************** */
69
/* De-Emphasize output speech with 1 / ( 1 - .75z**-1 ) */
70
/* cascaded with 200 Hz high pass filter */
71
/* ( 1 - 1.9998z**-1 + z**-2 ) / ( 1 - 1.75z**-1 + .78z**-2 ) */
73
/* WARNING! The coefficients above may be out of date with the code */
74
/* below. Either that, or some kind of transformation was performed */
75
/* on the coefficients above to create the code below. */
78
/* N - Number of samples */
81
/* Indices 1 through N are read before being written. */
83
/* This subroutine maintains local state from one call to the next. If */
84
/* you want to switch to using a new audio stream for this filter, or */
85
/* reinitialize its state for any other reason, call the ENTRY */
88
/* Subroutine */ int deemp_(real *x, integer *n, struct lpc10_decoder_state *st)
90
/* Initialized data */
98
/* System generated locals */
102
/* Local variables */
107
/* Local variables that need not be saved */
109
/* All of the locals saved below were not given explicit initial */
110
/* values in the original code. I think 0 is a safe choice. */
111
/* Parameter adjustments */
125
for (k = 1; k <= i__1; ++k) {
127
r__1 = x[k] - *dei1 * 1.9998f + *dei2;
128
x[k] = r__1 + *deo1 * 2.5f - *deo2 * 2.0925f + *deo3 * .585f;