/*< 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_ */