lpc10/prepro.c

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