Merge "ExternalMedia: Change return object from ExternalMedia to Channel"
[asterisk/asterisk.git] / codecs / lpc10 / prepro.c
1 /*
2
3 $Log$
4 Revision 1.15  2004/06/26 03:50:14  markster
5 Merge source cleanups (bug #1911)
6
7 Revision 1.14  2003/02/12 13:59:15  matteo
8 mer feb 12 14:56:57 CET 2003
9
10 Revision 1.1.1.1  2003/02/12 13:59:15  matteo
11 mer feb 12 14:56:57 CET 2003
12
13 Revision 1.2  2000/01/05 08:20:39  markster
14 Some OSS fixes and a few lpc changes to make it actually work
15
16  * Revision 1.2  1996/08/20  20:40:51  jaf
17  * Removed all static local variables that were SAVE'd in the Fortran
18  * code, and put them in struct lpc10_encoder_state that is passed as an
19  * argument.
20  *
21  * Removed init function, since all initialization is now done in
22  * init_lpc10_encoder_state().
23  *
24  * Revision 1.1  1996/08/19  22:30:54  jaf
25  * Initial revision
26  *
27  */
28
29 /*  -- translated by f2c (version 19951025).
30    You must link the resulting object file with the libraries:
31         -lf2c -lm   (in that order)
32 */
33
34 #include "f2c.h"
35
36 #ifdef P_R_O_T_O_T_Y_P_E_S
37 extern int prepro_(real *speech, integer *length,
38                    struct lpc10_encoder_state *st);
39 /*:ref: hp100_ 14 3 6 4 4 */
40 /*:ref: inithp100_ 14 0 */
41 #endif
42
43 /* Table of constant values */
44
45 static integer c__1 = 1;
46
47 /* ********************************************************************* */
48
49 /*      PREPRO Version 48 */
50
51 /* $Log$
52  * Revision 1.15  2004/06/26 03:50:14  markster
53  * Merge source cleanups (bug #1911)
54  *
55  * Revision 1.14  2003/02/12 13:59:15  matteo
56  * mer feb 12 14:56:57 CET 2003
57  *
58  * Revision 1.1.1.1  2003/02/12 13:59:15  matteo
59  * mer feb 12 14:56:57 CET 2003
60  *
61  * Revision 1.2  2000/01/05 08:20:39  markster
62  * Some OSS fixes and a few lpc changes to make it actually work
63  *
64  * Revision 1.2  1996/08/20  20:40:51  jaf
65  * Removed all static local variables that were SAVE'd in the Fortran
66  * code, and put them in struct lpc10_encoder_state that is passed as an
67  * argument.
68  *
69  * Removed init function, since all initialization is now done in
70  * init_lpc10_encoder_state().
71  *
72  * Revision 1.1  1996/08/19  22:30:54  jaf
73  * Initial revision
74  * */
75 /* Revision 1.3  1996/03/14  23:22:56  jaf */
76 /* Added comments about when INITPREPRO should be used. */
77
78 /* Revision 1.2  1996/03/14  23:09:27  jaf */
79 /* Added an entry named INITPREPRO that initializes the local state of */
80 /* this subroutine, and those it calls (if any). */
81
82 /* Revision 1.1  1996/02/07  14:48:54  jaf */
83 /* Initial revision */
84
85
86 /* ********************************************************************* */
87
88 /*    Pre-process input speech: */
89
90 /* Inputs: */
91 /*  LENGTH - Number of SPEECH samples */
92 /* Input/Output: */
93 /*  SPEECH(LENGTH) - Speech data. */
94 /*                   Indices 1 through LENGTH are read and modified. */
95
96 /* This subroutine has no local state maintained from one call to the */
97 /* next, but HP100 does.  If you want to switch to using a new audio */
98 /* stream for this filter, or reinitialize its state for any other */
99 /* reason, call the ENTRY INITPREPRO. */
100
101 /* Subroutine */ int prepro_(real *speech, integer *length,
102                              struct lpc10_encoder_state *st)
103 {
104     extern /* Subroutine */ int hp100_(real *, integer *, integer *, struct lpc10_encoder_state *);
105
106 /*       Arguments */
107 /*   High Pass Filter at 100 Hz */
108     /* Parameter adjustments */
109     if (speech) {
110         --speech;
111         }
112
113     /* Function Body */
114     hp100_(&speech[1], &c__1, length, st);
115     return 0;
116 } /* prepro_ */