24 …voicin_(integer *vwin, real *inbuf, real *lpbuf, integer *buflim, integer *half, real *minamd, rea…
223 /* Subroutine */ int voicin_(integer *vwin, real *inbuf, real *  in voicin_()
224 	lpbuf, integer *buflim, integer *half, real *minamd, real *maxamd,   in voicin_()
225 	integer *mintau, real *ivrc, integer *obound, integer *voibuf,   in voicin_()
230     real *dither;  in voicin_()
231     static real vdc[100]	/* was [10][10] */ = { 0.f,1714.f,-110.f,  in voicin_()
241     static real vdcl[10] = { 600.f,450.f,300.f,200.f,0.f,0.f,0.f,0.f,0.f,0.f }  in voicin_()
246     real r__1, r__2;  in voicin_()
249     integer i_nint(real *);  in voicin_()
253     real ar_b__, ar_f__;  in voicin_()
257     real *voice;  in voicin_()
259     real value[9];  in voicin_()
262     real qs;  in voicin_()
263     real *maxmin;  in voicin_()
265     real rc1;  in voicin_()
266     extern /* Subroutine */ int vparms_(integer *, real *, real *, integer *,   in voicin_()
267 	    integer *, real *, integer *, integer *, integer *, integer *,   in voicin_()
268 	    real *, real *, real *, real *);  in voicin_()
270     real *snr;  in voicin_()
271     real snr2;  in voicin_()
504     r__1 = (*snr + *fbve / (real) max(*fbue,1)) * 63 / 64.f;  in voicin_()
505     *snr = (real) i_nint(&r__1);  in voicin_()
519     value[1] = (real) lbe / max(*lbve,1);  in voicin_()
520     value[2] = (real) zc;  in voicin_()
710     r__2 = sqrt((real) (*lbue * *lbve)) * 64 / 3000;  in voicin_()