FreeCalypso > hg > gsm-codec-lib
annotate libtwamr/convolve.h @ 357:fb001496ca8c
libtwamr: integrate dec_lag3.c
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sun, 05 May 2024 22:29:09 +0000 |
parents | e230a4a87bd8 |
children |
rev | line source |
---|---|
329
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
1 /* |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
2 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
3 * |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
4 * GSM AMR-NB speech codec R98 Version 7.6.0 December 12, 2001 |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
5 * R99 Version 3.3.0 |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
6 * REL-4 Version 4.1.0 |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
7 * |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
8 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
9 * |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
10 * File : convolve.h |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
11 * Purpose : Perform the convolution between two vectors x[] |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
12 * : and h[] and write the result in the vector y[]. |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
13 * : All vectors are of length L and only the first |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
14 * : L samples of the convolution are computed. |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
15 * |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
16 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
17 */ |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
18 #ifndef convolve_h |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
19 #define convolve_h "$Id $" |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
20 |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
21 /* |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
22 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
23 * INCLUDE FILES |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
24 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
25 */ |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
26 #include "typedef.h" |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
27 |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
28 /* |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
29 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
30 * DEFINITION OF DATA TYPES |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
31 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
32 */ |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
33 |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
34 /* |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
35 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
36 * DECLARATION OF PROTOTYPES |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
37 ******************************************************************************** |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
38 */ |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
39 void Convolve ( |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
40 Word16 x[], /* (i) : input vector */ |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
41 Word16 h[], /* (i) : impulse response */ |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
42 Word16 y[], /* (o) : output vector */ |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
43 Word16 L /* (i) : vector size */ |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
44 ); |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
45 |
e230a4a87bd8
libtwamr: integrate convolve.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
46 #endif |