codecs/lpc10/prepro.c

   1 /*
   2
   3 $Log$
   4 Revision 1.14  2003/02/12 13:59:15  matteo
   5 mer feb 12 14:56:57 CET 2003
   6
   7 Revision 1.1.1.1  2003/02/12 13:59:15  matteo
   8 mer feb 12 14:56:57 CET 2003
   9
  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
  12
  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
  16  * argument.
  17  *
  18  * Removed init function, since all initialization is now done in
  19  * init_lpc10_encoder_state().
  20  *
  21  * Revision 1.1  1996/08/19  22:30:54  jaf
  22  * Initial revision
  23  *
  24
  25 */
  26
  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 */
  32 #endif
  33
  34 /*  -- translated by f2c (version 19951025).
  35    You must link the resulting object file with the libraries:
  36         -lf2c -lm   (in that order)
  37 */
  38
  39 #include "f2c.h"
  40
  41 /* Table of constant values */
  42
  43 static integer c__1 = 1;
  44
  45 /* ********************************************************************* */
  46
  47 /*      PREPRO Version 48 */
  48
  49 /* $Log$
  50  * Revision 1.14  2003/02/12 13:59:15  matteo
  51  * mer feb 12 14:56:57 CET 2003
  52  *
  53 /* Revision 1.1.1.1  2003/02/12 13:59:15  matteo
  54 /* mer feb 12 14:56:57 CET 2003
  55 /*
  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
  58 /*
  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
  62  * argument.
  63  *
  64  * Removed init function, since all initialization is now done in
  65  * init_lpc10_encoder_state().
  66  *
  67  * Revision 1.1  1996/08/19  22:30:54  jaf
  68  * Initial revision
  69  * */
  70 /* Revision 1.3  1996/03/14  23:22:56  jaf */
  71 /* Added comments about when INITPREPRO should be used. */
  72
  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). */
  76
  77 /* Revision 1.1  1996/02/07  14:48:54  jaf */
  78 /* Initial revision */
  79
  80
  81 /* ********************************************************************* */
  82
  83 /*    Pre-process input speech: */
  84
  85 /* Inputs: */
  86 /*  LENGTH - Number of SPEECH samples */
  87 /* Input/Output: */
  88 /*  SPEECH(LENGTH) - Speech data. */
  89 /*                   Indices 1 through LENGTH are read and modified. */
  90
  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. */
  95
  96 /* Subroutine */ int prepro_(real *speech, integer *length,
  97                              struct lpc10_encoder_state *st)
  98 {
  99     extern /* Subroutine */ int hp100_(real *, integer *, integer *, struct lpc10_encoder_state *);
 100
 101 /*       Arguments */
 102 /*   High Pass Filter at 100 Hz */
 103     /* Parameter adjustments */
 104     if (speech) {
 105         --speech;
 106         }
 107
 108     /* Function Body */
 109     hp100_(&speech[1], &c__1, length, st);
 110     return 0;
 111 } /* prepro_ */