/*< SUBROUTINE PREPRO( SPEECH, LENGTH ) >*/
/* Subroutine */ int prepro_0_(int n__, real *speech, integer *length)
{
extern /* Subroutine */ int hp100_(real *, integer *, integer *),
inithp100_(void);
/* Arguments */
/*< INTEGER LENGTH >*/
/*< REAL SPEECH(LENGTH) >*/
/* High Pass Filter at 100 Hz */
/*< CALL HP100( SPEECH, 1, LENGTH ) >*/
/* Parameter adjustments */
if (speech) {
--speech;
}
/* Function Body */
switch(n__) {
case 1: goto L_initprepro;
}
hp100_(&speech[1], &c__1, length);
/*< RETURN >*/
return 0;
/*< ENTRY INITPREPRO () >*/
L_initprepro:
/*< CALL INITHP100() >*/
inithp100_();
/*< RETURN >*/
return 0;
/*< END >*/
} /* prepro_ */
/* Subroutine */ int prepro_(real *speech, integer *length,
struct lpc10_encoder_state *st)
{
extern /* Subroutine */ int hp100_(real *, integer *, integer *, struct lpc10_encoder_state *);
/* Arguments */
/* High Pass Filter at 100 Hz */
/* Parameter adjustments */
if (speech) {
--speech;
}
/* Function Body */
hp100_(&speech[1], &c__1, length, st);
return 0;
} /* prepro_ */
