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