24 extern int decode_(integer *ipitv, integer *irms, integer *irc, integer *voice, integer *pitch, rea…
29     integer order, lframe;
37 static integer c__2 = 2;
111 /* Subroutine */ int decode_(integer *ipitv, integer *irms,   in decode_()
112 	integer *irc, integer *voice, integer *pitch, real *rms, real *rc,  in decode_()
118     static integer ethrs = 2048;  in decode_()
119     static integer ethrs1 = 128;  in decode_()
120     static integer ethrs2 = 1024;  in decode_()
121     static integer ethrs3 = 2048;  in decode_()
122     static integer ivtab[32] = { 24960,24960,24960,24960,25480,25480,25483,  in decode_()
130     static integer detau[128] = { 0,0,0,3,0,3,3,31,0,3,3,21,3,3,29,30,0,3,3,  in decode_()
136     static integer rmst[64] = { 1024,936,856,784,718,656,600,550,502,460,420,  in decode_()
140     static integer detab7[32] = { 4,11,18,25,32,39,46,53,60,66,72,77,82,87,92,  in decode_()
145     integer *ivp2h;  in decode_()
146     static integer deadd[8] = { 1152,-2816,-1536,-3584,-1280,-2432,768,-1920 }  in decode_()
148     static integer qb[8] = { 511,511,1023,1023,1023,1023,2047,4095 };  in decode_()
149     static integer nbit[10] = { 8,8,5,5,4,4,4,4,3,2 };  in decode_()
150     static integer zrc[10] = { 0,0,0,0,0,3,0,2,0,0 };  in decode_()
151     static integer bit[5] = { 2,4,8,16,32 };  in decode_()
152     integer *iovoic;  in decode_()
153     integer *iavgp;  in decode_()
154     integer *iptold;  in decode_()
155     integer *erate;  in decode_()
156     integer *drc;  in decode_()
157     integer *dpit;  in decode_()
158     integer *drms;  in decode_()
161     integer i__1, i__2;  in decode_()
164     integer pow_ii(integer *, integer *);  in decode_()
167     extern /* Subroutine */ int ham84_(integer *, integer *, integer *);  in decode_()
168     integer ipit, iout, i__, icorf, index, ivoic, ixcor, i1, i2, i4;  in decode_()
169     extern integer median_(integer *, integer *, integer *);  in decode_()
170     integer ishift, errcnt, lsb;  in decode_()
190 /* 	integer fsi, fso, fpi, fpo, fbi, fbo, pbin, fmsg, fdebug */  in decode_()
218 /* 	integer quant, nbits */  in decode_()
244 /* 	integer nframe, nunsfm, iclip, maxosp, listl, lincnt */  in decode_()