4 Revision 1.14 2003/02/12 13:59:15 matteo
5 mer feb 12 14:56:57 CET 2003
7 Revision 1.1.1.1 2003/02/12 13:59:15 matteo
8 mer feb 12 14:56:57 CET 2003
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
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
18 * Removed init function, since all initialization is now done in
19 * init_lpc10_encoder_state().
21 * Revision 1.1 1996/08/19 22:30:54 jaf
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 */
34 /* -- translated by f2c (version 19951025).
35 You must link the resulting object file with the libraries:
36 -lf2c -lm (in that order)
41 /* Table of constant values */
43 static integer c__1 = 1;
45 /* ********************************************************************* */
47 /* PREPRO Version 48 */
50 * Revision 1.14 2003/02/12 13:59:15 matteo
51 * mer feb 12 14:56:57 CET 2003
53 /* Revision 1.1.1.1 2003/02/12 13:59:15 matteo
54 /* mer feb 12 14:56:57 CET 2003
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
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
64 * Removed init function, since all initialization is now done in
65 * init_lpc10_encoder_state().
67 * Revision 1.1 1996/08/19 22:30:54 jaf
70 /* Revision 1.3 1996/03/14 23:22:56 jaf */
71 /* Added comments about when INITPREPRO should be used. */
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). */
77 /* Revision 1.1 1996/02/07 14:48:54 jaf */
78 /* Initial revision */
81 /* ********************************************************************* */
83 /* Pre-process input speech: */
86 /* LENGTH - Number of SPEECH samples */
88 /* SPEECH(LENGTH) - Speech data. */
89 /* Indices 1 through LENGTH are read and modified. */
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. */
96 /* Subroutine */ int prepro_(real *speech, integer *length,
97 struct lpc10_encoder_state *st)
99 extern /* Subroutine */ int hp100_(real *, integer *, integer *, struct lpc10_encoder_state *);
102 /* High Pass Filter at 100 Hz */
103 /* Parameter adjustments */
109 hp100_(&speech[1], &c__1, length, st);