FreeCalypso > hg > gsm-codec-lib

comparison libgsmefr/lag_wind.c @ 53:49dd1ac8e75b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
libgsmefr: import most *.c files from ETSI source
author Mychaela Falconia <falcon@freecalypso.org>
date Fri, 25 Nov 2022 16:18:21 +0000
parents
children 8d63b167a5d3
comparison
equal deleted inserted replaced
52:988fd7ff514f 53:49dd1ac8e75b
1 /*************************************************************************
2 *
3 * FUNCTION: Lag_window()
4 *
5 * PURPOSE: Lag windowing of autocorrelations.
6 *
7 * DESCRIPTION:
8 * r[i] = r[i]*lag_wind[i], i=1,...,10
9 *
10 * r[i] and lag_wind[i] are in special double precision format.
11 * See "oper_32b.c" for the format.
12 *
13 *************************************************************************/
14
15 #include "typedef.h"
16 #include "basic_op.h"
17 #include "oper_32b.h"
18 #include "count.h"
19
20 #include "lag_wind.tab"
21
22 void Lag_window (
23 Word16 m, /* (i) : LPC order */
24 Word16 r_h[], /* (i/o) : Autocorrelations (msb) */
25 Word16 r_l[] /* (i/o) : Autocorrelations (lsb) */
26 )
27 {
28 Word16 i;
29 Word32 x;
30
31 for (i = 1; i <= m; i++)
32 {
33 x = Mpy_32 (r_h[i], r_l[i], lag_h[i - 1], lag_l[i - 1]);
34 L_Extract (x, &r_h[i], &r_l[i]);
35 }
36 return;
37 }