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