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