8 int analys_(real *speech, integer *voice, integer *pitch, real *rms, real *rc, struct lpc10_encoder…
13     integer order, lframe;
21 static integer c__10 = 10;
22 static integer c__181 = 181;
23 static integer c__720 = 720;
24 static integer c__3 = 3;
25 static integer c__90 = 90;
26 static integer c__156 = 156;
27 static integer c__307 = 307;
28 static integer c__462 = 462;
29 static integer c__312 = 312;
30 static integer c__60 = 60;
31 static integer c__1 = 1;
126 /* Subroutine */ int analys_(real *speech, integer *voice, integer   in analys_()
131     static integer tau[60] = { 20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,  in analys_()
135     static integer buflim[4] = { 181,720,25,720 };  in analys_()
139     integer i__1;  in analys_()
143     integer half;  in analys_()
146     extern /* Subroutine */ int tbdm_(real *, integer *, integer *, integer *,  in analys_()
147 	     real *, integer *, integer *, integer *);  in analys_()
148     integer *awin;  in analys_()
149     integer midx, ewin[6]	/* was [2][3] */;  in analys_()
152     integer *vwin;  in analys_()
153     integer i__, j, lanal;  in analys_()
154     extern /* Subroutine */ int rcchk_(integer *, real *, real *), mload_(  in analys_()
155 	    integer *, integer *, integer *, real *, real *, real *);  in analys_()
159     integer *osbuf;  in analys_()
160     extern /* Subroutine */ int onset_(real *, integer *, integer *, integer *  in analys_()
161 	    , integer *, integer *, integer *, struct lpc10_encoder_state *);  in analys_()
162     integer *osptr;  in analys_()
163     extern int placea_(integer *, integer *  in analys_()
164 	    , integer *, integer *, integer *, integer *, integer *, integer *  in analys_()
165 	    , integer *), dcbias_(integer *, real *, real *), placev_(integer   in analys_()
166 	    *, integer *, integer *, integer *, integer *, integer *, integer   in analys_()
167 	    *, integer *, integer *, integer *, integer *);  in analys_()
168     integer ipitch;  in analys_()
169     integer *obound;  in analys_()
170     extern /* Subroutine */ int preemp_(real *, real *, integer *, real *,   in analys_()
171 	    real *), voicin_(integer *, real *, real *, integer *, integer *,   in analys_()
172 	    real *, real *, integer *, real *, integer *, integer *, integer *,  in analys_()
174     integer *voibuf;  in analys_()
175     integer mintau;  in analys_()
177     extern /* Subroutine */ int lpfilt_(real *, real *, integer *, integer *),  in analys_()
178 	     ivfilt_(real *, real *, integer *, integer *, real *), energy_(  in analys_()
179 	    integer *, real *, real *), invert_(integer *, real *, real *,   in analys_()
181     integer minptr, maxptr;  in analys_()
182     extern /* Subroutine */ int dyptrk_(real *, integer *, integer *, integer   in analys_()
183 	    *, integer *, integer *, struct lpc10_encoder_state *);  in analys_()
199 /* 	integer fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */  in analys_()
228 /* 	integer quant, nbits */  in analys_()
254 /* 	integer nframe, nunsfm, iclip, maxosp, listl, lincnt */  in analys_()
476 /*   Compute RMS over integer number of pitch periods within the */  in analys_()