FreeCalypso > hg > gsm-codec-lib
annotate libtwamr/convolve.h @ 466:0c4e1bc06740
amrefr-encode-r: use the new DHF xform that matches T-Mobile
| author | Mychaela Falconia <falcon@freecalypso.org> |
|---|---|
| date | Sun, 12 May 2024 21:44:59 +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 |
